Novità

TROVARE QUANTI PUNTI HA FATTO

Alien.

Alien.

Advanced Premium Member
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 n(1),nn(08),nn1(07),ruota(10),posta(1),poste(3)
'posta(1) = 1
'poste(2) = 1
'poste(3) = 1
'k = 13
fin = EstrazioneFin
ini = EstrazioneIni + 8633
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
'ruota(10) = TU_
n(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
'ImpostaGiocata 1,n,ruota,posta,k,1
nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01: 1° ESTRATTO DI BA X 1° ESTRATTO DI VE - 1° ESTRATTO DI FI
nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02: 1° ESTRATTO DI CA + 47 X 83
nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03: 1° ESTRATTO DI FI + 2° ESTRATTO DI MI + 1° ESTRATTO DI NA
nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04: 4° ESTRATTO DI GE - 5° ESTRATTO DI RO X 41
nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05: 2° ESTRATTO DI MI - 2° ESTRATTO DI BA + 69
nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06: 3° Estratto DI NA + 5° Estratto DI VE - 1° Estratto DI To
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 N° 2 SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & nn(1) & " . " & nn(2) & " . " & nn(3) & " . " & nn(4) & " . " & nn(5) & " . " & nn(6) & " . " & nn(7),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 1 To 6
For y = x + 1 To 7
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
Scrivi
'ImpostaGiocata 2,nn,ruota,poste,k,3
nn1(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
nn1(02) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07: 2° ESTRATTO DI PA + 3° ESTRATTO DI TO + 5° ESTRATTO DI NAZ
nn1(03) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08: 2° ESTRATTO DI RO + 4° ESTRATTO DI RO + 61
nn1(04) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09: 1° ESTRATTO DI TO + 3° ESTRATTO DI BA - 4° ESTRATTO DI NA
nn1(05) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10: 4° Estratto DI VE - 5° Estratto DI NAZ + 11
nn1(06) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11: 2° ESTRATTO DI BA + 1° ESTRATTO DI GE + 45
nn1(07) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12: 1° ESTRATTO DI CA + 1° ESTRATTO DI GE - 5° ESTRATTO DI BA
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip = 0
If NumeriRipetuti(nn1) Then
If NumeriRipetuti(nn1) Then Scrivi " NELLA GIOCATA N° 3 SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & nn1(1) & " . " & nn1(2) & " . " & nn1(3) & " . " & nn1(4) & " . " & nn1(5) & " . " & nn1(6) & " . " & nn1(7),1,1,4
rip = 1
While NumeriRipetuti(nn1)
For x = 1 To 6
For y = x + 1 To 7
If nn1(x) = nn1(y) Then nn1(y) = Fuori90(nn1(y) + 1)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . "_
& Format2(nn(07)) & " . " & Format2(nn1(02)) & " . " & Format2(nn1(03)) & " . " & Format2(nn1(04)) & " . " & Format2(nn1(05)) & " . " & Format2(nn1(06)) & " . "_
& Format2(nn1(07)) & " . ",1,1,6
'ImpostaGiocata 3,nn1,ruota,poste,k,3
'Gioca es,True,,1
End If
Next
'Call ScriviResoconto
End Sub
 
togli gli apici( dove ti appare il verde)...
non in questi casi
nn1(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO:
e poi cambia
ini = EstrazioneIni + 8633
con
ini = EstrazioneFin-100

non gioca il superenalotto
 
Ultima modifica:
Sub Main
Scrivi " in giro per il web c'è il superenalotto di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...alotto-110736/ -
Dim n(1),nn(13),nn1(07)
fin = EstrazioneFin
ini = EstrazioneIni + 8563
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
'nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01: 1° ESTRATTO DI BA X 1° ESTRATTO DI VE - 1° ESTRATTO DI FI
nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02: 1° ESTRATTO DI CA + 47 X 83
nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03: 1° ESTRATTO DI FI + 2° ESTRATTO DI MI + 1° ESTRATTO DI NA
nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04: 4° ESTRATTO DI GE - 5° ESTRATTO DI RO X 41
nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05: 2° ESTRATTO DI MI - 2° ESTRATTO DI BA + 69
nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06: 3° Estratto DI NA + 5° Estratto DI VE - 1° Estratto DI To
nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07: 2° ESTRATTO DI PA + 3° ESTRATTO DI TO + 5° ESTRATTO DI NAZ
nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08: 2° ESTRATTO DI RO + 4° ESTRATTO DI RO + 61
nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09: 1° ESTRATTO DI TO + 3° ESTRATTO DI BA - 4° ESTRATTO DI NA
nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10: 4° Estratto DI VE - 5° Estratto DI NAZ + 11
nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11: 2° ESTRATTO DI BA + 1° ESTRATTO DI GE + 45
nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12: 1° ESTRATTO DI CA + 1° ESTRATTO DI GE - 5° ESTRATTO DI BA
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" & " - " & nn(1) & " . " & nn(2) & " . " & nn(3) & " . " & nn(4) & " . " & nn(5) & " . " & nn(6) & " . " & nn(7)& " . " & nn(8) & " . " & nn(9) & " . " & nn(10) & " . " & nn(11) & " . " & nn(12) & " . " & nn(13),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 01 To 12
For y = x + 01 To 13
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & 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)) & " . "_
& Format2(nn(13)) & " . ",1,1,6
esSE =(es - 6659)
nn(00) = n(01)
For x = 1 To 13
If ScriptInterrotto Then Exit For
If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
Dim EV01,EV02,EV03,EV04,EV05
If RetEsito = "Terno" Then EV01 = EV01 + 01
If RetEsito = "Quaterna" Then EV02 = EV02 + 01
If RetEsito = "Cinquina" Then EV03 = EV03 + 01
If RetEsito = "5+1" Then EV04 = EV04 + 01
If RetEsito = "Sestina" Then EV05 = EV05 + 01
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
Else
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "
End If
Next
End If
Next
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")
Call Scrivi()
Call Scrivi("TRE : " & FormattaStringa(EV01,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV03,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV04,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV05,"00"))
End Sub
 
Ciao per chi può si potrebbe chiedere l'ID estrazioni ,allo script ? grazie.
INOLTRE METTERE L'ARCHIVIO LOTTO ED POI PER IL 10ELOTTO ? GRAZIE.
 
Ultima modifica:
:):):)
ESATTO SE è POSSIBILE ANCHE LO STESSO METODO MA CON L'ARCHIVIO DEL LOTTO-
POI QUELLO DEL 10ELOTTO SERALE-PER VEDERE COSA SUCCEDE SE DANNO QUALCHE COSA DI MOLTO POSITIVO,GRAZIE.
 
