Lotto Analyzer by DjNomade e Arena A.I.

DjNomade · 15 Ottobre 2026

Adesso non so che tipo di ricerca hai fatto...... vedremo

scarfacetony · 15 Ottobre 2026

Grazie DJNomade

DjNomade · 21 Ottobre 2026

Nuovo Aggiornamento con la versione v12.01

Aggiunte nuove ricerche

Giuseppì · Mercoledì alle 15:19

Buongiorno a tutti
Non gioco spesso ma questo programma per il lotto con script mi ha conquistato . Fatto vari simulazioni ho deciso di giocare 5 num con ambata migliore per 10 colpi ,risultato... 4 ambi a ruota entro i 10 colpi di ottobre. Grazie DJNomade

DjNomade · Mercoledì alle 18:40

Antonio Pagano · Giovedì alle 21:35

Giuseppì ha scritto:
Buongiorno a tutti
Non gioco spesso ma questo programma per il lotto con script mi ha conquistato . Fatto vari simulazioni ho deciso di giocare 5 num con ambata migliore per 10 colpi ,risultato... 4 ambi a ruota entro i 10 colpi di ottobre. Grazie DJNomade

Buonasera, Giuseppi puoi allegare lo script?, grazie

Giuseppì · Venerdì alle 00:55

'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240

'================================================
Sub Main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250)
'posta(1)=1
poste(2) = 1
postee(2) = 1
postee(3) = 1
postee(4) = 0.5
'postee(5)=0.5
ini = EstrazioneFin - 240 ' ricerca 240 estrazioni a ritroso (come scelto nel programma)
im = CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",10))
MeseRic = CInt(InputBox("Mese di ricerca: 0=tutti · 1-12=singolo mese",">",0))
GioRic = CInt(InputBox("Giorno sett. 0=tutti 1=dom 2=lun 3=mar 4=mer 5=gio 6=ven 7=sab",">",0))
ruot = CInt(InputBox("1° ruota di gioco","DjNomade",1))
k = InputBox("colpi di gioco","DjNomade",10)
casi = 0
fin = EstrazioneFin
ColoreTesto 1
Scrivi "BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240 · 10a del mese"
ColoreTesto 0
For es = ini To fin
If(eval(im) = 0 And IsUltimaDelMese(es))Or(eval(im) > 0 And IndiceMensile(es) = eval(im))Or(eval(im) = 20 And es = es) Then
If(Mese(es) = CInt(MeseRic) And(MeseRic > 0 And MeseRic < 13)) Or(MeseRic = 0 And Mese(es) > 0) Then
If(GioRic = 0) Or(WeekDay(CDate(Replace(CStr(DataEstrazione(es)),".","/"))) = GioRic) Then
If(ruot > 0 And ruot <> 11)Or ruot = 11 Then
If(ruot > 0 And ruot <> 11) Then ru(1) = ruot ' una sola ruota di gioco (niente recupero)
If ruot = 11 Then ru(1) = 1:ru(2) = 2:ru(3) = 3:ru(4) = 4:ru(5) = 5:ru(6) = 6:ru(7) = 7:ru(8) = 8:ru(9) = 9:ru(10) = 10: ru(11) = 12
spiaOk = True
spiaTxt = ""
If spiaOk Then ' gioca SOLO se è uscita la condizione (es. spia sulla ruota)
cont = cont + 1
t = t + 1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(t) & " " & DataEstrazione(es),1
ColoreTesto 0
' --- Ambata 1: n° 9 ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
ImpostaGiocata 1,am,ru,posta,k
' --- Ambata 2: n° 58 ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
ImpostaGiocata 2,am,ru,posta,k
' --- Ambi secchi ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 3,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 4,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 5,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 6,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 7,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 8,am,ru,poste,k
' --- Lunghetta (5 numeri): 9 - 58 - 70 - 81 - 72 (ambo e terno e quaterna e cinquina) ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59):am(2) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26):am(3) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7):am(4) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53):am(5) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 5
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 9,am,ru,postee,k
Gioca es
End If ' spiaOk
End If
End If
End If
End If ' giorno
Next
ScriviResoconto
End Sub

Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 1
Case vbFriday ' venerdi
gMancanti = 1
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function

questo è lo scrip incriminato
10a del mese BA 09.72 24/10/2026]
un saluto a tutti giuseppe

DjNomade · Venerdì alle 12:48

Hai beccato ambo secco BA 09.72 [24/10/2026]??
Complimenti

Antonio Pagano · Venerdì alle 19:29

