Tabulati percentuali di LuigiB
- Creatore Discussione Baciccia4251
- Data di inizio
Scxusami ma no ho potuto fare pronostici . sono rientrato ora
hai visto il mio ciao ?
Prendendo tutti i numeri segnalati con lettera >=A dell' estrazione del 29/06/2024 e dell' estrazione del 02/07/2024 numeri :
10 13 19 54 55 66 74 89
38 47 49 54 62
nell' estrazione del 04/07/2024 primo colpo ambo 47 55 un caso ? bho
vedi tabulato allegato .
Prima o poi sto programma . 🙂 🙂 🙂 🙂
ciao eughenosss
controlla sempre i saluti
10 13 19 54 55 66 74 89
38 47 49 54 62
nell' estrazione del 04/07/2024 primo colpo ambo 47 55 un caso ? bho
vedi tabulato allegato .
Prima o poi sto programma . 🙂 🙂 🙂 🙂
ciao eughenosss
controlla sempre i saluti
Ultima modifica:
Baciccia4251
Member
Qualcosa non torna. Tabulati Pazzaglia. Che cosa centra tutta questa inutile sega mentale del 38 e via delirando?
29 giugno?
Il 27 giugno Lotto7 indicava come probabile la quindicina 61-75 e il 29 giugno sono usciti 65 e 67 a Bari
A cagliari il 29 giugno indicava 46-60 il 2 luglio sono usciti 47-48-57...
Pazzaglia vi fa schifo?
Mah!
29 giugno?
Il 27 giugno Lotto7 indicava come probabile la quindicina 61-75 e il 29 giugno sono usciti 65 e 67 a Bari
A cagliari il 29 giugno indicava 46-60 il 2 luglio sono usciti 47-48-57...
Pazzaglia vi fa schifo?
Mah!
Ciao Baciccia,
Sto seguendo questo thread perché seguo anch'io la previsionistica.
Noto con piacere che ,anche se con punti di vista diversi, questa è un terreno comune a diversi threads su questo forum.
Fermo restando che il Prof. è fuori discussione,quello che genios e urusl8 stanno cercando di emulare,secondo me, è il mastro lettere.
Anche se ,devo notare, che negli ultimi giorni, i due si sono eclissati.
Mi auguro che qualsiasi progetto venga poi reso disponibile agli interessati,senza farne un'altro segreto di Fatima.
Analoga richiesta avevo fatto a suo tempo, ma ,a causa di "un'uccellino" non si fece più nulla.
Non vorrei che anche stavolta cada tutto nel dimenticatoio....
Se poi,per svariate ragioni,non si vuole rendere pubblico, mi prenoto in privato.
Naturalmente,la mia è solo una battuta.
Un abbraccio, Baciccia, e aspettiamo tue indicazioni per le prossime estrazioni.
Ma questo non è un tabulato delle percentuali è solo l' uscita di ciascun numero nell' estrazioni. Come lo fai il pronostico .
PUOI SOLO VEDERE LE DIRETTRICI E I PSEUDO GRUPPI DI ALTA FREQUENZA .
CIAO
Un saluto circolare per tutti gli abitanti del forum.
Anche io mi auguro che questo progetto venga reso disponibile e qualora non si volesse renderlo publico, mi prenoto in privato.
Grazie.
max63
Member
Ciao genios e lo chiami poco?
Qui si vedono le quindicine che stanno per dare almeno l'ambo....Non sto parlando dell'ambata ma almeno l'ambo e togliere di torno 75 numeri su 90 e non é poco. Stiamo parlando di Previsionistica razionale se ho ben capito.
Quindi all' estrema destra troverai dei numeri in grassetto appartenenti ad una determinata quindicina. Questa é la segnalazione che tale quindicina é destinata a dare almeno un ambo. La domanda é...entro quanti colpi...Cinque/nove colpi ..Ma i colpi vengono conteggiati ogni qualvolta esce un appartenente a tale quindicina...quindi estrazioni effettive di estratti della quindicina che noi andremo a giocare xche segnalata...Perche una quindicina viene segnalata?..perche sta entrando in frequenza ovvero sta dando estratti..
Un cordiale saluto
Ultima modifica:
max63 ti faccio un regalino
fai delle prove e fammi sapere.
Sub Main()
Scrivi "numero ripetuto su 2 estr. per genios (list by maxma62)",1
Scrivi "giocata per decina naturale oppure cabalistica",1
Dim nu1(10),num(10)
Dim posta(5)
Dim ruote(10)
posta(2) = 5
osta(3) = 3osta(4) = 2g = CInt(InputBox("decina natut. = 1 / decina cabal. = 2","giocata per....",1))
ini = EstrazioneFin - 100
fin = EstrazioneFin
For n = ini To fin
Messaggio
For r1 = 1 To 12
If r1 <> 11 Then
For p1 = 1 To 5
a = Estratto(n - 1,r1,p1)
b = Estratto(n,r1,p1)
If a = b Then
dc = Decina(a)*10
nu1(1) = Fuori90(dc + 1)
nu1(2) = Fuori90(dc + 2)
nu1(3) = Fuori90(dc + 3)
nu1(4) = Fuori90(dc + 4)
nu1(5) = Fuori90(dc + 5)
nu1(6) = Fuori90(dc + 6)
nu1(7) = Fuori90(dc + 7)
nu1(8) = Fuori90(dc + 8)
nu1(9) = Fuori90(dc + 9)
nu1(10) = Fuori90(dc + 10)
ruote(1) = r1:k = 14
If SerieFreq(n - 1,n,nu1,ruote,1) = 2 Then
casi = casi + 1:Scrivi String(70,"="),1
Scrivi DataEstrazione(n - 1,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n - 1,r1) & _
" ] [ " & Format2(a) & " " &(p1) & "^ pos. ]" & Space(5) & "(caso n° " &(casi) & ")"
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n,r1) & _
" ] [ " & Format2(b) & " " &(p1) & "^ pos. ]"
If g = 1 Then
ColoreTesto 1 :Scrivi "giocata per decina naturale",1:ColoreTesto 0
Else If g = 2 Then
ColoreTesto 1 :Scrivi "giocata per decina cabalastica",1:ColoreTesto 0
End If :End If
Scrivi String(70,"-")
If g = 1 Then
dc = Decina(a)*10
num(1) = nu1(1)
num(2) = nu1(2)
num(3) = nu1(3)
num(4) = nu1(4)
num(5) = nu1(5)
num(6) = nu1(6)
num(7) = nu1(7)
num(8) = nu1(8)
num(9) = nu1(9)
num(10) = nu1(10)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
If g = 2 Then
dc = Decina(a)*10
If dc = 0 Then dc = 90
num(1) = dc
num(2) = nu1(1)
num(3) = nu1(2)
num(4) = nu1(3)
num(5) = nu1(4)
num(6) = nu1(5)
num(7) = nu1(6)
num(8) = nu1(7)
num(9) = nu1(8)
num(10) = nu1(9)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
End If
End If
Next
End If
Next:Next
ScriviResoconto
End Sub
Baciccia4251
Member
Ciao max63
Quello che scrivi è corretto. I numeri in grassetto indicano quindicine destinate a dare almeno un ambo. Occorre, però, affiancare a queste indicazioni altre derivanti dalla lettura INTELLIGENTE dei tabulati delle percentuali, occorre altresì considerare l'andamento estrazionale della quindicina segnalata: gli estratti appartenenti alla quindicina stanno dando luogo ad un ciclo di alta frequenza? E via considerando...
Ciò aiuta a ridurre il tempo d'attesa.
Tutte considerazioni impossibili da ridurre ad un semplice Script che, per quanto complesso e ben studiato, non può considerare tutte queste variabili, quindi dire che uno Script dimostra l'inefficacia del sistema è errato.
Il gioco del lotto è affascinante. Ma deve rimanere solo un gioco.
Se va bene vinci qualcosa. Se va male perdi poco.
Divertirsi è lecito e gratificante, rovinarsi è da...
Io mi diverto. Ad esempio l'ultima giocata fatta è stata l'8 su Venezia e 5.6.7.85.86.87 su Bari.
Controllo i risultati e sono usciti: l'8 su Venezia e 7.87 su Bari.
Controllo le schedine e mi accorgo d'aver giocato l'8 su Bari e 5.6.7.85.86.87 su Venezia... Che divertimento!
Un accidenti alla testa che troppo spesso se ne va in vacanza. Ma appena ritorna...
max63
Member
Grazie ..Sub Main()
Scrivi "numero ripetuto su 2 estr. per genios (list by maxma62)",1
Scrivi "giocata per decina naturale oppure cabalistica",1
Dim nu1(10),num(10)
Dim posta(5)
Dim ruote(10)
posta(2) = 5
g = CInt(InputBox("decina natut. = 1 / decina cabal. = 2","giocata per....",1))
ini = EstrazioneFin - 100
fin = EstrazioneFin
For n = ini To fin
Messaggio
For r1 = 1 To 12
If r1 <> 11 Then
For p1 = 1 To 5
a = Estratto(n - 1,r1,p1)
b = Estratto(n,r1,p1)
If a = b Then
dc = Decina(a)*10
nu1(1) = Fuori90(dc + 1)
nu1(2) = Fuori90(dc + 2)
nu1(3) = Fuori90(dc + 3)
nu1(4) = Fuori90(dc + 4)
nu1(5) = Fuori90(dc + 5)
nu1(6) = Fuori90(dc + 6)
nu1(7) = Fuori90(dc + 7)
nu1(8) = Fuori90(dc + 8)
nu1(9) = Fuori90(dc + 9)
nu1(10) = Fuori90(dc + 10)
ruote(1) = r1:k = 14
If SerieFreq(n - 1,n,nu1,ruote,1) = 2 Then
casi = casi + 1:Scrivi String(70,"="),1
Scrivi DataEstrazione(n - 1,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n - 1,r1) & _
" ] [ " & Format2(a) & " " &(p1) & "^ pos. ]" & Space(5) & "(caso n° " &(casi) & ")"
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n,r1) & _
" ] [ " & Format2(b) & " " &(p1) & "^ pos. ]"
If g = 1 Then
ColoreTesto 1 :Scrivi "giocata per decina naturale",1:ColoreTesto 0
Else If g = 2 Then
ColoreTesto 1 :Scrivi "giocata per decina cabalastica",1:ColoreTesto 0
End If :End If
Scrivi String(70,"-")
If g = 1 Then
dc = Decina(a)*10
num(1) = nu1(1)
num(2) = nu1(2)
num(3) = nu1(3)
num(4) = nu1(4)
num(5) = nu1(5)
num(6) = nu1(6)
num(7) = nu1(7)
num(8) = nu1(8)
num(9) = nu1(9)
num(10) = nu1(10)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
If g = 2 Then
dc = Decina(a)*10
If dc = 0 Then dc = 90
num(1) = dc
num(2) = nu1(1)
num(3) = nu1(2)
num(4) = nu1(3)
num(5) = nu1(4)
num(6) = nu1(5)
num(7) = nu1(6)
num(8) = nu1(7)
num(9) = nu1(8)
num(10) = nu1(9)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
End If
End If
Next
End If
Next:Next
ScriviResoconto
End Sub
Chissà incrociandolo con questo
Sub Main()
Dim r(10)
Dim vam1(10),vam2(10),vam3(10),vam4(10)
Dim am1(2),am2(2),am3(2),am4(2)
Dim n1(20),n2(20),n3(20),n4(20)
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim posta(5)
posta(2) = 1.5
posta(3) = 0.4
posta(4) = 0.1
co = 0
rr = InputBox("SU QUALE RUOTA ?","SCELTA RUOTA",1)
r(1) = rr
clp = InputBox("QUNATI COLPI di GIOCO?","COLPI DI GIOCO",5)
ini = InputBox("ESTRAZIONE INIZIALE : ","INIZIO ANALISI",EstrazioneFin - 100)
fin = InputBox("ESTRAZIONE FINALE : ","FINE ANALISI",EstrazioneFin)
For es = ini To fin
Messaggio(es)
' Estratti estrazione precedente
a1 = Estratto(es - 1,rr,1)
a2 = Estratto(es - 1,rr,2)
a3 = Estratto(es - 1,rr,3)
a4 = Estratto(es - 1,rr,4)
' Estratti estrazione corrente
b1 = Estratto(es,rr,2)
b2 = Estratto(es,rr,3)
b3 = Estratto(es,rr,4)
b4 = Estratto(es,rr,5)
' Moltiplicazione in diagonale degli estratti
d1 = a1*b1
d2 = a2*b2
d3 = a3*b3
d4 = a4*b4
' Formazione dell'Ambo n° 1
If d1 < 100 Then
am1(1) = Decina(d1)
am1(2) = Cadenza(d1)
If am1(2) = 0 Then am1(2) = 90 End If
End If
If d1 > 99 And d1 < 1000 Then
am1(1) = d1\10
am1(2) = d1 Mod 10
If am1(2) = 0 Then am1(2) = 90 End If
End If
If d1 > 999 Then
am1(1) = d1\100
am1(2) = d1 Mod 100
If am1(2) = 0 Then am1(2) = 90 End If
End If
x1 = Decina(am1(1))
x2 = Decina(am1(2))
If x1 = x2 Then
dd1 = 1
Else
dd1 = 0
End If
' Formazione dell'Ambo n° 2
If d2 < 100 Then
am2(1) = Decina(d2)
am2(2) = Cadenza(d2)
If am2(2) = 0 Then am2(2) = 90 End If
End If
If d2 > 99 And d2 < 1000 Then
am2(1) = d2\10
am2(2) = d2 Mod 10
If am2(2) = 0 Then am2(2) = 90 End If
End If
If d2 > 999 Then
am2(1) = d2\100
am2(2) = d2 Mod 100
If am2(2) = 0 Then am2(2) = 90 End If
End If
x1 = Decina(am2(1))
x2 = Decina(am2(2))
If x1 = x2 Then
dd2 = 1
Else
dd2 = 0
End If
' Formazione dell'Ambo n° 3
If d3 < 100 Then
am3(1) = Decina(d3)
am3(2) = Cadenza(d3)
If am3(2) = 0 Then am3(2) = 90 End If
End If
If d3 > 99 And d3 < 1000 Then
am3(1) = d3\10
am3(2) = d3 Mod 10
If am3(2) = 0 Then am3(2) = 90 End If
End If
If d3 > 999 Then
am3(1) = d3\100
am3(2) = d3 Mod 100
If am3(2) = 0 Then am3(2) = 90 End If
End If
x1 = Decina(am3(1))
x2 = Decina(am3(2))
If x1 = x2 Then
dd3 = 1
Else
dd3 = 0
End If
' Formazione dell'Ambo n° 4
If d4 < 100 Then
am4(1) = Decina(d4)
am4(2) = Cadenza(d4)
If am4(2) = 0 Then am4(2) = 90 End If
End If
If d4 > 99 And d4 < 1000 Then
am4(1) = d4\10
am4(2) = d4 Mod 10
If am4(2) = 0 Then am4(2) = 90 End If
End If
If d4 > 999 Then
am4(1) = d4\100
am4(2) = d4 Mod 100
If am4(2) = 0 Then am4(2) = 90 End If
End If
x1 = Decina(am4(1))
x2 = Decina(am4(2))
If x1 = x2 Then
dd4 = 1
Else
dd4 = 0
End If
'*********************** INIZIO CONTROLLI REGOLE DI GIOCO **********************************
' controllo n° 1 - presenza nelle 2 estr. precedenti dei vertibili dell'ambo
c11 = 0
vam1(1) = Vert(am1(1))
vam1(2) = Vert(am1(2))
c11 = SerieFreq(es - 4,es,vam1,r,1)
c12 = 0
vam2(1) = Vert(am2(1))
vam2(2) = Vert(am2(2))
c12 = SerieFreq(es - 4,es,vam2,r,1)
c13 = 0
vam3(1) = Vert(am3(1))
vam3(2) = Vert(am3(2))
c13 = SerieFreq(es - 4,es,vam3,r,1)
c14 = 0
vam4(1) = Vert(am4(1))
vam4(2) = Vert(am4(2))
c14 = SerieFreq(es - 4,es,vam4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 2 - presenza nelle 5 estr. precedenti dei due numeri dell'ambo
c21 = 0
c21 = SerieFreq(es - 7,es,am1,r,1)
c22 = 0
c22 = SerieFreq(es - 7,es,am2,r,1)
c23 = 0
c23 = SerieFreq(es - 7,es,am3,r,1)
c24 = 0
c24 = SerieFreq(es - 7,es,am3,r,1)
'-----------------------------------------------------------------------------
' controllo n° 3 - presenza nelle 25 estr. precedenti dell'ambo
c31 = 0
c31 = SerieFreq(es - 27,es,am1,r,2)
c32 = 0
c32 = SerieFreq(es - 27,es,am2,r,2)
c33 = 0
c33 = SerieFreq(es - 27,es,am3,r,2)
c34 = 0
c34 = SerieFreq(es - 27,es,am4,r,2)
'-----------------------------------------------------------------------------
' controllo n° 4 - ritardo dei 2 numeri dell'ambo non superiore a 30 estrazioni
c41 = 0
c41 = SerieRitardo(es - 200,es,am1,r,1)
c42 = 0
c42 = SerieRitardo(es - 200,es,am2,r,1)
c43 = 0
c43 = SerieRitardo(es - 200,es,am3,r,1)
c44 = 0
c44 = SerieRitardo(es - 200,es,am4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 5 - presenza dell'ambo dei vertibili nelle 12 estrazioni precedenti
c51 = 0
c51 = SerieFreq(es - 14,es,vam1,r,2)
c52 = 0
c52 = SerieFreq(es - 14,es,vam2,r,2)
c53 = 0
c53 = SerieFreq(es - 14,es,vam3,r,2)
c54 = 0
c54 = SerieFreq(es - 14,es,vam4,r,2)
'********** ESAME DEI CONTROLLI E FORMAZIONE DELLE GIOCATE ***********************
' AMBO 1
If c11 = 0 And c21 = 0 And c31 = 0 And c41 < 32 And c51 = 0 And dd1 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am1(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n1(i) =(y*10) + i
Next
j = Decina(am1(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n1(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 1 " & StringaNumeri(am1),1
Scrivi " Numeri in gioco " & StringaNumeri(n1)
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(6)
nu1(7) = n1(7)
nu1(8) = n1(8)
nu1(9) = n1(9)
nu1(10) = n1(10)
ImpostaGiocata 1,nu1,r,posta,clp,4
nu1(1) = n1(11)
nu1(2) = n1(12)
nu1(3) = n1(13)
nu1(4) = n1(14)
nu1(5) = n1(15)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 2,nu1,r,posta,clp,4
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(11)
nu1(7) = n1(12)
nu1(8) = n1(13)
nu1(9) = n1(14)
nu1(10) = n1(15)
ImpostaGiocata 3,nu1,r,posta,clp,4
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 4,nu1,r,posta,clp,4
nu1(1) = n1(6)
nu1(2) = n1(7)
nu1(3) = n1(8)
nu1(4) = n1(9)
nu1(5) = n1(10)
nu1(6) = n1(11)
nu1(7) = n1(12)
nu1(8) = n1(13)
nu1(9) = n1(14)
nu1(10) = n1(15)
ImpostaGiocata 5,nu1,r,posta,clp,4
nu1(1) = n1(6)
nu1(2) = n1(7)
nu1(3) = n1(8)
nu1(4) = n1(9)
nu1(5) = n1(10)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 6,nu1,r,posta,clp,4
Gioca es
End If
' AMBO 2
If c12 = 0 And c22 = 0 And c32 = 0 And c42 < 32 And c52 = 0 And dd2 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am2(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n2(i) =(y*10) + i
Next
j = Decina(am2(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n2(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 2 " & StringaNumeri(am2),1
Scrivi " Numeri in gioco " & StringaNumeri(n2)
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(6)
nu2(7) = n2(7)
nu2(8) = n2(8)
nu2(9) = n2(9)
nu2(10) = n2(10)
ImpostaGiocata 7,nu2,r,posta,clp,4
nu2(1) = n2(11)
nu2(2) = n2(12)
nu2(3) = n2(13)
nu2(4) = n2(14)
nu2(5) = n2(15)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 8,nu2,r,posta,clp,4
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(11)
nu2(7) = n2(12)
nu2(8) = n2(13)
nu2(9) = n2(14)
nu2(10) = n2(15)
ImpostaGiocata 9,nu2,r,posta,clp,4
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 10,nu2,r,posta,clp,4
nu2(1) = n2(6)
nu2(2) = n2(7)
nu2(3) = n2(8)
nu2(4) = n2(9)
nu2(5) = n2(10)
nu2(6) = n2(11)
nu2(7) = n2(12)
nu2(8) = n2(13)
nu2(9) = n2(14)
nu2(10) = n2(15)
ImpostaGiocata 11,nu2,r,posta,clp,4
nu2(1) = n2(6)
nu2(2) = n2(7)
nu2(3) = n2(8)
nu2(4) = n2(9)
nu2(5) = n2(10)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 12,nu2,r,posta,clp,4
Gioca es
End If
' AMBO 3
If c13 = 0 And c23 = 0 And c33 = 0 And c43 < 32 And c53 = 0 And dd3 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am3(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n3(i) =(y*10) + i
Next
j = Decina(am3(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n3(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 3 " & StringaNumeri(am3),1
Scrivi " Numeri in gioco " & StringaNumeri(n3)
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(6)
nu3(7) = n3(7)
nu3(8) = n3(8)
nu3(9) = n3(9)
nu3(10) = n3(10)
ImpostaGiocata 13,nu3,r,posta,clp,4
nu3(1) = n3(11)
nu3(2) = n3(12)
nu3(3) = n3(13)
nu3(4) = n3(14)
nu3(5) = n3(15)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 14,nu3,r,posta,clp,4
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(11)
nu3(7) = n3(12)
nu3(8) = n3(13)
nu3(9) = n3(14)
nu3(10) = n3(15)
ImpostaGiocata 15,nu3,r,posta,clp,4
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 16,nu3,r,posta,clp,4
nu3(1) = n3(6)
nu3(2) = n3(7)
nu3(3) = n3(8)
nu3(4) = n3(9)
nu3(5) = n3(10)
nu3(6) = n3(11)
nu3(7) = n3(12)
nu3(8) = n3(13)
nu3(9) = n3(14)
nu3(10) = n3(15)
ImpostaGiocata 17,nu3,r,posta,clp,4
nu3(1) = n3(6)
nu3(2) = n3(7)
nu3(3) = n3(8)
nu3(4) = n3(9)
nu3(5) = n3(10)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 18,nu3,r,posta,clp,4
Gioca es
End If
' AMBO 4
If c14 = 0 And c24 = 0 And c34 = 0 And c44 < 32 And c54 = 0 And dd4 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am4(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n4(i) =(y*10) + i
Next
j = Decina(am4(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n4(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 4 " & StringaNumeri(am4),1
Scrivi " Numeri in gioco " & StringaNumeri(n4)
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(6)
nu4(7) = n4(7)
nu4(8) = n4(8)
nu4(9) = n4(9)
nu4(10) = n4(10)
ImpostaGiocata 19,nu4,r,posta,clp,4
nu4(1) = n4(11)
nu4(2) = n4(12)
nu4(3) = n4(13)
nu4(4) = n4(14)
nu4(5) = n4(15)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 20,nu4,r,posta,clp,4
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(11)
nu4(7) = n4(12)
nu4(8) = n4(13)
nu4(9) = n4(14)
nu4(10) = n4(15)
ImpostaGiocata 21,nu4,r,posta,clp,4
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 22,nu4,r,posta,clp,4
nu4(1) = n4(6)
nu4(2) = n4(7)
nu4(3) = n4(8)
nu4(4) = n4(9)
nu4(5) = n4(10)
nu4(6) = n4(11)
nu4(7) = n4(12)
nu4(8) = n4(13)
nu4(9) = n4(14)
nu4(10) = n4(15)
ImpostaGiocata 23,nu4,r,posta,clp,4
nu4(1) = n4(6)
nu4(2) = n4(7)
nu4(3) = n4(8)
nu4(4) = n4(9)
nu4(5) = n4(10)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 24,nu4,r,posta,clp,4
Gioca es
End If
Next
ScriviResoconto
End Sub
lo provo
max63
Member
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 13 luglio 2024Bari1618300610Cagliari4054447214Firenze4544768377Genova7481095426Milano0919087334Napoli8262881939Palermo8489900346Roma7280628121Torino4364763289Venezia2577872484Nazionale3210794812Estrazione Simbolotto
Nazionale
0313141806
