VI PRESENTO " AMBOLIDE"... AMBO SECCO A COLPO!

imported_n/a · 24 Luglio 2006

LOTTI SE MI LEGGI TI DICO SEMPLICEMENTE

imported_n/a · 25 Luglio 2006

QUESTI SI' CHE SONO METODI VALIDI E DETTATI SOPRATTUTTO DALLA MODESTIA E QUINDI DAL NON PROMETTERE VINCITE SICURE AL 100x100!!!!!PURTROPPO C'E' ANCORA CHI VUOLE "SOGNARE"...

imported_n/a · 25 Luglio 2006

QUESTI SI' CHE SONO METODI VALIDI E DETTATI SOPRATTUTTO DALLA MODESTIA E QUINDI DAL NON PROMETTERE VINCITE SICURE AL 100x100!!!!!PURTROPPO C'E' ANCORA CHI VUOLE "SOGNARE"...

Abib · 29 Luglio 2006

Ecco il listato, spero possa suggerire nuove applicazioni.
Buona giornata.

Sub main()
Dim numeri1(2),numeri2(2),numeri3(2),numeri4(2),numeri5(2),numeri6(2),numeri7(2),numeri8(2)
Dim ruote(10)
Dim poste(2)
poste(2)=1

s=InputBox("Quante estrazioni vuoi controllare?",,10)
For es = EstrazioneFin - s To EstrazioneFin

For r1=1 To 9
For p=1 To 5
a1=Estratto(es,r1,p)

For r2=1 To 10
For p1=1 To 5
b1=Estratto(es,r2,p1)

If r2=r1+1 Then
If p=p1 Then

If Figura (a1)= Figura (b1+1) And Figura (b1-1) Then

Scrivi"---------------------------------------------------------------"
Scrivi Space(14)&" 1°"&" 2°"&" 3°"&" 4°"&" 5°"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" = "& Format2(a1)&_
" ****** FIGURA "& Format2(Figura (a1))& Chr (10)&_
DataEstrazione(es)&" "& Left(NomeRuota(r2),2)&" "& StringaEstratti(es,r2)&" = "& Format2(b1)&_
" ****** FIGURA "& Format2(Figura (b1))
Scrivi"---------------------------------------------------------------"

n1=Fuori90 (a1+b1)'Prima ambata
n2=Diametrale (n1)'Seconda ambata
n3=Decina (a1)
n4=Decina (b1)
n5=(n3*10)
n6=(n4*10)
n7=(a1-n5)
n8=(b1-n6)
n9=(n5+n8)'Prima trasposizione
n10=(n6+n7)'Seconda trasposizione

ruote(1)=r1
ruote(2)=r2

numeri1(1)=n1:numeri1(2)=n9
numeri2(1)=n1:numeri2(2)=n10
numeri3(1)=n1:numeri3(2)=a1
numeri4(1)=n1:numeri4(2)=b1
numeri5(1)=n2:numeri5(2)=n9
numeri6(1)=n2:numeri6(2)=n10
numeri7(1)=n2:numeri7(2)=a1
numeri8(1)=n2:numeri8(2)=b1

ImpostaGiocata 1,numeri1,ruote,poste,8,2
ImpostaGiocata 2,numeri2,ruote,poste,8,2
ImpostaGiocata 3,numeri3,ruote,poste,8,2
ImpostaGiocata 4,numeri4,ruote,poste,8,2
ImpostaGiocata 5,numeri5,ruote,poste,8,2
ImpostaGiocata 6,numeri6,ruote,poste,8,2
ImpostaGiocata 7,numeri7,ruote,poste,8,2
ImpostaGiocata 8,numeri8,ruote,poste,8,2

Gioca es
End If
End If
End If

Next
Next

Next
Next
Next

ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
ScriviResoconto 5
ScriviResoconto 6
ScriviResoconto 7
ScriviResoconto 8
ScriviResoconto

ScriviResoconto
End Sub

Abib

Abib · 29 Luglio 2006

Ecco il listato, spero possa suggerire nuove applicazioni.
Buona giornata.

Sub main()
Dim numeri1(2),numeri2(2),numeri3(2),numeri4(2),numeri5(2),numeri6(2),numeri7(2),numeri8(2)
Dim ruote(10)
Dim poste(2)
poste(2)=1

s=InputBox("Quante estrazioni vuoi controllare?",,10)
For es = EstrazioneFin - s To EstrazioneFin

For r1=1 To 9
For p=1 To 5
a1=Estratto(es,r1,p)

For r2=1 To 10
For p1=1 To 5
b1=Estratto(es,r2,p1)

If r2=r1+1 Then
If p=p1 Then

If Figura (a1)= Figura (b1+1) And Figura (b1-1) Then

Scrivi"---------------------------------------------------------------"
Scrivi Space(14)&" 1°"&" 2°"&" 3°"&" 4°"&" 5°"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" = "& Format2(a1)&_
" ****** FIGURA "& Format2(Figura (a1))& Chr (10)&_
DataEstrazione(es)&" "& Left(NomeRuota(r2),2)&" "& StringaEstratti(es,r2)&" = "& Format2(b1)&_
" ****** FIGURA "& Format2(Figura (b1))
Scrivi"---------------------------------------------------------------"

n1=Fuori90 (a1+b1)'Prima ambata
n2=Diametrale (n1)'Seconda ambata
n3=Decina (a1)
n4=Decina (b1)
n5=(n3*10)
n6=(n4*10)
n7=(a1-n5)
n8=(b1-n6)
n9=(n5+n8)'Prima trasposizione
n10=(n6+n7)'Seconda trasposizione

ruote(1)=r1
ruote(2)=r2

