Novità

COLPO QUATERNA

Buongiorno io leggo 28.81.35.28 avevo già controllato ed era quaterna secca..Pertanto non è solo terno..Centrata anche a Luglio.....Un bel metodo..Grazie speriamo continui i suoi esiti positivi...Tentar non nuoce....Anzi la speranza è l'ultima a morire...Avanti tutta...
 
Ciao Nek hai ragione ma lo script mi da solo il terno .ho controllato l'archivio di spaziometria manca l'estrazione del 26 luglio 2022 ma mi da lo stesso il terno come fa se non esiste l'estrazione.

V N. [22.35.28.51 ] [NA] [22 .. 35 .. 28] C. 10 Terno 10112 [ 89 - 26/07/2022]


mistero "

nel conteggio dello script è errato da 51 anzichè 81 (26 luglio 2022)
 
Ultima modifica:
Il gioco e sulla ruota di Napoli volendo anche a tutte sarebbe bello anche a tutte una vincita per 10 colpi
Ma la media e prima, ecco anche il listato .

'https://image.forumfree.it/1/3/1/4/0/5/5/6/1662383936.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1662383938.jpg
'https://oltreillotto.forumfree.it/?t=79279810#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=79279749#newpost
'05-09-2022
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(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
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)=amb1(4)
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Ciao Vincenzo lo script fa un errore nel 26 luglio 2022 mi da 51 anzichè 81 puoi far controllare.Grazie.(quindi da il terno invece della quaterna.)
 
In spaziometria l'estrazione del 26 luglio mi da 49-13-2-48-77
la reale estrazione è 19-90-26-45-48

quindi !!! archivio non affidabile !!
 
In spaziometria l'estrazione del 26 luglio mi da 49-13-2-48-77
la reale estrazione è 19-90-26-45-48

quindi !!! archivio non affidabile !!
Alien forse hai sbagliato a leggere :
Estrazione n. 89del 26/07/2022
RUOTA
1o estr.
2o estr.
3o estr.
4o estr.
5o estr.
Bari2588898254
Cagliari6242646072
Firenze56063653
Genova332077788
Milano3050871280
Napoli2281357628
Palermo491324877
Roma853411864
Torino6589427268
Venezia876944433
Nazionale5276546021
 
Questo e il nuovo cript dovrebbe funzionare bene, io uso Spaziometria e va bene, ciao e saluti

'https://image.forumfree.it/1/3/1/4/0/5/5/6/1662383936.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1662383938.jpg
'https://oltreillotto.forumfree.it/?t=79279810#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=79279749#newpost
'05-09-2022
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(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
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
 
Incuriosito dalle super Vincite , con un bravo a Vincenzo per la ricerca degli algoritmi super vincenti, ho fatto una mia versione di script con 13 colpi (tutto il mese ) con aggiunte varie sui resoconti.

Codice:
Sub Main
   'Quaterne di EnzoB su Napoli
   Dim QT1(4),QT2(4),QT3(4),Ru(1)
   Dim posta(4)
   posta(2) = 1
   posta(3) = .80
   posta(4) = .20
   Ini = EstrazioneFin - 120
   fin = EstrazioneFin
   r = 6
   Scrivi "Le 3 Quaterne in Gioco su " & NomeRuota(r) & " Algoritmi By EnzoB ",1
   Scrivi
   For es = Ini To fin
      If IndiceMensile(es) = 1 Then
         Scrivi "Su Indice Mensile 1 del mese : " & MeseNome(Mese(es))
         k = k + 1
         '--------------------------------------
         a1 = Fuori90(Estratto(es,CA_,2) + 14)
         a2 = Fuori90(Estratto(es,CA_,4) + 3)
         a3 = Fuori90(Estratto(es,NA_,1) + 2)
         a4 = Fuori90(Estratto(es,FI_,5) + 83)
         '-------------------------------------
         b1 = Fuori90(Estratto(es,PA_,2) + 35)
         b2 = Fuori90(Estratto(es,RO_,3) + 27)
         b3 = Fuori90(Estratto(es,CA_,5) + 3)
         b4 = Fuori90(Estratto(es,GE_,4) + 12)
         '------------------------------------
         c1 = Fuori90(Estratto(es,FI_,4) + 13)
         c2 = Fuori90(Estratto(es,GE_,2) + 43)
         c3 = Fuori90(Estratto(es,RO_,1) + 80)
         c4 = Fuori90(Estratto(es,PA_,5) + 33)
         '-----------------------------------
         QT1(1) = a1 : QT1(2) = a2 : QT1(3) = a3 : QT1(4) = a4
         QT2(1) = b1 : QT2(2) = b2 : QT2(3) = b3 : QT2(4) = b4
         QT3(1) = c1 : QT3(2) = c2 : QT3(3) = c3 : QT3(4) = c4
         Ru(1) = r
         '----------------------------------------------------------
         ImpostaGiocata 1,QT1,Ru,posta,13,3
         ImpostaGiocata 2,QT2,Ru,posta,13,3
         ImpostaGiocata 3,QT3,Ru,posta,13,3
         Scrivi String(150,"=") & " Caso N. " & k
         Gioca es,1
         sp = GetSpesa(True) : vc = GetVincita(True) : ut = GetGuadagno(True)
         spp = GetSpesa(False) : vcp = GetVincita(False) : utp = GetGuadagno(False)
         Scrivi String(90,"-")
         Scrivi
         t = Array(t,"Spesa Giocata","Spesa Progressiva","Vincita Giocata","Vincita progressiva","Utile giocata","Utile Progressivo")
         Call InitTabella(t)
         t = Array(t,sp,spp,vc,vcp,ut,utp)
         Call AddRigaTabella(t)
         If vc > sp Then Call SetColoreCella((3),4,2)
         CreaTabella
         'Scrivi "Spesa Giocata...... " & Space(3) & sp & vbTab & "Spesa progressiva........ " & spp,1,,,1
         'Scrivi "Vincita Giocata.... " & vc & vbTab & "Vincita Progressiva...... " & vcp,1,,,2
         'Scrivi "Utile Giocata...... " & ut & vbTab & "Utile Progrssivo......... " & utp,1,,,7
         Scrivi String(90,"-")
      End If
   Next
   Scrivi Space(40) & "****** Riepilogo Giocate ****** ",1
   ReDim aT(8)
   aT(1) = "NumGiocata"
   aT(2) = "Colpo"
   aT(3) = "Spesa Progressiva"
   aT(4) = "Spesa Giocata"
   aT(5) = "Vincita Progressiva"
   aT(6) = "Vincita Giocata"
   aT(7) = "Utile Progressivo"
   aT(8) = "Utile Giocata"
   Call InitTabella(aT,,,,,"arial black")
   For kk = 1 To GetQuantitaGiocateEffettuate
      If GetSituazioneGiocate(kk,Colpo,Spesa_Progressiva,Spesa_Giocata,Vincita_Progressiva,Vincita_Giocata) Then
         aT(1) = kk
         aT(2) = Colpo
         aT(3) = Spesa_progressiva
         aT(4) = Spesa_Giocata
         aT(5) = Round(Vincita_Progressiva,2)
         aT(6) = Round(Vincita_Giocata,2)
         aT(7) = Round(Vincita_progressiva - spesa_progressiva,2)
         aT(8) = Round(Vincita_giocata - spesa_giocata,2)
         Call AddRigaTabella(aT)
         If Vincita_giocata > spesa_giocata Then Call SetColoreCella((8),4,2)
      End If
   Next
   Call CreaTabella
   ScriviDistribuzioneEsiti(False)
   ScriviResoconto
End Sub
 
In spaziometria l'estrazione del 26 luglio mi da 49-13-2-48-77
la reale estrazione è 19-90-26-45-48

quindi !!! archivio non affidabile !!
CHIEDO SCUSA HO ERRATO A PRENDERE LA RUOTA HO PRESO PALERMO IN COMPENSO è STATO CORRETTO LO SCRIPT ADESSO DA LA QUATERNA ,NON TUTTO IL MALE VIEN PER NUOCERE.


GreenSnoopyKitty-max-1mb.gif
 

BABY63, SI GIOCANO 3 QUATERNE SULLA RUOTA DI NAPOLI X 10 COLPI
01 66 72 79 15 23 58 79 16 57 67 78
 
Molto bene Vincenzo io ho preso poco €103,00 ho giocato le quartine anche a Tutte e vuoi mettere la gioia. Certo gia' che c'era avrebbe potuto dare la quaterna porca miseriaccia....pero' sono contentissima, cosi posso ancora tentare e per essere al primo colpo e' stato veramente un colpaccio. Grazie tante per la tua disponibilita'
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45

Ultimi Messaggi

Indietro
Alto