Option Explicit
Sub Main()
' da 1° metodo sul forum
Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,f,g,h
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim n(1)
Dim n1(5)
posta(1) = 1
poste(2) = 1
ruota(1) = r
ruote(1) = r1
r = 7
r1 = 11
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
If IndiceMensile(es) = 2 Then
ruota(1) = r
ruote(1) = r1
a = Estratto(es,r,5)
b = Estratto(es,5,2)
c = Estratto(es,1,3)
d = Estratto(es,6,3)
e = Estratto(es,8,5)
f = Estratto(es,10,2)
g = Estratto(es,9,3)
h = Estratto(es,10,3)
'---------------------
n(1) = Fuori90(a + 78)
n1(1) = n(1)
n1(2) = Fuori90(b + 71)
n1(3) = Fuori90(c + d)
n1(4) = Differenza(e,f)
n1(5) = Fuori90(g * h)
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp,1
ImpostaGiocata 2,n1,ruota,poste,Clp
ImpostaGiocata 3,n1,ruote,poste,Clp,2
Gioca es,1,,1
If ScriptInterrotto Then Exit For
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
ScriviResoconto
End Sub