Novità

CORTESEMENTE !!

mastrogino

Advanced Premium Member
CHIEDO UN FAVORE A CHI E DISPONIBBILE NEL REALIZZARE UN LISTATO DI RICERCA
CHIEDO SE E POSSIBILE CHE UN LISTATO FACCIA RICERCA DI UN DETERMINATO AMBO NEL RITRORSO
LA SUA SORTITA IN CHE DATA SIA SORTITA
ESEMPIO:
SE IO DOVREI CERCARE L'AMBO 77.36. SU BA.CA.
LA RICERCA MI DOVREBBE DIRE IN CHE ESTRAZIONE SIA USCITO E SU CHE RUOTA

GRAZIE 1000 DELLA COLLABORAZIONE
 
CHIEDO UN FAVORE A CHI E DISPONIBBILE NEL REALIZZARE UN LISTATO DI RICERCA
CHIEDO SE E POSSIBILE CHE UN LISTATO FACCIA RICERCA DI UN DETERMINATO AMBO NEL RITRORSO
LA SUA SORTITA IN CHE DATA SIA SORTITA
ESEMPIO:
SE IO DOVREI CERCARE L'AMBO 77.36. SU BA.CA.
LA RICERCA MI DOVREBBE DIRE IN CHE ESTRAZIONE SIA USCITO E SU CHE RUOTA

GRAZIE 1000 DELLA COLLABORAZIONE

Fattoti al volo... :)

Codice:
Option Explicit
Sub Main
'script by tom x gino
' trova ambo voluto per range temporale desiderati e ruote volute
   Dim es
   Dim n1
   Dim n2
   ReDim ar(11)
   Dim Inizio
   Dim fine
   Dim Estratto1
   Dim Estratto2
   Dim r
   Dim ruota
   Dim p1,p2
   Dim contambi
   fine = EstrazioneFin
   Inizio = EstrazioneIni
   ScegliRuote(ar)
   n1 = CInt(InputBox("n1",,37))
   n2 = CInt(InputBox("n2",,21))
   Scrivi "ruote analizzate " & StringaRuote(ar)
   Scrivi "periodo analizzato " & GetInfoEstrazione(Inizio) & ".- " & GetInfoEstrazione(fine)
   Scrivi "ambo ricercato " & n1 & "-" & n2
   Scrivi
   For es = Inizio To fine
      For r = 1 To UBound(ar)
         ruota = ar(r)
         'Scrivi SiglaRuota(ruota) & " " &  StringaEstratti(es,ruota,".")
         For p1 = 1 To 5
            For p2 = 1 To 5
               Estratto1 = Estratto(es,ruota,p1)
               Estratto2 = Estratto(es,ruota,p2)
               'Scrivi Estratto1 & " | " & Estratto2
               If Estratto1 = n1 And Estratto2 = n2 Then
                  contambi = contambi + 1
                  Scrivi "ambo trovato!"
                  Call Messaggio("ambo(i) trovato(i) " & contambi)
                  Scrivi "uscito in data " & GetInfoEstrazione(es) & " sulla ruota di " & NomeRuota(ruota) & " negli estratti " & StringaEstratti(es,ruota,".")
               End If
               If ScriptInterrotto Then Exit For
            Next ' x p2
            If ScriptInterrotto Then Exit For
         Next ' x p1
         If ScriptInterrotto Then Exit For
      Next ' xr
      Call AvanzamentoElab(Inizio,fine,es)
      If ScriptInterrotto Then Exit For
   Next ' x es
   If contambi = 0 Then
      Scrivi "nessun ambo trovato nel range temporale e di ruote specificato"
   End If
End Sub
 
Ultima modifica:
Fattoti al volo... :)

Codice:
Option Explicit
Sub Main
'script by tom x gino
' trova ambo voluto per range temporale desiderati e ruote volute
   Dim es
   Dim n1
   Dim n2
   ReDim ar(11)
   Dim Inizio
   Dim fine
   Dim Estratto1
   Dim Estratto2
   Dim r
   Dim ruota
   Dim p1,p2
   Dim contambi
   fine = EstrazioneFin
   Inizio = EstrazioneIni
   ScegliRuote(ar)
   n1 = CInt(InputBox("n1",,37))
   n2 = CInt(InputBox("n2",,21))
   Scrivi "ruote analizzate " & StringaRuote(ar)
   Scrivi "periodo analizzato " & GetInfoEstrazione(Inizio) & ".- " & GetInfoEstrazione(fine)
   Scrivi "ambo ricercato " & n1 & "-" & n2
   Scrivi
   For es = Inizio To fine
      For r = 1 To UBound(ar)
         ruota = ar(r)
         'Scrivi SiglaRuota(ruota) & " " &  StringaEstratti(es,ruota,".")
         For p1 = 1 To 5
            For p2 = p1 + 1 To 4
               Estratto1 = Estratto(es,ruota,p1)
               Estratto2 = Estratto(es,ruota,p2)
               'Scrivi Estratto1 & " | " & Estratto2
               If Estratto1 = n1 And Estratto2 = n2 Then
                  contambi = contambi + 1
                  Scrivi "ambo trovato!"
                  Call Messaggio("ambo(i) trovato(i) " & contambi)
                  Scrivi "uscito in data " & GetInfoEstrazione(es) & " sulla ruota di " & NomeRuota(ruota) & " negli estratti " & StringaEstratti(es,ruota,".")
               End If
               If ScriptInterrotto Then Exit For
            Next ' x p2
            If ScriptInterrotto Then Exit For
         Next ' x p1
         If ScriptInterrotto Then Exit For
      Next ' xr
      Call AvanzamentoElab(Inizio,fine,es)
      If ScriptInterrotto Then Exit For
   Next ' x es
   If contambi = 0 Then
      Scrivi "nessun ambo trovato nel range temporale e di ruote specificato"
   End If
End Sub
Ti volevo chiederti ma lo script si ferma al 1° esito positivo , te lo chiedo perche con la ricerca dell0ambo 29.75. l'esito si ferma
all'uscita sulla nazionale
uscito in data [10258] [ 78] 01.07.2023 sulla ruota di Nazionale negli estratti 09.29.75.19.78

mentre al 3° colpo successivo è sortito a Torino
si potrebbe cambiare in modo da vedere quante volte esce?
sempre se è posibbile
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20

Ultimi Messaggi

Indietro
Alto