Marco-elle
Banned
Vi propongo un metodo di facile applicazione che si calcola a ogni estrazione
da mettere in gioco su BA-CA-FI con una ambata e 2 ambi con recupero ambetto
ITER:
ambata
3° estratto di CA
1° abbinamento
5 ° estratto di BA + 3° estratto di FI
2° abbianamento
il diametrale del 1° abbinamento
si gioca x ambo recupero ambetto
le vincite generalmemte avvengono nei 6/8 colpi
da mettere in gioco su BA-CA-FI con una ambata e 2 ambi con recupero ambetto
ITER:
ambata
3° estratto di CA
1° abbinamento
5 ° estratto di BA + 3° estratto di FI
2° abbianamento
il diametrale del 1° abbinamento
si gioca x ambo recupero ambetto
le vincite generalmemte avvengono nei 6/8 colpi
Codice:
Sub Main() ColoreTesto 1
Scrivi
Scrivi " VISION DAY BY DAY ",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim am(1):Dim am1(2):Dim am2(2): Dim am3(2): Dim am4(2): Dim am5(2): Dim am6(2):Dim posta(1):Dim poste(2)
posta(1) = 1
poste(2) = 2
klp = 9
ini = 10230
fin = EstrazioneFin
co = 0
For es = ini To fin
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
n1 = Estratto(es,2,3)
n2 = Fuori90(Estratto(es,3,3) + Estratto(es,1,5))
n3 = Diametrale(n2)
n4 = n2 + 1
n5 = n2 - 1
n6 = n3 + 1
n7 = n3 - 1
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 1:Scrivi String(100,"°")
ColoreTesto 0
am(1) = n1
ImpostaGiocata 1,am,ruote,posta,klp
am1(1) = n1
am1(2) = n2
ImpostaGiocata 2,am1,ruote,poste,klp
am2(1) = n1
am2(2) = n3
ImpostaGiocata 3,am2,ruote,poste,klp
am3(1) = n1
am3(2) = n4
ImpostaGiocata 4,am3,ruote,poste,klp
am4(1) = n1
am4(2) = n5
ImpostaGiocata 5,am4,ruote,poste,klp
am5(1) = n1
am5(2) = n6
ImpostaGiocata 6,am5,ruote,poste,klp
am6(1) = n1
am6(2) = n7
ImpostaGiocata 7,am6,ruote,poste,klp
Gioca es,1
'End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Ultima modifica: