B
Blackmore
Guest
CIAO, NON SO' SE E' QUELLO CHE CHIEDEVI, MA VISTO LA TUA EDUCAZIONE
NEL RISPONDERMI, TE NE HO FATTO UNO NUOVO
"QUESTO è TUO", FANNE CIO' CHE VUOI
TI AUGURO DI FARE UNA QUATERNA
CIAO
Sub Main()
ColoreTesto 2 :Scrivi "METODO BY BLACKMORE <> LISTATO BY DJ NOMADE"
ColoreTesto 2 :Scrivi "PER ELEPHANTBIG <> PROGRAMMA USATO PER LA COSTRUZIONE DEI METODI: VISUAL LOTTO 5"
ColoreTesto 2 :Scrivi "FORUM: http://www.lottoced.com/"
ColoreTesto 2 :Scrivi "UNA QUARTINA DOPO L'USCITA DI UN AMBO GEMELLO SU TORINO"
ColoreTesto 2 :Scrivi "INIZIO RICERCA: 08/09/1990 - FINE RICERCA: 22/09/2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(4),nu1(2),nu2(3),nu3(4),nu4(4),pt(1),ruote(10),pt1(4)
pt1(2)=1 t1(3)= 0.40 t1(4)= 0.10
clp = 9
ini = EstrazioneFin - 2250
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 9
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,9,p) : b = Estratto(es,9,p1)
'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Or a = 22 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 27):amb(2) = Fuori90(Estratto(es,9,1) + 35):amb(3) = Fuori90(Estratto(es,9,1) + 51):amb(4) = Fuori90(Estratto(es,9,1) + 57)k = 1
If a = 11 And b = 33 Or a = 33 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 13):amb(2) = Fuori90(Estratto(es,9,3) + 17):amb(3) = Fuori90(Estratto(es,9,3) + 39):amb(4) = Fuori90(Estratto(es,9,3) + 56)k = 1
If a = 11 And b = 44 Or a = 44 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 01):amb(2) = Fuori90(Estratto(es,9,1) + 04):amb(3) = Fuori90(Estratto(es,9,1) + 38):amb(4) = Fuori90(Estratto(es,9,1) + 67)k = 1
If a = 11 And b = 55 Or a = 55 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 05):amb(2) = Fuori90(Estratto(es,9,1) + 21):amb(3) = Fuori90(Estratto(es,9,1) + 64):amb(4) = Fuori90(Estratto(es,9,1) + 72)k = 1
If a = 11 And b = 66 Or a = 66 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 11):amb(2) = Fuori90(Estratto(es,9,3) + 49):amb(3) = Fuori90(Estratto(es,9,3) + 51):amb(4) = Fuori90(Estratto(es,9,3) + 64)k = 1
If a = 11 And b = 77 Or a = 77 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 12):amb(2) = Fuori90(Estratto(es,9,3) + 73):amb(3) = Fuori90(Estratto(es,9,3) + 82):amb(4) = Fuori90(Estratto(es,9,3) + 87)k = 1
If a = 11 And b = 88 Or a = 88 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,2) + 10):amb(2) = Fuori90(Estratto(es,9,2) + 26):amb(3) = Fuori90(Estratto(es,9,2) + 57):amb(4) = Fuori90(Estratto(es,9,2) + 76)k = 1
If a = 22 And b = 33 Or a = 33 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,5) + 03):amb(2) = Fuori90(Estratto(es,9,5) + 21):amb(3) = Fuori90(Estratto(es,9,5) + 23):amb(4) = Fuori90(Estratto(es,9,5) + 38)k = 1
If a = 22 And b = 44 Or a = 44 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,1) + 12):amb(2) = Fuori90(Estratto(es,9,1) + 63):amb(3) = Fuori90(Estratto(es,9,1) + 64):amb(4) = Fuori90(Estratto(es,9,1) + 77)k = 1
If a = 22 And b = 55 Or a = 55 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,1) + 06):amb(2) = Fuori90(Estratto(es,9,1) + 38):amb(3) = Fuori90(Estratto(es,9,1) + 75):amb(4) = Fuori90(Estratto(es,9,1) + 84)k = 1
If a = 22 And b = 66 Or a = 66 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,4) + 13):amb(2) = Fuori90(Estratto(es,9,4) + 53):amb(3) = Fuori90(Estratto(es,9,4) + 67):amb(4) = Fuori90(Estratto(es,9,4) + 78)k = 1
If a = 22 And b = 77 Or a = 77 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,5) + 05):amb(2) = Fuori90(Estratto(es,9,5) + 11):amb(3) = Fuori90(Estratto(es,9,5) + 38):amb(4) = Fuori90(Estratto(es,9,5) + 78)k = 1
If a = 22 And b = 88 Or a = 88 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,2) + 28):amb(2) = Fuori90(Estratto(es,9,2) + 46):amb(3) = Fuori90(Estratto(es,9,2) + 48):amb(4) = Fuori90(Estratto(es,9,2) + 55)k = 1
If a = 33 And b = 44 Or a = 44 And b = 33 Then amb(1) = Fuori90(Estratto(es,9,1) + 04):amb(2) = Fuori90(Estratto(es,9,1) + 43):amb(3) = Fuori90(Estratto(e
NEL RISPONDERMI, TE NE HO FATTO UNO NUOVO
"QUESTO è TUO", FANNE CIO' CHE VUOI
TI AUGURO DI FARE UNA QUATERNA
CIAO
Sub Main()
ColoreTesto 2 :Scrivi "METODO BY BLACKMORE <> LISTATO BY DJ NOMADE"
ColoreTesto 2 :Scrivi "PER ELEPHANTBIG <> PROGRAMMA USATO PER LA COSTRUZIONE DEI METODI: VISUAL LOTTO 5"
ColoreTesto 2 :Scrivi "FORUM: http://www.lottoced.com/"
ColoreTesto 2 :Scrivi "UNA QUARTINA DOPO L'USCITA DI UN AMBO GEMELLO SU TORINO"
ColoreTesto 2 :Scrivi "INIZIO RICERCA: 08/09/1990 - FINE RICERCA: 22/09/2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(4),nu1(2),nu2(3),nu3(4),nu4(4),pt(1),ruote(10),pt1(4)
pt1(2)=1 t1(3)= 0.40 t1(4)= 0.10
clp = 9
ini = EstrazioneFin - 2250
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 9
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,9,p) : b = Estratto(es,9,p1)
'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Or a = 22 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 27):amb(2) = Fuori90(Estratto(es,9,1) + 35):amb(3) = Fuori90(Estratto(es,9,1) + 51):amb(4) = Fuori90(Estratto(es,9,1) + 57)k = 1
If a = 11 And b = 33 Or a = 33 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 13):amb(2) = Fuori90(Estratto(es,9,3) + 17):amb(3) = Fuori90(Estratto(es,9,3) + 39):amb(4) = Fuori90(Estratto(es,9,3) + 56)k = 1
If a = 11 And b = 44 Or a = 44 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 01):amb(2) = Fuori90(Estratto(es,9,1) + 04):amb(3) = Fuori90(Estratto(es,9,1) + 38):amb(4) = Fuori90(Estratto(es,9,1) + 67)k = 1
If a = 11 And b = 55 Or a = 55 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,1) + 05):amb(2) = Fuori90(Estratto(es,9,1) + 21):amb(3) = Fuori90(Estratto(es,9,1) + 64):amb(4) = Fuori90(Estratto(es,9,1) + 72)k = 1
If a = 11 And b = 66 Or a = 66 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 11):amb(2) = Fuori90(Estratto(es,9,3) + 49):amb(3) = Fuori90(Estratto(es,9,3) + 51):amb(4) = Fuori90(Estratto(es,9,3) + 64)k = 1
If a = 11 And b = 77 Or a = 77 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,3) + 12):amb(2) = Fuori90(Estratto(es,9,3) + 73):amb(3) = Fuori90(Estratto(es,9,3) + 82):amb(4) = Fuori90(Estratto(es,9,3) + 87)k = 1
If a = 11 And b = 88 Or a = 88 And b = 11 Then amb(1) = Fuori90(Estratto(es,9,2) + 10):amb(2) = Fuori90(Estratto(es,9,2) + 26):amb(3) = Fuori90(Estratto(es,9,2) + 57):amb(4) = Fuori90(Estratto(es,9,2) + 76)k = 1
If a = 22 And b = 33 Or a = 33 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,5) + 03):amb(2) = Fuori90(Estratto(es,9,5) + 21):amb(3) = Fuori90(Estratto(es,9,5) + 23):amb(4) = Fuori90(Estratto(es,9,5) + 38)k = 1
If a = 22 And b = 44 Or a = 44 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,1) + 12):amb(2) = Fuori90(Estratto(es,9,1) + 63):amb(3) = Fuori90(Estratto(es,9,1) + 64):amb(4) = Fuori90(Estratto(es,9,1) + 77)k = 1
If a = 22 And b = 55 Or a = 55 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,1) + 06):amb(2) = Fuori90(Estratto(es,9,1) + 38):amb(3) = Fuori90(Estratto(es,9,1) + 75):amb(4) = Fuori90(Estratto(es,9,1) + 84)k = 1
If a = 22 And b = 66 Or a = 66 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,4) + 13):amb(2) = Fuori90(Estratto(es,9,4) + 53):amb(3) = Fuori90(Estratto(es,9,4) + 67):amb(4) = Fuori90(Estratto(es,9,4) + 78)k = 1
If a = 22 And b = 77 Or a = 77 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,5) + 05):amb(2) = Fuori90(Estratto(es,9,5) + 11):amb(3) = Fuori90(Estratto(es,9,5) + 38):amb(4) = Fuori90(Estratto(es,9,5) + 78)k = 1
If a = 22 And b = 88 Or a = 88 And b = 22 Then amb(1) = Fuori90(Estratto(es,9,2) + 28):amb(2) = Fuori90(Estratto(es,9,2) + 46):amb(3) = Fuori90(Estratto(es,9,2) + 48):amb(4) = Fuori90(Estratto(es,9,2) + 55)k = 1
If a = 33 And b = 44 Or a = 44 And b = 33 Then amb(1) = Fuori90(Estratto(es,9,1) + 04):amb(2) = Fuori90(Estratto(es,9,1) + 43):amb(3) = Fuori90(Estratto(e