Il mio script fa schifo, se qualche buona anima riesce a migliorarlo e adattarlo meglio al metodo, forse riusciamo ad ottenere quello che chiedi.
Meglio di così non riesco...
Sub Main()
ColoreTesto 2
Scrivi
Scrivi " 3° ESTRAZIONE DEL MESE",2,,4,,4
Scrivi
Scrivi
Scrivi
ColoreTesto 0
Dim ruote(12),ruota(5),ruo(5),c1(5),n1(5),n2(5),n3(5),poste(5),posta(5),post(5)
'-------------------------------------
posta(1) = 1
poste(2) = 1
poste(3) = 1
post(2) = 1
post(3) = 1
'------------------------------------
clp = 14
ini = 9500
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 3 Then
'---------------------------------
ruote(1) = 11
ruote(2) = 12
' --------------------------------
ruota(1) = 2
ruota(2) = 10
'---------------------------------
ruo(1) = 10
ruo(2) = 11
'---------------------------------
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"=") & " Caso n° " & casi,1
ColoreTesto 0:Scrivi DataEstrazione(es) & " =>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 2:Scrivi String(100,"=")
ColoreTesto 0
'----------------------------------
c1(1) = Fuori90(Estratto(es,1,1) - Estratto(es,1,3))
c1(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5))
c1(3) = Fuori90(c1(1) + c1(2))
'-----------------------------------
n1(1) = c1(3)
'----------------------------------
n2(1) = c1(1)
n2(2) = c1(2)
'----------------------------------
n3(1) = c1(1)
n3(2) = c1(2)
n3(3) = c1(3)
'----------------------------------
EliminaRipetuti n2
EliminaRipetuti n3
ImpostaGiocata 1,n1,ruota,posta,clp
ImpostaGiocata 2,n2,ruote,poste,clp
ImpostaGiocata 3,n3,ruo,post,clp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(co)
ScriviResoconto
End Sub