Ultima modifica:
Ciao a Tutti.

Per il momento, ti ho inserito la richiesta dell'estrazione iniziale, per le altre 2 richieste, vedrò cosa posso fare,
per il lotto oltre a cambiare l'archivio, devo inserire le ruote e quindi devo capire dove inserirle,
per il 10elotto non lo sò se basta cambiare l'archivio, devo vedere, tempo permettendo


Codice: 
Sub Main

Scrivi " in giro per il web c'è il superenalotto di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...alotto-110736/ -

Dim n(1),nn(13),nn1(07)

fin = EstrazioneFin

Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)

For es = Ini To fin

Messaggio es

AvanzamentoElab Ini,fin,es

If IndiceMensile(es) = 12 Then

casi = casi + 1

Scrivi String(75,"=") & " caso n° " &(casi),1

n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA

'nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA

nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01: 1° ESTRATTO DI BA X 1° ESTRATTO DI VE - 1° ESTRATTO DI FI

nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02: 1° ESTRATTO DI CA + 47 X 83

nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03: 1° ESTRATTO DI FI + 2° ESTRATTO DI MI + 1° ESTRATTO DI NA

nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04: 4° ESTRATTO DI GE - 5° ESTRATTO DI RO X 41

nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05: 2° ESTRATTO DI MI - 2° ESTRATTO DI BA + 69

nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06: 3° Estratto DI NA + 5° Estratto DI VE - 1° Estratto DI To

nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07: 2° ESTRATTO DI PA + 3° ESTRATTO DI TO + 5° ESTRATTO DI NAZ

nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08: 2° ESTRATTO DI RO + 4° ESTRATTO DI RO + 61

nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09: 1° ESTRATTO DI TO + 3° ESTRATTO DI BA - 4° ESTRATTO DI NA

nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10: 4° Estratto DI VE - 5° Estratto DI NAZ + 11

nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11: 2° ESTRATTO DI BA + 1° ESTRATTO DI GE + 45

nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12: 1° ESTRATTO DI CA + 1° ESTRATTO DI GE - 5° ESTRATTO DI BA

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" & " - " & nn(1) & " . " & nn(2) & " . " & nn(3) & " . " & nn(4) & " . " & nn(5) & " . " & nn(6) & " . " & nn(7) & " . " & nn(8) & " . " & nn(9) & " . " & nn(10) & " . " & nn(11) & " . " & nn(12) & " . " & nn(13),1,1,4

rip = 1

While NumeriRipetuti(nn)

For x = 01 To 12

For y = x + 01 To 13

If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)

Next

Next

Wend

End If

If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3

Scrivi

Scrivi " Numeri da giocare al Superenalotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4

Scrivi

Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6

Scrivi " NUMERI GIRANTI : " & 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)) & " . "_

 & Format2(nn(13)) & " . ",1,1,6

esSE =(es - 6659)

nn(00) = n(01)

For x = 1 To 13

If ScriptInterrotto Then Exit For

If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then

Dim EV01,EV02,EV03,EV04,EV05

If RetEsito = "Terno" Then EV01 = EV01 + 01

If RetEsito = "Quaterna" Then EV02 = EV02 + 01

If RetEsito = "Cinquina" Then EV03 = EV03 + 01

If RetEsito = "5+1" Then EV04 = EV04 + 01

If RetEsito = "Sestina" Then EV05 = EV05 + 01

Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti

Else

Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "

End If

Next

End If

Next

Call Scrivi(String(125,"-"))

Call Scrivi()

Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")

Call Scrivi()

Call Scrivi("TRE : " & FormattaStringa(EV01,"00"))

Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"))

Call Scrivi("CINQUE : " & FormattaStringa(EV03,"00"))

Call Scrivi("5 + 1 : " & FormattaStringa(EV04,"00"))

Call Scrivi("SEI : " & FormattaStringa(EV05,"00"))

End Sub
 
ciao,scusa salvo mi da errore.

Scrivi

Scrivi " Numeri da giocare al Superenalotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4

Scrivi

Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6

Scrivi " NUMERI GIRANTI : " & 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)) & " . "_
 
A me non da nessun errore

te lo riposto di nuovo, ma è uguale a quello sopra

Codice: 
Sub Main
Scrivi " in giro per il web c'è il superenalotto di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...alotto-110736/ -
Dim n(1),nn(13),nn1(07)
fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
'nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO: 2° Estratto DI BA + 1° Estratto DI FI - 2° Estratto DI CA
nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01: 1° ESTRATTO DI BA X 1° ESTRATTO DI VE - 1° ESTRATTO DI FI
nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02: 1° ESTRATTO DI CA + 47 X 83
nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03: 1° ESTRATTO DI FI + 2° ESTRATTO DI MI + 1° ESTRATTO DI NA
nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04: 4° ESTRATTO DI GE - 5° ESTRATTO DI RO X 41
nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05: 2° ESTRATTO DI MI - 2° ESTRATTO DI BA + 69
nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06: 3° Estratto DI NA + 5° Estratto DI VE - 1° Estratto DI To
nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07: 2° ESTRATTO DI PA + 3° ESTRATTO DI TO + 5° ESTRATTO DI NAZ
nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08: 2° ESTRATTO DI RO + 4° ESTRATTO DI RO + 61
nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09: 1° ESTRATTO DI TO + 3° ESTRATTO DI BA - 4° ESTRATTO DI NA
nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10: 4° Estratto DI VE - 5° Estratto DI NAZ + 11
nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11: 2° ESTRATTO DI BA + 1° ESTRATTO DI GE + 45
nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12: 1° ESTRATTO DI CA + 1° ESTRATTO DI GE - 5° ESTRATTO DI BA
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" & " - " & nn(1) & " . " & nn(2) & " . " & nn(3) & " . " & nn(4) & " . " & nn(5) & " . " & nn(6) & " . " & nn(7) & " . " & nn(8) & " . " & nn(9) & " . " & nn(10) & " . " & nn(11) & " . " & nn(12) & " . " & nn(13),1,1,4
rip = 1
While NumeriRipetuti(nn)
For x = 01 To 12
For y = x + 01 To 13
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & 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)) & " . "_
  & Format2(nn(13)) & " . ",1,1,6
