COLPO QUATERNA

mezzomarinaio · 26 Gennaio 2023

buonasera a tutti, e complimenti per chi ha realizzato anche piccole vincite......
immagino che gennaio è da considerarsi chiusa!

Bluette5 · 5 Marzo 2023

non è stato + aggiornato
le Quaterne di marzo

x NA....3-66-75-35......../.......21-89-26-57......../.......12-40-84-21....

uscito a colpo...NA....12..21

beccato il terno con ..12..21--90

BRAVISSIMO Vincenzo

Alien. · 5 Marzo 2023

Ciao Bluette ma il 90 ?

	Estrazione del Lotto di giovedì 2 marzo 2023
1	3	66	75	35
	Estrazione del Lotto di giovedì 2 marzo 2023
2	21	89	26	57
	Estrazione del Lotto di giovedì 2 marzo 2023
3	12	40	84	21

gege.45 · 5 Marzo 2023

Bohhhhhh!!!!!

Bluette5 · 5 Marzo 2023

ho tolto 84 xchè era appena uscito...ho aggiunto 90

tutto qui....ma 12..21...è uscito

Coccobello · 5 Marzo 2023

Scusa si deve ancora giocare, oppure no?

vincenzo57 · 6 Marzo 2023

Appena trovo un po di tempo farò un aggiornamento

franca46 · 8 Marzo 2023

ciao a tutti , nel nuovo anno abbiamo avuto questo

Codice:

----------------------------------------------------------------- caso n° 13

mar 03.01.2023  [10182]
  G  1:  ATQ        15.30.02.58   Na    12/12    
     negativo
  G  2:  ATQ        15.30.02.58   Tu    12/12    
     A  58.15            su Tu (Pa)    5° colpo   [10187/14.01.2023]

  G  3:  ATQ        62.72.22.01   Na    12/12    
     negativo
  G  4:  ATQ        62.72.22.01   Tu    12/12    
     A  22.72.62         su Tu (To)    6° colpo   [10188/17.01.2023]
     T  22.72.62         su Tu (To)    6° colpo   [10188/17.01.2023]
     A  62.01.22         su Tu (Pa)    7° colpo   [10189/19.01.2023]
     T  62.01.22         su Tu (Pa)    7° colpo   [10189/19.01.2023]
     A  62.22            su Tu (Pa)    8° colpo   [10190/21.01.2023]

  G  5:  ATQ        05.10.64.02   Na    12/12    
     negativo
  G  6:  ATQ        05.10.64.02   Tu    12/12    
     A  10.05            su Tu (Ge)    2° colpo   [10184/07.01.2023]

===========================================================================
----------------------------------------------------------------- caso n° 14

gio 02.02.2023  [10195]
  G  1:  ATQ        03.84.66.04   Na    12/12    
     negativo
  G  2:  ATQ        03.84.66.04   Tu    12/12    
     A  84.03            su Tu (Mi)    1° colpo   [10196/04.02.2023]
     A  66.04            su Tu (Pa)    3° colpo   [10198/09.02.2023]
     A  84.66            su Tu (Ro)   10° colpo   [10205/25.02.2023]

  G  3:  ATQ        58.28.68.60   Na    12/12    
     A  58.28            su Na    9° colpo   [10204/23.02.2023]

  G  4:  ATQ        58.28.68.60   Tu    12/12    
     A  60.58            su Tu (Ca)    5° colpo   [10200/14.02.2023]
     A  58.28            su Tu (Na)    9° colpo   [10204/23.02.2023]

  G  5:  ATQ        01.73.63.08   Na    12/12    
     negativo
  G  6:  ATQ        01.73.63.08   Tu    12/12    
     negativo
===========================================================================
----------------------------------------------------------------- caso n° 15

gio 02.03.2023  [10207]
  G  1:  ATQ        03.66.75.35   Na    2/12    
     in corso (2° su 12)
  G  2:  ATQ        03.66.75.35   Tu    2/12    
     in corso (2° su 12)
  G  3:  ATQ        21.89.26.57   Na    2/12    
     in corso (2° su 12)
  G  4:  ATQ        21.89.26.57   Tu    2/12    
     in corso (2° su 12)
  G  5:  ATQ        12.40.84.21   Na    2/12    
     A  12.21            su Na    1° colpo   [10208/04.03.2023]
     in corso (2° su 12)
  G  6:  ATQ        12.40.84.21   Tu    2/12    
     A  12.21            su Tu (Na)    1° colpo   [10208/04.03.2023]
     A  12.21.84         su Tu (Pa)    2° colpo   [10209/07.03.2023]
     T  12.21.84         su Tu (Pa)    2° colpo   [10209/07.03.2023]
     in corso (2° su 12)

Alien. · 8 Marzo 2023

E ma su tutte non male bisognerebbe fare lo script su tutte.

franca46 · 9 Marzo 2023

Ciao alien, è sufficiente aggiungere la giocata su tutte.
Buona giornata

Alien. · 9 Marzo 2023

franca46 ha scritto:
Ciao alien, è sufficiente aggiungere la giocata su tutte.
Buona giornata

Ciao franca giusto ma io vado con le statistiche per ridurre i numeri e trovare le ruote più frequenti a mano con excel ci metti un sacco di tempo invece con lo script il 3 secondi ho tutto, la pappa pronta. E vedo se è conveniente o no.

nadin · 13 Aprile 2023

Buon giorno. Vorrei chiedere, se Vincenzo57, ha un po' di tempo per dare le indicazioni, se questo metodo si puo usare ancora? Grazie.

Alien. · 13 Aprile 2023

franca46 ha scritto:
Ciao alien, è sufficiente aggiungere la giocata su tutte.
Buona giornata

CIAO franca puoi indicarmi come si inserisce per tutte, grazie.

sandrina50 · 13 Aprile 2023

qualcuno ha la nuova previsione x aprile.. grazie

franca46 · 14 Aprile 2023

Alien. ha scritto:
CIAO franca puoi indicarmi come si inserisce per tutte, grazie.

ciao alien ti metto il listato che uso io

Codice:

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),ruot(1)
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",12))


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(y) Then amb(y) = Fuori90(amb(y) + 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(y) Then amb1(y) = Fuori90(amb1(y) + 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(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:
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
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
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
ImpostaGiocata 6,am4,ruot,poste3,k

Gioca es
End If
Next
'ScriviResoconto
End Sub

e questa è la previsione di Aprile

Codice:

ab 01.04.2023  [10220]
  G  1:  ATQ        34.25.54.22   Na    5/12    
     in corso (5° su 12)
  G  2:  ATQ        34.25.54.22   Tu    5/12    
     A  22.34            su Tu (To)    3° colpo   [10223/08.04.2023]
     in corso (5° su 12)
  G  3:  ATQ        83.11.50.45   Na    5/12    
     in corso (5° su 12)
  G  4:  ATQ        83.11.50.45   Tu    5/12    
     A  45.11            su Tu (To)    1° colpo   [10221/04.04.2023]
     A  11.83            su Tu (Ba)    4° colpo   [10224/11.04.2023]
     A  50.11            su Tu (Ve)    4° colpo   [10224/11.04.2023]
     in corso (5° su 12)
  G  5:  ATQ        35.19.83.78   Na    5/12    
     in corso (5° su 12)
  G  6:  ATQ        35.19.83.78   Tu    5/12    
     A  35.19            su Tu (Ca)    1° colpo   [10221/04.04.2023]
     A  78.35            su Tu (Ge)    5° colpo   [10225/13.04.2023]
     in corso (5° su 12)

Alien. · 14 Aprile 2023

franca46 ha scritto:

ciao alien ti metto il listato che uso io

Codice:

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),ruot(1)
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",12))


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(y) Then amb(y) = Fuori90(amb(y) + 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(y) Then amb1(y) = Fuori90(amb1(y) + 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(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:
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
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
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
ImpostaGiocata 6,am4,ruot,poste3,k

Gioca es
End If
Next
'ScriviResoconto
End Sub

e questa è la previsione di Aprile

Codice:

ab 01.04.2023  [10220]
  G  1:  ATQ        34.25.54.22   Na    5/12   
     in corso (5° su 12)
  G  2:  ATQ        34.25.54.22   Tu    5/12   
     A  22.34            su Tu (To)    3° colpo   [10223/08.04.2023]
     in corso (5° su 12)
  G  3:  ATQ        83.11.50.45   Na    5/12   
     in corso (5° su 12)
  G  4:  ATQ        83.11.50.45   Tu    5/12   
     A  45.11            su Tu (To)    1° colpo   [10221/04.04.2023]
     A  11.83            su Tu (Ba)    4° colpo   [10224/11.04.2023]
     A  50.11            su Tu (Ve)    4° colpo   [10224/11.04.2023]
     in corso (5° su 12)
  G  5:  ATQ        35.19.83.78   Na    5/12   
     in corso (5° su 12)
  G  6:  ATQ        35.19.83.78   Tu    5/12   
     A  35.19            su Tu (Ca)    1° colpo   [10221/04.04.2023]
     A  78.35            su Tu (Ge)    5° colpo   [10225/13.04.2023]
     in corso (5° su 12)

Grazie franca molto gentile.

sandrina50 · 14 Aprile 2023

franca46 ha scritto:

ciao alien ti metto il listato che uso io

Codice:

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),ruot(1)
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",12))


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(y) Then amb(y) = Fuori90(amb(y) + 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(y) Then amb1(y) = Fuori90(amb1(y) + 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(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:
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
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
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
ImpostaGiocata 6,am4,ruot,poste3,k

Gioca es
End If
Next
'ScriviResoconto
End Sub

e questa è la previsione di Aprile

Codice:

ab 01.04.2023  [10220]
  G  1:  ATQ        34.25.54.22   Na    5/12   
     in corso (5° su 12)
  G  2:  ATQ        34.25.54.22   Tu    5/12   
     A  22.34            su Tu (To)    3° colpo   [10223/08.04.2023]
     in corso (5° su 12)
  G  3:  ATQ        83.11.50.45   Na    5/12   
     in corso (5° su 12)
  G  4:  ATQ        83.11.50.45   Tu    5/12   
     A  45.11            su Tu (To)    1° colpo   [10221/04.04.2023]
     A  11.83            su Tu (Ba)    4° colpo   [10224/11.04.2023]
     A  50.11            su Tu (Ve)    4° colpo   [10224/11.04.2023]
     in corso (5° su 12)
  G  5:  ATQ        35.19.83.78   Na    5/12   
     in corso (5° su 12)
  G  6:  ATQ        35.19.83.78   Tu    5/12   
     A  35.19            su Tu (Ca)    1° colpo   [10221/04.04.2023]
     A  78.35            su Tu (Ge)    5° colpo   [10225/13.04.2023]
     in corso (5° su 12)

Grazie Franca gentilissima ....buona serata ciao

vincenzo57 · 3 Maggio 2023

La gioa di vincere una quaterna
con la speranza di beccare l'algoritmico giusto al momento giusto
Si opera alla prima del mese ogni volta che c'è il 90 in una ruota qualsiasi

vincenzo57 · 3 Maggio 2023

vincenzo57 · 3 Maggio 2023

COLPO QUATERNA

Super Member >PLATINUM<

Junior Member

Advanced Premium Member

Premium Member

Junior Member

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<