ciao ti psto un metodo modificato su altre ruote: il calcolo avviene alla prima del mese con somma e differenza del 1° Torino e 5° Venezia - somma e differenza 5° Bari e 1° Venezia e vertibile. Anche se i numeri sono 5 ogni mese ha dato l'ambo nei primi 6 colpi massimo 7 8, penso si abbastanza veloce.
Ruote di gioco Bari Torino Venezia
Gli ambi da giocare sono il secondo e terzo numero della lunghetta
Il secondo ed il quinto
Sub Main()
Dim number(5)
Dim ruote(12)
Dim posta(2)
posta(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10562 To EstrazioneFin
If Índice Mensile ( n) = 1 Then
number(1) = Fuori90(Estratto(n,9,1) + Estratto(n,10,5))
number(2) = Massimo(Estratto(n,1,5),Estratto(n,10,1)) - Minimo(Estratto(n,1,5),Estratto(n,10,1))
number(3) = Fuori90(Estratto(n,1,5) + Estratto(n,10,1))
number(4) = Massimo(Estratto(n,9,1),Estratto(n,10,5)) - Minimo(Estratto(n,9,1),Estratto(n,10,5))
number(5) = Vert(number(2))
ImpostaGiocata 1,number,ruote,posta,9,2
Gioca n,2
End If
Next
ScriviResoconto
End Sub
0141214428