esSE =(es - 6659)
nn(00) = n(01)
For x = 1 To 13
If ScriptInterrotto Then Exit For
If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
Dim EV01,EV02,EV03,EV04,EV05
If RetEsito = "Terno" Then EV01 = EV01 + 01
If RetEsito = "Quaterna" Then EV02 = EV02 + 01
If RetEsito = "Cinquina" Then EV03 = EV03 + 01
If RetEsito = "5+1" Then EV04 = EV04 + 01
If RetEsito = "Sestina" Then EV05 = EV05 + 01
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
Else
Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "
End If
Next
End If
Next
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")
Call Scrivi()
Call Scrivi("TRE : " & FormattaStringa(EV01,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV03,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV04,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV05,"00"))
End Sub
 
L'ho adattato per il LOTTO, ne ho fatti 2, nel primo decidi da esterno in quale ruota cercare il pronostico, nel secondo, la ricerca del pronostico viene fatta in tutte le ruote, controlla se ci sono errori.

Codice: 
Sub Main
   Dim n(1),nn(13),nn1(07),Ruo(1)
   fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   R1 = InputBox(" In Quale Ruota Vuoi Cercare Il Pronostico?",,1)
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IsUltimaDelMese(es) Then
         casi = casi + 1
         Scrivi String(75,"=") & " caso n° " &(casi),1
         n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO
         nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
         nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
         nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
         nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
         nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
         nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
         nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
         nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
         nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
         nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
         nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
         nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
         nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
         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" & " - " & StringaNumeri(nn," ",True),1,1,4
            rip = 1
            While NumeriRipetuti(nn)
               For x = 01 To 12
                  For y = x + 01 To 13
                     If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
                  Next
               Next
            Wend
         End If
         If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
         Scrivi
         Scrivi " Numeri da giocare al Lotto per 13 colpi dal " & DataEstrazione(es + 1),1,1,4
         Scrivi " Nella Ruota di " & NomeRuota(R1),1,,,1,4
         Scrivi " CAPOGIOCO : " & Format2(n(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)) & " . "_
           & Format2(nn(13)),1,1,6
         nn(00) = n(01)
         For x = 1 To 13
            If ScriptInterrotto Then Exit For
            Ruo(1) = R1
            If VerificaEsito(nn,Ruo,es + x,1,1,,retesito,retcolpi,retestratti,retidestr) = True Then
               Dim EV01,EV02,EV03,EV04,EV05
               If RetEsito = "Ambo" Then EV04 = EV04 + 01
               If RetEsito = "Terno" Then EV01 = EV01 + 01
               If RetEsito = "Quaterna" Then EV02 = EV02 + 01
               If RetEsito = "Cinquina" Then EV03 = EV03 + 01
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
            Else
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & "negativo "
            End If
         Next
      End If
   Next
   Call Scrivi(String(125,"-"))
   Call Scrivi()
   Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")
   Call Scrivi()
   Call Scrivi("AMBO : " & FormattaStringa(EV04,"00"))
   Call Scrivi("TRE : " & FormattaStringa(EV01,"00"))
   Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"))
   Call Scrivi("CINQUE : " & FormattaStringa(EV03,"00"))
End Sub

