SUPER LOTTO

IL VERTIBILE Di E.TENUTA..... lo script

« Older   Newer »
  Share  
osvaldo1
CAT_IMG Posted on 12/6/2013, 16:32




Questo script trovato nel WEB....quindi non coperto da copyright.....

La spiegazione del metodo si trova dentro lo script, ma si trova anche qui:


https://superlotto.blogfree.net/?t=3741673#lastpost


Spero di aver fatto cosa gradita.

'Ricercare su due ruote nella stessa estrazione e In forma isotopa"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""Ho analizzato solo ruote consecutive
'due numeri di cui uno sia il vertibile dell'altro č che l'ambo vertibile deve essere formato da un elemento pari e uno dispari.
'Sono esclusi gli ambi vertibili diametrali.Ora attenzione eseguiamo lo sviluppo della previsione
'ESEMPIO del 3 marzo 2001
'Napoli 76 (terzo Estratto - pari)
'Torino 67 (terzo Estratto-dispari)
'La prima operazione da fare č quella di calcolare i diametrali
'dei due elementi per cui :
'76-45=31(dispari)
'67-45=22( pari)
'sommiamo adesso gli elementi dispari : 31+67=98 sommiamo ora gli elementi pari : 76+22= 98
'dividiamo le due some per 2 98:2=49 98:2=49 ai risultati delle divisioni faremo il complemento a 90 90-49=41 90-49=41
'ai risultati delle sottrazioni ricaviamo le rispettive chiusure simmetriche a passo 30 per cui: la chiusura simmetrica di 49 sarą 79 e 19
'la chiusura simmetrica di 41 sarą 71-11
'queste chiusure simmetriche le adopereremo x abbinarle all'ambata capogioco
'ITER PER IL RICAVO DELL'AMBATA: Riprendiamo In considerazione i nostri due elementi vertibili andando a moltiplicarli tra loro ,per cui: 67x 76= 5092 (prodotto
' della moltiplicazione)
'tale prodotto lo andiamo a scomporre partendo da destra verso sinistra considerando due cifre alla volta per cui
'Primo numero 92 con il fuori 90 diventa 2 secondo numero 50 sommiamo gli elementi 2+50= 52 poi tale somma la andiamo a completare a 91 per cui : 91-52= 39
'il complemento a 91 arą la nostra ambata da porre In gioco a cui andranno abbinati i quattro numeri precedentemente ricavati (chiusura simmetriche)
'Le previsioni vanno giocate da uno a 9 colpi ,facendo attenzione prima di porlre In gioco ,che l'ambata non sia presente nella data di estrazione e nelle 9 precedenti.
Option Explicit
Sub Main
Dim r1,r2,p1,n1,n2,n3,n4,n5,n6,est,estini,estfin,a1,a2,a3,a4,a5,a6,a7,s1,s2,s3,s4,s5,s6,j,start
Dim ruote(2)
Dim num(7)
Dim poste(2)
Dim n(7)
start = InputBox("Intervallo Estrazioni partendo da ultima in Archivio",,150)
estini = EstrazioneFin - start
estfin = EstrazioneFin
For est = estini To estfin
For r1 = 1 To 9
r2 = r1 + 1
For p1 = 1 To 5
n1 = Estratto(est,r1,p1)
n2 = Estratto(est,r2,p1)
If n1 = Vert(n2) Then
If pari(n1) And dispari(n2) Or dispari(n1) And pari(n2) Then
If n1 < 10 Then n1 = 0 & n1
If n2 < 10 Then n2 = 0 & n2
n3 = n1*n2
If Len(n3) = 4 Then
n4 = Fuori90(CInt(Right(n3,2)))
n5 = Fuori90(CInt(Left(n3,2)))
End If
If Len(n3) = 3 Then
n4 = Fuori90(CInt(Right(n3,2)))
n5 = Fuori90(CInt(Left(n3,1)))
End If
n6 = Fuori90(n4 + n5)
a1 = 91 - n6
If RitardoEstratto(a1,est,r1) > 9 And RitardoEstratto(a1,est,r2) > 9 Then
s1 = Fuori90(n1 + 45)
s2 = Fuori90(n2 + 45)
s3 = n1 + s2
s4 = n2 + s1
s5 = s4/2
s6 = 90 - s5
a2 = Fuori90(s5 + 30):a3 = Fuori90(a2 + 30):a4 = Fuori90(a3 + 30)
a5 = Fuori90(s6 + 30):a6 = Fuori90(a5 + 30):a7 = Fuori90(a6 + 30)
poste(2) = 1:ruote(1) = r1:ruote(2) = r2
n(2) = a2
n(3) = a3
n(4) = a4
n(5) = a5
n(6) = a6
n(7) = a7
For j = 2 To 7
num(1) = a1
num(2) = n(j)
ImpostaGiocata 1,num,ruote,poste,8,2



Gioca est
Next

TestoInBandaPassante "*°* ",1,2,0

End If
End If
End If


Next
Next
Next
ScriviResoconto


End Sub


Edited by osvaldo1 - 12/6/2013, 19:52
 
Top
osvaldo1
CAT_IMG Posted on 13/6/2013, 09:41




Corretto script:
GLI ABBINAMENTI


'Ricercare su due ruote nella stessa estrazione e In forma isotopa"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""Ho analizzato solo ruote consecutive
'due numeri di cui uno sia il vertibile dell'altro č che l'ambo vertibile deve essere formato da un elemento pari e uno dispari.
'Sono esclusi gli ambi vertibili diametrali.Ora attenzione eseguiamo lo sviluppo della previsione
'ESEMPIO del 3 marzo 2001
'Napoli 76 (terzo Estratto - pari)
'Torino 67 (terzo Estratto-dispari)
'La prima operazione da fare č quella di calcolare i diametrali
'dei due elementi per cui :
'76-45=31(dispari)
'67-45=22( pari)
'sommiamo adesso gli elementi dispari : 31+67=98 sommiamo ora gli elementi pari : 76+22= 98
'dividiamo le due some per 2 98:2=49 98:2=49 ai risultati delle divisioni faremo il complemento a 90 90-49=41 90-49=41
'ai risultati delle sottrazioni ricaviamo le rispettive chiusure simmetriche a passo 30 per cui: la chiusura simmetrica di 49 sarą 79 e 19
'la chiusura simmetrica di 41 sarą 71-11
'queste chiusure simmetriche le adopereremo x abbinarle all'ambata capogioco
'ITER PER IL RICAVO DELL'AMBATA: Riprendiamo In considerazione i nostri due elementi vertibili andando a moltiplicarli tra loro ,per cui: 67x 76= 5092 (prodotto
' della moltiplicazione)
'tale prodotto lo andiamo a scomporre partendo da destra verso sinistra considerando due cifre alla volta per cui
'Primo numero 92 con il fuori 90 diventa 2 secondo numero 50 sommiamo gli elementi 2+50= 52 poi tale somma la andiamo a completare a 91 per cui : 91-52= 39
'il complemento a 91 arą la nostra ambata da porre In gioco a cui andranno abbinati i quattro numeri precedentemente ricavati (chiusura simmetriche)
'Le previsioni vanno giocate da uno a 9 colpi ,facendo attenzione prima di porlre In gioco ,che l'ambata non sia presente nella data di estrazione e nelle 9 precedenti.
Option Explicit
Sub Main
Dim r1,r2,p1,n1,n2,n3,n4,n5,n6,est,estini,estfin,a1,a2,a3,a4,a5,a6,a7,s1,s2,s3,s4,s5,s6,j,start
Dim ruote(2)
Dim num(7)
Dim poste(2)
Dim n(7)
start = InputBox("Intervallo Estrazioni partendo da ultima in Archivio",,150)
estini = EstrazioneFin - start
estfin = EstrazioneFin
For est = estini To estfin
For r1 = 1 To 9
r2 = r1 + 1
For p1 = 1 To 5
n1 = Estratto(est,r1,p1)
n2 = Estratto(est,r2,p1)
If n1 = Vert(n2) Then
If pari(n1) And dispari(n2) Or dispari(n1) And pari(n2) Then
If n1 < 10 Then n1 = 0 & n1
If n2 < 10 Then n2 = 0 & n2
n3 = n1*n2
If Len(n3) = 4 Then
n4 = Fuori90(CInt(Right(n3,2)))
n5 = Fuori90(CInt(Left(n3,2)))
End If
If Len(n3) = 3 Then
n4 = Fuori90(CInt(Right(n3,2)))
n5 = Fuori90(CInt(Left(n3,1)))
End If
n6 = Fuori90(n4 + n5)
a1 = 91 - n6
If RitardoEstratto(a1,est,r1) > 9 And RitardoEstratto(a1,est,r2) > 9 Then
s1 = Fuori90(n1 + 45)
s2 = Fuori90(n2 + 45)
s3 = n1 + s2
s4 = n2 + s1
s5 = s4/2
s6 = 90 - s5
a2 = Fuori90(s5 + 45):a3 = Fuori90(a2 + 30):a4 = Fuori90(a3 + 30)
a5 = Fuori90(s6 + 45):a6 = Fuori90(a5 + 30):a7 = Fuori90(a6 + 30)
poste(2) = 1:ruote(1) = r1:ruote(2) = r2
n(2) = a2
n(3) = a3
n(4) = a4
n(5) = a5
n(6) = a6
n(7) = a7
For j = 2 To 7
num(1) = a1
num(2) = n(j)
ImpostaGiocata 1,num,ruote,poste,8,2



Gioca est
Next

TestoInBandaPassante "*°* ",1,2,0

End If
End If
End If


Next
Next
Next
ScriviResoconto


End Sub
 
Top
1 replies since 12/6/2013, 16:32   662 views
  Share