imported_n/a
Advanced Premium Member
LOTTI SE MI LEGGI TI DICO SEMPLICEMENTE
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
imported_n/a
Advanced Premium Member
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
Advanced Premium Member
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"...
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
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
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
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
Grazie mille Abib per questo tuo interventoGrazie 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
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
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
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
Advanced Premium Member
...MA GUARDA IL CASO, AMBO 47-48 SU BARI!!!!
IL LOTTISTA
IL LOTTISTA
imported_n/a
Advanced Premium Member
...MA GUARDA IL CASO, AMBO 47-48 SU BARI!!!!
IL LOTTISTA
IL LOTTISTA
imported_n/a
Advanced Premium Member
grazie abib per la tua seria e coerente valutazione, purtroppo c'e' chi gli script si vanta di saperli fare.
IL LOTTISTA
IL LOTTISTA
imported_n/a
Advanced Premium Member
grazie abib per la tua seria e coerente valutazione, purtroppo c'e' chi gli script si vanta di saperli fare.
IL LOTTISTA
IL LOTTISTA
Lottofantasy
Premium Member
"hai da accendere...." una volta mi scrivesti cosi...
ora lo scrivo a te..."hai da accendere"
LOTTO
Lottofantasy
Premium Member
"hai da accendere...." una volta mi scrivesti cosi...
ora lo scrivo a te..."hai da accendere"
LOTTO
imported_n/a
Advanced Premium Member
...fumi anche tu lottofantasy...[8D]
IL LOTTISTA
IL LOTTISTA
imported_n/a
Advanced Premium Member
...fumi anche tu lottofantasy...[8D]
IL LOTTISTA
IL LOTTISTA
imported_n/a
Advanced Premium Member
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
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
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 31 gennaio 2026Bari8238722622Cagliari0233125901Firenze1006018139Genova2927752504Milano4871515618Napoli1462651757Palermo1314874457Roma0439182972Torino0822533778Venezia2167615560Nazionale6757458623Estrazione Simbolotto
Bari
4209382434
