SCRIPT SI PUò CAMBIARE IN SUPERENALOTTO IN LOTTO ? GRAZIE.

[Alien.]

Sub Main
Scrivi " in giro per il web c'è il superenalotto(2) di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...36/index2.html -
Dim n1(01),nn(12),esSE
fin = EstrazioneFin
ini = EstrazioneIni + 8633
For es = Ini To fin
If ScriptInterrotto Then Exit For
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 11 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n1(01) = Fuori90(((90 + Estratto(es,FI_,1)) - Estratto(es,CA_,2)) + 8)' CALCOLO CAPOGIOCO: 1° ESTRATTO DI FI - 2° ESTRATTO DI CA + 8
nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,RO_,5))) - Estratto(es,RO_,3))' ABBINAMENTO 01: 2° ESTRATTO DI BA + 5° ESTRATTO DI RO - 3° ESTRATTO DI RO
nn(02) = Fuori90((90 +(Estratto(es,CA_,4) + Estratto(es,NA_,4))) - Estratto(es,PA_,5))' ABBINAMENTO 02: 4° ESTRATTO DI CA + 4° ESTRATTO DI NA - 5° ESTRATTO DI PA
nn(03) = Fuori90((Estratto(es,FI_,3) + Estratto(es,RO_,3)) + 53)' ABBINAMENTO 03: 3° Estratto DI FI + 3° Estratto DI RO + 53
nn(04) = Fuori90((Estratto(es,GE_,1) + Estratto(es,GE_,3)) - Estratto(es,BA_,4))' ABBINAMENTO 04: 1° ESTRATTO DI GE + 3° ESTRATTO DI GE - 4° ESTRATTO DI BA
nn(05) = Fuori90((Estratto(es,MI_,1) + Estratto(es,MI_,2)) - Estratto(es,BA_,1))' ABBINAMENTO 05: 1° ESTRATTO DI MI + 2° ESTRATTO DI MI - 1° ESTRATTO DI BA
nn(06) = Fuori90(((90 + Estratto(es,NA_,5)) - Estratto(es,GE_,2)) - Estratto(es,PA_,1))' ABBINAMENTO 06: 5° Estratto DI NA - 2° Estratto DI GE - 1° Estratto DI PA
nn(07) = Fuori90(((Estratto(es,PA_,4) + Estratto(es,CA_,5))) + Estratto(es,RO_,2))' ABBINAMENTO 07: 4° ESTRATTO DI PA + 5° ESTRATTO DI CA + 2° ESTRATTO DI RO
nn(08) = Fuori90(((90 +(Estratto(es,RO_,5)) - Estratto(es,FI_,1))) + 49)' ABBINAMENTO 08: 5° Estratto DI RO - 1° Estratto DI FI + 49
nn(09) = Fuori90((90 +(Estratto(es,TO_,1)) - Estratto(es,NA_,4)) - Estratto(es,NA_,5))' ABBINAMENTO 09: 1° ESTRATTO DI TO - 4° ESTRATTO DI NA - 5° ESTRATTO DI NA
nn(10) = Fuori90((90 +(Estratto(es,VE_,2) + Estratto(es,VE_,3) - Estratto(es,FI_,4) - Estratto(es,NZ_,2))) * Estratto(es,NZ_,1))' ABBINAMENTO 10: 2° ESTRATTO DI VE + 3° ESTRATTO DI VE - 4° ESTRATTO DI FI - 2° ESTRATTO DI NAZ X 1° ESTRATTO DI NAZ
nn(11) = Fuori90((Estratto(es,BA_,1) + Estratto(es,PA_,4)) - Estratto(es,GE_,5))' ABBINAMENTO 11: 1° Estratto DI BA + 4° Estratto DI PA - 5° Estratto DI GE
nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,PA_,1)) * Estratto(es,VE_,4))' ABBINAMENTO 12: 5° ESTRATTO DI CA - 1° ESTRATTO DI PA X 4° ESTRATTO DI VE
OrdinaMatrice nn,1
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip = 0
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(nn(01)) & " . " & Format2(nn(02))& _
" . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _
Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 01 To 11
For y = x + 01 To 12
If nn(x) = nn Then nn = Fuori90(nn + 01)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
Scrivi
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_
& " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6

esSE =(es - 6659)
nn(00) = n1(01)
For x = 1 To 13
If ScriptInterrotto Then Exit For
If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
Else
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "
End If
Next
End If
Next
End Sub

 

[salvo50]

Ciao a Tutti.

Questo script non mi è nuovo,
ed è già per il superenalotto,
per il lotto lo trovi qui

TROVARE QUANTI PUNTI HA FATTO

Ciao,questo script da 13 numeri ma non ti dice quanti punteggi ha fatto è possibile immettere il risultato,grazie. Sub Main Scrivi " in giro per il web c'è il superenalotto di Keeper ",1' - http://forum.lottoced.com/f12/giro-per-il-web-c%E8-il-superenalotto-110736/ - Dim...

forum.lottoced.com