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

[montecarlo7]

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.

 

[montecarlo7]

Sfaldarsi scusami...

 

[Adriana2]

Bravissima a To 16.61

 

[Membro cancellato 16574]

Buongiorno,
Salutando gli tutti gli intervenuti .
Postiamo il listato , richiesto da Alien , del metodo descritto

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 .

 

[montecarlo7]

Buon giorno a tutti secondo voi una volta avvenuta la condizione per quante estrazioni so porta avanti la previsione?Grazie!

 

[Aline]

Buongiorno io penso almeno 4 o 5 colpi vediamo Donatella cosa ci consiglia ciao

 

[Alien.]

Buongiorno,
Salutando gli tutti gli intervenuti .
Postiamo il listato , richiesto da Alien , del metodo descritto

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.

 

[donatella]

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

 

[vanez]

ma se un ambo consecutivo esce a Venezia che si fa?
in data odierna V 84-85
ciao grazie

 

[donatella]

Ciao Vanez e Tutti : la condizione è solo quando l'ambo consecutivo è uscito sulla ruota di Torino

 

[vanez]

Grazie

 

[Marco-elle]

Attenzione a VENEZIA! ho diverse convergenze con la seconda cinquina

 

[montecarlo7]

Grazie Aline

 

[Marco-elle]

Questa sera ambo in terzina su TO e....penso che ora tocchi a VE

 

[membro cancellato]

Salve, potresti dare lo script?

 

[donatella]

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

 

[Marco-elle]

lo trovi a pagina 2 sul post di MAGIA

 

[montecarlo7]

Buona domenica a tutti nn si legge bene IMS per q colpi ancora?4 o 1?Ti ringrazio!

 

[montecarlo7]

Grazie Donatella, buona domenica

 

[montecarlo7]

Ciao a tutti avete visto?C è la condizione ambo consecutivo a Torino un abbraccio!