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
    giovedì 02 ottobre 2025
    Bari
    30
    40
    37
    66
    64
    Cagliari
    59
    20
    29
    09
    89
    Firenze
    60
    17
    10
    11
    90
    Genova
    26
    44
    84
    50
    86
    Milano
    37
    38
    20
    03
    29
    Napoli
    14
    20
    75
    35
    08
    Palermo
    77
    26
    70
    62
    39
    Roma
    39
    25
    05
    58
    80
    Torino
    69
    06
    65
    77
    70
    Venezia
    08
    89
    19
    09
    78
    Nazionale
    70
    67
    81
    78
    19
    Estrazione Simbolotto
    27
    44
    08
    03
    42
Indietro
Alto