CODICE
Sub Main()
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(5)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 5 And b = 85 Or a = 85 And b = 5 Then
ok = 1
If ok = 1 Then
n1(1) = 4
n2(1) = 4
n2(2) = 43
n3(1) = 4
n3(2) = 11
n4(1) = 4
n4(2) = 14
n5(1) = 4
n5(2) = 40
n6(1) = 49
n6(2) = 11
n6(3) = 14
n6(4) = 40
n6(5) = 43
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
