'Le famose triade di Fabarri
' Iter operativo.
'Le triadi: La loro peculiarità sta nel fatto
'che , uno dei numeri deve essere uguale alla somma
'degli altri due. Fattore più originale è che deve
'esistere ugualianza anche nella somma tra decina
' e unità.
'--------------------------------------------
Sub main()
Dim ruote(2)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2)
Dim lunghetta(8)
Dim poste(2)
Dim poste1(5)
Dim posta(1)
poste(2)=1
poste1(2)=3
poste1(3)=1.25
poste1(4)=0.50
poste1(5)=0.25
posta(1)=2
s=InputBox("Quante estrazioni vuoi controllare?",,100)
For es = EstrazioneFin - s To EstrazioneFin
For r=1 To 10 : For p= 1 To 4
a1=Estratto(es,r,p)
a2=Estratto(es,r,p+1)
sa=Fuori90(a1+a2)
For m=1 To 10
If m<>r Then
b1=Estratto(es,m,p)
b2=Estratto(es,m,p+1)
If b1=sa Or b2=sa Then
fa1=Figura(a1)
fa2=Figura(a2)
sfa=(fa1*10)+fa2
If sa=sfa Then
ruote(1)=r
ruote(2)=m
c1=Diametrale(sa)
n=Vert(c1)
n1=Fuori90(sa+a1)
n2=Fuori90(sa+a2)
n3=Fuori90(n1+30)
n4=Fuori90(n1+60)
n5=Fuori90(n2+30)
n6=Fuori90(n2+60)
ambata(1)=c1
ambo1(1)=c1
ambo1(2)=n1
ambo2(1)=c1
ambo2(2)=n3
ambo3(1)=c1
ambo3(2)=n4
ambo4(1)=c1
ambo4(2)=n2
ambo5(1)=c1
ambo5(2)=n5
ambo6(1)=c1
ambo6(2)=n6
lunghetta(1)=c1
lunghetta(2)=n
lunghetta(3)=n1
lunghetta(4)=n2
lunghetta(5)=n3
lunghetta(6)=n4
lunghetta(7)=n5
lunghetta(8)=n6
'Controllo della presenza dell'ambata diametrale sulle due ruote di ricerca.
sf=SerieFreq(es-9,es,ambata,ruote,1)
If sf=0 Then
Scrivi"--------------------------------------------"
Scrivi DataEstrazione(es)&" " & SiglaRuota(r)&" "& Format2(a1)&"-"& Format2(a2)&" " & SiglaRuota(m)&" "& Format2(b1)&"-"& Format2(b2)
Scrivi"--------------------------------------------"
ImpostaGiocata 1,ambata,ruote,posta,9,1
ImpostaGiocata 2,ambo1,ruote,poste,9,2
ImpostaGiocata 3,ambo2,ruote,poste,9,2
ImpostaGiocata 4,ambo3,ruote,poste,9,2
ImpostaGiocata 5,ambo4,ruote,poste,9,2
ImpostaGiocata 6,ambo5,ruote,poste,9,2
ImpostaGiocata 7,ambo6,ruote,poste,9,2
ImpostaGiocata 8,lunghetta,ruote,poste1,9,3
For x =1 To 8
For xx=1 To 8
ImpostaInterruzioni x,1,1
ImpostaInterruzioni x,xx,2
Next
Next
Gioca es
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto 1
ScriviResoconto
End Sub
