Marco² |
|
| Da sempre l'isotopia mi ha incuriosito,
quello che vi propongo è un metodo semplice e efficace,vi metto le previsioni
già belle e pronte.
Numero 1 ripetuto isotopo:
ambata 2
ambi 2-46....2-64
Numero 2 ripetuto isotopo:
ambata 4
ambi 4-47....4-74
Numero 3 ripetuto isotopo:
ambata 6
ambi 6-48....6-84
Numero 4 ripetuto isotopo:
ambata 8
ambi 8-44....8-49
Numero 5 ripetuto isotopo:
ambata 10
ambi 10-5....10-50
Numero 6 ripetuto isotopo:
ambata 12
ambi 12-15....12-51
Numero 7 ripetuto isotopo:
ambata 14
ambi 14-25....14-52
Numero 8 ripetuto isotopo:
ambata 16
ambi 16-35....16-53
Numero 9 ripetuto isotopo:
ambata 18
ambi 18-45....18-54
Vi allego anche lo script che è ottimizzato x Spaziometria,
se usate L8 o Lottodesk, GIOCA ES togliere la",1"
CODICE Sub Main()
ColoreTesto 2
Scrivi" NUMERETTO RIPETUTO ISOTOPO by MARCO",1
ColoreTesto 0
Dim ruote(2)
Dim ambata(1)
Dim n(3)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1.5
esp = CInt(InputBox("Estrazione di Partenza ?",,8555))
klp = InputBox("Colpi di gioco ?",,10)
co = 0
casi = 0
ini = esp
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
For p = 1 To 5
For p1 = 1 To 5
If p = p1 Then
a = Estratto(es,r1,p)
b = Estratto(es,r2,p1)
ok = 0
If a = 1 And b = 1 Then
n1 = 2
n2 = 46
n3 = 64
ok = 1
End If
If a = 2 And b = 2 Then
n1 = 4
n2 = 47
n3 = 74
ok = 1
End If
If a = 3 And b = 3 Then
n1 = 6
n2 = 48
n3 = 84
ok = 1
End If
If a = 4 And b = 4 Then
n1 = 8
n2 = 44
n3 = 49
ok = 1
End If
If a = 5 And b = 5 Then
n1 = 10
n2 = 5
n3 = 50
ok = 1
End If
If a = 6 And b = 6 Then
n1 = 12
n2 = 15
n3 = 51
ok = 1
End If
If a = 7 And b = 7 Then
n1 = 14
n2 = 25
n2 = 52
ok = 1
End If
If a = 8 And b = 8 Then
n1 = 16
n2 = 35
n3 = 53
ok = 1
End If
If a = 9 And b = 9 Then
n1 = 18
n2 = 45
n3 = 54
ok = 1
End If
If ok = 1 Then
co = co + 1
casi = casi + 1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 1
Scrivi String(95,"°") & " Caso n° " & casi,1
ColoreTesto 0
ColoreTesto 2
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ----> " & Format2(Estratto(es,r1,p)) & " NUMERETTO "
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ----> " & Format2(Estratto(es,r2,p)) & " NUMERETTO "
ColoreTesto 0
ambata(1) = n1
ImpostaGiocata 1,ambata,ruote,posta,klp,1
n(1) = n1
n(2) = n2
ImpostaGiocata 2,n,ruote,poste,klp,2
n(1) = n1
n(2) = n3
ImpostaGiocata 3,n,ruote,poste,klp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
|
| | |