secondo script per tutte le ruote
Codice: 
Sub Main
   Dim n(1),nn(13),nn1(07),Ruo(1)
   fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IsUltimaDelMese(es) Then
         casi = casi + 1
         Scrivi String(75,"=") & " caso n° " &(casi),1
         n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO
         nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
         nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
         nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
         nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
         nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
         nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
         nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
         nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
         nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
         nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
         nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
         nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
         nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
         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" & " - " & StringaNumeri(nn," ",True),1,1,4
            rip = 1
            While NumeriRipetuti(nn)
               For x = 01 To 12
                  For y = x + 01 To 13
                     If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
                  Next
               Next
            Wend
         End If
         If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
         Scrivi
         Scrivi " Numeri da giocare al Lotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4
         Scrivi " CAPOGIOCO : " & Format2(n(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)) & " . "_
             & Format2(nn(13)) & " . ",1,1,6
          
         nn(00) = n(01)
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            Scrivi Space(15) & " Ruota di " & NomeRuota(R1),1,,,1,4
            For x = 1 To 13
               If ScriptInterrotto Then Exit For
               Ruo(1) = R1
               If VerificaEsito(nn,Ruo,es + x,1,1,,retesito,retcolpi,retestratti,retidestr) = True Then
                  Dim EV01,EV02,EV03,EV04,EV05
                  If RetEsito = "Ambo" Then EV04 = EV04 + 01
                  If RetEsito = "Terno" Then EV01 = EV01 + 01
                  If RetEsito = "Quaterna" Then EV02 = EV02 + 01
                  If RetEsito = "Cinquina" Then EV03 = EV03 + 01
                  Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
               Else
                  Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & "negativo "
               End If
            Next
         Next
      End If
   Next
   Call Scrivi(String(125,"-"))
   Call Scrivi()
   Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")
   Call Scrivi()
   Call Scrivi("AMBO : " & FormattaStringa(EV04,"00"))
   Call Scrivi("TRE : " & FormattaStringa(EV01,"00"))
   Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"))
   Call Scrivi("CINQUE : " & FormattaStringa(EV03,"00"))
End Sub
 
è MICA MALE COMPLIMENTI TE LA CAVI MOLTO BENE. senti ad ogni estrazione ti è possibile fare il resoconto delle vincite.....è un po complicato ?
Senti con il 10elotto puoi fare qualche cosa che se tanto mi da tanto.......


e5fb3950e60260ec832d7cc6599126e7.gif
 
Ultima modifica:
Alien. ha scritto:
è MICA MALE COMPLIMENTI TE LA CAVI MOLTO BENE. senti ad ogni estrazione ti è possibile fare il resoconto delle vincite.....è un po complicato ?
Senti con il 10elotto puoi fare qualche cosa che se tanto mi da tanto.......


e5fb3950e60260ec832d7cc6599126e7.gif
Clicca per espandere...

Ciao a Tutti.

Grazie

Proverò a fare il resoconto delle vincite ad ogni estrazione.

Per il 10ELOTTO non ho fatto niente perche non so qual'è l'archivio, in Spaziometria c'è
solo quello ogni 5 minuti, quello serale come da te richiesto non so dove cercarlo
anche perchè non mi è mai interessato, comunque indicami dove trovare l'archivio e ci
proverò, se per te fa lo stesso, posso farlo con l'archivio ogni 5 minuti che c'è in Spaziometria
 
