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ì · 4 Novembre 2026

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 · 4 Novembre 2026

Antonio Pagano · 5 Novembre 2026

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ì · 6 Novembre 2026

'================================================
' 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 · 6 Novembre 2026

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

Antonio Pagano · 6 Novembre 2026

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,

bubù · Giovedì alle 13:50

DjNomade ha scritto:

appena fatto e modificato aggiungendo altre 2 ruote non previste per cercare il mio terno
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Nota: il gioco del Lotto e' a esito casuale. Nessun metodo puo' garantire una vincita. Gioca responsabilmente.
' Condizioni: CAGLIARI · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 19 su CAGLIARI (qualunque pos.) · casi 10 · Fuori campione ultimi 2 casi · ABBINAMENTI anche su 2 estrazioni PRECEDENTI (es-1 / es-2 se l'algoritmo predice meglio)
' SPIA: gioca SOLO quando scatta la condizione — riga blu in ogni giocata
' Fuori campione ultimi 2 casi (formule classificate senza questi casi)
' ABBINAMENTI: ricerca algoritmi anche su es-1 e es-2; se predicono meglio Y si usa Estratto(es-1) o Estratto(es-2)
'================================================
Sub Main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250), nGio, ds, ds2, gia
nGio=0 ' contatore giocate (non usare t: i cicli spia For t lo sovrascrivono ? sempre n° 07)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
ini = 1 ' condizione/casi: intero archivio, filtro date okCasi
im=CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",20))
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",2))
k=InputBox("colpi di gioco","DjNomade",10)
casi=0
fin=EstrazioneFin
okCasi="|10/01/2026|10.01.2026|10-01-2026|2026/01/10|10/1/2026|10.1.2026|10-1-2026|2026/1/10|16/01/2026|16.01.2026|16-01-2026|2026/01/16|16/1/2026|16.1.2026|16-1-2026|2026/1/16|22/01/2026|22.01.2026|22-01-2026|2026/01/22|22/1/2026|22.1.2026|22-1-2026|2026/1/22|27/01/2026|27.01.2026|27-01-2026|2026/01/27|27/1/2026|27.1.2026|27-1-2026|2026/1/27|05/03/2026|05.03.2026|05-03-2026|2026/03/05|05/3/2026|05.3.2026|05-3-2026|2026/3/05|5/03/2026|5.03.2026|5-03-2026|2026/03/5|5/3/2026|5.3.2026|5-3-2026|2026/3/5|28/03/2026|28.03.2026|28-03-2026|2026/03/28|28/3/2026|28.3.2026|28-3-2026|2026/3/28|11/08/2026|11.08.2026|11-08-2026|2026/08/11|11/8/2026|11.8.2026|11-8-2026|2026/8/11|20/08/2026|20.08.2026|20-08-2026|2026/08/20|20/8/2026|20.8.2026|20-8-2026|2026/8/20|03/10/2026|03.10.2026|03-10-2026|2026/10/03|3/10/2026|3.10.2026|3-10-2026|2026/10/3|10/11/2026|10.11.2026|10-11-2026|2026/11/10|"
' Casi Analyzer in ordine: 10/01/2026 · 16/01/2026 · 22/01/2026 · 27/01/2026 · 05/03/2026 · 28/03/2026 · 11/08/2026 · 20/08/2026 · 03/10/2026 · 10/11/2026
nTrov=0
For esx=1 To fin
ds=Replace(Replace(Replace(CStr(DataEstrazione(esx)),".","/"),"-","/")," ","")
If Len(ds)>10 Then ds=Left(ds,10)
On Error Resume Next
ds2=Format(CDate(DataEstrazione(esx)),"dd/mm/yyyy")
On Error GoTo 0
If (InStr(okCasi,"|" & ds & "|")>0) Or (Len(ds2)>0 And InStr(okCasi,"|" & ds2 & "|")>0) Then
nTrov=nTrov+1
If nTrov<=250 Then casiEs(nTrov)=esx
End If
Next
If nTrov>0 Then Scrivi "Casi: " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
' + casi NUOVI su Lottodesk dopo l'ultimo Analyzer (dataFine non taglia il listato)
For esx=1 To fin
okIdx=(eval(im)=20) Or (eval(im)=0 And IsUltimaDelMese(esx)) Or (eval(im)>0 And IndiceMensile(esx)=eval(im))
okMs=(CInt(MeseRic)=0) Or (Mese(esx)=CInt(MeseRic))
On Error Resume Next
wd=WeekDay(CDate(Replace(CStr(DataEstrazione(esx)), ".", "/")))
On Error GoTo 0
okG=(GioRic=0) Or (wd=GioRic)
If okIdx And okMs And okG Then
If CondizioneSpia(esx) Then
If nTrov>=1 And nTrov<=250 Then
If esx>casiEs(nTrov) Then
If nTrov<250 Then nTrov=nTrov+1: casiEs(nTrov)=esx
End If
End If
End If
End If
Next
If nTrov>0 Then Scrivi "Casi (Analyzer + nuovi Lottodesk): " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
If nTrov>0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 2
ColoreTesto 1
Scrivi "CAGLIARI · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 19 su CAGLIARI (qualunque pos.) · casi 10 · Fuori campione ultimi 2 casi · ABBINAMENTI anche su 2 estrazioni PRECEDENTI (es-1 / es-2 se l'algoritmo predice meglio)"
Scrivi "SPIA attiva: spia 19 su CAGLIARI (qualunque pos.) — output solo quando scatta"
ColoreTesto 0
For ci=1 To nTrov ' cronologico: ultima (in corso) per ultima
es=casiEs(ci)
If (GioRic=0) Or (WeekDay(CDate(Replace(CStr(DataEstrazione(es)), ".", "/")))=GioRic) Then
If(ruot >0 And ruot<>11) Then ru(1)=ruot:ru(2)=5:ru(3)=10 ' 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
' Casi Analyzer (10): 10/01/2026 · 16/01/2026 · 22/01/2026 · 27/01/2026 · 05/03/2026 · 28/03/2026 · 11/08/2026 · 20/08/2026 · 03/10/2026 · 10/11/2026
okCasi="|10/01/2026|10.01.2026|10-01-2026|2026/01/10|10/1/2026|10.1.2026|10-1-2026|2026/1/10|16/01/2026|16.01.2026|16-01-2026|2026/01/16|16/1/2026|16.1.2026|16-1-2026|2026/1/16|22/01/2026|22.01.2026|22-01-2026|2026/01/22|22/1/2026|22.1.2026|22-1-2026|2026/1/22|27/01/2026|27.01.2026|27-01-2026|2026/01/27|27/1/2026|27.1.2026|27-1-2026|2026/1/27|05/03/2026|05.03.2026|05-03-2026|2026/03/05|05/3/2026|05.3.2026|05-3-2026|2026/3/05|5/03/2026|5.03.2026|5-03-2026|2026/03/5|5/3/2026|5.3.2026|5-3-2026|2026/3/5|28/03/2026|28.03.2026|28-03-2026|2026/03/28|28/3/2026|28.3.2026|28-3-2026|2026/3/28|11/08/2026|11.08.2026|11-08-2026|2026/08/11|11/8/2026|11.8.2026|11-8-2026|2026/8/11|20/08/2026|20.08.2026|20-08-2026|2026/08/20|20/8/2026|20.8.2026|20-8-2026|2026/8/20|03/10/2026|03.10.2026|03-10-2026|2026/10/03|3/10/2026|3.10.2026|3-10-2026|2026/10/3|10/11/2026|10.11.2026|10-11-2026|2026/11/10|" ' commento date Analyzer
spiaOk=False
spiaTxt=""
For p=1 To 5
If Estratto(es,2,p)=19 Then spiaOk=True: spiaTxt="SPIA 19 su CAGLIARI pos. " & p & "°"
Next
If True Then ' caso già selezionato dall'Analyzer: gioca anche se CondizioneSpia non rilegge l'isotopo/pos.
cont=cont+1
nGio=nGio+1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(nGio) & " " & DataEstrazione(es),1
ColoreTesto 2 ' verde: numeri della condizione trovata
Scrivi " >>> CONDIZIONE: " & spiaTxt
ColoreTesto 0
' --- Ambata 1: n° 68 ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,3,2)-Estratto(es,1,5)+10)
ImpostaGiocata 1,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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,4,2)+Estratto(es,3,4)+2)
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 2,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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+55)
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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+50)
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
' --- Lunghetta (4 numeri): 68 - 77 - 24 - 19 (ambo e terno e quaterna) ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,3,2)-Estratto(es,1,5)+10):am(2)=Fuori90(Estratto(es,4,2)+Estratto(es,3,4)+2):am(3)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+55):am(4)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+50)
For p=2 To 4
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,postee,k
Gioca es
End If ' spiaOk
End If ' GioRic
Next ' ci casi
ScriviResoconto
End Sub

Function CondizioneSpia(es)
CondizioneSpia=False
spiaOk=False
spiaTxt=""
For p=1 To 5
If Estratto(es,2,p)=19 Then spiaOk=True: spiaTxt="SPIA 19 su CAGLIARI pos. " & p & "°"
Next
CondizioneSpia=spiaOk
End Function

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

DjNomade · Giovedì alle 18:55

Serpico 90 · Ieri alle 11:02

Buon di Grazie DjNomade per il tuo grande lavoro che metti a disposizione di tutti.
Io purtroppo non so usare questi nuovi programmi, pazienza ,
Chiedo a Bubù che ringrazio per aver pubblicato questo suo Script ,
SE IL 19 ESCE IN ALTRE RUOTE COME POSSO MODIFICARE LO SCRIPT,PER AVERE NUOVE PREVISIONI RELATIVE ALLA USCITA
DEL 19 IN ALTRA RUOTA????
iN ATTESA DI UNA GRADITA RISPOSTA VI AUGURO BUON PROSEGUIMENTO DI GIORNATA

DjNomade · Ieri alle 12:56

Devi solo smanettare e provare tanto non c'è nulla da installare non fai nessun danno ne al programma ne al pc o cell ,solo provare e vedere sotto Analisi e poi sotto Condizione Spia / Ripetuti quale ricerca vuoi fare

Serpico 90 · Ieri alle 13:19

Ok,Grazie della risposta ......
mi metter a smanettare spero di riuscire
Ancora Complimenti per il LAVORO
BUON PROSEGUIMENTO

bubù · Ieri alle 13:22

Serpico 90 ha scritto:
Buon di Grazie DjNomade per il tuo grande lavoro che metti a disposizione di tutti.
Io purtroppo non so usare questi nuovi programmi, pazienza ,
Chiedo a Bubù che ringrazio per aver pubblicato questo suo Script ,
SE IL 19 ESCE IN ALTRE RUOTE COME POSSO MODIFICARE LO SCRIPT,PER AVERE NUOVE PREVISIONI RELATIVE ALLA USCITA
DEL 19 IN ALTRA RUOTA????
iN ATTESA DI UNA GRADITA RISPOSTA VI AUGURO BUON PROSEGUIMENTO DI GIORNATA

Ti ha risposto il mitiko Dj, nemmeno io sono un esperto, smanetto e provo a volte ci piglio altre no!!! Ti devi buttare e cercare di imparare, sarà sempre più difficile riuscire a vincere qualcosa, personalmente mi diverto a provarci ma con la cautela necessaria, non esite nessuna vincita sicura quindi prudenza. Buona giornata a tutti

bubù · Oggi alle 14:27

bubù ha scritto:
appena fatto e modificato aggiungendo altre 2 ruote non previste per cercare il mio terno
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Nota: il gioco del Lotto e' a esito casuale. Nessun metodo puo' garantire una vincita. Gioca responsabilmente.
' Condizioni: CAGLIARI · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 19 su CAGLIARI (qualunque pos.) · casi 10 · Fuori campione ultimi 2 casi · ABBINAMENTI anche su 2 estrazioni PRECEDENTI (es-1 / es-2 se l'algoritmo predice meglio)
' SPIA: gioca SOLO quando scatta la condizione — riga blu in ogni giocata
' Fuori campione ultimi 2 casi (formule classificate senza questi casi)
' ABBINAMENTI: ricerca algoritmi anche su es-1 e es-2; se predicono meglio Y si usa Estratto(es-1) o Estratto(es-2)
'================================================
Sub Main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250), nGio, ds, ds2, gia
nGio=0 ' contatore giocate (non usare t: i cicli spia For t lo sovrascrivono ? sempre n° 07)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
ini = 1 ' condizione/casi: intero archivio, filtro date okCasi
im=CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",20))
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",2))
k=InputBox("colpi di gioco","DjNomade",10)
casi=0
fin=EstrazioneFin
okCasi="|10/01/2026|10.01.2026|10-01-2026|2026/01/10|10/1/2026|10.1.2026|10-1-2026|2026/1/10|16/01/2026|16.01.2026|16-01-2026|2026/01/16|16/1/2026|16.1.2026|16-1-2026|2026/1/16|22/01/2026|22.01.2026|22-01-2026|2026/01/22|22/1/2026|22.1.2026|22-1-2026|2026/1/22|27/01/2026|27.01.2026|27-01-2026|2026/01/27|27/1/2026|27.1.2026|27-1-2026|2026/1/27|05/03/2026|05.03.2026|05-03-2026|2026/03/05|05/3/2026|05.3.2026|05-3-2026|2026/3/05|5/03/2026|5.03.2026|5-03-2026|2026/03/5|5/3/2026|5.3.2026|5-3-2026|2026/3/5|28/03/2026|28.03.2026|28-03-2026|2026/03/28|28/3/2026|28.3.2026|28-3-2026|2026/3/28|11/08/2026|11.08.2026|11-08-2026|2026/08/11|11/8/2026|11.8.2026|11-8-2026|2026/8/11|20/08/2026|20.08.2026|20-08-2026|2026/08/20|20/8/2026|20.8.2026|20-8-2026|2026/8/20|03/10/2026|03.10.2026|03-10-2026|2026/10/03|3/10/2026|3.10.2026|3-10-2026|2026/10/3|10/11/2026|10.11.2026|10-11-2026|2026/11/10|"
' Casi Analyzer in ordine: 10/01/2026 · 16/01/2026 · 22/01/2026 · 27/01/2026 · 05/03/2026 · 28/03/2026 · 11/08/2026 · 20/08/2026 · 03/10/2026 · 10/11/2026
nTrov=0
For esx=1 To fin
ds=Replace(Replace(Replace(CStr(DataEstrazione(esx)),".","/"),"-","/")," ","")
If Len(ds)>10 Then ds=Left(ds,10)
On Error Resume Next
ds2=Format(CDate(DataEstrazione(esx)),"dd/mm/yyyy")
On Error GoTo 0
If (InStr(okCasi,"|" & ds & "|")>0) Or (Len(ds2)>0 And InStr(okCasi,"|" & ds2 & "|")>0) Then
nTrov=nTrov+1
If nTrov<=250 Then casiEs(nTrov)=esx
End If
Next
If nTrov>0 Then Scrivi "Casi: " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
' + casi NUOVI su Lottodesk dopo l'ultimo Analyzer (dataFine non taglia il listato)
For esx=1 To fin
okIdx=(eval(im)=20) Or (eval(im)=0 And IsUltimaDelMese(esx)) Or (eval(im)>0 And IndiceMensile(esx)=eval(im))
okMs=(CInt(MeseRic)=0) Or (Mese(esx)=CInt(MeseRic))
On Error Resume Next
wd=WeekDay(CDate(Replace(CStr(DataEstrazione(esx)), ".", "/")))
On Error GoTo 0
okG=(GioRic=0) Or (wd=GioRic)
If okIdx And okMs And okG Then
If CondizioneSpia(esx) Then
If nTrov>=1 And nTrov<=250 Then
If esx>casiEs(nTrov) Then
If nTrov<250 Then nTrov=nTrov+1: casiEs(nTrov)=esx
End If
End If
End If
End If
Next
If nTrov>0 Then Scrivi "Casi (Analyzer + nuovi Lottodesk): " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
If nTrov>0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 2
ColoreTesto 1
Scrivi "CAGLIARI · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 19 su CAGLIARI (qualunque pos.) · casi 10 · Fuori campione ultimi 2 casi · ABBINAMENTI anche su 2 estrazioni PRECEDENTI (es-1 / es-2 se l'algoritmo predice meglio)"
Scrivi "SPIA attiva: spia 19 su CAGLIARI (qualunque pos.) — output solo quando scatta"
ColoreTesto 0
For ci=1 To nTrov ' cronologico: ultima (in corso) per ultima
es=casiEs(ci)
If (GioRic=0) Or (WeekDay(CDate(Replace(CStr(DataEstrazione(es)), ".", "/")))=GioRic) Then
If(ruot >0 And ruot<>11) Then ru(1)=ruot:ru(2)=5:ru(3)=10 ' 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
' Casi Analyzer (10): 10/01/2026 · 16/01/2026 · 22/01/2026 · 27/01/2026 · 05/03/2026 · 28/03/2026 · 11/08/2026 · 20/08/2026 · 03/10/2026 · 10/11/2026
okCasi="|10/01/2026|10.01.2026|10-01-2026|2026/01/10|10/1/2026|10.1.2026|10-1-2026|2026/1/10|16/01/2026|16.01.2026|16-01-2026|2026/01/16|16/1/2026|16.1.2026|16-1-2026|2026/1/16|22/01/2026|22.01.2026|22-01-2026|2026/01/22|22/1/2026|22.1.2026|22-1-2026|2026/1/22|27/01/2026|27.01.2026|27-01-2026|2026/01/27|27/1/2026|27.1.2026|27-1-2026|2026/1/27|05/03/2026|05.03.2026|05-03-2026|2026/03/05|05/3/2026|05.3.2026|05-3-2026|2026/3/05|5/03/2026|5.03.2026|5-03-2026|2026/03/5|5/3/2026|5.3.2026|5-3-2026|2026/3/5|28/03/2026|28.03.2026|28-03-2026|2026/03/28|28/3/2026|28.3.2026|28-3-2026|2026/3/28|11/08/2026|11.08.2026|11-08-2026|2026/08/11|11/8/2026|11.8.2026|11-8-2026|2026/8/11|20/08/2026|20.08.2026|20-08-2026|2026/08/20|20/8/2026|20.8.2026|20-8-2026|2026/8/20|03/10/2026|03.10.2026|03-10-2026|2026/10/03|3/10/2026|3.10.2026|3-10-2026|2026/10/3|10/11/2026|10.11.2026|10-11-2026|2026/11/10|" ' commento date Analyzer
spiaOk=False
spiaTxt=""
For p=1 To 5
If Estratto(es,2,p)=19 Then spiaOk=True: spiaTxt="SPIA 19 su CAGLIARI pos. " & p & "°"
Next
If True Then ' caso già selezionato dall'Analyzer: gioca anche se CondizioneSpia non rilegge l'isotopo/pos.
cont=cont+1
nGio=nGio+1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(nGio) & " " & DataEstrazione(es),1
ColoreTesto 2 ' verde: numeri della condizione trovata
Scrivi " >>> CONDIZIONE: " & spiaTxt
ColoreTesto 0
' --- Ambata 1: n° 68 ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,3,2)-Estratto(es,1,5)+10)
ImpostaGiocata 1,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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,4,2)+Estratto(es,3,4)+2)
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 2,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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+55)
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,3,2)-Estratto(es,1,5)+10)
am(2)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+50)
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
' --- Lunghetta (4 numeri): 68 - 77 - 24 - 19 (ambo e terno e quaterna) ---
For i=1 To 10: am(i)=0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,3,2)-Estratto(es,1,5)+10):am(2)=Fuori90(Estratto(es,4,2)+Estratto(es,3,4)+2):am(3)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+55):am(4)=Fuori90(Estratto(es,5,1)+Estratto(es,10,4)+50)
For p=2 To 4
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,postee,k
Gioca es
End If ' spiaOk
End If ' GioRic
Next ' ci casi
ScriviResoconto
End Sub

Function CondizioneSpia(es)
CondizioneSpia=False
spiaOk=False
spiaTxt=""
For p=1 To 5
If Estratto(es,2,p)=19 Then spiaOk=True: spiaTxt="SPIA 19 su CAGLIARI pos. " & p & "°"
Next
CondizioneSpia=spiaOk
End Function

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

*** Estrazione n° 182 del 13 novembre 2026 ESTRATTO 68 a CAGLIARI al 2° colpo!!! ***

bubù · 15 minuti fa

Nuovo o lavato con Analyzer???
'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Nota: il gioco del Lotto e' a esito casuale. Nessun metodo puo' garantire una vincita. Gioca responsabilmente.
' Condizioni: BARI + CAGLIARI (condizione) · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 66 su BARI (qualunque pos.) · casi 11
' SPIA: gioca SOLO quando scatta la condizione — riga blu in ogni giocata
'================================================
Sub Main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ru(11)
Dim am(10)
Dim casiEs(250),nGio,ds,ds2,gia
nGio = 0 ' contatore giocate (non usare t: i cicli spia For t lo sovrascrivono ? sempre n° 07)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
postee(4) = 0.5
ini = 1 ' condizione/casi: intero archivio, filtro date okCasi
im = CInt(InputBox("Indice mensile: 0=ultima del mese · 1-19=indice · 20=ogni estrazione",">",20))
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 = 1: ruott = 2 ' gioco = ruote della condizione BARI+CAGLIARI (no Target BARI)
k = InputBox("colpi di gioco","DjNomade",10)
casi = 0
fin = EstrazioneFin
okCasi = "|12/07/2025|12.07.2025|12-07-2025|2025/07/12|12/7/2025|12.7.2025|12-7-2025|2025/7/12|29/08/2025|29.08.2025|29-08-2025|2025/08/29|29/8/2025|29.8.2025|29-8-2025|2025/8/29|02/10/2025|02.10.2025|02-10-2025|2025/10/02|2/10/2025|2.10.2025|2-10-2025|2025/10/2|16/10/2025|16.10.2025|16-10-2025|2025/10/16|06/11/2025|06.11.2025|06-11-2025|2025/11/06|6/11/2025|6.11.2025|6-11-2025|2025/11/6|19/12/2025|19.12.2025|19-12-2025|2025/12/19|14/07/2026|14.07.2026|14-07-2026|2026/07/14|14/7/2026|14.7.2026|14-7-2026|2026/7/14|25/07/2026|25.07.2026|25-07-2026|2026/07/25|25/7/2026|25.7.2026|25-7-2026|2026/7/25|02/10/2026|02.10.2026|02-10-2026|2026/10/02|2/10/2026|2.10.2026|2-10-2026|2026/10/2|09/10/2026|09.10.2026|09-10-2026|2026/10/09|9/10/2026|9.10.2026|9-10-2026|2026/10/9|13/11/2026|13.11.2026|13-11-2026|2026/11/13|"
' Casi Analyzer in ordine: 12/07/2025 · 29/08/2025 · 02/10/2025 · 16/10/2025 · 06/11/2025 · 19/12/2025 · 14/07/2026 · 25/07/2026 · 02/10/2026 · 09/10/2026 · 13/11/2026
nTrov = 0
For esx = 1 To fin
ds = Replace(Replace(Replace(CStr(DataEstrazione(esx)),".","/"),"-","/")," ","")
If Len(ds) > 10 Then ds = Left(ds,10)
On Error Resume Next
ds2 = Format(CDate(DataEstrazione(esx)),"dd/mm/yyyy")
On Error GoTo 0
If(InStr(okCasi,"|" & ds & "|") > 0) Or(Len(ds2) > 0 And InStr(okCasi,"|" & ds2 & "|") > 0) Then
nTrov = nTrov + 1
If nTrov <= 250 Then casiEs(nTrov) = esx
End If
Next
If nTrov > 0 Then Scrivi "Casi: " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
' + casi NUOVI su Lottodesk dopo l'ultimo Analyzer (dataFine non taglia il listato)
For esx = 1 To fin
okIdx =(eval(im) = 20) Or(eval(im) = 0 And IsUltimaDelMese(esx)) Or(eval(im) > 0 And IndiceMensile(esx) = eval(im))
okMs =(CInt(MeseRic) = 0) Or(Mese(esx) = CInt(MeseRic))
On Error Resume Next
wd = WeekDay(CDate(Replace(CStr(DataEstrazione(esx)),".","/")))
On Error GoTo 0
okG =(GioRic = 0) Or(wd = GioRic)
If okIdx And okMs And okG Then
If CondizioneSpia(esx) Then
If nTrov >= 1 And nTrov <= 250 Then
If esx > casiEs(nTrov) Then
If nTrov < 250 Then nTrov = nTrov + 1: casiEs(nTrov) = esx
End If
End If
End If
End If
Next
If nTrov > 0 Then Scrivi "Casi (Analyzer + nuovi Lottodesk): " & nTrov & " da " & DataEstrazione(casiEs(1)) & " a " & DataEstrazione(casiEs(nTrov))
If nTrov > 0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 2
ColoreTesto 1
Scrivi "BARI + CAGLIARI (condizione) · Ambo · semplice · 1 ambate + 3 abbin. · colpi 10 · ritroso 240 · spia 66 su BARI (qualunque pos.) · casi 11",1
Scrivi "SPIA attiva: spia 66 su BARI (qualunque pos.) — output solo quando scatta",1
ColoreTesto 0
For ci = 1 To nTrov ' cronologico: ultima (in corso) per ultima
es = casiEs(ci)
If(GioRic = 0) Or(WeekDay(CDate(Replace(CStr(DataEstrazione(es)),".","/"))) = GioRic) Then
If(ruot > 0 And ruot <> 11) And(ruott > 0 And ruott <> 11) Then ru(1) = ruot:ru(2) = ruott
If ruot = 11 Or ruott = 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
' Casi Analyzer (11): 12/07/2025 · 29/08/2025 · 02/10/2025 · 16/10/2025 · 06/11/2025 · 19/12/2025 · 14/07/2026 · 25/07/2026 · 02/10/2026 · 09/10/2026 · 13/11/2026
okCasi = "|12/07/2025|12.07.2025|12-07-2025|2025/07/12|12/7/2025|12.7.2025|12-7-2025|2025/7/12|29/08/2025|29.08.2025|29-08-2025|2025/08/29|29/8/2025|29.8.2025|29-8-2025|2025/8/29|02/10/2025|02.10.2025|02-10-2025|2025/10/02|2/10/2025|2.10.2025|2-10-2025|2025/10/2|16/10/2025|16.10.2025|16-10-2025|2025/10/16|06/11/2025|06.11.2025|06-11-2025|2025/11/06|6/11/2025|6.11.2025|6-11-2025|2025/11/6|19/12/2025|19.12.2025|19-12-2025|2025/12/19|14/07/2026|14.07.2026|14-07-2026|2026/07/14|14/7/2026|14.7.2026|14-7-2026|2026/7/14|25/07/2026|25.07.2026|25-07-2026|2026/07/25|25/7/2026|25.7.2026|25-7-2026|2026/7/25|02/10/2026|02.10.2026|02-10-2026|2026/10/02|2/10/2026|2.10.2026|2-10-2026|2026/10/2|09/10/2026|09.10.2026|09-10-2026|2026/10/09|9/10/2026|9.10.2026|9-10-2026|2026/10/9|13/11/2026|13.11.2026|13-11-2026|2026/11/13|" ' commento date Analyzer
spiaOk = False
spiaTxt = ""
For p = 1 To 5
If Estratto(es,1,p) = 66 Then spiaOk = True: spiaTxt = "SPIA 66 su BARI pos. " & p & "°"
Next
If True Then ' caso già selezionato dall'Analyzer: gioca anche se CondizioneSpia non rilegge l'isotopo/pos.
ru(1) = ruot: ru(2) = ruott ' sempre le 2 ruote della condizione
cont = cont + 1
nGio = nGio + 1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(nGio) & " " & DataEstrazione(es),1
ColoreTesto 2 ' verde: numeri della condizione trovata
Scrivi " >>> CONDIZIONE: " & spiaTxt,1
ColoreTesto 0
' --- Ambata 1: n° 36 ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,9,1) - Estratto(es,6,1) + 10)
ImpostaGiocata 1,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,9,1) - Estratto(es,6,1) + 10)
am(2) = Fuori90(Estratto(es,7,3) + Estratto(es,10,4) + 4)
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 2,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,9,1) - Estratto(es,6,1) + 10)
am(2) = Fuori90(Estratto(es,9,3) + Estratto(es,12,4) + 39)
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,9,1) - Estratto(es,6,1) + 10)
am(2) = Fuori90(90 + Estratto(es,9,1) - Estratto(es,1,1) + 3)
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
' --- Lunghetta (4 numeri): 36 - 79 - 33 - 61 (ambo e terno e quaterna) ---
For i = 1 To 10: am(i) = 0: Next ' azzera, altrimenti restano i numeri della lunghetta
am(1) = Fuori90(90 + Estratto(es,9,1) - Estratto(es,6,1) + 10):am(2) = Fuori90(Estratto(es,7,3) + Estratto(es,10,4) + 4):am(3) = Fuori90(Estratto(es,9,3) + Estratto(es,12,4) + 39):am(4) = Fuori90(90 + Estratto(es,9,1) - Estratto(es,1,1) + 3)
For p = 2 To 4
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,postee,k
Gioca es
End If ' spiaOk
End If ' GioRic
Next ' ci casi
ScriviResoconto
End Sub

Function CondizioneSpia(es)
CondizioneSpia = False
spiaOk = False
spiaTxt = ""
For p = 1 To 5
If Estratto(es,1,p) = 66 Then spiaOk = True: spiaTxt = "SPIA 66 su BARI pos. " & p & "°"
Next
CondizioneSpia = spiaOk
End Function

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

Giocata n° 11 13.11.2026
>>> CONDIZIONE: SPIA 66 su BARI pos. 5°
Estrazione generatrice del pronostico 10961 [182 - 13/11/2026]
G 0001 Numeri in gioco : 36 su BA CA per Estratto
In corso per altre 10 estrazioni
G 0002 Numeri in gioco : 36.79 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0003 Numeri in gioco : 36.33 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0004 Numeri in gioco : 36.61 su BA CA per Ambo
In corso per altre 10 estrazioni
G 0005 Numeri in gioco : 36.79.33.61 su BA CA per Ambo,Terno,Quaterna
In corso per altre 10 estrazioni

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

bubù

Advanced Member >PLATINUM PLUS<

DjNomade

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

DjNomade

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

bubù

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi