Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Buongiorno Steeven premesso che quello che tu chiedi possiamo dire o chiamarlo ( il sacro graal del lotto) ti posso suggerire uno dei miei metodi x ambata su 2 ruote :Ho questi in corso qualcuno ha convergenze per le prossime estrazioni? ( da metodo per ambata)
NA-RO 89/18 ottavo colpo
BA-PA 6-77 ottavo colpo
GE-RO 80-62 quinto colpo
MI-TO 77-73 terzo colpo
MI-PA 77-73 terzo colpo
PA-RO 73-20 terzo colpo
BA-FI 39-37 secondo colpo
BA-RO 39-40 secondo colpo
CA-TO 26-62 primo colpo
FI-TO 36-62 primo colpo
qualcuno riesce a farmi un listato per questo metodo per AMBATA? Per quanti colpi conviene giocare?
CONDIZIONE: un numero isotopo su 2 ruote
prima ambata : sommare il 1 + il 5 estratto della prima ruota in cui c'è isotopo + 5
seconda ambata: sommare il 1 + il 5 estratto della seconda ruota in cui c'è isotopo +5
grazie
qualcuno riesce a farmi un listato per questo metodo per AMBATA? Per quanti colpi conviene giocare?
CONDIZIONE: un numero isotopo su 2 ruote
prima ambata : sommare il 1 + il 5 estratto della prima ruota in cui c'è isotopo + 5
seconda ambata: sommare il 1 + il 5 estratto della seconda ruota in cui c'è isotopo +5
grazie
Sub Main
'https://forum.lottoced.com/threads/cerco-ambata-a-ruota-calcolabile-a-ogni-estrazione.2194797/post-2245795
Scrivi " Metodo AMBATA di STEEVEN, dalla ricerca di 2 numeri ISOTOPI ",True,5,1,5,5
TestoInBandaPassante " Listato di GioRyuKen72 ",1,5,1
ColoreTesto 0
Dim Fin,Ini,Es,R1,R2,Caso,Casi,P1,N1,N2
Dim Ambata,AmbataSecondaria,Ambata1(2)
Dim ruota(2),posteABT(1)
Dim PrimoRuota1,QuintoRuota1,PrimoRuota2,QuintoRuota2
posteABT(1) = 2 'gioco 2 euro su 2 ruote per un totale di 4 euro per estrazione
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9729) 'inizio 2020
'Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
For Es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
N1 = Estratto(Es,R1,P1)
N2 = Estratto(Es,R2,P1)
ok = 0
If N1 = N2 Then
PrimoRuota1 = Estratto(Es,R1,1)
QuintoRuota1 = Estratto(Es,R1,5)
PrimoRuota2 = Estratto(Es,R2,1)
QuintoRuota2 = Estratto(Es,R2,5)
Ambata = Fuori90((PrimoRuota1 + QuintoRuota1) + 5)
AmbataSecondaria = Fuori90((PrimoRuota2 + QuintoRuota2) + 5)
Caso = Caso + 1
Casi = Casi + 1
ruota(1) = R1
ruota(2) = R2
Scrivi String(45,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000 ") & String(45,"*"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
' ------------------------------------------------------
Scrivi Space(35) & "Numero ISOTOPO = " & Format2(N1),1,,,2
ColoreTesto 0
Ambata1(1) = Ambata
Ambata1(2) = AmbataSecondaria
ImpostaGiocata 1,Ambata1,ruota,posteABT,6,1 'imposto le giocate x ambata per 6 colpi
Gioca Es,True,,1
End If
Next
Next
'End If
Next
Next
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " Metodo AMBATA di STEEVEN dalla ricerca di 2 numeri ISOTOPI ------ Listato di GioRyuKen72 ",1,,1
ColoreTesto 0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub