Sub main()
Dim rt(10),pt(4),n1(5)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
' Giulio
' 1A-BACA
'
https://forum.lottoced.com/threads/1a-estrazione-ba-ca.2229805/
clp=9 'colpi di gioco
rt(1)=1
rt(2)=2
ini=10328 '2/11/2023
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,3,4) + 83
b=Estratto (es,8,1) + 50
c=Estratto (es,2,3) + 39
d=Estratto (es,12,2) + 55
e=Estratto (es,5,2) + 85
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,3,4) + 83
b=Estratto (es,8,1) + 50
c=Estratto (es,3,3) + 87
d=Estratto (es,2,4) + 87
e=Estratto (es,7,1) + 10
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 2,n1,rt,pt,clp
a=Estratto (es,3,4) + 83
b=Estratto (es,8,1) + 50
c=Estratto (es,12,4) + 11
d=Estratto (es,7,2) + 31
e=Estratto (es,3,2) + 32
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 3,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
