COLPO QUATERNA

NEM · 23 Giugno 2023

Alien. ha scritto:
Ciao Sandrina come hai fato a prenderlo se il gioco e solo per NAPOLI ?

ha giocato a tutte...

sandrina50 · 23 Giugno 2023

Alien. ha scritto:
Ciao Sandrina come hai fato a prenderlo se il gioco e solo per NAPOLI ?

Ciao Alien,io ho pensato che dove esce il 90 potrebbe dare qualcosa, se osservi, la scorsa previsione del 02 maggio ha dato il terno a BA dove era uscito il 90 che formava la previsione nella 1° estrazione del mese con questi n.66 59 14 e così ho pensato di continuare anche a PA RO.... io credo che arriva qualcosa anche a RO e ora lo gioco a NA RO .....

sandrina50 · 23 Giugno 2023

NEM ha scritto:
ha giocato a tutte...

Ciao NEM, l'ho preso a ruota € 57,50 ...buoni x rigiocare

sandrina50 · 29 Giugno 2023

Ed ecco arrivato anche a RO 3 89......!!!!

franca46 · 30 Giugno 2023

Ciao Sandrina questa tua idea potrebbe essere interessante, provo a modificare il listato e vediamo coma si è comportato.

Alien. · 30 Giugno 2023

Ciao franca puoi dirmi dove hai inserito il listato, grazie ,quello già inserito .
Adesso lo fai su tutte ?

franca46 · 30 Giugno 2023

Ciao alien , no ho inserito un mio listato , in quello di Vincenzo ho aggiunto la giocata su tutte , ma nel mio L8 ,voglio controllare come si sia comportato nei mesi scorsi .

Alien. · 30 Giugno 2023

franca46 ha scritto:
Ciao alien , no ho inserito un mio listato , in quello di Vincenzo ho aggiunto la giocata su tutte , ma nel mio L8 ,voglio controllare come si sia comportato nei mesi scorsi .

ottima idea se puoi inserisci qua, grazie.

Alien. · 30 Giugno 2023

vincenzo57 ha scritto:
'Ecco il listato del nuovo algoritmico

'https://enzob-metodieprevisioni.forumfree.it/?t=79279749&st=60#newpost
'04-05-2023
ColoreTesto 2 :Scrivi String(17,32) & " 1° del mese IL COLPO DELLA QUATERNA A NAPOLI con SPIA 90 by Enzob",1
Scrivi
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)): ColoreTesto 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 = 9854
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob "

SPIA = 90

ng = 0
For z = 1 To 12
If z = 11 Then z = 12 '<----ruota di ricerca
For p = 1 To 5

a = Estratto(es,z,p)

If a = SPIA Then

amb(1) = Fuori90(Estratto(es,6,2) + Estratto(es,8,1) + 1)
amb(2) = Fuori90(Estratto(es,8,5) + Estratto(es,10,2) + 55)
amb(3) = Fuori90(Estratto(es,8,5) + Estratto(es,9,1) + 40)
amb(4) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 17)
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,1,2) + Estratto(es,12,1) + 1)
amb1(2) = Fuori90(Estratto(es,4,3) + Estratto(es,5,1) + 68)
amb1(3) = Fuori90(Estratto(es,3,5) + Estratto(es,10,4) + 60)
amb1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1) + 45)

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,1,1) + Estratto(es,1,4) + 1)
amb2(2) = Fuori90(Estratto(es,7,3) + Estratto(es,12,2) + 3)
amb2(3) = Fuori90(Estratto(es,3,5) + Estratto(es,6,4) + 42)
amb2(4) = Fuori90(Estratto(es,5,5) + Estratto(es,8,1) + 54)

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
Next
End If
Next
ScriviResoconto
End Sub

Ciao Vicenzo a giugno 2023 mi da 2 volte lo stesso pronostico è un errore appurre ho il pc sbronzo ! grazie.

franca46 · 30 Giugno 2023

ciao alien , non è sbronzo , il 90 è uscito due volte Pa - Ro

franca46 · 30 Giugno 2023

Alien. ha scritto:
ottima idea se puoi inserisci qua, grazie.

Codice:

ColoreTesto 2 :Scrivi String(17,32) & " 1° del mese IL COLPO DELLA QUATERNA A NAPOLI con SPIA 90 by Enzob",1
Scrivi
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)): ColoreTesto 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(2),ruot(2)
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",13))


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

SPIA = 90

ng = 0
For z = 1 To 12
If z = 11 Then z = 12 '<----ruota di ricerca
For p = 1 To 5


a = Estratto(es,z,p)

If a = SPIA Then


amb(1) = Fuori90(Estratto(es,6,2) + Estratto(es,8,1) + 1)
amb(2) = Fuori90(Estratto(es,8,5) + Estratto(es,10,2) + 55)
amb(3) = Fuori90(Estratto(es,8,5) + Estratto(es,9,1) + 40)
amb(4) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 17)

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(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula

amb1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,12,1) + 1)
amb1(2) = Fuori90(Estratto(es,4,3) + Estratto(es,5,1) + 68)
amb1(3) = Fuori90(Estratto(es,3,5) + Estratto(es,10,4) + 60)
amb1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1) + 45)

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(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula

amb2(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
amb2(2) = Fuori90(Estratto(es,7,3) + Estratto(es,12,2) + 3)
amb2(3) = Fuori90(Estratto(es,3,5) + Estratto(es,6,4) + 42)
amb2(4) = Fuori90(Estratto(es,5,5) + Estratto(es,8,1) + 54)

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(y) Then amb2(y) = Fuori90(amb2(y) + 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: ruota(2)=12
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

ruot(1)=11 : ruot(2)=12

ImpostaGiocata 2,am4,ruot,poste3,k

am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
am4(4) = amb1(4)
ImpostaGiocata 3,am4,ruota,poste3,k

ruot(1)=11: ruot(2)=12

ImpostaGiocata 4,am4,ruot,poste3,k

am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
am4(4) = amb2(4)
ImpostaGiocata 5,am4,ruota,poste3,k

ruot(1)=11: ruot(2)=12

ImpostaGiocata 6,am4,ruot,poste3,k

Gioca es
End If
Next
Next
End If
Next
ScriviResoconto
End Sub

franca46 · 30 Giugno 2023

ecco il resoconto di giugno

Codice:

gio 01.06.2023  [10246]
  G  1:  ATQ        78.58.84.79   Na Nz    12/13    
     in corso (12° su 13)
  G  2:  ATQ        78.58.84.79   Tu Nz    12/13    
     A  78.58            su Tu (Mi)   10° colpo   [10256/24.06.2023]
     in corso (12° su 13)
  G  3:  ATQ        03.89.20.14   Na Nz    12/13    
     A  89.14            su Na    7° colpo   [10253/17.06.2023]
     in corso (12° su 13)
  G  4:  ATQ        03.89.20.14   Tu Nz    12/13    
     A  89.14            su Tu (Na)    7° colpo   [10253/17.06.2023]
     A  03.89            su Tu (Pa)    9° colpo   [10255/22.06.2023] ******
     A  89.03            su Tu (Ro)   12° colpo   [10258/29.06.2023] ******
     in corso (12° su 13)
  G  5:  ATQ        61.16.89.31   Na Nz    12/13    
     in corso (12° su 13)
  G  6:  ATQ        61.16.89.31   Tu Nz    12/13    
     A  61.89            su Tu (To)    4° colpo   [10250/10.06.2023]
     in corso (12° su 13)

ho segnato le ruote dove è uscito i 90

sandrina50 · 30 Giugno 2023

franca46 ha scritto:

ecco il resoconto di giugno

Codice:

gio 01.06.2023  [10246]
  G  1:  ATQ        78.58.84.79   Na Nz    12/13   
     in corso (12° su 13)
  G  2:  ATQ        78.58.84.79   Tu Nz    12/13   
     A  78.58            su Tu (Mi)   10° colpo   [10256/24.06.2023]
     in corso (12° su 13)
  G  3:  ATQ        03.89.20.14   Na Nz    12/13   
     A  89.14            su Na    7° colpo   [10253/17.06.2023]
     in corso (12° su 13)
  G  4:  ATQ        03.89.20.14   Tu Nz    12/13   
     A  89.14            su Tu (Na)    7° colpo   [10253/17.06.2023]
     A  03.89            su Tu (Pa)    9° colpo   [10255/22.06.2023] ******
     A  89.03            su Tu (Ro)   12° colpo   [10258/29.06.2023] ******
     in corso (12° su 13)
  G  5:  ATQ        61.16.89.31   Na Nz    12/13   
     in corso (12° su 13)
  G  6:  ATQ        61.16.89.31   Tu Nz    12/13   
     A  61.89            su Tu (To)    4° colpo   [10250/10.06.2023]
     in corso (12° su 13)

ho segnato le ruote dove è uscito i 90

Ciao franca46,bel lavoro, io credo sia opportuno tenere presente anche la ruota dove si presenta il 90, senza tanto svenarsi però una piccola puntatina non è da sottovalutare comunque vediamo la prossima estrazione dove si potrà ricavare la nuova previsione sempre che ci siano le condizioni. Ti saluto, domani vedremo ,io x domani gioco solo a NA ciaoooooo

mezzomarinaio · 30 Giugno 2023

dal mio punto di vista ha gia' pagato, io aspetto luglio...................

Alien. · 30 Giugno 2023

franca46 ha scritto:

Codice:

ColoreTesto 2 :Scrivi String(17,32) & " 1° del mese IL COLPO DELLA QUATERNA A NAPOLI con SPIA 90 by Enzob",1
Scrivi
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)): ColoreTesto 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(2),ruot(2)
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",13))


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

SPIA = 90

ng = 0
For z = 1 To 12
If z = 11 Then z = 12 '<----ruota di ricerca
For p = 1 To 5


a = Estratto(es,z,p)

If a = SPIA Then


amb(1) = Fuori90(Estratto(es,6,2) + Estratto(es,8,1) + 1)
amb(2) = Fuori90(Estratto(es,8,5) + Estratto(es,10,2) + 55)
amb(3) = Fuori90(Estratto(es,8,5) + Estratto(es,9,1) + 40)
amb(4) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 17)

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(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula

amb1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,12,1) + 1)
amb1(2) = Fuori90(Estratto(es,4,3) + Estratto(es,5,1) + 68)
amb1(3) = Fuori90(Estratto(es,3,5) + Estratto(es,10,4) + 60)
amb1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1) + 45)

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(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula

amb2(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
amb2(2) = Fuori90(Estratto(es,7,3) + Estratto(es,12,2) + 3)
amb2(3) = Fuori90(Estratto(es,3,5) + Estratto(es,6,4) + 42)
amb2(4) = Fuori90(Estratto(es,5,5) + Estratto(es,8,1) + 54)

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(y) Then amb2(y) = Fuori90(amb2(y) + 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: ruota(2)=12
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

ruot(1)=11 : ruot(2)=12

ImpostaGiocata 2,am4,ruot,poste3,k

am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
am4(4) = amb1(4)
ImpostaGiocata 3,am4,ruota,poste3,k

ruot(1)=11: ruot(2)=12

ImpostaGiocata 4,am4,ruot,poste3,k

am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
am4(4) = amb2(4)
ImpostaGiocata 5,am4,ruota,poste3,k

ruot(1)=11: ruot(2)=12

ImpostaGiocata 6,am4,ruot,poste3,k

Gioca es
End If
Next
Next
End If
Next
ScriviResoconto
End Sub

GRAZIE Franca ottimo ma diventa un pò complicato giocare a tutte le quartine ma se esce l'ambo quanto si "incassa" """3,83 € un po poco(38,32diviso 10)= 3,83 €

Num. giocati	ambata	estr. det.	ambo	terno	quaterna	cinquina
1	10,33	50,60	-	-	-	-
2	5,16	25,30	230	-	-	-
3	3,44	16.86	76,66	4.140	-	-
4	2,57	12,65	38,32	1.035	110.400	-
5	2,06	10,12	23	414	22.080	5.520.000
6	1,72	8,42	15,32	207	7.360	920.000
7	1,47	7,22	10,94	118,28	3.154,28	262.857,13
8	1,28	6,32	8,20	73,92	1.577,13	98.571,42
9	1,14	5,62	6,38	49.28	876.18	43.809,51
10	1,03	5,06	5,10	34,50	525,70	21.904,75

su tutte
ambi	terni	quaterne
69	3	0

franca46 · 30 Giugno 2023

Questo è il quadro completo, poi ognuno usa le sue tasche

Andrea81 · 1 Luglio 2023

Io credo di lasciare questa tecnica 4 estrazioni sono troppe ho deciso di non giocare più

sandrina50 · 1 Luglio 2023

Estrazione generatrice del pronostico 10258 [ 38 - 01/07/2023]
G 0001 Numeri in gioco : 66.89.25.58 su NA per Ambo,Terno,Quaterna
In corso per altre 10 estrazioni
G 0002 Numeri in gioco : 09.78.77.50 su NA per Ambo,Terno,Quaterna
In corso per altre 10 estrazioni
G 0003 Numeri in gioco : 36.24.69.50 su NA per Ambo,Terno,Quaterna
In corso per altre 10 estrazioni
Ciao a tutti, vi risultano queste le nuove previsioni x il mese di luglio ...grazie ciao

Abitte · 1 Luglio 2023

Questi sono i calcoli del metodo classico....ma l'ultimo numero della terza quartina è 15 e non 50 (72+33=105-90=15)

Antondavide · 2 Luglio 2023

Queste dovrebbero essere le quartine col metodo della presenza del 90 alla 1^ di luglio

75-78-52-51
48-12-36-58
02-67-79-56

COLPO QUATERNA

Advanced Member >PLATINUM<

Advanced Member

Advanced Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Super Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<