Ciao ragazzi, volevo postarvi lo script richiesto in Spaziometria.
Complimenti a Nando52 per questo bellissimo metodo.
'Metodo "Ambo a Bari in 13 colpi dalla 9a del Mese","Autore: [Nando52]"
Dim a
Dim n1, n2, n3, n4, n5, n6, n7, n8, n9
Dim Numeri(2)
Dim Giocate(2)
Giocate(2) = 1
Dim Ruote(1)
Ruote(1) = BA_
Dim casi
casi = 00
For a = EstrazioneFin To EstrazioneIni Step - 1
If IndiceMensile(a) = 9 Then
casi = casi + 01
n1 = Figura(Estratto(a,NA_,1))
n2 = Fuori90(Estratto(a,RO_,5)+20)
n3 = Figura(Estratto(a,BA_,4))
n4 = Fuori90(Estratto(a,NZ_,1)+01)
Numeri(1) = Fuori90(n1+n2)
Numeri(2) = Fuori90(n3+n4)
ImpostaGiocata 1,Numeri,Ruote,Giocate,13,2
n5 = DecinaNaturale(Estratto(a,NA_,5))
n6 = Fuori90(Estratto(a,RO_,3)+22)
Numeri(1) = Fuori90(n1+n2)
Numeri(2) = Fuori90(n5+n6)
ImpostaGiocata 2,Numeri,Ruote,Giocate,13,2
n7 = Diametrale(Estratto(a,NA_,5))
n8 = Fuori90(Estratto(a,TO_,4)+34)
Numeri(1) = Fuori90(n1+n2)
Numeri(2) = Fuori90(n7+n8)
ImpostaGiocata 3,Numeri,Ruote,Giocate,13,2
n9 = Fuori90(Estratto(a,CA_,4)+(Estratto(a,MI_,1)+36))
Numeri(1) = Fuori90(n1+n2)
Numeri(2) = n9
ImpostaGiocata 4,Numeri,Ruote,Giocate,13,2
Gioca a
End If
If casi >= 16 Then Exit For
Next
Call ScriviResoconto()
____________________________________________________________
Per chi volesse, posso postarvi anche lo stesso script in Visual Lotto 7.0.5.
Ciao Manuel67