Novità

modifica script se possibile

lottofortune

Advanced Member >PLATINUM<
Ciao a tutti chiedo se è possibile modificare questo script basato sui numeri spia,all'uscita di un numero ricerca le ambate più frequenti,lo si può impostare nella ricerca di ambi o terni?vi ringrazio anticipatamente





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

][/ISPOILER]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
Indietro
Alto