DALLE RICERCHE FATTE DA ME IL MIGLIORE CHE DA RISULTATI MIGLIORI E QUESTO SE QUALCUNO TROVA DI MEGLIO E BEN FATTO. BUONA FORTUNA A TUTTI
'Calcolo su Bari ideato da carlo58
viewtopic.php?f=10&t=4692Sub Main()
Dim Inizio,Ini,Caso,R,p,K,i,j,t
Dim ruota(12),posta(4),n(5),fi(5),nr1(5)
posta(3) = 1:posta(4) = 1
Inizio = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",1500))
K = CInt(InputBox("Quanti colpi vuoi controllare?",,13))
Ini = EstrazioneFin - Inizio
Caso = 0
For es = Ini To EstrazioneFin
If IndiceMensile(es) = 11 Then
R = 12
For p = 1 To 5
n(p) = Estratto(es,R,p)
fi(p) = Figura(n(p))
Next
t = 0
For i = 1 To 4:j = i + 1
t = t + 1
nr1(t) = Fuori90(fi(i) & fi(j))
Next
Caso = Caso + 1
ruota(1) = BA_: ruota(2) = NZ_:ruota(3) = TU_
Scrivi String(100,"-") & " Caso " & Caso,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(R) & " " & StringaEstratti(es,R),1
Scrivi Space(14) & StringaNumeri(FI)
Scrivi Space(14) & StringaNumeri(nr1)
Scrivi
ImpostaGiocata 1,nr1,ruota,posta,K
Gioca es
End If
Next
ScriviResoconto
End Sub