DjNomade ha scritto:
Hai beccato ambo secco BA 09.72 [24/10/2026]??
Complimenti

Giuseppì ha scritto:
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240

'================================================
Sub Main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250)
'posta(1)=1
poste(2) = 1
postee(2) = 1
postee(3) = 1
postee(4) = 0.5
'postee(5)=0.5
ini = EstrazioneFin - 240 ' ricerca 240 estrazioni a ritroso (come scelto nel programma)
im = CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",10))
MeseRic = CInt(InputBox("Mese di ricerca: 0=tutti · 1-12=singolo mese",">",0))
GioRic = CInt(InputBox("Giorno sett. 0=tutti 1=dom 2=lun 3=mar 4=mer 5=gio 6=ven 7=sab",">",0))
ruot = CInt(InputBox("1° ruota di gioco","DjNomade",1))
k = InputBox("colpi di gioco","DjNomade",10)
casi = 0
fin = EstrazioneFin
ColoreTesto 1
Scrivi "BARI · Ambo · 2 ambate + 3 abbin. · colpi 10 · ritroso 240 · 10a del mese"
ColoreTesto 0
For es = ini To fin
If(eval(im) = 0 And IsUltimaDelMese(es))Or(eval(im) > 0 And IndiceMensile(es) = eval(im))Or(eval(im) = 20 And es = es) Then
If(Mese(es) = CInt(MeseRic) And(MeseRic > 0 And MeseRic < 13)) Or(MeseRic = 0 And Mese(es) > 0) Then
If(GioRic = 0) Or(WeekDay(CDate(Replace(CStr(DataEstrazione(es)),".","/"))) = GioRic) Then
If(ruot > 0 And ruot <> 11)Or ruot = 11 Then
If(ruot > 0 And ruot <> 11) Then ru(1) = ruot ' una sola ruota di gioco (niente recupero)
If ruot = 11 Then ru(1) = 1:ru(2) = 2:ru(3) = 3:ru(4) = 4:ru(5) = 5:ru(6) = 6:ru(7) = 7:ru(8) = 8:ru(9) = 9:ru(10) = 10: ru(11) = 12
spiaOk = True
spiaTxt = ""
If spiaOk Then ' gioca SOLO se è uscita la condizione (es. spia sulla ruota)
cont = cont + 1
t = t + 1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(t) & " " & DataEstrazione(es),1
ColoreTesto 0
' --- Ambata 1: n° 9 ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
ImpostaGiocata 1,am,ru,posta,k
' --- Ambata 2: n° 58 ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
ImpostaGiocata 2,am,ru,posta,k
' --- Ambi secchi ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 3,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 4,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59)
am(2) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 5,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 6,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 7,am,ru,poste,k
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26)
am(2) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 2
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 8,am,ru,poste,k
' --- Lunghetta (5 numeri): 9 - 58 - 70 - 81 - 72 (ambo e terno e quaterna e cinquina) ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,5,4) - Estratto(es,8,3) + 59):am(2) = Fuori90(Estratto(es,4,2) + Estratto(es,7,4) + 26):am(3) = Fuori90(90 + Estratto(es,3,3) - Estratto(es,6,1) + 7):am(4) = Fuori90(90 + Estratto(es,8,5) - Estratto(es,6,2) + 53):am(5) = Fuori90(Estratto(es,2,2) + Estratto(es,9,2) + 1)
For p = 2 To 5
Do
usato = False
For q = 1 To p - 1
If am(p) <> 0 And am(p) = am(q) Then usato = True
Next
If usato Then am(p) = Fuori90(am(p) + 1) Else Exit Do
Loop
Next ' ripetuti -> +1 Fuori90
ImpostaGiocata 9,am,ru,postee,k
Gioca es
End If ' spiaOk
End If
End If
End If
End If ' giorno
Next
ScriviResoconto
End Sub

Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 1
Case vbFriday ' venerdi
gMancanti = 1
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function

questo è lo scrip incriminato
10a del mese BA 09.72 24/10/2026]
un saluto a tutti giuseppe

Grazie mille per il listato,

Cerca

Cerca

Lotto Analyzer by DjNomade e Arena A.I.

DjNomade

Advanced Member >PLATINUM PLUS<

scarfacetony

Senior Member

DjNomade

Advanced Member >PLATINUM PLUS<

Giuseppì

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

Antonio Pagano

Super member

Giuseppì

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

Antonio Pagano

Super member

Ultima estrazione Lotto

Ultimi Messaggi