Novità

Ambi consecutivi a Torino : versione 2019 per ambi.terni e quaterna

Donatella come stai?Spero tutto bene è un Po che nn scrivi,sto continuando per terno e quaterna ,volevo chiederti q colpi p q metodo più o meno per scaldarsi consapevole dell esito già avuto con ambo .Ti ringrazio di tutto cuore Felice.
 
Buongiorno,
Salutando gli tutti gli intervenuti .
Postiamo il listato , richiesto da Alien , del metodo descritto
Codice:
Option Explicit
'Ambi consecutivi a Torino : versione 2019 per ambi.terni e quaterna di donatella
'https://forum.lottoced.com/forum/lottoced/metodi/2147705-ambi-consecutivi-a-torino-versione-2019-per-ambi-terni-e-quaterna
Sub Main()
   Dim r,p1,p2,a,b,riga,caso : caso = 00
   Dim Ini,fin,es : Ini = 9193 : fin = EstrazioneFin
   For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
      Dim co : co = 00
      For p1 = 01 To 04
         For p2 = p1 + 01 To 05
            r = TO_ : a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
            If Distanza(p1,p2) = 01 Then riga = "AMBO UNITO" Else riga = "" End If
            If Distanza(a,b) = 01 Then
               co = co + 01
               If co = 01 Then
                  caso = caso + 01
                  ReDim ruota(02) : ruota(1) = TO_ : ruota(2) = VE_
                  ReDim ruote(03) : ruote(1) = VE_ : ruote(2) = TO_ : ruote(3) = PA_
                  Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(caso,"000"),True)
                  Call Scrivi(DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & _
                  "Ambo " & a & "." & b & " " & "Pos." & p1 & "-" & p2 & " " & riga,True)
                  Dim posta01,posta03 : posta01 = Array(00,01,00,00,00,00) : posta03 = Array(00,00,01,01,00,00)
                  Dim posta04,klp : posta04 = Array(00,00,01,01,01,00) : klp = 11
                  Dim aNum01 : aNum01 = Array(00,16)
                  Call ImpostaGiocata(01,aNum01,ruota,posta01,klp,AMBATA_)
                  Dim anum02 : anum02 = Array(00,06,66,46)
                  Call ImpostaGiocata(02,anum02,ruote,posta03,klp,TERNO_)
                  Dim anum03 : anum03 = Array(00,61,46,26)
                  Call ImpostaGiocata(03,anum03,ruote,posta03,klp,TERNO_)
                  Dim aNum04 : aNum04 = Array(00,16,61,66,26,86)
                  Call ImpostaGiocata(04,aNum04,ruote,posta04,klp,QUATERNA_)
                  Dim anum05 : anum05 = Array(00,06,11,61,66,76)
                  Call ImpostaGiocata(05,anum05,ruote,posta04,klp,QUATERNA_)
                  Call Gioca(es,True,,01)
               End If
            End If
         Next
      Next
   Next
   Call ScriviResoconto()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .
 
Ultima modifica di un moderatore:
magia;n2157902 ha scritto:
Buongiorno,
Salutando gli tutti gli intervenuti .
Postiamo il listato , richiesto da Alien , del metodo descritto
Codice:
Option Explicit
'Ambi consecutivi a Torino : versione 2019 per ambi.terni e quaterna di donatella
'https://forum.lottoced.com/forum/lottoced/metodi/2147705-ambi-consecutivi-a-torino-versione-2019-per-ambi-terni-e-quaterna
Sub Main()
Dim r,p1,p2,a,b,riga,caso: caso = 00
Dim Ini,fin,es : Ini = 9193 : fin = EstrazioneFin
For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
For p1 = 01 To 05
For p2 = p1 + 01 To 05
r = TO_ : a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
If Distanza(p1,p2) = 01 Then riga = "AMBO UNITO" Else riga = "" End If
If Distanza(a,b) = 01 Then
caso = caso + 01
ReDim ruota(02) : ruota(1) = TO_ : ruota(2) = VE_
ReDim ruote(03) : ruote(1) = VE_ : ruote(2) = TO_ : ruote(3) = PA_
Call Scrivi(String(125,"-") & "Caso n° " & FormattaStringa(caso,"000"),True)
Call Scrivi(DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & _
"Ambo " & a & "." & b & " " & "Pos." & p1 & "-" & p2 & " " & riga,True)
Dim posta01,posta03 : posta01 = Array(00,01,00,00,00,00) : posta03 = Array(00,00,01,01,00,00)
Dim posta04,klp : posta04 = Array(00,00,01,01,01,00) : klp = 11
Dim aNum01 : aNum01 = Array(00,16)
Call ImpostaGiocata(01,aNum01,ruota,posta01,klp,AMBATA_)
Dim anum02 : anum02 = Array(00,06,66,46)
Call ImpostaGiocata(02,anum02,ruote,posta03,klp,TERNO_)
Dim anum03 : anum03 = Array(00,61,46,26)
Call ImpostaGiocata(03,anum03,ruote,posta03,klp,TERNO_)
Dim aNum04 : aNum04 = Array(00,16,61,66,26,86)
Call ImpostaGiocata(04,aNum04,ruote,posta04,klp,QUATERNA_)
Dim anum05 : anum05 = Array(00,06,11,61,66,76)
Call ImpostaGiocata(05,anum05,ruote,posta04,klp,QUATERNA_)
Call Gioca(es,True,,01)
End If
Next
Next
Next
Call ScriviResoconto()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

Grazie magia,ci sono vincite che si ripetono puoi controllare grazie.
 
Ciao a Tutti : grazie di cuore a Magia per il listato
Mediamente lo sfaldamento avviene entro i primi 05 colpi di gioco,a volte anche con più sortite e tende poi a ripetersi nuovamente tra il 07° e 10° colpo
 
Questa sera ambo in terzina su TO e....penso che ora tocchi a VE

2nb5xrk.png
 
Ciao e grazie IMS
Come dicevo precedentemente dopo la prima condizione di ambo unito verificatasi il 02.02 dopo 7 estrazione è uscita a Torino l'ambata 16 con il 61,nella medesima estrazione avevamo ancora la condizione di un ambo unito e dopo 4 colpi di gioco sortisce nuovamente l'ambata 16 con il 61 e al 07° colpo,questa sera,sempre a Torino l'ambo in terzina 66.46
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto