Novità

Script 10elotto potete provarlo

solare

solare

Advanced Member >PLATINUM<
Ciao, questo script era stato fatto da mike58, a me non funziona
qualcuno può sistemarlo per favore. Grazie
Sub Main()
'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1)
arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
ImpostaArchivio10ELotto(arch)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,5))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,20))
If cl = "" Then Exit Sub
'r1 = CInt(InputBox(" Quale Ruota ?",,6))
'If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,20))
If am = "" Then Exit Sub
Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
If arch = 1 Then Call Scrivi(" ****** 10 e lotto Serale ****** ",True,True,,1,5)
If arch = 2 Then Call Scrivi(" ****** 10 e lotto 5 Min ****** ",True,True,,1,5)
r2 = 11
nn1(1) = nn
fin = EstrazioniArchivioDL
ini = fin - ee
'---------init tabella----------------------------------------------
ReDim atitoli(9)
atitoli(1) = " Numeri dopo SPIA "
atitoli(2) = " Presenza su Casi "
atitoli(3) = " Rit. corrente "
atitoli(4) = " Rit.Max nel ciclo "
atitoli(5) = " freq ult.ciclo "
atitoli(6) = " sfaldato "
atitoli(7) = " Coplo "
atitoli(8) = " Frequenze tot "
atitoli(9) = " Media Uscite "
Call InitTabella(atitoli,266,,3,4)
'---------- fine titoli tabella -------------------------------------
'------------------------------
'g = 0
For es = ini To fin
'If g = 1 Then: es = es + cl : g = 0
'End If
spia(1) = nn
If SerieFreqDL(es,es,spia,1) = 1 Then
'g = 1
'------------------------------------Modifica
ru1(1) = r2
If SerieFreqDL(es,es,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
sfe = SerieFreqDL(Ini,fin,nu,1)
fr = SerieFreqDL(es + 1,ess,nu,1)' ricerca frequenza su ruota
rt = SerieRitardoDL(ini,fin,nu,1) 'ricerca ritardo
rs = SerieStoricoDL(fin - ee,fin,nu,1)
fru = SerieFreqDL(fin - cna,fin,nu,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
n(co,7) = sfe
ca = Fin - es
cnn = SerieFreqDL(Ini,fin,spia,1)
cna = EstrattoRitardoDL(nn,fin - ee,fin)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn,True,True,,1,5
ColoreTesto 0
Scrivi"Dal " & DataEstrazioneDL(ini) & "(" & es & ") al " & DataEstrazioneDL(fin) & "(" & fin & ")",1
Scrivi"estrazioni Totali esaminate : " & ee,True,True,,7,3
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi "RITARDO SPIA..... " & cna,True,True,,2,3
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
OrdinaMatrice n,- 1,3
For w = 1 To am
riga = riga & Format2(n(w,1)) & " "
anum(w) = n(w,1)
rtc2 = SerieRitardoDL(Ini,fin,anum,2)
rtc1 = SerieRitardoDL(Ini,fin,anum,1)
rtc3 = SerieRitardoDL(Ini,fin,anum,3)
fr1 = SerieFreqDL(Ini,fin,anum,1)
fr2 = SerieFreqDL(Ini,fin,anum,2)
fr3 = SerieFreqDL(Ini,fin,anum,3)
'-------- scrivi valori -------------------------------------------------
ReDim avalori(9)
avalori(1) =(n(w,2))
avalori(2) =(n(w,3)) & " su " & cnn
avalori(3) =(n(w,4))
avalori(4) =(n(w,5))
avalori(5) =(n(w,6))
If avalori(3) <= cna Then avalori(6) = n(w,2)
If avalori(3) > cna Then avalori(6) = "-"
If avalori(3) <= cna Then avalori(7) = cna -(avalori(3))
If avalori(3) > cna Then avalori(7) = "-"
avalori(8) =(n(w,7))
avalori(9) = "1/" & Left(Int(fin - Ini)/avalori(8),2)
Call AddRigaTabella(avalori,,,3)
If avalori(3) = 0 Then Call SetColoreCella(1,,2)
If avalori(3) = 0 Then Call SetColoreCella(3,,2)
'Call ImpostaGiocataDL(1,anum,1,cl)
Next
CreaTabella()
ColoreTesto 0
Scrivi "================================= DETTAGLIO ULTIME " & cl & " ESTRAZIONI =================================== ",True,True,,1,2
Scrivi "Combinazione Ricavata...." & StringaNumeri(anum),1
Scrivi String(100,"-"),1
'Call GiocaDL(fin-cl)
For x = fin - cl To fin
Call VerificaEsitoDL(anum,x,1,1,resito,recolpi,restratti,reid)
If resito = "Cinquina" Then ColoreTesto 2
If resito = "Sestina" Then ColoreTesto 7
If resito = "Sette" Then ColoreTesto 1
If resito = "Otto" Then ColoreTesto 2
If resito = "Nove" Then ColoreTesto 1
If resito = "Dieci" Then ColoreTesto 3
If resito = "Estratto" Then ColoreTesto 0
If resito = "Ambo" Then ColoreTesto 0
If resito = "Terno" Then ColoreTesto 0
If resito = "Quaterna" Then ColoreTesto 0
Scrivi GetInfoEstrazioneDL(reid) & " ",1,0
Scrivi restratti & " ",1,0
Scrivi resito,1
Next
Scrivi String(100,"="),1
End Sub
 
Solare, forse lo hai copiato dal forum in questo formato, copiato così vengono staccati alcuni caratteri che vanno unificati.
Per il resto lo script è perfettamente funzionante per quello che era stato creato.

incollatelo sempre negli appositi code#
Codice: 
Sub Main()
'BY Mike58 NUMERI FREQUENTI DOPO SPIA X '
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1)
arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
ImpostaArchivio10ELotto(arch)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,200))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,5))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,20))
If cl = "" Then Exit Sub
'r1 = CInt(InputBox(" Quale Ruota ?",,6))
'If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,20))
If am = "" Then Exit Sub
Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
If arch = 1 Then Call Scrivi(" ****** 10 e lotto Serale ****** ",True,True,,1,5)
If arch = 2 Then Call Scrivi(" ****** 10 e lotto 5 Min ****** ",True,True,,1,5)
r2 = 11
nn1(1) = nn
fin = EstrazioniArchivioDL
ini = fin - ee
'---------init tabella----------------------------------------------
ReDim atitoli(9)
atitoli(1) = " Numeri dopo SPIA "
atitoli(2) = " Presenza su Casi "
atitoli(3) = " Rit. corrente "
atitoli(4) = " Rit.Max nel ciclo "
atitoli(5) = " freq ult.ciclo "
atitoli(6) = " sfaldato "
atitoli(7) = " Coplo "
atitoli(8) = " Frequenze tot "
atitoli(9) = " Media Uscite "
Call InitTabella(atitoli,266,,3,4)
'---------- fine titoli tabella -------------------------------------
'------------------------------
'g = 0
For es = ini To fin
'If g = 1 Then: es = es + cl : g = 0
'End If
spia(1) = nn
If SerieFreqDL(es,es,spia,1) = 1 Then
'g = 1
'------------------------------------Modifica
ru1(1) = r2
If SerieFreqDL(es,es,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
sfe = SerieFreqDL(Ini,fin,nu,1)
fr = SerieFreqDL(es + 1,ess,nu,1)' ricerca frequenza su ruota
rt = SerieRitardoDL(ini,fin,nu,1) 'ricerca ritardo
rs = SerieStoricoDL(fin - ee,fin,nu,1)
fru = SerieFreqDL(fin - cna,fin,nu,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
n(co,7) = sfe
ca = Fin - es
cnn = SerieFreqDL(Ini,fin,spia,1)
cna = EstrattoRitardoDL(nn,fin - ee,fin)
Next
End If
End If
Next
Scrivi "_________________________________________________ _________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn,True,True,,1,5
ColoreTesto 0
Scrivi"Dal " & DataEstrazioneDL(ini) & "(" & es & ") al " & DataEstrazioneDL(fin) & "(" & fin & ")",1
Scrivi"estrazioni Totali esaminate : " & ee,True,True,,7,3
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi "RITARDO SPIA..... " & cna,True,True,,2,3
ColoreTesto 0
Scrivi "_________________________________________________ _________________________________"
Scrivi ""
OrdinaMatrice n,- 1,3
For w = 1 To am
riga = riga & Format2(n(w,1)) & " "
anum(w) = n(w,1)
rtc2 = SerieRitardoDL(Ini,fin,anum,2)
rtc1 = SerieRitardoDL(Ini,fin,anum,1)
rtc3 = SerieRitardoDL(Ini,fin,anum,3)
fr1 = SerieFreqDL(Ini,fin,anum,1)
fr2 = SerieFreqDL(Ini,fin,anum,2)
fr3 = SerieFreqDL(Ini,fin,anum,3)
'-------- scrivi valori -------------------------------------------------
ReDim avalori(9)
avalori(1) =(n(w,2))
avalori(2) =(n(w,3)) & " su " & cnn
avalori(3) =(n(w,4))
avalori(4) =(n(w,5))
avalori(5) =(n(w,6))
If avalori(3) <= cna Then avalori(6) = n(w,2)
If avalori(3) > cna Then avalori(6) = "-"
If avalori(3) <= cna Then avalori(7) = cna -(avalori(3))
If avalori(3) > cna Then avalori(7) = "-"
avalori(8) =(n(w,7))
avalori(9) = "1/" & Left(Int(fin - Ini)/avalori(8),2)
Call AddRigaTabella(avalori,,,3)
If avalori(3) = 0 Then Call SetColoreCella(1,,2)
If avalori(3) = 0 Then Call SetColoreCella(3,,2)
'Call ImpostaGiocataDL(1,anum,1,cl)
Next
CreaTabella()
ColoreTesto 0
Scrivi "================================= DETTAGLIO ULTIME " & cl & " ESTRAZIONI =================================== ",True,True,,1,2
Scrivi "Combinazione Ricavata...." & StringaNumeri(anum),1
Scrivi String(100,"-"),1
'Call GiocaDL(fin-cl)
For x = fin - cl To fin
Call VerificaEsitoDL(anum,x,1,1,resito,recolpi,restratti,reid)
If resito = "Cinquina" Then ColoreTesto 2
If resito = "Sestina" Then ColoreTesto 7
If resito = "Sette" Then ColoreTesto 1
If resito = "Otto" Then ColoreTesto 2
If resito = "Nove" Then ColoreTesto 1
If resito = "Dieci" Then ColoreTesto 3
If resito = "Estratto" Then ColoreTesto 0
If resito = "Ambo" Then ColoreTesto 0
If resito = "Terno" Then ColoreTesto 0
If resito = "Quaterna" Then ColoreTesto 0
Scrivi GetInfoEstrazioneDL(reid) & " ",1,0
Scrivi restratti & " ",1,0
Scrivi resito,1
Next
Scrivi String(100,"="),1
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 07 agosto 2026
    Bari
    16
    13
    33
    61
    50
    Cagliari
    01
    70
    83
    80
    07
    Firenze
    75
    48
    79
    20
    56
    Genova
    44
    62
    55
    42
    41
    Milano
    21
    70
    16
    32
    45
    Napoli
    71
    84
    70
    41
    16
    Palermo
    05
    28
    11
    24
    38
    Roma
    63
    27
    84
    38
    26
    Torino
    16
    53
    83
    47
    65
    Venezia
    23
    56
    15
    05
    38
    Nazionale
    05
    19
    75
    28
    27
    Estrazione Simbolotto
    Nazionale
    10
    13
    20
    06
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto