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
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22

Ultimi Messaggi

Indietro
Alto