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
|
| |