Sub Main()
TestoInBandaPassante "*************************** AGGIORNATO AL 20/02/2012 ***************************",1,1,5
Scrivi
ColoreTesto 1
Scrivi "===== 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 ======",1
ColoreTesto 0
Scrivi " ------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "================ U N _ A M B A T A _ S U _ R O M A ================",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "====== INIZIO RICERCA: 30/01/1993 - FINE RICERCA: 19/11/2011 ======",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "=================== AMBI SPIA ANALIZZATI: 100 =====================",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
Scrivi
Dim ruota(1)
Dim ambata(1)
Dim num(1)
Dim posta(10)
Dim r(1)
posta(1) = 2
k = 9
ini = EstrazioneFin - 2098
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
r(1) = 8
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,8,p)
b = Estratto(es,8,p1)
ok = 0
'--------------------------------------------------
If a = 47 And b = 80 Or a = 80 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 47)
ok = 1
End If
If a = 17 And b = 31 Or a = 31 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 25)
ok = 1
End If
If a = 44 And b = 74 Or a = 74 And b = 44 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
ok = 1
End If
If a = 72 And b = 77 Or a = 77 And b = 72 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
ok = 1
End If
If a = 32 And b = 84 Or a = 84 And b = 32 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 36)
ok = 1
End If
If a = 23 And b = 47 Or a = 47 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 84)
ok = 1
End If
If a = 27 And b = 41 Or a = 41 And b = 27 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
ok = 1
End If
If a = 13 And b = 80 Or a = 80 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 14)
ok = 1
End If
If a = 03 And b = 30 Or a = 30 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 22)
ok = 1
End If
If a = 39 And b = 50 Or a = 50 And b = 39 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 31)
ok = 1
End If
If a = 41 And b = 57 Or a = 57 And b = 41 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 53)
ok = 1
End If
If a = 46 And b = 64 Or a = 64 And b = 46 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
ok = 1
End If
If a = 38 And b = 83 Or a = 83 And b = 38 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 86)
ok = 1
End If
If a = 50 And b = 90 Or a = 90 And b = 50 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
ok = 1
End If
If a = 18 And b = 80 Or a = 80 And b = 18 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
ok = 1
End If
If a = 33 And b = 56 Or a = 56 And b = 33 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
ok = 1
End If
If a = 20 And b = 75 Or a = 75 And b = 20 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 23)
ok = 1
End If
If a = 03 And b = 73 Or a = 73 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
ok = 1
End If
If a = 86 And b = 87 Or a = 87 And b = 86 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 54)
ok = 1
End If
If a = 22 And b = 76 Or a = 76 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 74)
ok = 1
End If
If a = 70 And b = 76 Or a = 76 And b = 70 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 49)
ok = 1
End If
If a = 53 And b = 57 Or a = 57 And b = 53 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
ok = 1
End If
If a = 17 And b = 30 Or a = 30 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
ok = 1
End If
If a = 34 And b = 49 Or a = 49 And b = 34 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 77)
ok = 1
End If
If a = 10 And b = 86 Or a = 86 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
ok = 1
End If
If a = 32 And b = 71 Or a = 71 And b = 32 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 34)
ok = 1
End If
If a = 17 And b = 51 Or a = 51 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
ok = 1
End If
If a = 56 And b = 57 Or a = 57 And b = 56 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 66)
ok = 1
End If
If a = 04 And b = 81 Or a = 81 And b = 04 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 47)
ok = 1
End If
If a = 72 And b = 83 Or a = 83 And b = 72 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 53)
ok = 1
End If
If a = 37 And b = 56 Or a = 56 And b = 37 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 51)
ok = 1
End If
If a = 59 And b = 78 Or a = 78 And b = 59 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 29)
ok = 1
End If
If a = 25 And b = 68 Or a = 68 And b = 25 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
ok = 1
End If
If a = 05 And b = 36 Or a = 36 And b = 05 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 57)
ok = 1
End If
If a = 26 And b = 67 Or a = 67 And b = 26 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 71)
ok = 1
End If
If a = 53 And b = 66 Or a = 66 And b = 53 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
ok = 1
End If
If a = 70 And b = 77 Or a = 77 And b = 70 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 54)
ok = 1
End If
If a = 24 And b = 65 Or a = 65 And b = 24 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
ok = 1
End If
If a = 35 And b = 50 Or a = 50 And b = 35 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
ok = 1
End If
If a = 74 And b = 76 Or a = 76 And b = 74 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 41)
ok = 1
End If
If a = 07 And b = 78 Or a = 78 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 62)
ok = 1
End If
If a = 07 And b = 88 Or a = 88 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
ok = 1
End If
If a = 29 And b = 61 Or a = 61 And b = 29 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 18)
ok = 1
End If
If a = 38 And b = 54 Or a = 54 And b = 38 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 76)
ok = 1
End If
If a = 69 And b = 76 Or a = 76 And b = 69 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
ok = 1
End If
If a = 01 And b = 08 Or a = 08 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 33)
ok = 1
End If
If a = 40 And b = 64 Or a = 64 And b = 40 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
ok = 1
End If
If a = 20 And b = 77 Or a = 77 And b = 20 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
ok = 1
End If
If a = 48 And b = 83 Or a = 83 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 18)
ok = 1
End If
If a = 13 And b = 58 Or a = 58 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
ok = 1
End If
If a = 22 And b = 48 Or a = 48 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
ok = 1
End If
If a = 17 And b = 73 Or a = 73 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 37)
ok = 1
End If
If a = 28 And b = 43 Or a = 43 And b = 28 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 19)
ok = 1
End If
If a = 12 And b = 49 Or a = 49 And b = 12 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
ok = 1
End If
If a = 17 And b = 52 Or a = 52 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 81)
ok = 1
End If
If a = 29 And b = 75 Or a = 75 And b = 29 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 48)
ok = 1
End If
If a = 22 And b = 89 Or a = 89 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 24)
ok = 1
End If
If a = 23 And b = 35 Or a = 35 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
ok = 1
End If
If a = 47 And b = 58 Or a = 58 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 22)
ok = 1
End If
If a = 02 And b = 41 Or a = 41 And b = 02 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 69)
ok = 1
End If
If a = 31 And b = 79 Or a = 79 And b = 31 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 62)
ok = 1
End If
If a = 11 And b = 28 Or a = 28 And b = 11 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 16)
ok = 1
End If
If a = 36 And b = 39 Or a = 39 And b = 36 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 52)
ok = 1
End If
If a = 02 And b = 26 Or a = 26 And b = 02 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
ok = 1
End If
If a = 47 And b = 50 Or a = 50 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 33)
ok = 1
End If
If a = 17 And b = 88 Or a = 88 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 24)
ok = 1
End If
If a = 18 And b = 34 Or a = 34 And b = 18 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 53)
ok = 1
End If
If a = 48 And b = 70 Or a = 70 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 56)
ok = 1
End If
If a = 01 And b = 65 Or a = 65 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
ok = 1
End If
If a = 10 And b = 41 Or a = 41 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 45)
ok = 1
End If
If a = 37 And b = 81 Or a = 81 And b = 37 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
ok = 1
End If
If a = 05 And b = 69 Or a = 69 And b = 05 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 29)
ok = 1
End If
If a = 04 And b = 76 Or a = 76 And b = 04 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
ok = 1
End If
If a = 01 And b = 27 Or a = 27 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 24)
ok = 1
End If
If a = 43 And b = 72 Or a = 72 And b = 43 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
ok = 1
End If
If a = 28 And b = 68 Or a = 68 And b = 28 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
ok = 1
End If
If a = 08 And b = 58 Or a = 58 And b = 08 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 78)
ok = 1
End If
If a = 48 And b = 55 Or a = 55 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
ok = 1
End If
If a = 23 And b = 74 Or a = 74 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 12)
ok = 1
End If
If a = 11 And b = 60 Or a = 60 And b = 11 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 34)
ok = 1
End If
If a = 03 And b = 28 Or a = 28 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 26)
ok = 1
End If
If a = 42 And b = 71 Or a = 71 And b = 42 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 56)
ok = 1
End If
If a = 10 And b = 48 Or a = 48 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 51)
ok = 1
End If
If a = 34 And b = 66 Or a = 66 And b = 34 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
ok = 1
End If
If a = 07 And b = 24 Or a = 24 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 19)
ok = 1
End If
If a = 09 And b = 40 Or a = 40 And b = 09 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
ok = 1
End If
If a = 03 And b = 90 Or a = 90 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 25)
ok = 1
End If
If a = 76 And b = 90 Or a = 90 And b = 76 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 14)
ok = 1
End If
If a = 13 And b = 72 Or a = 72 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 19)
ok = 1
End If
If a = 30 And b = 87 Or a = 87 And b = 30 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
ok = 1
End If
If a = 49 And b = 82 Or a = 82 And b = 49 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 77)
ok = 1
End If
If a = 45 And b = 75 Or a = 75 And b = 45 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
ok = 1
End If
If a = 23 And b = 56 Or a = 56 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 27)
ok = 1
End If
If a = 45 And b = 64 Or a = 64 And b = 45 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 38)
ok = 1
End If
If a = 31 And b = 78 Or a = 78 And b = 31 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 36)
ok = 1
End If
If a = 09 And b = 12 Or a = 12 And b = 09 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 30)
ok = 1
End If
If a = 22 And b = 90 Or a = 90 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 23)
ok = 1
End If
If a = 49 And b = 76 Or a = 76 And b = 49 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 14)
ok = 1
End If
If a = 42 And b = 82 Or a = 82 And b = 42 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 59)
ok = 1
End If
If a = 13 And b = 27 Or a = 27 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
ok = 1
End If
'--------------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 0
Scrivi String(90,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " * " & NomeRuota(8) & " * " & StringaEstratti(es,8) & " * AMBO SPIA * " & a & "-" & b,1
ColoreTesto 0
Scrivi String(90,"*"),1
ruota(1) = 1
cg = 0
ColoreTesto 0
num(1) = ambata(1)
cg = cg + 1
ColoreTesto 2
ra = SerieRitardo(Ini,es,num,r,1)'-----> ra = Ritardo Ambata
Scrivi "IL RITARDO DELL'AMBATA " & Format2(num(1)) & " ALL'ESTRAZIONE DI CALCOLO E' DI: " & Format2(ra) & " ESTRAZIONI",1
ColoreTesto 0
ImpostaGiocata cg,num,r,posta,k,1
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub