'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI + CAGLIARI · Ambo · 1 ambate + 2 abbin. · colpi 7 · 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
ini = 1   ' condizione/casi: intero archivio, filtro date okCasi
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))
ruot=CInt(InputBox("1° ruota di gioco","DjNomade",1))
ruott=CInt(InputBox("2° ruota di gioco","DjNomade",2))
k=InputBox("colpi di gioco","DjNomade",7)
casi=0
fin=EstrazioneFin
nTrov=0   ' ultimi 7 casi indice/mese su archivio LOTTODESK (es. 9ª anche a settembre)
For esx=fin To 1 Step -1
  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))
  If okIdx And okMs Then
    nTrov=nTrov+1
    casiEs(nTrov)=esx
    If nTrov>=7 Then Exit For
  End If
Next
If nTrov>0 Then Scrivi "Casi Lottodesk (ultimi " & nTrov & "): da " & DataEstrazione(casiEs(nTrov)) & " a " & DataEstrazione(casiEs(1))
ColoreTesto 1
Scrivi "BARI + CAGLIARI · Ambo · 1 ambate + 2 abbin. · colpi 7 · ritroso 240"
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(ruot >0 And ruot<>11)Or ruot=11 Then 
If(ruott >0 And ruott<>11)Or ruott=11 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 (7): 19/03/2026 · 17/04/2026 · 16/05/2026 · 18/06/2026 · 17/07/2026 · 18/08/2026 · 17/09/2026
okCasi="|19/03/2026|19.03.2026|19-03-2026|2026/03/19|19/3/2026|19.3.2026|19-3-2026|2026/3/19|17/04/2026|17.04.2026|17-04-2026|2026/04/17|17/4/2026|17.4.2026|17-4-2026|2026/4/17|16/05/2026|16.05.2026|16-05-2026|2026/05/16|16/5/2026|16.5.2026|16-5-2026|2026/5/16|18/06/2026|18.06.2026|18-06-2026|2026/06/18|18/6/2026|18.6.2026|18-6-2026|2026/6/18|17/07/2026|17.07.2026|17-07-2026|2026/07/17|17/7/2026|17.7.2026|17-7-2026|2026/7/17|18/08/2026|18.08.2026|18-08-2026|2026/08/18|18/8/2026|18.8.2026|18-8-2026|2026/8/18|17/09/2026|17.09.2026|17-09-2026|2026/09/17|17/9/2026|17.9.2026|17-9-2026|2026/9/17|"   ' ultimi 7 casi
spiaOk=True
spiaTxt=""
If spiaOk Then   ' gioca SOLO se è uscita la condizione (es. spia sulla ruota)
okCasiEs=False
For ci=1 To nTrov
  If casiEs(ci)=es Then okCasiEs=True
Next
If okCasiEs Then   ' ultimi N casi calcolati su Lottodesk (non sulle date fisse dell'Analyzer)
cont=cont+1
t=t+1
Scrivi : ColoreTesto 2
Scrivi "Giocata n° " & Format2(t) & "  " & DataEstrazione(es),1
ColoreTesto 0
' --- Ambata 1: n° 72 ---
For i=1 To 10: am(i)=0: Next   ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3)
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,1,5)-Estratto(es,3,5)+3)
am(2)=Fuori90(Estratto(es,2,2)+Estratto(es,5,5)+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,1,5)-Estratto(es,3,5)+3)
am(2)=Fuori90(90+Estratto(es,2,3)-Estratto(es,4,3)+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 3,am,ru,poste,k
' --- Lunghetta (3 numeri): 72 - 47 - 59  (ambo e terno) ---
For i=1 To 10: am(i)=0: Next   ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,5)-Estratto(es,3,5)+3):am(2)=Fuori90(Estratto(es,2,2)+Estratto(es,5,5)+4):am(3)=Fuori90(90+Estratto(es,2,3)-Estratto(es,4,3)+2)
For p=2 To 3
  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,postee,k
Gioca es
End If   ' okCasi
End If   ' spiaOk
End If
End If
End If
End If
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