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ì · 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,

bubù · 37 minuti fa

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

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<

Ultima estrazione Lotto

Ultimi Messaggi