COLPO QUATERNA

[LINEA5]

Preso Ambo 27.78 , grazie all'autore. Si continua tutto il mese?

 

[domenico62]

Preso Ambo 27.78 , grazie all'autore. Si continua tutto il mese?

Ciao LINEA5 si continua x tutto il mese..saluti

 

[nancy48]

Buongiorno Nancy48 si sono sempre le stesse x 12 estrazioni come consiglia l'autore del metodo Vincenzo

Grazie x la risposta

 

[Donato1]

Scusate ma dove è 27 78,? Sto sbagliando la giocata? Io gioco napoNapoli

 

[Donato1]

Scusate ma dove è 27 78,? Sto sbagliando la giocata? Io gioco Napoli 15 58 79 23/ 66 1 79 72/ 78 16 5u 67 / sono giuste?

 

[Andrea81]

Sono state postate le giocate anche da Domenico62 ieri pomeriggio

 

[Andrea81]

Gege mi dispiace ma penso che tu hai dei numeri sbagliati 27/78 è nella prima quartina

 

[Bluette5]

queste sono le quartine di settembre...adesso ci sono quelle di ottobre

 

[Bluette5]

queste sono le quartine di settembre...adesso ci sono quelle di ottobre

la risposta è x gege

 

[Donato1]

Grazie molto gentile

 

[domenico62]

Grazie molto gentile ...le riposto..grazie allo screen di Franca46... saluti

 

[Donato1]

Grazie Domenico sto giocando le sue in silenzio non facciamo pubblicità in caso di vincita brindare saluti

 

[sandrina50]

No! Deve uscire la Quaterna a Napoli!!

E brava jiulietta !!!!!!!

 

[sandrina50]

Ma dove L hai presa questa correzione ho rivisto tutta la discussione nessuno ha mai menzionato di correzioni

Andrea controlla bene dall'inizio vedrai che è il 51 ...comunque sappiate che io mi gioco anche la quartina col 62 !!!!

 

[Andrea81]

Ma stai parlando di quella di Ottobre? Le quartine le ha messe anche Domenico ieri

 

[sandrina50]

Ma stai parlando di quella di Ottobre? Le quartine le ha messe anche Domenico ieri

Si di ottobre ,forse non ti sei accorto che è stato postato un nuovo script di correzione da Vincenzo57 eccolo
guarda a pg 3 e vedrai che è questo neanche domenico si è accorto ma il nuovo da ancora il 51 comunque io m i sono giocata anche quella col 62

ColoreTesto 2 :Scrivi String(17,32) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob",1



ColoreTesto 0


Sub Main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(4),amb1(4),amb2(4)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
poste3(2) = 1.20
poste3(3) = 1.40
poste3(4) = .40
'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
k = CInt(InputBox("Quanti colpi di Gioco?","colpi di Gioco",10))


fin = EstrazioneFin
ini = 10024
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob "




amb(1) = Fuori90(Estratto(es,2,2) + 14)'ambata
amb(2) = Fuori90(Estratto(es,2,4) + 3)'ambo
amb(3) = Fuori90(Estratto(es,6,1) + 2)'terno
amb(4) = Fuori90(Estratto(es,3,5) + 83)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(X) = amb Then amb = Fuori90(amb + 1)
Next
Next
Wend
End If
Rem fine formula

amb1(1) = Fuori90(Estratto(es,7,2) + 35)'ambata
amb1(2) = Fuori90(Estratto(es,8,3) + 27)'ambo
amb1(3) = Fuori90(Estratto(es,2,5) + 3)'terno
amb1(4) = Fuori90(Estratto(es,4,4) + 12)'terno

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 3
For y = x + 1 To 4
If amb1(X) = amb1 Then amb1 = Fuori90(amb1 + 1)
Next
Next
Wend
End If
Rem fine formula

amb2(1) = Fuori90(Estratto(es,3,4) + 13)'ambata
amb2(2) = Fuori90(Estratto(es,4,2) + 43)'ambo
amb2(3) = Fuori90(Estratto(es,8,1) + 80)'terno
amb2(4) = Fuori90(Estratto(es,7,5) + 33)'terno

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(X) = amb2 Then amb2 = Fuori90(amb2 + 1)
Next
Next
Wend
End If
Rem fine formula

casi = casi + 1:Scrivi String(75,"="),1
Scrivi String(65,"-") & " caso n° " &(casi),1
Scrivi
ruota(1) = 6:
ruote(1) = 6:co = 0


am4(1) = amb(1)
am4(2) = amb(2)
am4(3) = amb(3)
am4(4) = amb(4)
ImpostaGiocata 1,am4,ruota,poste3,k
am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
am4(4) = amb1(4)
ImpostaGiocata 2,am4,ruota,poste3,k
am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
am4(4) = amb2(4)
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[Alien.]

estrazioni	vincite ambi terni quaterne(statistica)	solo quaterne
1	1	1
2	2	0
3	2	1
4	2	0
5	1	0
6 13 ottobre giovedì	2	0
7 * 15 ottobre sabato	1	1
8 *18 ottobre martedì	1	0
9* 20 ottobre giovedì	1	1
10*22 ottobre sabato	1	1
11 ??	0	0
12 ??	0	0
13 ??	0	0

 

[pistacchio]

Si di ottobre ,forse non ti sei accorto che è stato postato un nuovo script di correzione da Vincenzo57 eccolo
guarda a pg 3 e vedrai che è questo neanche domenico si è accorto ma il nuovo da ancora il 51 comunque io m i sono giocata anche quella col 62

ColoreTesto 2 :Scrivi String(17,32) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob",1



ColoreTesto 0


Sub Main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(4),amb1(4),amb2(4)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
poste3(2) = 1.20
poste3(3) = 1.40
poste3(4) = .40
'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
k = CInt(InputBox("Quanti colpi di Gioco?","colpi di Gioco",10))


fin = EstrazioneFin
ini = 10024
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob "




amb(1) = Fuori90(Estratto(es,2,2) + 14)'ambata
amb(2) = Fuori90(Estratto(es,2,4) + 3)'ambo
amb(3) = Fuori90(Estratto(es,6,1) + 2)'terno
amb(4) = Fuori90(Estratto(es,3,5) + 83)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(X) = amb Then amb = Fuori90(amb + 1)
Next
Next
Wend
End If
Rem fine formula

amb1(1) = Fuori90(Estratto(es,7,2) + 35)'ambata
amb1(2) = Fuori90(Estratto(es,8,3) + 27)'ambo
amb1(3) = Fuori90(Estratto(es,2,5) + 3)'terno
amb1(4) = Fuori90(Estratto(es,4,4) + 12)'terno

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 3
For y = x + 1 To 4
If amb1(X) = amb1 Then amb1 = Fuori90(amb1 + 1)
Next
Next
Wend
End If
Rem fine formula

amb2(1) = Fuori90(Estratto(es,3,4) + 13)'ambata
amb2(2) = Fuori90(Estratto(es,4,2) + 43)'ambo
amb2(3) = Fuori90(Estratto(es,8,1) + 80)'terno
amb2(4) = Fuori90(Estratto(es,7,5) + 33)'terno

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(X) = amb2 Then amb2 = Fuori90(amb2 + 1)
Next
Next
Wend
End If
Rem fine formula

casi = casi + 1:Scrivi String(75,"="),1
Scrivi String(65,"-") & " caso n° " &(casi),1
Scrivi
ruota(1) = 6:
ruote(1) = 6:co = 0


am4(1) = amb(1)
am4(2) = amb(2)
am4(3) = amb(3)
am4(4) = amb(4)
ImpostaGiocata 1,am4,ruota,poste3,k
am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
am4(4) = amb1(4)
ImpostaGiocata 2,am4,ruota,poste3,k
am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
am4(4) = amb2(4)
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
End If
Next
ScriviResoconto
End Sub

Sandrina......non c'è nessuna modifica, se si fanno le somme di questo script le tre quartine sono identiche alle prime di ottobre postate, le abbiamo così:
87 27 78 12 - 79 26 56 51 - 68 32 55 62

 

[mezzomarinaio]

buonasera a tutti, e bravi chi ha giocato e centrato il secondo ambo,
secondo me, questo mese ha gia dato 2 ambi in quartina
dubito che possa dare ancora qualcosa.......................

 

[Alien.]

Infatti il "bicchiere" è mezzo vuoto e mezzo pieno !