CODICE
Sub Main()
Dim ruote(11)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(6)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",1000)
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
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If p1 = p2 Then
'---------------------------------------------
If a = 81 And b = 81 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
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) = 1
ruote(2) = 2
n1(1) = 40
n2(1) = 40
n2(2) = 13
n3(1) = 40
n3(2) = 14
n4(1) = 40
n4(2) = 34
n5(1) = 40
n5(2) = 84
n6(1) = 10
n6(2) = 20
n6(3) = 31
n6(4) = 68
'n6(5) = 67
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k,1
EliminaRipetuti n2
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
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
