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 9
For p1 = 1 To 5
a = Estratto(es,r1,p1)
For r2 = r1+1 To 10
For p2 = 1 To 5
If p2 = p1 Then
b = Estratto(es,r2,p2):Ds=Distanza(a,b)
If ds=18 Then
If r1=DiametraleD(r2)Or r1=11-r2 Or r1=5 And r2=10 Or r1=10 And r2=5 Then
casi = casi + 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. "&(ds) & "^ Distanza."
Scrivi String(60,"-") & " caso n°" & casi
ruote(1) = r1
ruote(2) = r2
If a<b Then n1=Fuori90(a+10)
If a>b Then n1=Fuori90(b+10)
n2 = Diametrale(n1)
n3 = Fuori90(b + 18)
n4 = Fuori90(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
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi String(45,32) & "Listato by Pink Panter corretto da drago2940",1
ColoreTesto 0
End Sub
