B
Blackmore
Guest
Codice:
Sub Main()
TestoInBandaPassante " ***** M E T O D I . S O M M A T I V I . B Y . B L A C K M O R E . List . By . D J . N O M A D E *****",1,1,4
ColoreTesto 1
Scrivi " '''''' U N A - T E R Z I N A - S U - C A G L I A R I ''''''",1
ColoreTesto 1
Scrivi " '' INIZIO RICERCA: 03/01/1970 - FINE RICERCA: 17/05/2011 ''",1
ColoreTesto 1
Scrivi " ''''''''''''' AMBI SCOMPENSATI ANALIZZATI: 90 '''''''''''''",1
ColoreTesto 0
Dim ruota(1),amb(3),nu3(3),poste(3),r(1)
poste(2) = 1.40
poste(3) = 0.10
k = 7
ini = EstrazioneFin - 3298
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
r(1) = 2
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,2,p)
b = Estratto(es,2,p1)
ok = 0
'-----------------------------------------------
If a = 35 And b = 37 Or a = 37 And b = 35 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 09)
amb(2) = Fuori90(Estratto(es,r(1),5) + 25)
amb(3) = Fuori90(Estratto(es,r(1),5) + 74)
ok = 1
End If
If a = 78 And b = 85 Or a = 85 And b = 78 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 04)
amb(2) = Fuori90(Estratto(es,r(1),5) + 31)
amb(3) = Fuori90(Estratto(es,r(1),5) + 44)
ok = 1
End If
If a = 24 And b = 58 Or a = 58 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 05)
amb(2) = Fuori90(Estratto(es,r(1),3) + 12)
amb(3) = Fuori90(Estratto(es,r(1),3) + 44)
ok = 1
End If
If a = 68 And b = 90 Or a = 90 And b = 68 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 11)
amb(2) = Fuori90(Estratto(es,r(1),4) + 63)
amb(3) = Fuori90(Estratto(es,r(1),4) + 85)
ok = 1
End If
If a = 01 And b = 09 Or a = 09 And b = 01 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 04)
amb(2) = Fuori90(Estratto(es,r(1),2) + 07)
amb(3) = Fuori90(Estratto(es,r(1),2) + 57)
ok = 1
End If
If a = 28 And b = 41 Or a = 41 And b = 28 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 09)
amb(2) = Fuori90(Estratto(es,r(1),1) + 27)
amb(3) = Fuori90(Estratto(es,r(1),1) + 53)
ok = 1
End If
If a = 05 And b = 52 Or a = 52 And b = 05 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 29)
amb(2) = Fuori90(Estratto(es,r(1),1) + 51)
amb(3) = Fuori90(Estratto(es,r(1),1) + 74)
ok = 1
End If
If a = 54 And b = 58 Or a = 58 And b = 54 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 08)
amb(2) = Fuori90(Estratto(es,r(1),1) + 59)
amb(3) = Fuori90(Estratto(es,r(1),1) + 86)
ok = 1
End If
If a = 28 And b = 55 Or a = 55 And b = 28 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 16)
amb(2) = Fuori90(Estratto(es,r(1),3) + 49)
amb(3) = Fuori90(Estratto(es,r(1),3) + 65)
ok = 1
End If
If a = 31 And b = 48 Or a = 48 And b = 31 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 13)
amb(2) = Fuori90(Estratto(es,r(1),4) + 69)
amb(3) = Fuori90(Estratto(es,r(1),4) + 84)
ok = 1
End If
If a = 09 And b = 19 Or a = 19 And b = 09 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 14)
amb(2) = Fuori90(Estratto(es,r(1),2) + 35)
amb(3) = Fuori90(Estratto(es,r(1),2) + 47)
ok = 1
End If
If a = 02 And b = 18 Or a = 18 And b = 02 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 10)
amb(2) = Fuori90(Estratto(es,r(1),2) + 14)
amb(3) = Fuori90(Estratto(es,r(1),2) + 76)
ok = 1
End If
If a = 35 And b = 53 Or a = 53 And b = 35 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 07)
amb(2) = Fuori90(Estratto(es,r(1),3) + 38)
amb(3) = Fuori90(Estratto(es,r(1),3) + 45)
ok = 1
End If
If a = 61 And b = 70 Or a = 70 And b = 61 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 13)
amb(2) = Fuori90(Estratto(es,r(1),4) + 59)
amb(3) = Fuori90(Estratto(es,r(1),4) + 76)
ok = 1
End If
If a = 19 And b = 32 Or a = 32 And b = 19 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 36)
amb(2) = Fuori90(Estratto(es,r(1),3) + 56)
amb(3) = Fuori90(Estratto(es,r(1),3) + 74)
ok = 1
End If
If a = 08 And b = 37 Or a = 37 And b = 08 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 03)
amb(2) = Fuori90(Estratto(es,r(1),2) + 36)
amb(3) = Fuori90(Estratto(es,r(1),2) + 47)
ok = 1
End If
If a = 13 And b = 14 Or a = 14 And b = 13 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 10)
amb(2) = Fuori90(Estratto(es,r(1),3) + 31)
amb(3) = Fuori90(Estratto(es,r(1),3) + 69)
ok = 1
End If
If a = 29 And b = 49 Or a = 49 And b = 29 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 08)
amb(2) = Fuori90(Estratto(es,r(1),5) + 15)
amb(3) = Fuori90(Estratto(es,r(1),5) + 50)
ok = 1
End If
If a = 37 And b = 57 Or a = 57 And b = 37 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 40)
amb(2) = Fuori90(Estratto(es,r(1),2) + 57)
amb(3) = Fuori90(Estratto(es,r(1),2) + 72)
ok = 1
End If
If a = 27 And b = 29 Or a = 29 And b = 27 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 07)
amb(2) = Fuori90(Estratto(es,r(1),5) + 56)
amb(3) = Fuori90(Estratto(es,r(1),5) + 67)
ok = 1
End If
If a = 21 And b = 66 Or a = 66 And b = 21 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 14)
amb(2) = Fuori90(Estratto(es,r(1),5) + 30)
amb(3) = Fuori90(Estratto(es,r(1),5) + 84)
ok = 1
End If
If a = 33 And b = 39 Or a = 39 And b = 33 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 25)
amb(2) = Fuori90(Estratto(es,r(1),3) + 47)
amb(3) = Fuori90(Estratto(es,r(1),3) + 61)
ok = 1
End If
If a = 01 And b = 26 Or a = 26 And b = 01 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 12)
amb(2) = Fuori90(Estratto(es,r(1),5) + 16)
amb(3) = Fuori90(Estratto(es,r(1),5) + 85)
ok = 1
End If
If a = 42 And b = 51 Or a = 51 And b = 42 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 42)
amb(2) = Fuori90(Estratto(es,r(1),3) + 63)
amb(3) = Fuori90(Estratto(es,r(1),3) + 75)
ok = 1
End If
If a = 21 And b = 37 Or a = 37 And b = 21 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 04)
amb(2) = Fuori90(Estratto(es,r(1),1) + 25)
amb(3) = Fuori90(Estratto(es,r(1),1) + 63)
ok = 1
End If
If a = 19 And b = 66 Or a = 66 And b = 19 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 10)
amb(2) = Fuori90(Estratto(es,r(1),3) + 36)
amb(3) = Fuori90(Estratto(es,r(1),3) + 83)
ok = 1
End If
If a = 21 And b = 68 Or a = 68 And b = 21 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 17)
amb(2) = Fuori90(Estratto(es,r(1),2) + 29)
amb(3) = Fuori90(Estratto(es,r(1),2) + 61)
ok = 1
End If
If a = 05 And b = 74 Or a = 74 And b = 05 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 05)
amb(2) = Fuori90(Estratto(es,r(1),3) + 16)
amb(3) = Fuori90(Estratto(es,r(1),3) + 45)
ok = 1
End If
If a = 09 And b = 24 Or a = 24 And b = 09 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 60)
amb(2) = Fuori90(Estratto(es,r(1),4) + 66)
amb(3) = Fuori90(Estratto(es,r(1),4) + 70)
ok = 1
End If
If a = 35 And b = 63 Or a = 63 And b = 35 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 30)
amb(2) = Fuori90(Estratto(es,r(1),5) + 53)
amb(3) = Fuori90(Estratto(es,r(1),5) + 59)
ok = 1
End If
If a = 25 And b = 44 Or a = 44 And b = 25 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 03)
amb(2) = Fuori90(Estratto(es,r(1),3) + 49)
amb(3) = Fuori90(Estratto(es,r(1),3) + 61)
ok = 1
End If
If a = 48 And b = 87 Or a = 87 And b = 48 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 07)
amb(2) = Fuori90(Estratto(es,r(1),2) + 29)
amb(3) = Fuori90(Estratto(es,r(1),2) + 46)
ok = 1
End If
If a = 40 And b = 90 Or a = 90 And b = 40 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 18)
amb(2) = Fuori90(Estratto(es,r(1),3) + 22)
amb(3) = Fuori90(Estratto(es,r(1),3) + 87)
ok = 1
End If
If a = 46 And b = 88 Or a = 88 And b = 46 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 13)
amb(2) = Fuori90(Estratto(es,r(1),1) + 48)
amb(3) = Fuori90(Estratto(es,r(1),1) + 81)
ok = 1
End If
If a = 33 And b = 76 Or a = 76 And b = 33 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 13)
amb(2) = Fuori90(Estratto(es,r(1),4) + 73)
amb(3) = Fuori90(Estratto(es,r(1),4) + 77)
ok = 1
End If
If a = 38 And b = 41 Or a = 41 And b = 38 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 13)
amb(2) = Fuori90(Estratto(es,r(1),3) + 18)
amb(3) = Fuori90(Estratto(es,r(1),3) + 47)
ok = 1
End If
If a = 35 And b = 89 Or a = 89 And b = 35 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 21)
amb(2) = Fuori90(Estratto(es,r(1),3) + 43)
amb(3) = Fuori90(Estratto(es,r(1),3) + 67)
ok = 1
End If
If a = 26 And b = 46 Or a = 46 And b = 26 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 22)
amb(2) = Fuori90(Estratto(es,r(1),5) + 71)
amb(3) = Fuori90(Estratto(es,r(1),5) + 88)
ok = 1
End If
If a = 10 And b = 44 Or a = 44 And b = 10 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 35)
amb(2) = Fuori90(Estratto(es,r(1),3) + 53)
amb(3) = Fuori90(Estratto(es,r(1),3) + 63)
ok = 1
End If
If a = 09 And b = 36 Or a = 36 And b = 09 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 12)
amb(2) = Fuori90(Estratto(es,r(1),4) + 42)
amb(3) = Fuori90(Estratto(es,r(1),4) + 65)
ok = 1
End If
If a = 30 And b = 40 Or a = 40 And b = 30 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 27)
amb(2) = Fuori90(Estratto(es,r(1),2) + 41)
amb(3) = Fuori90(Estratto(es,r(1),2) + 89)
ok = 1
End If
If a = 11 And b = 46 Or a = 46 And b = 11 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 28)
amb(2) = Fuori90(Estratto(es,r(1),4) + 41)
amb(3) = Fuori90(Estratto(es,r(1),4) + 83)
ok = 1
End If
If a = 03 And b = 05 Or a = 05 And b = 03 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 08)
amb(2) = Fuori90(Estratto(es,r(1),3) + 15)
amb(3) = Fuori90(Estratto(es,r(1),3) + 84)
ok = 1
End If
If a = 19 And b = 35 Or a = 35 And b = 19 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 14)
amb(2) = Fuori90(Estratto(es,r(1),2) + 22)
amb(3) = Fuori90(Estratto(es,r(1),2) + 43)
ok = 1
End If
If a = 14 And b = 50 Or a = 50 And b = 14 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 20)
amb(2) = Fuori90(Estratto(es,r(1),4) + 40)
amb(3) = Fuori90(Estratto(es,r(1),4) + 67)
ok = 1
End If
If a = 37 And b = 41 Or a = 41 And b = 37 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 15)
amb(2) = Fuori90(Estratto(es,r(1),5) + 30)
amb(3) = Fuori90(Estratto(es,r(1),5) + 82)
ok = 1
End If
If a = 11 And b = 86 Or a = 86 And b = 11 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 17)
amb(2) = Fuori90(Estratto(es,r(1),2) + 24)
amb(3) = Fuori90(Estratto(es,r(1),2) + 68)
ok = 1
End If
If a = 10 And b = 40 Or a = 40 And b = 10 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 07)
amb(2) = Fuori90(Estratto(es,r(1),5) + 43)
amb(3) = Fuori90(Estratto(es,r(1),5) + 79)
ok = 1
End If
If a = 21 And b = 25 Or a = 25 And b = 21 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 06)
amb(2) = Fuori90(Estratto(es,r(1),1) + 58)
amb(3) = Fuori90(Estratto(es,r(1),1) + 86)
ok = 1
End If
If a = 35 And b = 86 Or a = 86 And b = 35 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 06)
amb(2) = Fuori90(Estratto(es,r(1),4) + 56)
amb(3) = Fuori90(Estratto(es,r(1),4) + 67)
ok = 1
End If
If a = 30 And b = 31 Or a = 31 And b = 30 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 12)
amb(2) = Fuori90(Estratto(es,r(1),4) + 23)
amb(3) = Fuori90(Estratto(es,r(1),4) + 82)
ok = 1
End If
If a = 24 And b = 35 Or a = 35 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 11)
amb(2) = Fuori90(Estratto(es,r(1),4) + 29)
amb(3) = Fuori90(Estratto(es,r(1),4) + 49)
ok = 1
End If
If a = 31 And b = 73 Or a = 73 And b = 31 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 23)
amb(2) = Fuori90(Estratto(es,r(1),1) + 43)
amb(3) = Fuori90(Estratto(es,r(1),1) + 64)
ok = 1
End If
If a = 24 And b = 25 Or a = 25 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 16)
amb(2) = Fuori90(Estratto(es,r(1),2) + 42)
amb(3) = Fuori90(Estratto(es,r(1),2) + 56)
ok = 1
End If
If a = 24 And b = 52 Or a = 52 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 11)
amb(2) = Fuori90(Estratto(es,r(1),4) + 56)
amb(3) = Fuori90(Estratto(es,r(1),4) + 84)
ok = 1
End If
If a = 45 And b = 52 Or a = 52 And b = 45 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 29)
amb(2) = Fuori90(Estratto(es,r(1),4) + 41)
amb(3) = Fuori90(Estratto(es,r(1),4) + 68)
ok = 1
End If
If a = 05 And b = 39 Or a = 39 And b = 05 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 09)
amb(2) = Fuori90(Estratto(es,r(1),1) + 26)
amb(3) = Fuori90(Estratto(es,r(1),1) + 53)
ok = 1
End If
If a = 23 And b = 41 Or a = 41 And b = 23 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 12)
amb(2) = Fuori90(Estratto(es,r(1),2) + 37)
amb(3) = Fuori90(Estratto(es,r(1),2) + 63)
ok = 1
End If
If a = 57 And b = 81 Or a = 81 And b = 57 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 29)
amb(2) = Fuori90(Estratto(es,r(1),4) + 43)
amb(3) = Fuori90(Estratto(es,r(1),4) + 86)
ok = 1
End If
If a = 21 And b = 43 Or a = 43 And b = 21 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 47)
amb(2) = Fuori90(Estratto(es,r(1),4) + 63)
amb(3) = Fuori90(Estratto(es,r(1),4) + 88)
ok = 1
End If
If a = 41 And b = 73 Or a = 73 And b = 41 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 47)
amb(2) = Fuori90(Estratto(es,r(1),4) + 59)
amb(3) = Fuori90(Estratto(es,r(1),4) + 64)
ok = 1
End If
If a = 33 And b = 83 Or a = 83 And b = 33 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 21)
amb(2) = Fuori90(Estratto(es,r(1),1) + 48)
amb(3) = Fuori90(Estratto(es,r(1),1) + 63)
ok = 1
End If
If a = 22 And b = 44 Or a = 44 And b = 22 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 35)
amb(2) = Fuori90(Estratto(es,r(1),2) + 49)
amb(3) = Fuori90(Estratto(es,r(1),2) + 57)
ok = 1
End If
If a = 30 And b = 60 Or a = 60 And b = 30 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 37)
amb(2) = Fuori90(Estratto(es,r(1),1) + 64)
amb(3) = Fuori90(Estratto(es,r(1),1) + 74)
ok = 1
End If
If a = 25 And b = 74 Or a = 74 And b = 25 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 12)
amb(2) = Fuori90(Estratto(es,r(1),3) + 38)
amb(3) = Fuori90(Estratto(es,r(1),3) + 86)
ok = 1
End If
If a = 24 And b = 68 Or a = 68 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 22)
amb(2) = Fuori90(Estratto(es,r(1),2) + 50)
amb(3) = Fuori90(Estratto(es,r(1),2) + 59)
ok = 1
End If
If a = 33 And b = 46 Or a = 46 And b = 33 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 32)
amb(2) = Fuori90(Estratto(es,r(1),3) + 46)
amb(3) = Fuori90(Estratto(es,r(1),3) + 60)
ok = 1
End If
If a = 14 And b = 33 Or a = 33 And b = 14 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 46)
amb(2) = Fuori90(Estratto(es,r(1),1) + 56)
amb(3) = Fuori90(Estratto(es,r(1),1) + 59)
ok = 1
End If
If a = 15 And b = 72 Or a = 72 And b = 15 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 20)
amb(2) = Fuori90(Estratto(es,r(1),2) + 54)
amb(3) = Fuori90(Estratto(es,r(1),2) + 87)
ok = 1
End If
If a = 05 And b = 14 Or a = 14 And b = 05 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 23)
amb(2) = Fuori90(Estratto(es,r(1),5) + 28)
amb(3) = Fuori90(Estratto(es,r(1),5) + 64)
ok = 1
End If
If a = 17 And b = 24 Or a = 24 And b = 17 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 15)
amb(2) = Fuori90(Estratto(es,r(1),2) + 27)
amb(3) = Fuori90(Estratto(es,r(1),2) + 85)
ok = 1
End If
If a = 14 And b = 64 Or a = 64 And b = 14 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 14)
amb(2) = Fuori90(Estratto(es,r(1),3) + 49)
amb(3) = Fuori90(Estratto(es,r(1),3) + 87)
ok = 1
End If
If a = 59 And b = 60 Or a = 60 And b = 59 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 36)
amb(2) = Fuori90(Estratto(es,r(1),2) + 72)
amb(3) = Fuori90(Estratto(es,r(1),2) + 75)
ok = 1
End If
If a = 24 And b = 44 Or a = 44 And b = 24 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 06)
amb(2) = Fuori90(Estratto(es,r(1),2) + 44)
amb(3) = Fuori90(Estratto(es,r(1),2) + 75)
ok = 1
End If
If a = 13 And b = 47 Or a = 47 And b = 13 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 11)
amb(2) = Fuori90(Estratto(es,r(1),2) + 56)
amb(3) = Fuori90(Estratto(es,r(1),2) + 61)
ok = 1
End If
If a = 26 And b = 45 Or a = 45 And b = 26 Then
amb(1) = Fuori90(Estratto(es,r(1),1) + 09)
amb(2) = Fuori90(Estratto(es,r(1),1) + 30)
amb(3) = Fuori90(Estratto(es,r(1),1) + 76)
ok = 1
End If
If a = 12 And b = 50 Or a = 50 And b = 12 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 19)
amb(2) = Fuori90(Estratto(es,r(1),2) + 62)
amb(3) = Fuori90(Estratto(es,r(1),2) + 84)
ok = 1
End If
If a = 50 And b = 67 Or a = 67 And b = 50 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 24)
amb(2) = Fuori90(Estratto(es,r(1),4) + 46)
amb(3) = Fuori90(Estratto(es,r(1),4) + 89)
ok = 1
End If
If a = 13 And b = 55 Or a = 55 And b = 13 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 10)
amb(2) = Fuori90(Estratto(es,r(1),3) + 29)
amb(3) = Fuori90(Estratto(es,r(1),3) + 58)
ok = 1
End If
If a = 12 And b = 30 Or a = 30 And b = 12 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 07)
amb(2) = Fuori90(Estratto(es,r(1),5) + 24)
amb(3) = Fuori90(Estratto(es,r(1),5) + 48)
ok = 1
End If
If a = 33 And b = 84 Or a = 84 And b = 33 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 06)
amb(2) = Fuori90(Estratto(es,r(1),3) + 42)
amb(3) = Fuori90(Estratto(es,r(1),3) + 51)
ok = 1
End If
If a = 62 And b = 75 Or a = 75 And b = 62 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 10)
amb(2) = Fuori90(Estratto(es,r(1),3) + 23)
amb(3) = Fuori90(Estratto(es,r(1),3) + 32)
ok = 1
End If
If a = 02 And b = 65 Or a = 65 And b = 02 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 14)
amb(2) = Fuori90(Estratto(es,r(1),4) + 23)
amb(3) = Fuori90(Estratto(es,r(1),4) + 35)
ok = 1
End If
If a = 12 And b = 38 Or a = 38 And b = 12 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 18)
amb(2) = Fuori90(Estratto(es,r(1),2) + 46)
amb(3) = Fuori90(Estratto(es,r(1),2) + 67)
ok = 1
End If
If a = 51 And b = 84 Or a = 84 And b = 51 Then
amb(1) = Fuori90(Estratto(es,r(1),5) + 34)
amb(2) = Fuori90(Estratto(es,r(1),5) + 76)
amb(3) = Fuori90(Estratto(es,r(1),5) + 77)
ok = 1
End If
If a = 13 And b = 45 Or a = 45 And b = 13 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 13)
amb(2) = Fuori90(Estratto(es,r(1),3) + 25)
amb(3) = Fuori90(Estratto(es,r(1),3) + 68)
ok = 1
End If
If a = 12 And b = 54 Or a = 54 And b = 12 Then
amb(1) = Fuori90(Estratto(es,r(1),4) + 07)
amb(2) = Fuori90(Estratto(es,r(1),4) + 55)
amb(3) = Fuori90(Estratto(es,r(1),4) + 73)
ok = 1
End If
If a = 18 And b = 27 Or a = 27 And b = 18 Then
amb(1) = Fuori90(Estratto(es,r(1),2) + 12)
amb(2) = Fuori90(Estratto(es,r(1),2) + 55)
amb(3) = Fuori90(Estratto(es,r(1),2) + 65)
ok = 1
End If
If a = 19 And b = 32 Or a = 32 And b = 19 Then
amb(1) = Fuori90(Estratto(es,r(1),3) + 36)
amb(2) = Fuori90(Estratto(es,r(1),3) + 56)
amb(3) = Fuori90(Estratto(es,r(1),3) + 74)
ok = 1
End If
'-----------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(66,"*") & " Caso n°" & co,1
ColoreTesto 2
Scrivi DataEstrazione(es) & " / " & NomeRuota(2) & " - " & StringaEstratti(es,2) & " / AMBO SCOMPENSATO - " & a & "." & b,1
ColoreTesto 1
Scrivi String(66,"*"),1
ruota(1) = 1
cg = 0
ColoreTesto 0
nu3(1) = amb(1)
nu3(2) = amb(2)
nu3(3) = amb(3)
cg = cg + 1
ImpostaGiocata cg,nu3,r,poste,k,2
Gioca es
End If
Next
Next
Next':Next
TestoInBandaPassante " SI . CONSIGLIA . LA . MASSIMA . MODERAZIONE . NELLE . GIOCATE ",1,2,5
ColoreTesto 0
ScriviResoconto
End Sub
Ultima modifica: