' x Y10 - Ricerca in stessa estrazione di ambo isotopo con somma uguale e somme verticali in terzina simmetrica con spacco a scelta " (scritp by claudio8)"
Sub Main()
Dim nu1(2),nu2(6),num1(2),num2(2),num3(2),ruote(3),ruota(1),posta(1),poste(2),post(5)
posta(1) = 5 ' posta per ambata
poste(2) = 1
post(2) = 3
post(3) = 3
post(4) = 3
post(5) = 3
Dim spacchi,ambata
'..............................
ce = InputBox("Quante estrazione vuoi controllare? ","estrazione",225) '225 inizio estrazione di esempio
k = InputBox("per quanti colpi?","Colpi di gioco",10)
spacchi = InputBox("Quanti spacchi? 0, 1, 2, 3 ","Spacchi tra numeri",0) 'distanza di posizione tra numeri es: spacco 0= uniti
vistaEstrazioni = InputBox("Vuoi vedere in output le estrazioni dei colpi di gioco? 1 = SI ... 0= NO ","Estrazioni in output ",1)
ini = EstrazioneFin - ce
fin = EstrazioneFin
ColoreTesto 2
If spacchi = 1 Then
Scrivi "Ambo isotopo nella stessa estrazione su 2 ruote con " & spacchi & " spacco e somma verticale estratti in terzina - (scritp by claudio8)",1
Scrivi "Un grazie ad Ally, Fabarri e Manara - by claudio8 e Y10 ",1
Else
Scrivi "Ambo isotopo nella stessa estrazione su 2 ruote con " & spacchi & " spacchi e somma verticale estratti in terzina - (scritp by claudio8)",1
Scrivi "Un grazie ad Ally, Fabarri e Manara - by claudio8 e Y10 ",1
End If
ColoreTesto 0
Scrivi String(85,"="),1
Scrivi "Ricerca dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin) & " ( " &(fin - ini) & " estrazioni) con esiti in " & k & " colpi. ",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)
If Fuori90(a + b) = Fuori90(c + d) And(Fuori90(a + c) = Fuori90(b + d + 30)Or Fuori90(a + c) = Fuori90(b + d + 60)) Then
casi = casi + 1
ambata = 90 - Fuori90(a + b)
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 somm vert = [ " & Format2(Fuori90(a + c)) & " ] 2a somm vert = [ " & Format2(Fuori90(b + d)) & " ] "
Scrivi " " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " | " & Format2(c) & "." & Format2(d) & " | 1a somm oriz = [ " & _
Format2(Fuori90(a + b)) & " ] 2a somm oriz = [ " & Format2(Fuori90(c + d)) & " ] ambata = " & ambata
Scrivi String(80,"."),1
If vistaEstrazioni =1 Then
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
End If
'''''Iserire algoritmo di ricerca esiti
'RO 81a e 57b=48
'PA 72c e 66d=48
'------------
' 63 e 33
'abbiamo rispettato la condizione. Ora dobbiamo trovare i due restanti numeri che sommati diano il numero 3(mancante della terzna)
'quindi
'81-57=24 57-24= 33 Primo abbinamento
'72-66=6 66- 6= 60 secondo abbinamento
'60+33=3 (calcolo esatto)
x = Fuori90(90 + a - b)
y = Fuori90(90 + b - x) ''=33 'Primo abbinamento
z = Fuori90(90 + c - d)
w = Fuori90(90 + d - z) ''=60 'secondo abbinamento
'per ottenere l'ambata faremo 90-48= 42 estratto e capogioco
'
'quindi la previsione era
'ROMA TORINO 42 Estratto
'42-33 42-60 ambi secchi
'42-48-72
ruote(1) = r1
ruote(2) = r2
'ruota(1) = 11
co = 0
nu1(1) = ambata
'''''nu1(2) =
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k',1 ' estratto
''''''''''Gioca es,True,,2
co = co + 1
nu2(1) = ambata
nu2(2) = y
ImpostaGiocata co,nu2,ruote,poste,k',2 '1° ambo
''''''''''Gioca es,True,,2
co = co + 1
nu2(1) = ambata
nu2(2) = w
ImpostaGiocata co,nu2,ruote,poste,k',2
' co = co + 1
' ImpostaGiocata co,nu1,ruota,post,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
