Sub Main()
Scrivi
ColoreTesto 1
Scrivi String(20," ") & "Metodo Ambi Isotopi Stessa Distanza * di Donatella * Listato By Blackmore",1
ColoreTesto 0
Scrivi
Dim ruote(10),ruota(10)
Dim ambata(1)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
co = 0
controllo = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE? ",,500)
k = CInt(InputBox("PER QUANTI COLPI?",,10))
fin = EstrazioneFin
ini = fin - controllo
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
r2 = r1 + 1
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
n5 = distanza(n1,n2)
n6 = distanza(n3,n4)
If n5 = n6 And p1 = p3 And p2 = p4 Then
co = co + 1
casi = casi + 1
ColoreTesto 9
Scrivi String(75,"=") & " caso n° " &(casi),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " | " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" | ambo | " & Format2(n1) & "." & Format2(n2) & " | Distanza ----> " & Format2(n5)
ColoreTesto 1
Scrivi DataEstrazione(es) & " | " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" | ambo | " & Format2(n3) & "." & Format2(n4) & " | Distanza ----> " & Format2(n6)
ColoreTesto 9
Scrivi String(75,"="),1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
ambata(1) = n5
ImpostaGiocata 1,ambata,ruote,posta,k,1
ambo1(1) = n5
ambo1(2) = Fuori90(SommaEstratti(es,r1))
ImpostaGiocata 2,ambo1,ruote,poste,k,2
ambo2(1) = n5
ambo2(2) = Fuori90(SommaEstratti(es,r2))
ImpostaGiocata 3,ambo2,ruote,poste,k,2
ambo3(1) = n5
ambo3(2) = Fuori90(n2+n4)
ImpostaGiocata 4,ambo3,ruote,poste,k,2
Gioca es
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub