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
 

lotto_tom75

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

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:

mastrogino

Advanced Premium Member
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
    martedì 14 maggio 2024
    Bari
    34
    50
    65
    35
    31
    Cagliari
    62
    83
    20
    56
    85
    Firenze
    09
    90
    41
    32
    33
    Genova
    66
    72
    88
    81
    40
    Milano
    89
    64
    72
    12
    39
    Napoli
    12
    57
    42
    18
    33
    Palermo
    63
    18
    24
    60
    88
    Roma
    84
    74
    64
    49
    01
    Torino
    64
    50
    56
    12
    89
    Venezia
    54
    58
    55
    89
    53
    Nazionale
    12
    79
    46
    54
    38
    Estrazione Simbolotto
    Milano
    15
    32
    02
    33
    04

Ultimi Messaggi

Alto