CODICE
Sub Main()
Dim ruote(2),num1(2),num2(4),num3(4),posta(3),poste(5)
posta(1) = 5
posta(2) = 0
poste(2) = 1.5
poste(3) = 0.5
ce = InputBox(" estrazione vuoi controllare? ","estrazione",50)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
If p1 = 2 Or p1 = 3 Or p1 = 4 Then
For r2 = r1 + 1 To 10
If r2 = 11 Then r2 = 12 End If
For p2 = 1 To 5
If p2 = 2 Or p2 = 3 Or p2 = 4 Then
b = Estratto(es,r2,p2)
If p1 = p2 Then
If Abs(a - b) = 18 Then
If(r1) = RuotaDiametrale(r2)Or(r1) = RuotaGemella(r2) Then
casi = casi + 1
Scrivi String(50,"=") & " by Pink Panther",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."
Scrivi String(60,"-") & " caso n°" & casi
ruote(1) = r1
ruote(2) = r2
n1 = 19
n2 = 64
n3 = Fuori90(b + 18)
n4 = Abs(a - 18)
n5 = Diametrale(n3)
n6 = Diametrale(n4)
num1(1) = n1
num1(2) = n2
ImpostaGiocata 1,num1,ruote,posta,k,1
num2(1) = n1
num2(2) = n2
num2(3) = n3
ImpostaGiocata 2,num2,ruote,poste,k,2
num2(1) = n1
num2(2) = n2
num2(3) = n4
ImpostaGiocata 3,num2,ruote,poste,k,2
num2(1) = n1
num2(2) = n2
num2(3) = n5
ImpostaGiocata 4,num2,ruote,poste,k,2
num2(1) = n1
num2(2) = n2
num2(3) = n6
ImpostaGiocata 5,num2,ruote,poste,k,2
num3(1) = n3
num3(2) = n4
num3(3) = n5
num3(4) = n6
ImpostaGiocata 6,num3,ruote,poste,k,2
Gioca es
End If
End If
End If
End If
Next
Next
End If
Next
Next
Next
ScriviResoconto
Scrivi String(45,32) & "Listato by Pink Panter",1
ColoreTesto 0
End Sub