CODICE
Sub main()
Scrivi "Listato da Florindi 28.10.2008 Ambi AURA - L'AMBO IMPERIALE di O. MANARA",1
Dim am(2),nr(2),n(1),aa(89),amb(89),ab(89)
Dim ruote(1),rt(2)
Dim posta(1)
Dim poste(2)
posta(1)=1
poste(2)=1
'--------------AMBI AURA--------------
aa(1)=1 : amb(1)=10 : ab(1)=68
aa(2)=2 : amb(2)=34 : ab(2)=71
aa(3)=3 : amb(3)=39 : ab(3)=69
aa(4)=4 : amb(4)=56 : ab(4)=64
aa(6)=6 : amb(6)=34 : ab(6)=39
aa(7)=7 : amb(7)=5 : ab(7)=60
aa(10)=10 : amb(10)=64 : ab(10)=18
aa(11)=11 : amb(11)=13 : ab(11)=46
aa(12)=12 : amb(12)=69 : ab(12)=29
aa(13)=13 : amb(13)=79 : ab(13)=60
aa(14)=14 : amb(14)=19 : ab(14)=26
aa(17)=17 : amb(17)=77 : ab(17)=12
aa(18)=18 : amb(18)=84 : ab(18)=6
aa(19)=19 : amb(19)=58 : ab(19)=41
aa(20)=20 : amb(20)=84 : ab(20)=65
aa(21)=21 : amb(21)=83 : ab(21)=42
aa(22)=22 : amb(22)=90 : ab(22)=56
aa(23)=23 : amb(23)=33 : ab(23)=41
aa(24)=24 : amb(24)=24 : ab(24)=20
aa(25)=25 : amb(25)=67 : ab(25)=74
aa(26)=26 : amb(26)=46 : ab(26)=58
aa(27)=27 : amb(27)=79 : ab(27)=23
aa(28)=28 : amb(28)=27 : ab(28)=41
aa(29)=29 : amb(29)=61 : ab(29)=51
aa(31)=31 : amb(31)=12 : ab(31)=1
aa(32)=32 : amb(32)=65 : ab(32)=61
aa(34)=34 : amb(34)=8 : ab(34)=28
aa(35)=35 : amb(35)=86 : ab(35)=57
aa(37)=37 : amb(37)=24 : ab(37)=67
aa(38)=38 : amb(38)=62 : ab(38)=76
aa(39)=39 : amb(39)=44 : ab(39)=63
aa(40)=40 : amb(40)=89 : ab(40)=14
aa(41)=41 : amb(41)=63 : ab(41)=12
aa(43)=43 : amb(43)=68 : ab(43)=35
aa(44)=44 : amb(44)=74 : ab(44)=60
aa(45)=45 : amb(45)=88 : ab(45)=81
aa(46)=46 : amb(46)=79 : ab(46)=47
aa(47)=47 : amb(47)=69 : ab(47)=40
aa(48)=48 : amb(48)=18 : ab(48)=52
aa(49)=49 : amb(49)=73 : ab(49)=32
aa(50)=50 : amb(50)=17 : ab(50)=55
aa(51)=51 : amb(51)=44 : ab(51)=2
aa(52)=52 : amb(52)=76 : ab(52)=67
aa(53)=53 : amb(53)=83 : ab(53)=22
aa(56)=56 : amb(56)=48 : ab(56)=86
aa(57)=57 : amb(57)=11 : ab(57)=18
aa(58)=58 : amb(58)=50 : ab(58)=39
aa(61)=61 : amb(61)=74 : ab(61)=11
aa(62)=62 : amb(62)=10 : ab(62)=29
aa(63)=63 : amb(63)=63 : ab(63)=85
aa(64)=64 : amb(64)=55 : ab(64)=31
aa(66)=66 : amb(66)=83 : ab(66)=28
aa(67)=67 : amb(67)=42 : ab(67)=34
aa(68)=68 : amb(68)=58 : ab(68)=30
aa(69)=69 : amb(69)=6 : ab(69)=27
aa(70)=70 : amb(70)=52 : ab(70)=82
aa(72)=72 : amb(72)=69 : ab(72)=89
aa(73)=73 : amb(73)=5 : ab(73)=1
aa(74)=74 : amb(74)=41 : ab(74)=14
aa(75)=75 : amb(75)=13 : ab(75)=20
aa(76)=76 : amb(76)=87 : ab(76)=41
aa(77)=77 : amb(77)=49 : ab(77)=72
aa(78)=78 : amb(78)=87 : ab(78)=7
aa(79)=79 : amb(79)=75 : ab(79)=38
aa(80)=80 : amb(80)=53 : ab(80)=78
aa(81)=81 : amb(81)=73 : ab(81)=46
aa(83)=83 : amb(83)=11 : ab(83)=38
aa(84)=84 : amb(84)=1 : ab(84)=66
aa(85)=85 : amb(85)=8 : ab(85)=53
aa(88)=88 : amb(88)=16 : ab(88)=9
aa(89)=89 : amb(89)=81 : ab(89)=10
'-----------------------------------------
ca=0
rs=InputBox ("Quante estrazionni vuoi controllare?","F.Florindi",100)
fin=EstrazioneFin
ini=fin -rs
For es=ini To fin : For r=1 To 10 : For p1=1 To 4 : p2=p1+1
a=Estratto(es,r,p1) : b=Estratto(es,r,p2)
ax=Fuori90 (a*2) : bx=Fuori90 (b*2)
x1=Fuori90 (180-ax) : x2=Fuori90 (180-bx)
If x1=b Or x2=a Then
nr(1)=a : nr(2)=b
rt(1)=11
rt(2)=12
'Controlla che l'ambo AURA sia unico su Tutte.
If SerieFreq(es,es,nr,rt,2)=1 Then
If x1=b Then n(1)=amb(a) : am(1)=amb(a) : am(2)=ab(a)
If x2=a Then n(1)=amb(b) : am(1)=amb(b) : am(2)=ab(b)
'Controlla se l'elemento dell'ambata esiste.
If n(1)<>0 Then
ruote(1)=r
'Controlla la non presenza sia dell'ambata che dell'ambo secco a Tutte.
If SerieFreq (es,es,n,ruote,1)= 0 And SerieFreq (es,es,am,rt,2)=0 Then
ca=ca+1
Scrivi "----------------------------------------------------"
rt1=DataEstrazione(es)& " -- " & StringaEstratti(es,r)
Scrivi SiglaRuota(r) & " " & rt1& " [" & Format2(a) &"]"& " [" & Format2(b)&"]"
Scrivi "----------------------------------------giocata n°"&ca
'ImpostaGiocata 1,n,ruote,posta,20
ImpostaGiocata 2,am,ruote,posta,20
ImpostaGiocata 3,am,rt,poste,20
Gioca es
End If
End If
End If
End If
Next : Next : Next
Scrivi
Scrivi
ScriviResoconto
End Sub
