Sub Main()
Dim posta(5),poste(5),postee(5),posteee(5)
Dim ruota(5),ruote(5)
Dim n(1),n1(2),n2(2),n3(2)
Dim x
posta(1) = 1
poste(2) = 1
cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",4))
k = CInt(InputBox(" Colpi di Gioco"," ",10))
For Es = EstrazioneFin - 160 To EstrazioneFin
If(Sabato(Es)And cp = 4)Then
For x = 1 To 1
n(x) = 0
Next
For x = 1 To 1
n1(x) = 0
Next
For x = 1 To 1
n2(x) = 0
Next
For x = 1 To 1
n3(x) = 0
Next
Scrivi
Scrivi DataEstrazione(Es),1
co = 0
ok = 0
If(Sabato(Es)And cp = 4)Then
n(1) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,1,4) + 38)
n1(1) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,1,4) + 38)
n1(2) = Fuori90(90 +(Estratto(es,2,1)) - Estratto(es,6,2) + 3)
n2(1) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,1,4) + 38)
n2(2) = Fuori90(90 +(Estratto(es,3,4)) - Estratto(es,4,2) + 45)
n3(1) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,1,4) + 38)
n3(2) = Fuori90(Estratto(es,2,5) - Estratto(es,10,1) + 69)
ok = 1
End If
ruote(1) = 8
ruote(2) = 10
If co = co + 1 Then
End If
co = co + 1
ColoreTesto 1
Scrivi String(110,"°") & " Caso n°" & co,1
ImpostaGiocata 1,n,ruote,posta,k
ImpostaGiocata 2,n1,ruote,poste,k
ImpostaGiocata 3,n2,ruote,poste,k
ImpostaGiocata 4,n3,ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto,0
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function