TO alla 1a del mese

[vivo]

Si calcola alla 1a estrazione mensile, si gioca solo sulla ruota di TORINO per 10 colpi
ambata
sommare 22 al 4° di NA = 26
altri numeri
4° di TO + 58 = 2
4° di GE + 68 = 21
4° di CA + 57 = 60
4° di RO + 83 = 22
non usare l'ambata come capogioco ma la cinquina o sistemino in terzine solo per ambo

 

[simo_simo]

Grazie....

 

[dp58]

LO SCRIPT DEL METODO

LO SCRIPT DEL METODO

Sub Main() ColoreTesto 1
Scrivi " METODO TORINO 1° DEL MESE",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(5) : Dim terno(5) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(5)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(5) = 1
ruote(1) = 9
klp = 9
ini = 8711
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO TORINO 1° DEL MESE",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambo1(1) = Fuori90(Estratto(es,NA_,4) + 22)
ambo1(2) = Fuori90(Estratto(es,TO_,4) + 58)
ambo1(3) = Fuori90(Estratto(es,GE_,4) + 68)
ambo1(4) = Fuori90(Estratto(es,CA_,4) + 57)
ambo1(5) = Fuori90(Estratto(es,RO_,4) + 83)
ImpostaGiocata 1,ambo1,ruote,posta,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

 

[Alien.]

AMBI E TERNO con maggior possibilità oltre alla cinquina per ambo sono:

2 21 ambo
2 22 ambo

26 2 22 per ambo e terno

grazie dp58 per lo script.....


se Vivo permette.

 

[vivo]

2 60 al 7° colpo