L'ho adottato per il 10elotto serale, spero che vada bene.
Sub Main()
Dim stati(11,2),vet(20),nu(),stat(),num(13),premi(10)
stati(1,1) = 0 :stati(1,2) = 0
For i = 2 To 11
stati(i,1) = i - 1
stati(i,2) = 0
Next
colpi = 12
Euro = 1 '<====== posta giocata del 10eLotto
'--------------
premi(0) = 2
premi(5) = 5
premi(6) = 15
premi(7) = 150
premi(8) = 1500
premi(9) = 30000
premi(10) = 1000000
'----------------------------------------------------------------------------------------
Scrivi " VERIFICA SORTITE 10&LOTTO DEI NUMERI ",1
ini = 9000
fin = EstrazioneFin
caso = 0
For es = ini To fin
If IndiceMensile(es) = 12 Then
caso = caso + 1
x1 = 1
x2 = 1
num(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
num(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
num(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
num(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
num(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
num(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
num(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
num(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
num(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
num(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
num(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
num(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
num(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
For i = 1 To 13
If num(i) = 0 Then num(i) = 90
Next
nn = 0
If NumeriRipetuti(num) Then
nn = 1
While NumeriRipetuti(num)
For i = 1 To 12
For y = i + 1 To 13
If num(i) = num(y) Then num(y) = Fuori90(num(y) + 89)
Next
Next
Wend
End If
OrdinaMatrice num,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String(75,"=") & " Caso n°" & caso
Scrivi DataEstrazione(es,1) & " Num. in Gioco " & StringaNumeri(num),1
'---------------------queste righe da qui a.....
ess = es + colpi
If ess > fin Then ess = fin
For x = es + 1 To ess
co = 0
For r = 1 To 10
For p = 1 To 2
co = co + 1
vet(co) = Estratto(x,r,p)
Next
Next
OrdinaMatrice(vet),1
If NumeriRipetuti(vet) Then
c = 0
While NumeriRipetuti(vet)
c = c + 1
ps = 3 : cr = c
If c > 10 Then cr = c - 10 : ps = 4
For i = 1 To 19
For y = i + 1 To 20
If vet(i) = vet(y) Then vet(y) = Estratto(x,cr,ps)
Next
Next
Wend
End If
OrdinaMatrice(vet),1
'ColoreTesto 2
'Scrivi "Colonna 10&LOTTO"
'ColoreTesto 0
'Scrivi StringaNumeri (vet)
'--------------------------------------a qui, permettono l'utilizzo con L8+....
cont = 0 : riga = ""
For i = 1 To 20
For j = 1 To 10
If vet(i) = num(j) Then cont = cont + 1: riga = riga & vet(i) & " "
Next
Next
For i = 1 To 11
If cont = stati(i,1) Then stati(i,2) = stati(i,2) + 1
Next
spesa = spesa + euro
ric = premi(cont)*euro
If cont = 0 Or cont > 0 Then Ric = "(Vinti " & ric & " Euro)" Else ric = ""
incasso = incasso +(premi(cont)* euro)
Scrivi DataEstrazione(x) & " " & StringaNumeri(vet) : ColoreTesto 1
Scrivi(x - es) & "°)colpo in data " & DataEstrazione(x) & " ",0,0
ColoreTesto 2
Scrivi cont,1,0
ColoreTesto 1
Scrivi " sortiti [" & riga & "]",0,0: ColoreTesto 2: Scrivi ric,1: ColoreTesto 0
Next
End If
Next
'=========================================================== SCRIVO IL RIEPILOGO FINALE
Scrivi : Scrivi "RIEPILOGO COMPLESSIVO DEGLI ESITI ",1
Scrivi "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & Chr(10),1
For i = 1 To 11
Scrivi FormatSpace(stati(i,1),2,1) & FormatSpace(stati(i,2),5,1)
Next
Scrivi
Scrivi " RESOCONTO ECONOMICO",1
Scrivi " spesa tot - " & spesa
Scrivi " incasso + " & incasso
Scrivi " saldo + " & incasso - spesa
End Sub
 
Ciao Pomito

Appena ho visto il tuo script la prima cosa che ho fatto è stata di vedere che tipo di archivio avevi messo, e non l'ho visto, quindi mi sembra di capire che sono i numeri del lotto.
Adesso me lo guardo per bene per vedere come hai estrapolato i numeri usciti.

Grazie
 
Per Salvo.
per avere l'archivio del 10 e lotto serale bisogna impostare l'archivio con l'apposita istruzione all'inizio di uno script in quanto è già calcolato in automatico con i numeri del lotto.
ImpostaArchivio1oeLotto(1) = serale
impostaArvhivio10elotto(2) = 5 min
per il resto usare tutti i codici del vbscript con il suffisso DL.
esempio EstrattoDL(es,p).

Ciao
 
Ciao a Tutti.

Ho fatto il riepilogo parziale ad ogni estrazione per il lotto, sia per la ruota singola che per tutte le ruote, per il 10elotto c'è lo script di Pomito

Ruota singola

Codice: 
Sub Main
   Dim n(1),nn(13),nn1(07),Ruo(1)
   fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   R1 = InputBox(" In Quale Ruota Vuoi Cercare Il Pronostico?",,1)
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IsUltimaDelMese(es) Then
         casi = casi + 1
         Scrivi String(75,"=") & " caso n° " &(casi),1
         n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO
         nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
         nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
         nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
         nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
         nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
         nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
         nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
         nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
         nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
         nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
         nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
         nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
         nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
         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" & " - " & StringaNumeri(nn," ",True),1,1,4
            rip = 1
            While NumeriRipetuti(nn)
               For x = 01 To 12
                  For y = x + 01 To 13
                     If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
                  Next
               Next
            Wend
         End If
         If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
         Scrivi
         Scrivi " Numeri da giocare al Lotto per 13 colpi dal " & DataEstrazione(es + 1),1,1,4
         Scrivi " Nella Ruota di " & NomeRuota(R1),1,,,1,4
         Scrivi " CAPOGIOCO : " & Format2(n(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)) & " . "_
          & Format2(nn(13)),1,1,6
         nn(00) = n(01)
         For x = 1 To 13
            If ScriptInterrotto Then Exit For
            Ruo(1) = R1
            If VerificaEsito(nn,Ruo,es + x,1,1,,retesito,retcolpi,retestratti,retidestr) = True Then
               Dim EV01,EV02,EV03,EV04
               Dim XEV01,XEV02,XEV03,XEV04
               If RetEsito = "Ambo" Then EV04 = EV04 + 01
               If RetEsito = "Terno" Then EV01 = EV01 + 01
               If RetEsito = "Quaterna" Then EV02 = EV02 + 01
               If RetEsito = "Cinquina" Then EV03 = EV03 + 01
               '
               If RetEsito = "Ambo" Then XEV04 = XEV04 + 01
               If RetEsito = "Terno" Then XEV01 = XEV01 + 01
               If RetEsito = "Quaterna" Then XEV02 = XEV02 + 01
               If RetEsito = "Cinquina" Then XEV03 = XEV03 + 01
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
            Else
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & "negativo "
            End If
         Next
         If EV01 > 0 Or EV02 > 0 Or EV03 > 0 Or EV04 > 0 Then
            Call Scrivi()
            Call Scrivi("RIEPILOGO ESITI PARZIALI")
            Call Scrivi()
            If EV04 > 0 Then Call Scrivi("AMBO    : " & FormattaStringa(EV04,"00"),1,,,1,3)
            If EV01 > 0 Then Call Scrivi("TERNO   : " & FormattaStringa(EV01,"00"),1,,,1,3)
            If EV02 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"),1,,,1,3)
            If EV03 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(EV03,"00"),1,,,1,3)
            EV01 = 0 : EV02 = 0 : EV03 = 0 : EV04 = 0
         End If
      End If
   Next
   Call Scrivi(String(100,"-"))
   Call Scrivi()
   Call Scrivi("RIEPILOGO ESITI COMPLESSIVO")
   Call Scrivi()
   If XEV04 > 0 Then Call Scrivi("AMBO    : " & FormattaStringa(XEV04,"00"),1,,,1,3)
   If XEV01 > 0 Then Call Scrivi("TERNO   : " & FormattaStringa(XEV01,"00"),1,,,1,3)
   If XEV02 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(XEV02,"00"),1,,,1,3)
   If XEV03 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(XEV03,"00"),1,,,1,3)
End Sub


Per tutte le ruote

Codice: 
Sub Main
   Dim n(1),nn(13),nn1(07),Ruo(1)
   fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IsUltimaDelMese(es) Then
         casi = casi + 1
         Scrivi String(75,"=") & " caso n° " &(casi),1
         n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO
         nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
         nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
         nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
         nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
         nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
         nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
         nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
         nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
         nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
         nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
         nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
         nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
         nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
         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" & " - " & StringaNumeri(nn," ",True),1,1,4
            rip = 1
            While NumeriRipetuti(nn)
               For x = 01 To 12
                  For y = x + 01 To 13
                     If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
                  Next
               Next
            Wend
         End If
         If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
         Scrivi
         Scrivi " Numeri da giocare al Lotto per 13 colpi dal " & DataEstrazione(es + 1) & " : ",1,1,4
         Scrivi " CAPOGIOCO : " & Format2(n(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)) & " . "_
           & Format2(nn(13)) & " . ",1,1,6
         nn(00) = n(01)
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            Scrivi Space(15) & " Ruota di " & NomeRuota(R1),1,,,1,4
            For x = 1 To 13
               If ScriptInterrotto Then Exit For
               Ruo(1) = R1
               If VerificaEsito(nn,Ruo,es + x,1,1,,retesito,retcolpi,retestratti,retidestr) = True Then
                  Dim EV01,EV02,EV03,EV04
                  Dim XEV01,XEV02,XEV03,XEV04
                  If RetEsito = "Ambo" Then EV04 = EV04 + 01
                  If RetEsito = "Terno" Then EV01 = EV01 + 01
                  If RetEsito = "Quaterna" Then EV02 = EV02 + 01
                  If RetEsito = "Cinquina" Then EV03 = EV03 + 01
                  '
                  If RetEsito = "Ambo" Then XEV04 = XEV04 + 01
                  If RetEsito = "Terno" Then XEV01 = XEV01 + 01
                  If RetEsito = "Quaterna" Then XEV02 = XEV02 + 01
                  If RetEsito = "Cinquina" Then XEV03 = XEV03 + 01
                  Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
               Else
                  Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazione(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstratti(es + x,R1) & " --- " & "negativo "
               End If
            Next
            If EV01 > 0 Or EV02 > 0 Or EV03 > 0 Or EV04 > 0 Then
               Call Scrivi
               Call Scrivi("Riepilogo Esiti Ruota Di " & NomeRuota(R1),1,,,2,4)
               Call Scrivi()
               If EV04 > 0 Then Call Scrivi("AMBO    : " & FormattaStringa(EV04,"00"),1,,,1,3)
               If EV01 > 0 Then Call Scrivi("TERNO   : " & FormattaStringa(EV01,"00"),1,,,1,3)
               If EV02 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(EV02,"00"),1,,,1,3)
               If EV03 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(EV03,"00"),1,,,1,3)
               EV01 = 0 : EV02 = 0 : EV03 = 0 : EV04 = 0
               Call Scrivi()
               Call Scrivi(String(100,"*"),1,,,2)
            End If
         Next
      End If
   Next
   'Call Scrivi(String(125,"-"))
   Call Scrivi()
   Call Scrivi("RIEPILOGO ESITI COMPLESSIVO",1,,,2,4)

   Call Scrivi()
   If XEV04 > 0 Then Call Scrivi("AMBO    : " & FormattaStringa(XEV04,"00"),1,,,1,3)
   If XEV01 > 0 Then Call Scrivi("TERNO   : " & FormattaStringa(XEV01,"00"),1,,,1,3)
   If XEV02 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(XEV02,"00"),1,,,1,3)
   If XEV03 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(XEV03,"00"),1,,,1,3)
   Call Scrivi()
End Sub
 
E' Pomito che cuccagna non si va oltre il 5 ? mi ha un po deluso il metodo,pensavo facesse faville,pazienza.Grazie.
Salvo,grazie ottimo lavoro in compenso hai preso una goccia in più per l'informazione degli archivi.Non capisco perchè per il super non da più nulla,non è possibile.


Scusa Pomito ma se i numeri in gioco sono 13 come hai calcolato le vincite se in schedina non vanno più di 10 numeri ?grazie.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 gennaio 2025
    Bari
    29
    37
    09
    53
    08
    Cagliari
    33
    56
    08
    61
    20
    Firenze
    55
    33
    09
    60
    28
    Genova
    56
    09
    78
    59
    04
    Milano
    73
    51
    34
    06
    70
    Napoli
    49
    30
    64
    80
    05
    Palermo
    89
    08
    74
    48
    30
    Roma
    46
    20
    13
    87
    05
    Torino
    05
    85
    90
    28
    16
    Venezia
    51
    42
    17
    05
    09
    Nazionale
    88
    90
    72
    25
    41
    Estrazione Simbolotto
    Bari
    06
    22
    29
    11
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto