'================================================
' LISTATO LOTTODESK - generato dal Lotto Analyzer
' by DjNomade e Arena A.I.
' Condizioni: BARI · Ambo · semplice · 1 ambate + 3 abbin. · colpi 2 · ritroso 240 · solo ven · casi 10 · Fuori campione ultimi 2 casi
' Fuori campione ultimi 2 casi (formule classificate senza questi casi)
'================================================
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 #8594; 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",">",6))
ruot=CInt(InputBox("1° ruota di gioco","DjNomade",1))
k=InputBox("colpi di gioco","DjNomade",2)
casi=0
fin=EstrazioneFin
okCasi="|28/08/2026|28.08.2026|28-08-2026|2026/08/28|28/8/2026|28.8.2026|28-8-2026|2026/8/28|04/09/2026|04.09.2026|04-09-2026|2026/09/04|04/9/2026|04.9.2026|04-9-2026|2026/9/04|4/09/2026|4.09.2026|4-09-2026|2026/09/4|4/9/2026|4.9.2026|4-9-2026|2026/9/4|11/09/2026|11.09.2026|11-09-2026|2026/09/11|11/9/2026|11.9.2026|11-9-2026|2026/9/11|18/09/2026|18.09.2026|18-09-2026|2026/09/18|18/9/2026|18.9.2026|18-9-2026|2026/9/18|25/09/2026|25.09.2026|25-09-2026|2026/09/25|25/9/2026|25.9.2026|25-9-2026|2026/9/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|16/10/2026|16.10.2026|16-10-2026|2026/10/16|23/10/2026|23.10.2026|23-10-2026|2026/10/23|30/10/2026|30.10.2026|30-10-2026|2026/10/30|"
' Casi Analyzer in ordine: 28/08/2026 · 04/09/2026 · 11/09/2026 · 18/09/2026 · 25/09/2026 · 02/10/2026 · 09/10/2026 · 16/10/2026 · 23/10/2026 · 30/10/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 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
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 · Ambo · semplice · 1 ambate + 3 abbin. · colpi 2 · ritroso 240 · solo ven · casi 10 · Fuori campione ultimi 2 casi"
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   ' 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): 28/08/2026 · 04/09/2026 · 11/09/2026 · 18/09/2026 · 25/09/2026 · 02/10/2026 · 09/10/2026 · 16/10/2026 · 23/10/2026 · 30/10/2026
okCasi="|28/08/2026|28.08.2026|28-08-2026|2026/08/28|28/8/2026|28.8.2026|28-8-2026|2026/8/28|04/09/2026|04.09.2026|04-09-2026|2026/09/04|04/9/2026|04.9.2026|04-9-2026|2026/9/04|4/09/2026|4.09.2026|4-09-2026|2026/09/4|4/9/2026|4.9.2026|4-9-2026|2026/9/4|11/09/2026|11.09.2026|11-09-2026|2026/09/11|11/9/2026|11.9.2026|11-9-2026|2026/9/11|18/09/2026|18.09.2026|18-09-2026|2026/09/18|18/9/2026|18.9.2026|18-9-2026|2026/9/18|25/09/2026|25.09.2026|25-09-2026|2026/09/25|25/9/2026|25.9.2026|25-9-2026|2026/9/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|16/10/2026|16.10.2026|16-10-2026|2026/10/16|23/10/2026|23.10.2026|23-10-2026|2026/10/23|30/10/2026|30.10.2026|30-10-2026|2026/10/30|"   ' commento date Analyzer
spiaOk=True
spiaTxt=""
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 0
' --- Ambata 1: n° 66 ---
For i=1 To 10: am(i)=0: Next   ' azzera, altrimenti restano i numeri della lunghetta
am(1)=Fuori90(90+Estratto(es,1,1)-Estratto(es,4,1)+78)
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,1)-Estratto(es,4,1)+78)
am(2)=Fuori90(90+Estratto(es,3,1)-Estratto(es,6,3)+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 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,1)-Estratto(es,4,1)+78)
am(2)=Fuori90(90+Estratto(es,4,5)-Estratto(es,1,2)+79)
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,1,1)-Estratto(es,4,1)+78)
am(2)=Fuori90(Estratto(es,2,2)+Estratto(es,8,3)+13)
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): 66 - 56 - 73 - 53  (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,1,1)-Estratto(es,4,1)+78):am(2)=Fuori90(90+Estratto(es,3,1)-Estratto(es,6,3)+39):am(3)=Fuori90(90+Estratto(es,4,5)-Estratto(es,1,2)+79):am(4)=Fuori90(Estratto(es,2,2)+Estratto(es,8,3)+13)
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 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