Sub Main()
'cerca numero isotopo su 2 ruote
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(6)
Dim ruote(2)
Dim posta(5)
Dim poste(5)
posta(1) = 1
poste(2) = 2
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",10))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For es = ini To EstrazioneFin
Messaggio(es)
For r1 = 1 To 9
r2 = r1 + 1
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r2,p1)
If(n1) =(n2) Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'--------- Calcolo Numeri ma mettere in gioco-------------
k(1) = Fuori90(Estratto(es,r1,p1) + Estratto(es,r2,p1))
k(2) = Vert(k(1))
k(3) = ComplAdX(n1,90)
k(4) = Diametrale(n1)
k(5) = DiametraleD(n1)
k(6) = Vert(n1)
'EliminaRipetuti(k)
'---------------------------------------------------------
Scrivi String(70,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
Scrivi String(95,"-") & " Caso n° " & co
ColoreTesto 7
Scrivi"Somma estratti isotopi = " & k(1),1
Scrivi"Vertibile della somma = " & k(2),1
Scrivi"Completamento a 90 numero iso = " & k(3),1
Scrivi"Diametrale 45 numero iso = " & k(4),1
Scrivi"Diametrale in decina num iso = " & k(5),1
Scrivi"Vertibile num iso = " & k(6),1
Scrivi String(70,"-")
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,1
Gioca es
End If
'Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub