Sub Main()
Dim nu1(2),nu2(6),num1(2),num2(2),num3(2),ruote(2),ruota(1),posta(1),poste(2),post(5)
posta(1) = 5
poste(2) = 3
post(2) = 3
post(3) = 3
post(4) = 3
post(5) = 3
ce = InputBox("Quente estrazione vuoi controllare? ","estrazione",400)
k = InputBox("per quanti colpi?","colpi di gioco",10)
spacchi = InputBox("Quanti spacchi? 0, 1, 2, 3 ","Distanza posizione tra numeri",0)
iso = InputBox("Isotopo ? 1 = si .. 0 = no (incrociato) ","Isotopo o incrociato",1)
ini = EstrazioneFin - ce
fin = EstrazioneFin
ColoreTesto 2
Scrivi "Ambo isotopo nella stessa estrazione su 2 ruote con " & spacchi & " spacchi - (scritp by claudio8)",1
ColoreTesto 0
Scrivi String(85,"="),1
Scrivi "Ricerca dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin) & " ( " &(fin - ini) & " estrazioni.)",1
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To(5 -(spacchi + 1))
p2 = p1 +(spacchi + 1)
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
p3 = p1
p4 = p2
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
' per l'incrocio invertire nel codice seguent "if....... "
'If iso = 0 Then
If a = c And b = d Then 'isotopo
'Else
'If a = d And b = c Then 'Incrociato
'End If
casi = casi + 1
ColoreTesto 1
Scrivi String(94,"-") & " caso n° " & casi
ColoreTesto 0
Scrivi DataEstrazione(es) & " " &(p1) & "° e " &(p2) & "° estr. " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " | " & Format2(a) & _
"." & Format2(b) & " | 1a som.vert = [ " & Format2(Fuori90(a + c)) & " ] 2a som.vert = [ " & Format2(Fuori90(b + d)) & " ] "
Scrivi " " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " | " & Format2(c) & "." & Format2(d) & " | somma oriz. = [ " & _
Format2(Fuori90(a + b)) & " ] somma tot. = [ " & Format2(Fuori90(a + b + c + d)) & " ] "
Scrivi String(80,"."),1
For z = - 1 To 0
Scrivi DataEstrazione(es + z) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & " " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2)
Next
Scrivi String(80,"."),1
For z = 1 To k
Scrivi DataEstrazione(es + z) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & " " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2)
Next
'''''Iserire algoritmo di ricerca esiti
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = 0
nu1(1) = Fuori90(a + d)'61 vecchia previsione ' a ' per previsione ad 1 spacco
'nu1(2) = a
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k',1
''''''''''Gioca es,True,,2
co = co + 1
nu2(1) = DiametraleD(Fuori90(b + c)) 'b
nu2(2) = Diametrale(Fuori90(b + c))
'nu2(3) =DiametraleD( Estratto(es-1,r2,3))
ImpostaGiocata co,nu2,ruote,poste,k,2
'Gioca es,True,,2
co = co + 1
nu2(1) = b
'nu2(2) =DiametraleD( Estratto(es-1,r1,3))
nu2(2) = DiametraleD(Estratto(es - 1,r2,3))
ImpostaGiocata co,nu2,ruote,poste,k,2
' co = co + 1
' ImpostaGiocata co,nu1,ruota,poste,k 'tutte
' nu2(1) = no1
' nu2(2) = no2
' nu2(3) = n9
' nu2(4) = n10
' nu2(5) = n11
' nu2(6) = n12
' co = co + 1
' ImpostaGiocata co,nu2,ruote,post,k
Gioca es,True,,2
End If
Next
Next
Next
Next
ColoreTesto 1
Scrivi String(88,"_ ") & " totale casi " & casi,1
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub
