Ecco lo script per i partecipanti dell' omonimo topic in metodi.
Codice:
' Metodo proposto da Guerryno74- script Cinzia27
'un ambata e 3 ambi secchi da giocare su palermo x 9 colpi...
'1a estrazione del Mese
'ambata: 5° di ba + 12
'numeri fissi da abbinare per ambo: 67-17-82
Sub main()
Dim n(1),n1(2),n2(2),n3(2),ru(1),ps(1),ps1(2)
r=7
ru(1)=r
ps(1)=1
ps1(2)=1
For es=1 To EstrazioneFin
If Estratto(es,1,1)>0 Then
If Estratto(es,9,1)>0 Then
If Indicemensile(es)=1 Then
n(1)=Fuori90(Estratto(es,1,5)+12)
n1(1)=n(1)
n1(2)=67
n2(1)=n(1)
n2(2)=17
n3(1)=n(1)
n3(2)=82
ImpostaGiocata 1,n,ru,ps,9,1
ImpostaGiocata 2,n1,ru,ps1,9,2
ImpostaGiocata 3,n2,ru,ps1,9,2
ImpostaGiocata 4,n3,ru,ps1,9,2
Gioca es
End If
End If
End If
Next
ScriviResoconto
End Sub
