Novità

Script 10elotto potete provarlo

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 27 febbraio 2025
    Bari
    79
    62
    45
    19
    31
    Cagliari
    03
    56
    76
    58
    79
    Firenze
    89
    21
    35
    46
    65
    Genova
    78
    05
    47
    18
    20
    Milano
    31
    46
    04
    40
    33
    Napoli
    53
    78
    04
    36
    90
    Palermo
    38
    30
    84
    41
    22
    Roma
    01
    20
    53
    50
    44
    Torino
    15
    61
    82
    49
    03
    Venezia
    49
    28
    16
    86
    43
    Nazionale
    50
    45
    46
    68
    13
    Estrazione Simbolotto
    Cagliari
    20
    02
    10
    07
    22
Indietro
Alto