si calcola all'8a estrazione mensile, sim gioca per 7 colpi sulla ruota di GENOVA
Ambata = 5° TO +9 = 21
altri numeri
5° TO + 53 = 65
5° VE + 16 = 75
5° di MI + 55 = 15
5° RO + 42 = 46
usate la lunghetta per ambo, buona riusita usando l'ambata per capogioco, ma ottima la lunghetta,
12 mesi = 1 in corso - 11 positivi
ecco il listato
Sub Main() ColoreTesto 1
Scrivi " METODO VIVO X AMBATA E AMBO SU GENOVA ALLA 8^ ESTRAZIONE MENSILE - COLPI 7",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim ambo3(2)

im ambo4(2)

im ambo5(5) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
ruote(1) = 4
klp = 7
ini = 8670
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 8 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO VIVO X AMBATA E AMBO SU GENOVA ALLA 8^ ESTRAZIONE MENSILE - COLPI 7",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,TO_,5) + 09)
ImpostaGiocata 1,ambata,ruote,poste,klp,7
ambo1(1) = Fuori90(Estratto(es,TO_,5) + 09)
ambo1(2) = Fuori90(Estratto(es,TO_,5) + 53)
ImpostaGiocata 2,ambo1,ruote,posta,klp,7
ambo2(1) = Fuori90(Estratto(es,TO_,5) + 09)
ambo2(2) = Fuori90(Estratto(es,VE_,5) + 16)
ImpostaGiocata 3,ambo2,ruote,posta,klp,7
ambo3(1) = Fuori90(Estratto(es,TO_,5) + 09)
ambo3(2) = Fuori90(Estratto(es,MI_,5) + 55)
ImpostaGiocata 4,ambo3,ruote,posta,klp,7
ambo4(1) = Fuori90(Estratto(es,TO_,5) + 09)
ambo4(2) = Fuori90(Estratto(es,RO_,5) + 42)
ImpostaGiocata 5,ambo4,ruote,posta,klp,7
ambo5(1) = Fuori90(Estratto(es,TO_,5) + 09)
ambo5(2) = Fuori90(Estratto(es,TO_,5) + 53)
ambo5(3) = Fuori90(Estratto(es,VE_,5) + 16)
ambo5(4) = Fuori90(Estratto(es,MI_,5) + 55)
ambo5(5) = Fuori90(Estratto(es,RO_,5) + 42)
ImpostaGiocata 6,ambo5 ,ruote,posta,klp,7
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub