'Alla ricerca del numero perduto By BubùLotto
ColoreTesto 1
Scrivi String(17,32) & " vers,3 14-01-13 ",1
Scrivi
Scrivi String(48,32) & "Listato BubùLotto",1
ColoreTesto 0
Sub Main()
Dim am(2),ambi(5),ci(5),nn(3),ru(10),ruo(10),pos1(10),pos2(10),pos3(10)
'pos1(10)=1:
pos2(2) = 1:pos2(3) = 1 :pos3(2) = 1.80:pos3(3) = 1.00:pos3(4) = 0.20
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
k = CInt(InputBox("Quanti colpi di GIOCO?","colpi di GIOCO",13))
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin:Messaggio(es)
For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(2) = r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p1)
c = Estratto(es,r1,p2)
If r <> r1 Then
cad1 = Cadenza(a):cad2 = Cadenza(b):cad3 = Cadenza(c)
dis1 = Distanza(a,b):dis2 = Distanza(b,c)
If a <> b And a <> c Then
If cad1 = cad2 And cad2 = cad3 Then
x = Fuori90(c + dis1) :x1 = Fuori90(90 + c - dis1)
dis4 = Distanza(c,x):dis41 = Distanza(c,x1)
If dis4 = dis1 And Distanza(a,x) = Distanza(b,c) Then y = x
If dis41 = dis1 And Distanza(a,x1) = Distanza(b,c) Then y = x1
For r1r = 1 To 11
If r1r = 11 Then r1r = 12
ru(3) = r1r
For p1p = 1 To 5
a1a = Estratto(es,r1r,p1p)
For r1r1 = 1 To 11
If r1r1 = 11 Then r1r1 = 12
ru(4) = r1r1
For p1p1 = 1 To 4
For p1p2 = p1p1 + 1 To 5
b1b = Estratto(es,r1r1,p1p1)
c1c = Estratto(es,r1r1,p1p2)
ruo(1) = r1
ruo(2) = r1r
ruo(3) = 11
If r <> r1 And r1r <> r1r1 And((r = r1r And r1 = r1r1)Or(r = r1r1 And r1 = r1r))Then
c1cad1 = Cadenza(a1a):c1cad2 = Cadenza(b1b):c1cad3 = Cadenza(c1c)
d1dis1 = Distanza(a1a,b1b):d1dis2 = Distanza(b1b,c1c)
If a1a <> b1b And a1a <> c1c And a <> c1c And a <> b1b And a <> a1a _
And b <> c1c And b <> b1b And b <> a1a And c > c1c And c <> b1b And c <> a1a Then
If c1cad1 = c1cad2 And c1cad2 = c1cad3 Then
x1x = Fuori90(c1c + d1dis1) :x1x1 = Fuori90(90 + c1c - d1dis1)
d1dis4 = Distanza(c1c,x1x):d1dis41 = Distanza(c1c,x1x1)
If d1dis4 = d1dis1 And Distanza(a1a,x1x) = Distanza(b1b,c1c) Then y1y = x1x
If d1dis41 = d1dis1 And Distanza(a1a,x1x1) = Distanza(b1b,c1c) Then y1y = x1x1
abb1 = Fuori90(y + 30) '35
If abb1 = a Or abb1 = b Or abb1 = c Then abb1 = 0
abb2 = Fuori90(y + 60) '65
If abb2 = a Or abb2 = b Or abb2 = c Then abb2 = 0
abb3 = Fuori90(y1y + 30) '66
If abb3 = a1a Or abb3 = b1b Or abb3 = c1c Then abb3 = 0
abb4 = Fuori90(y1y + 60)'6
If abb4 = a1a Or abb4 = b1b Or abb4 = c1c Then abb4 = 0
abb5 = 90
casi = casi + 1
Scrivi String(65,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] ",1
Scrivi
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi" " & Format2(a) & " (" & Format2(y) & ")",1
Scrivi" Distanza (" & Format2(dis1) & ") (" & Format2(dis1) & ") Distanza ",1
Scrivi" " & Format2(b) & " " & Format2(c),1
Scrivi" Distanza (" & Format2(dis2) & ") ",1
Scrivi
Scrivi"*************************************************"
Scrivi
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi" " & Format2(a1a) & " (" & Format2(y1y) & ")",1
Scrivi" Distanza (" & Format2(d1dis1) & ") (" & Format2(d1dis1) & ") Distanza ",1
Scrivi" " & Format2(b1b) & " " & Format2(c1c),1
Scrivi" Distanza (" & Format2(d1dis2) & ") ",1
Scrivi
ColoreTesto 0
co = 0
pos1(1) = 1
am(1) = y '36
am(2) = y1y '8
co = co + 1
ImpostaGiocata co,am,ru,pos1,k,1
ambi(1) = am(1) '36
ambi(2) = am(2) '5
ambi(3) = abb5 '90
ambi(4) = abb5
ambi(5) = abb5
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ru,pos2,k,3
ambi(1) = abb2 '6
ambi(2) = abb1 '66
ambi(3) = abb3 '35
ambi(4) = am(2) '5
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb5 '90
ambi(2) = am(1) '36
ambi(3) = am(2) '05
ambi(4) = abb3 '66
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
ambi(1) = abb2 '06
ambi(2) = abb1 '66
ambi(3) = am(1) '36
ambi(4) = abb5 '90
ambi(5) = abb4 '65
EliminaRipetuti ambi
co = co + 1
ImpostaGiocata co,ambi,ruo,pos3,k,3
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub