B
Blackmore
Guest
Codice:
Sub Main()
TestoInBandaPassante " ********** PER - EDESIMONE - BY - BLACKMORE ********** ",1,4,1
ColoreTesto 1
Scrivi"°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°",1
Scrivi"°°°°°°°°°° M E T O D I - B Y - B L A C K M O R E °°°°°°°°°°°°",1
Scrivi" 1 AMBATA DETERMINATA IN 1° E 2° POSIZIONE SU TUTTE LE RUOTE ",1
Scrivi"°°° INIZIO RICERCA: 04/01/1930 - FINE RICERCA: 29/11/2011 °°°",1
Scrivi"°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°",1
ColoreTesto 0
Dim ruota(1),amb(1),nu3(1),pta(10),r(1),rt(1)
pta(6) = 2
pta(7) = 2
k = 6
ini = EstrazioneFin - 5386
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
rt(1) = 11
r(1) = 10
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,10,p)
b = Estratto(es,10,p1)
ok = 0
'---------------------------------------------
If a = 01 And b = 54 Or a = 54 And b = 01 Then
amb(1) = Fuori90(Estratto(es,10,5) + 15)
ok = 1
End If
If a = 01 And b = 54 Or a = 54 And b = 01 Then
amb(1) = Fuori90(Estratto(es,10,5) + 15)
ok = 1
End If
If a = 01 And b = 08 Or a = 08 And b = 01 Then
amb(1) = Fuori90(Estratto(es,10,3) + 47)
ok = 1
End If
If a = 26 And b = 89 Or a = 89 And b = 26 Then
amb(1) = Fuori90(Estratto(es,10,1) + 54)
ok = 1
End If
If a = 75 And b = 80 Or a = 80 And b = 75 Then
amb(1) = Fuori90(Estratto(es,10,4) + 58)
ok = 1
End If
If a = 36 And b = 44 Or a = 44 And b = 36 Then
amb(1) = Fuori90(Estratto(es,10,5) + 48)
ok = 1
End If
If a = 04 And b = 90 Or a = 90 And b = 04 Then
amb(1) = Fuori90(Estratto(es,10,1) + 41)
ok = 1
End If
If a = 67 And b = 85 Or a = 85 And b = 67 Then
amb(1) = Fuori90(Estratto(es,10,3) + 42)
ok = 1
End If
If a = 26 And b = 80 Or a = 80 And b = 26 Then
amb(1) = Fuori90(Estratto(es,10,1) + 56)
ok = 1
End If
If a = 01 And b = 10 Or a = 10 And b = 01 Then
amb(1) = Fuori90(Estratto(es,10,2) + 19)
ok = 1
End If
If a = 33 And b = 67 Or a = 67 And b = 33 Then
amb(1) = Fuori90(Estratto(es,10,3) + 82)
ok = 1
End If
If a = 11 And b = 90 Or a = 90 And b = 11 Then
amb(1) = Fuori90(Estratto(es,10,3) + 34)
ok = 1
End If
If a = 32 And b = 63 Or a = 63 And b = 32 Then
amb(1) = Fuori90(Estratto(es,10,2) + 28)
ok = 1
End If
If a = 20 And b = 87 Or a = 87 And b = 20 Then
amb(1) = Fuori90(Estratto(es,10,1) + 56)
ok = 1
End If
If a = 60 And b = 80 Or a = 80 And b = 60 Then
amb(1) = Fuori90(Estratto(es,10,4) + 82)
ok = 1
End If
If a = 17 And b = 59 Or a = 59 And b = 17 Then
amb(1) = Fuori90(Estratto(es,10,5) + 62)
ok = 1
End If
If a = 12 And b = 55 Or a = 55 And b = 12 Then
amb(1) = Fuori90(Estratto(es,10,3) + 61)
ok = 1
End If
If a = 01 And b = 46 Or a = 46 And b = 01 Then
amb(1) = Fuori90(Estratto(es,10,1) + 37)
ok = 1
End If
If a = 66 And b = 70 Or a = 70 And b = 66 Then
amb(1) = Fuori90(Estratto(es,10,2) + 46)
ok = 1
End If
If a = 38 And b = 81 Or a = 81 And b = 38 Then
amb(1) = Fuori90(Estratto(es,10,5) + 14)
ok = 1
End If
If a = 52 And b = 67 Or a = 67 And b = 52 Then
amb(1) = Fuori90(Estratto(es,10,1) + 25)
ok = 1
End If
If a = 44 And b = 84 Or a = 84 And b = 44 Then
amb(1) = Fuori90(Estratto(es,10,4) + 56)
ok = 1
End If
If a = 12 And b = 60 Or a = 60 And b = 12 Then
amb(1) = Fuori90(Estratto(es,10,3) + 56)
ok = 1
End If
If a = 76 And b = 88 Or a = 88 And b = 76 Then
amb(1) = Fuori90(Estratto(es,10,1) + 26)
ok = 1
End If
If a = 41 And b = 44 Or a = 44 And b = 41 Then
amb(1) = Fuori90(Estratto(es,10,2) + 39)
ok = 1
End If
If a = 04 And b = 53 Or a = 53 And b = 04 Then
amb(1) = Fuori90(Estratto(es,10,5) + 22)
ok = 1
End If
If a = 87 And b = 90 Or a = 90 And b = 87 Then
amb(1) = Fuori90(Estratto(es,10,2) + 37)
ok = 1
End If
If a = 13 And b = 88 Or a = 88 And b = 13 Then
amb(1) = Fuori90(Estratto(es,10,3) + 29)
ok = 1
End If
If a = 17 And b = 38 Or a = 38 And b = 17 Then
amb(1) = Fuori90(Estratto(es,10,5) + 41)
ok = 1
End If
If a = 26 And b = 60 Or a = 60 And b = 26 Then
amb(1) = Fuori90(Estratto(es,10,1) + 63)
ok = 1
End If
If a = 02 And b = 55 Or a = 55 And b = 02 Then
amb(1) = Fuori90(Estratto(es,10,3) + 44)
ok = 1
End If
If a = 49 And b = 65 Or a = 65 And b = 49 Then
amb(1) = Fuori90(Estratto(es,10,4) + 18)
ok = 1
End If
If a = 14 And b = 83 Or a = 83 And b = 14 Then
amb(1) = Fuori90(Estratto(es,10,5) + 77)
ok = 1
End If
If a = 34 And b = 69 Or a = 69 And b = 34 Then
amb(1) = Fuori90(Estratto(es,10,3) + 13)
ok = 1
End If
If a = 30 And b = 85 Or a = 85 And b = 30 Then
amb(1) = Fuori90(Estratto(es,10,3) + 39)
ok = 1
End If
If a = 45 And b = 76 Or a = 76 And b = 45 Then
amb(1) = Fuori90(Estratto(es,10,2) + 31)
ok = 1
End If
If a = 33 And b = 73 Or a = 73 And b = 33 Then
amb(1) = Fuori90(Estratto(es,10,3) + 28)
ok = 1
End If
If a = 42 And b = 90 Or a = 90 And b = 42 Then
amb(1) = Fuori90(Estratto(es,10,1) + 72)
ok = 1
End If
If a = 27 And b = 62 Or a = 62 And b = 27 Then
amb(1) = Fuori90(Estratto(es,10,3) + 62)
ok = 1
End If
If a = 16 And b = 53 Or a = 53 And b = 16 Then
amb(1) = Fuori90(Estratto(es,10,2) + 13)
ok = 1
End If
If a = 18 And b = 82 Or a = 82 And b = 18 Then
amb(1) = Fuori90(Estratto(es,10,5) + 19)
ok = 1
End If
If a = 27 And b = 87 Or a = 87 And b = 27 Then
amb(1) = Fuori90(Estratto(es,10,4) + 67)
ok = 1
End If
If a = 65 And b = 76 Or a = 76 And b = 65 Then
amb(1) = Fuori90(Estratto(es,10,5) + 59)
ok = 1
End If
If a = 36 And b = 61 Or a = 61 And b = 36 Then
amb(1) = Fuori90(Estratto(es,10,4) + 54)
ok = 1
End If
If a = 22 And b = 75 Or a = 75 And b = 22 Then
amb(1) = Fuori90(Estratto(es,10,1) + 52)
ok = 1
End If
'----------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 0
Scrivi String(64,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " * " & NomeRuota(10) & " * " & StringaEstratti(es,10) & " * AMBO SPIA * " & a & "." & b,1
ColoreTesto 0
Scrivi String(64,"*"),1
ruota(1) = 1
cg = 0
ColoreTesto 0
nu3(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,nu3,rt,pta,k,EDET1,EDET2,1
Gioca es
End If
Next
Next
Next':Next
ScriviResoconto
End Sub
