Novità

Il 1° metodo x Ambetto che va in positivo !!!

fillotto

Advanced Member >PLATINUM<
Bisogna trovare due numeri Diametrali a cavallo fra due ruote consecutive
Esempio BA 5° estratto 1 CA 1° estratto 46 quindi giocare sulle 2 ruote trovate
L' AMBETTO .Per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi ma chiaramente
Voi giocherete L'ambetto che è + remunerativo
Codice:
Sub Main()
'bisogna trovare due numeri Diametrali  a cavallo fra due ruote consecutive
' Esempio BA 5° estratto 1 CA 1° estratto 46  quindi giocare sulle 2 ruote trovate
'L' AMBETTO per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi  ma chiaramente
'Voi giocherete  L'ambetto che è + remunerativo   
Dim ruote(2),amb1(2),posta(3),amb2(2),amb3(2),amb4(2)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)
p2 = 1'la posizione del della seconda ruota qui 1
b = Estratto(es,r1 + 1,p2)
c = Diametrale(a)
If b = c Then
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."


Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."

Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b

amb1(1) = n1
amb1(2) = n4
ra1 = SerieRitardo(ini,es,amb1,ruote,2)
ColoreTesto 2
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n4 & "  " & " = " & Format2(ra1)
amb2(1) = n1
amb2(2) = n5
ra2 = SerieRitardo(ini,es,amb2,ruote,2)
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n5 & "  " & " = " & Format2(ra2)

amb3(1) = n6
amb3(2) = n2
ra3 = SerieRitardo(ini,es,amb3,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n2 & "  " & " = " & Format2(ra3)

amb4(1) = n6
amb4(2) = n3
ra4 = SerieRitardo(ini,es,amb4,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n3 & "  " & " = " & Format2(ra4)



ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2
ImpostaGiocata 2,amb2,ruote,posta,k,2
ImpostaGiocata 3,amb3,ruote,posta,k,2
ImpostaGiocata 4,amb4,ruote,posta,k,2


Gioca es,True
End If


Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Diametrali a cavallo x Ambetto",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub
 
Grazie fillotto........posso chiederti come si ottengono le ambate e gli ambi (non so usare listati)...forse si mettono in gioco gli stessi numeri per ambo - ambetto...quindi 1-46---(90-1-2.......45.46.47)...ti ringrazio per la risposta
ciao
 
E' semplice lorelai mettiamo che trovi a BA come 5° estratto il num 1 e a CA (sempre nella stessa estrazione ) al 1° estratto il n° 46 ovvero il diametrale di 1 allora secondo il metodo dovrai giocare 1 e 46 come ambetto sia a BA che a CA cioè come se giocassi 4 bollette a BA con i seguenti ambi( 1-47 , 1-45 , 46-90 , 46-2) analogamente giocherai ( 1-47 , 1-45 , 46-90 , 46-2) su CA , ma è del tutto evidente che conviene giocare 2 ambetti (1 e 46 ) sia a BA che a CA otterrai un premio maggiore. Lo script di cui sopra dimostra che nelle ultime 1000 estrazioni se si fosse giocato come da metodo utilizzando la giocata AMBETTO di sarebbe andati , se pur di poco in positivo .E' sempre , comunque quello che è successo ......prima hehe prudenza:o:o
 
grazie per la ris 56posta

peccato che la distanza 45 in diagonale è rara...credo che dal 22 ottobre non si sia più presentata..
mi--------11
na 56------

al quinto colpo na 11-55....ciaoooooooo
 
22/10/2013 CA 54-52 (1°-2°) Dist.Diag.45
22/10/2013 GE 07-09 (1°-3°)

-------------------------------------------
29/10/2013 FI 57-37 (2°-3°) Dist.Diag.45
29/10/2013 GE 82-12 (1°-2°)

-------------------------------------------
31/10/2013 GE 11-64 (3°-5°) Dist.Diag.45
31/10/2013 RO 19-56 (1°-2°)

-------------------------------------------
02/11/2013 NA 44-19 (3°-4°) Dist.Diag.45
02/11/2013 RO 64-89 (2°-5°)

-------------------------------------------
05/11/2013 FI 80-25 (3°-5°) Dist.Diag.45
05/11/2013 NA 70-35 (1°-4°)

-------------------------------------------
09/11/2013 MI 76-55 (3°-4°) Dist.Diag.45
09/11/2013 RO 10-31 (3°-4°)
Ambi ISOTOPI
-------------------------------------------
 
Invece di 10 colpi ridurre a 3 colpi e la distanza 45 diventa ancora più vantaggiosa , inoltre sempre in 3 colpi è buona anche la distanza 42 .
Ho modificato lo script per provare tutte le distanze(buone x giocare l'ambetto) e potete testare tutte le distanze , ecco lo script modificato.
Codice:
Sub Main()
'bisogna trovare due numeri  UGUALI  a cavallo fra due ruote consecutive
' Esempio BA 5° estratto 27 CA 1° estratto 27  quindi giocare sulle 2 ruote trovate
'il veribile e il num stesso come Ambetto
Dim ruote(2),amb1(2),posta(3),amb2(2),amb3(2),amb4(2)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",3)
ics = InputBox("La differenza fra il 5° es della 1^Ruota e il 1° es della 2^ Ruota ?","SCRIVI  LA DIFFERENZA (2-88) ",45)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)
p2 = 1'la posizione del della seconda ruota qui 1
b = Estratto(es,r1 + 1,p2)
c = Fuori90(a + ics)
If b = c Then
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."


Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."

Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b

amb1(1) = n1
amb1(2) = n4
ra1 = SerieRitardo(ini,es,amb1,ruote,2)
ColoreTesto 2
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n4 & "  " & " = " & Format2(ra1)
amb2(1) = n1
amb2(2) = n5
ra2 = SerieRitardo(ini,es,amb2,ruote,2)
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n5 & "  " & " = " & Format2(ra2)

amb3(1) = n6
amb3(2) = n2
ra3 = SerieRitardo(ini,es,amb3,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n2 & "  " & " = " & Format2(ra3)

amb4(1) = n6
amb4(2) = n3
ra4 = SerieRitardo(ini,es,amb4,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n3 & "  " & " = " & Format2(ra4)



ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2
ImpostaGiocata 2,amb2,ruote,posta,k,2
ImpostaGiocata 3,amb3,ruote,posta,k,2
ImpostaGiocata 4,amb4,ruote,posta,k,2


Gioca es,True
End If


Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Estratti a cavallo",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub
 
ANCORA UNA MODIFICA 125% RENDIMENTO chiedo un Aiuto a BLAKMORE

ANCORA UNA MODIFICA 125% RENDIMENTO chiedo un Aiuto a BLAKMORE

Ancora una modifica sul tema questa volta sempre 1000 estrazioni sempre ruote consecutive sempre 3 colpi stesse posizioni 5 ° prima ruota 1° seconda ruota
la condizione affinchè si giochi è che un numero di una ruota e in una data posizione (condizioni scelte da noi)coincida con con il numero "a" ovvero il 5° di di una prima ruota : fatte diverse prove la combinazione + ottimale è quella indicata facendo girare lo script ma altre due combinazioni (segnalete nel corpo dello script)sono positive,chiedo a Blakmore specialista in queste cose come fare un unico script con le tre condizioni
Codice:
Sub Main()
'la condizione affinchè si giochi è che un numero di una ruota e in una data posizione (condizioni scelte da noi)coincida con con il numero '"a"ovvero il 5° di di una prima ruota
' per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi  ma chiaramente
'Voi giocherete  L'ambetto che è + remunerativo
Dim ruote(3),amb1(2),posta(3),amb2(2),amb3(2),amb4(2),rc(1)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",3)
ruc = InputBox("RUOTA da dove prendere il CORRETORE?","RUOTA CORRETTORE",7)'RUOTA da dove prendere il CORRETORE
PRC = InputBox("Posizione del Correttore(1-5) ?","Posizione del Correttore",3)' miglior risultato ruota 7 pos 3 e 1 pos 2  e 9 pos 4
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9 'la prima ruota può arrivare fino a 9 perchè la 2^ deve essere necessariamente la successiva
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)'individuviamo il 1^ numero che sarà sempre un quinto estratto che però sarà preso in considerazione
'solo se sarà = al "correttore" posto dove lo vogliamo noi
p2 = 1'la posizione del della seconda ruota qui 1
b = Fuori90(Estratto(es,r1 + 1,p2) + c)
c = Estratto(es,ruc,PRC)
If a = c Then 'se " a" è = a "c" allora ....
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."'&"Ruota corretrice "&  SiglaRuota(ruc) &" con la pos  "& PRC
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(ruc) & " - " & StringaEstratti(es,ruc) & _
" ] [ " & Format2(a) & " ] in " &(PRC) & "^ pos."


Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
rc(1) = ruc
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b
amb1(1) = n1
amb1(2) = n4

amb2(1) = n1
amb2(2) = n5
amb3(1) = n6
amb3(2) = n2
amb4(1) = n6
amb4(2) = n3


ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2,,1
ImpostaGiocata 2,amb2,ruote,posta,k,2,,1
ImpostaGiocata 3,amb3,ruote,posta,k,2,,1
ImpostaGiocata 4,amb4,ruote,posta,k,2,,1

Gioca es,True
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Migiori soluzioni x Ambetto",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08
Indietro
Alto