numeri1(1)=n1:numeri1(2)=n9
numeri2(1)=n1:numeri2(2)=n10
numeri3(1)=n1:numeri3(2)=a1
numeri4(1)=n1:numeri4(2)=b1
numeri5(1)=n2:numeri5(2)=n9
numeri6(1)=n2:numeri6(2)=n10
numeri7(1)=n2:numeri7(2)=a1
numeri8(1)=n2:numeri8(2)=b1

ImpostaGiocata 1,numeri1,ruote,poste,8,2
ImpostaGiocata 2,numeri2,ruote,poste,8,2
ImpostaGiocata 3,numeri3,ruote,poste,8,2
ImpostaGiocata 4,numeri4,ruote,poste,8,2
ImpostaGiocata 5,numeri5,ruote,poste,8,2
ImpostaGiocata 6,numeri6,ruote,poste,8,2
ImpostaGiocata 7,numeri7,ruote,poste,8,2
ImpostaGiocata 8,numeri8,ruote,poste,8,2

Gioca es
End If
End If
End If

Next
Next

Next
Next
Next

ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
ScriviResoconto 5
ScriviResoconto 6
ScriviResoconto 7
ScriviResoconto 8
ScriviResoconto

ScriviResoconto
End Sub

Abib

rudivall · 29 Luglio 2006

Grazie mille Abib per questo tuo intervento

rodolfo

rudivall · 29 Luglio 2006

Grazie mille Abib per questo tuo intervento

rodolfo

Abib · 29 Luglio 2006

Grazie mille a voi!!!!!
Un bel metodo, ......se qualche sistemista potesse metterci del suo, penso che farebbe contenta molta gente!!

gio 27.07.2006 [7626]
G 1: A 37.52 Ba Ca 1/8
in corso (1° su 8)
G 2: A 37.75 Ba Ca 1/8
in corso (1° su 8)
G 3: A 37.55 Ba Ca 1/8
in corso (1° su 8)
G 4: A 37.72 Ba Ca 1/8
in corso (1° su 8)
G 5: A 82.52 Ba Ca 1/8
in corso (1° su 8)
G 6: A 82.75 Ba Ca 1/8
E: 75.82 su Ba 1° colpo [7627/29.07.2006]
I1
G 7: A 82.55 Ba Ca 1/8
in corso (1° su 8)
G 8: A 82.72 Ba Ca 1/8
in corso (1° su 8)

Abib

Abib · 29 Luglio 2006

Grazie mille a voi!!!!!
Un bel metodo, ......se qualche sistemista potesse metterci del suo, penso che farebbe contenta molta gente!!

gio 27.07.2006 [7626]
G 1: A 37.52 Ba Ca 1/8
in corso (1° su 8)
G 2: A 37.75 Ba Ca 1/8
in corso (1° su 8)
G 3: A 37.55 Ba Ca 1/8
in corso (1° su 8)
G 4: A 37.72 Ba Ca 1/8
in corso (1° su 8)
G 5: A 82.52 Ba Ca 1/8
in corso (1° su 8)
G 6: A 82.75 Ba Ca 1/8
E: 75.82 su Ba 1° colpo [7627/29.07.2006]
I1
G 7: A 82.55 Ba Ca 1/8
in corso (1° su 8)
G 8: A 82.72 Ba Ca 1/8
in corso (1° su 8)

Abib

imported_n/a · 1 Agosto 2006

...MA GUARDA IL CASO, AMBO 47-48 SU BARI!!!!

IL LOTTISTA

imported_n/a · 1 Agosto 2006

...MA GUARDA IL CASO, AMBO 47-48 SU BARI!!!!

IL LOTTISTA

Abib · 1 Agosto 2006

Per gli amanti dello script, da correggere:

Sostituire questa riga
If Figura (a1)= Figura (b1+1) And Figura (b1-1) Then

Con questa
If Figura (a1)= Figura (b1+1) Or Figura (b1-1) Then

Tanti ambi questa sera!!
Ciao.

Abib

Abib · 1 Agosto 2006

Per gli amanti dello script, da correggere:

Sostituire questa riga
If Figura (a1)= Figura (b1+1) And Figura (b1-1) Then

Con questa
If Figura (a1)= Figura (b1+1) Or Figura (b1-1) Then

Tanti ambi questa sera!!
Ciao.

Abib

imported_n/a · 1 Agosto 2006

grazie abib per la tua seria e coerente valutazione, purtroppo c'e' chi gli script si vanta di saperli fare.

IL LOTTISTA

imported_n/a · 1 Agosto 2006

grazie abib per la tua seria e coerente valutazione, purtroppo c'e' chi gli script si vanta di saperli fare.

IL LOTTISTA

Lottofantasy · 1 Agosto 2006

"hai da accendere...." una volta mi scrivesti cosi...

ora lo scrivo a te..."hai da accendere"

LOTTO

FANTASY

Lottofantasy · 1 Agosto 2006

"hai da accendere...." una volta mi scrivesti cosi...

ora lo scrivo a te..."hai da accendere"

LOTTO

FANTASY

imported_n/a · 2 Agosto 2006

...fumi anche tu lottofantasy...[8D]

IL LOTTISTA

imported_n/a · 2 Agosto 2006

...fumi anche tu lottofantasy...[8D]

IL LOTTISTA

imported_n/a · 2 Agosto 2006

vediamo se ho capito
dal 27/7 rilevo

BA/CA 76 31/34 42 32 44
CA/FI 20 65/42 68 46 48
TO/VE 86 41/12 74 17 24

dall'ultima estrazione rilevo

TO/VE 43 88/12 31 13 21

VI PRESENTO " AMBOLIDE"... AMBO SECCO A COLPO!

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Junior Member

Junior Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Junior Member

Junior Member

Advanced Premium Member

Advanced Premium Member

Junior Member

Junior Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member