'In qualsiasi estrazione si deve rilevare su due ruote consecutive due numeri(uno su una ruota e uno sull'altra)
'che siano uno doppio dell'altro cioè: 7-14 11-22 30-60 83-76 ecc, dopo che abbiamo trovato la condizione i due numeri saranno
'sommati ai fissi 21.23 faccio un esempio..
'prendiamo l'estr del 12.08.2014
'Ba 21.16.72.02.44
'Ca 50.01.63.64.88
'come vedi In 5°Posizione abbiamo il 44 che è il doppio del 88
'44+44=88 ok condizione ottimale
'come abbiamo detto i due num saranno sommati ai fissi Base 21.23, quindi:
'partiamo col Primo
'---------------------------
'44+21=65*
'A1=Fuori90(a+21)*
'---------------------------
'88+23=111-90=21*
'A2=Fuori90(b+23)*
'---------------------------
'44+23=67*
'B1=Fuori90(a+23)*
'---------------------------
'88+21=109-90=19*
'B2=Fuori90(b+21)*
'-------------------------------------------------------------
'adesso,predisponi i numeri con la stellina cosi:
'65.21----67.19
'A1.A2.---B1.B2
'-------------------------------------------------------------
'secondo passaggio:
'(1) 65+67=132-90=42*
'(1) C1=Fuori90(A1+B1)*
'---------------------------
'(2) 21+67=88*
'(2) C2=Fuori90(A2+B1)*
'---------------------------
'(3) 65+19=84*
'(3) C3=Fuori90(A1+B2)*
'---------------------------
'(4) 21+19=40*
'(4) C4=Fuori90(A2+B2)*
'-------------------------------------------------------------
'adesso predisponi i num con la stellina cosi:
'42.88.84.40 da qui si forma l'ambo
'C1.C2.C3.C4
'-------------------------------------------------------------
'sommare il quarto con il Primo
'40+42=82* Primo num dell'ambo è ambata
'D1=Fuori90(C4+C1)*
'-------------------------------------------------------------
'sottrarre il quarto con il terzo
'40-84=44 questo è num neg quindi si fa
'il -90 quindi, 44-90=46*
'46* secondo num dell'ambo
'D2=Fuori90((90+C4)-C3)*
'-------------------------------------------------------------
'continuando con i calcoli:
'sommare il secondo con il terzo
'88+84=172-90=82*
'D3=Fuori90(C2+C3)*
'-------------------------------------------------------------
'sottrarre il secondo con il Primo 88-42=46*
'D4=Fuori90((90+C2)-C1)*
'-------------------------------------------------------------
'definitivo ambo 46-82,
'per il terzo num
'46+82=128-90=38*
'D5=Fuori90(D3+D4)*
'-------------------------------------------------------------
'previsone: 46-82 ambo primario
'46.38 ambo secondario
'esito al 1c su ca ambo principale
'46.82
'Attenzione! Spesse volte, l’ambo principale esce nelle ruote diametrali, quindi si devono considerare rigorosamente! Se i due numeri sono isotopi, la previsione acquista maggiore efficacia
'La durata di gioco per l'ambo 12 colpi, l'ambata 6 colpi, l'ambata di solito esce anche nelle diametrali, consideriamo solo le ruote principali, anche se esce l'ambata, seguire ugualmente l'ambo.
'Credo non mi sto dimenticando nulla, per qualsiasi cosa sono qui, buon lavoro e grazie per la tua disponibilità a presto
Sub Main()
Scrivi " Metodo di Blady ",1 ' - http://forum.lottoced.com/f8/bari-cagliari-nuova-pagina-113867/index42.html -
Dim ruota(10),ruote1(10),ruote2(10)
Dim n1(10),n2(10),n3(10),n4(10)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
k1 = 6
k2 = 12
Ini = 8885
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
r2 = r1 + 1
If r2 = 11 Then r2 = 12
For p2 = 1 To 5
b = Estratto(es,r2,p2)
ok = 0
If b = Fuori90(a*2) Then A1 = Fuori90(a + 21):A2 = Fuori90(b + 23):B1 = Fuori90(a + 23):B2 = Fuori90(b + 21):C1 = Fuori90(A1 + B1):_
C2 = Fuori90(A2 + B1):C3 = Fuori90(A1 + B2):C4 = Fuori90(A2 + B2):D1 = Fuori90(C4 + C1):D2 = Fuori90((90 + C4) - C3):_
D3 = Fuori90(C2 + C3):D4 = Fuori90((90 + C2) - C1):D5 = Fuori90(D3 + D4):ok = 1
If a = Fuori90(b*2) Then A1 = Fuori90(b + 21):A2 = Fuori90(a + 23):B1 = Fuori90(b + 23):B2 = Fuori90(a + 21):C1 = Fuori90(A1 + B1):_
C2 = Fuori90(A2 + B1):C3 = Fuori90(A1 + B2):C4 = Fuori90(A2 + B2):D1 = Fuori90(C4 + C1):D2 = Fuori90((90 + C4) - C3):_
D3 = Fuori90(C2 + C3):D4 = Fuori90((90 + C2) - C1):D5 = Fuori90(D3 + D4):ok = 1
If ok = 1 Then
If p1 = p2 Or p2 = p1 + 1 Or p2 = p1 - 1 Then
If D1 = D3 And D2 = D4 Then
casi = casi + 1
Scrivi String(80,"-") & "Caso n°" & Format2(casi)
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " Estratto il " & _
Format2(a) & " in " & Format2(p1) & "° Posizione",1
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " Estratto il " & _
Format2(b) & " in " & Format2(p2) & "° Posizione",1
If p1 = p2 Then Scrivi "CONDIZIONE POSIZIONI ISOTOPE",3,3,3
If p2 = p1 + 1 Or p2 = p1 - 1 Then Scrivi "CONDIZIONE POSIZIONI CONSECUTIVE",4,4,4
ruota(1) = r1:ruota(2) = r2
ruote1(1) = r1:ruote1(2) = r2:ruote1(3) = RuotaDiametrale(r1):ruote1(4) = RuotaDiametrale(r2)
ruote2(1) = r1:ruote2(2) = r2
n1(1) = D1
ImpostaGiocata 1,n1,ruota,posta,k1,1
n2(1) = D1
n2(2) = D2
ImpostaGiocata 2,n2,ruote1,poste,k2,2
n3(1) = D1
n3(2) = D5
ImpostaGiocata 3,n3,ruote2,poste,k2,2
n4(1) = D1
n4(2) = D2
n4(3) = D5
ImpostaGiocata 4,n4,ruote2,poste,k2,2
Gioca es,True,,True
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
con +/-1 e vertibili , 79 uscito 3 volte e una il 46 
