Option Explicit
Sub Main
Dim Ini,Fin,idEstr,qEstr,nCasi
Dim R,p,E,K
Dim E1,E2
Dim Num(2),aRuota(1),posta(1)
qEstr=CInt(InputBox("Quante estrazioni vuoi esaminare?","Numero Estrazioni Esaminate",100))
K=CInt(InputBox("Quante Colpi di verifica vuoi esaminare?","Numero Colpi Esaminati",9))
Ini = EstrazioneFin - qEstr
Fin = EstrazioneFin
posta(1) = 1
nCasi = 0
For idEstr = Ini To Fin
Call Messaggio("Estrazione : " & GetInfoEstrazione(idEstr))
Call AvanzamentoElab(Ini,Fin,idEstr)
For R = 1 To 12
Call Iif(R = 11,R = 12,R = R)
If Cadenza(Estratto(idEstr,R,5)) = 9 Then
nCasi = nCasi + 1
Scrivi GetInfoEstrazione(idEstr) & " - Ruota di rilevamento :" & NomeRuota(R) & " - " & StringaEstratti(idEstr,R),True
E1 = Estratto(idEstr,R,3)
E2 = Vert(E1)
Num(1) = E1
Num(2) = E2
aRuota(1) = R
ImpostaGiocata 1,Num,aRuota,posta,K
Gioca idEstr
End If
Next
Next
Call ScriviResoconto
End Sub