Novità

script metodo mi/na aiuto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao a tutti è un pò che seguo il forum ,devo fare i complimenti a tutti ,credo (non me ne vogliano gli altri)sia uno se non il miglior sito in circolazione,mi sono deciso a scrivere per chiedere se qualcuno può aiutarmi in uno script:
il 5°estratto di milano più il 1° estratto di napoli,il risultato è l'ambata con il suo vertibile.
A mano mi da discreti risultati.
Mi servirebbe come statistica
Grazie a tutti per l'attenzione.ciao
Marco
 
Ciao e benvenuto,
in quale estrazione mensile vuoi calcolare l'ambata?
su che ruota vuoi giocarla?
quanti colpi?
Ciao

Blackmore
 
Ciao (intanto grazie)vorrei ricavare la previsione a ogni estrazione mensile,le ruote sono MI e NA ,per quattro colpi
ciao .
Marco
 
Marco non posso aiutarti, c'è un calcolo che non mi torna, mi dà sempre gli stessi numeri, sicuramente dimentico qualcosa,
Aspetta e vedrai che qualcuno te lo farà
Domanda: sei sicuro che 2 ambate su 2 ruote ad ogni estrazione ti fanno essere in attivo?
Ho dato un occhiata veloce e Per me (ripeto per me) è una follia, ma tu sei libero di fare ciò che credi

Blackmore
 
Ciao, Marco, controlla se va bene.
Codice:
Sub main()
Dim rt(2),pte(2),pta(2),am(2),ambo(5),nr(5)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",100))
clpe=CInt(InputBox("Quanti colpi di gioco per l'ambata?","Colpi ambata",4))
clpa=CInt(InputBox("Quanti colpi di gioco per l'ambo?","Colpi ambo",12))
n1=CInt(InputBox("1° numero da abbinare?","N1",8))
n2=CInt(InputBox("2° numero da abbinare?","N2",13))
n3=CInt(InputBox("3° numero da abbinare?","N3",20))
n4=CInt(InputBox("4° numero da abbinare?","N4",45))
n5=CInt(InputBox("5° numero da abbinare?","N5",79))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

pte(1)=1
pte(2)=1
pta(2)=1
rt(1)=5
rt(2)=6
ng=0

am(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1))
am(2)=Vert(am(1))
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clpe

nr(1)=n1
nr(2)=n2
nr(3)=n3
nr(4)=n4
nr(5)=n5

For x=1 To 5
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

For x=1 To 5
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
quote:Originally posted by Blackmore

Meno male che c'è Thauk :D:D:D

Blackmore
:D:D:D

Più che altro, meno male che in questo periodo ho un po' più di tempo - a orari improbabili - per dare una sbirciata al forum...

Fortuna non omnibus aeque.
 
Ciao a tutti ,grazie Blackmore ,si così è molto dispendioso ,solo che voglio cercare di abbinargli alcuni numeri x ambo.
Un altrettanto ringraziamento a Thauk ,(la classe non è acqua)proprio come volevo complimenti ,io non saprei nemmeno da dove iniziare,ma sarebbe possibile abbinargli alle ambate 5 numeri x ambo(i più frequenti nelle ultime 50 o 100 estrazioni .
Solo se è possibile ,prometto non chiedo altro.
Ciao Marco
 
Ciao, Marco, ho modificato lo script precedente aggiungendo alcuni InputBox. Ho impostato i colpi per l'ambata a 4 e quelli per l'ambo a 12. I numeri da abbinare sono 5 (8.13.20.45.79), ma li puoi modificare a tuo piacimento di volta in volta. Quest'ultimi sono/sono stati i più frequenti sulle ruote unite di Milano-Napoli dal 2005 a oggi, ma ciò non significa che continueranno a esserlo in futuro.

Buone vincite.
:D

Fortuna non omnibus aeque.
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto