DAL 19/02/19--02/03/19 GENOVA 38 - 6° colpo

Sub Main()
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(2)
Dim n7(2)
Dim n8(10)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",250)
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 = 90 And b = 90 Or a = 90 And b = 90 Then
ok = 1
If ok = 1 Then
n1(1) = 10
n2(1) = 10
n2(2) = 11
n3(1) = 10
n3(2) = 12
n4(1) = 10
n4(2) = 15
n5(1) = 10
n5(2) = 23
n6(1) = 10
n6(2) = 32
n7(1) = 10
n7(2) = 38
n8(1) = 11
n8(2) = 12
n8(3) = 15
n8(4) = 23
n8(5) = 32
n8(6) = 38

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
ImpostaGiocata 7,n7,ruote,poste,k,2
ImpostaGiocata 8,n8,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