Salve a voi tutti,io ho questo listato:
Sub main()
Dim rt(3),pt(2)
Dim n1(2),n2(2),n3(3),n4(4)
pt(2)=1
clp=9 'colpi di gioco
rt(1)=6 'ruota di gioco
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1a estrazione del mese
Scrivi String (60,"=")
co=co+1
a=Estratto (es,1,5)
'------------------------------1^ Ambo
n1(1)=Fuori90 (a+9)
n1(2)=44
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+9)
n2(2)=67
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+9)
n3(2)=1
'------------------------------ Intera lunghetta
n4(1)=Fuori90 (a+9)
n4(2)=44
n4(3)=67
n4(4)=1
ImpostaGiocata 1,n1,rt,pt,clp,2
ImpostaGiocata 2,n2,rt,pt,clp,2
ImpostaGiocata 3,n3,rt,pt,clp,2
ImpostaGiocata 4,n4,rt,pt,clp,3
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
mi occorrerebbe,gentilmente,di aggiungere la sorte di ambata,non riesco proprio...grazie
Edited by livio69 - 5/11/2009, 22:19
-
-
