COLPO QUATERNA

Nek Kina · 7 Settembre 2022

Alien. ha scritto:
Ciao dallo script risulta solo terno

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

Ciao

Guarda @Alien.

barbara1968 · 7 Settembre 2022

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...

Alien. · 7 Settembre 2022

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)

Alien. · 7 Settembre 2022

vincenzo57 ha scritto:
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 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)=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.)

Alien. · 7 Settembre 2022

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 !!

bubù · 7 Settembre 2022

Alien. ha scritto:
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. 89	del 26/07/2022
RUOTA	1o estr.	2o estr.	3o estr.	4o estr.	5o estr.
Bari	25	88	89	82	54
Cagliari	62	42	64	60	72
Firenze	5	60	6	36	53
Genova	33	20	77	78	8
Milano	30	50	87	12	80
Napoli	22	81	35	76	28
Palermo	49	13	2	48	77
Roma	85	34	11	8	64
Torino	65	89	42	72	68
Venezia	87	69	44	43	3
Nazionale	52	76	54	60	21

Nek Kina · 7 Settembre 2022

Nek Kina ha scritto:
Vincenzo ho controllato luglio all'11^ estrazione è uscita quaterna 22/35/28/81 quindi non è nullo tu sei super

Scusate , ci tengo a correggermi , ho scritto 11^ ma sarebbe 10^ se tolgo la prima che è di calcolo

vincenzo57 · 7 Settembre 2022

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

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

Mike58 · 7 Settembre 2022

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

Alien. · 7 Settembre 2022

Alien. ha scritto:
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.

Nek Kina · 7 Settembre 2022

Alien. ha scritto:
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.

Tutto è bene quel che finisce bene

baby83 · 7 Settembre 2022

Buongiorno, mi dite cosa giocare?Grazie

Julietta · 7 Settembre 2022

Chissà perché quando lo giochiamo qui non esce mai...

McRob · 7 Settembre 2022

BABY63, SI GIOCANO 3 QUATERNE SULLA RUOTA DI NAPOLI X 10 COLPI
01 66 72 79 15 23 58 79 16 57 67 78

Alien. · 7 Settembre 2022

Julietta ha scritto:
Chissà perché quando lo giochiamo qui non esce mai...

In realtà non esce mai dappertutto solo in certi casi fortuiti .

ci prendono molto bene per il lato B

speriamo di rientrare in quel caso fortuito prima o poi......intanto lo Stato ringrazia.

baby83 · 7 Settembre 2022

McRob ha scritto:
BABY63, SI GIOCANO 3 QUATERNE SULLA RUOTA DI NAPOLI X 10 COLPI
01 66 72 79 15 23 58 79 16 57 67 78

Grazie McRob, pensavo ci fossero cambiamenti

Alexjeff · 7 Settembre 2022

Non lo faranno uscire
sanno tutto quello che giochiamo e scoprire con i loro software chi punta in alto per loro è un giochino

ascia · 7 Settembre 2022

ascia1980 ha scritto:
Il terno uscito è il caso di continuarlo secondo voi?

Scusate se domando ancora, ma magari qualcuno più esperto e con più occhio sa dare un indicazione per il gioco della quartina che ha dato il Terno a tutte.

PS: e comunque un po di positività non guasterebbe...

Alien. · 7 Settembre 2022

Alexjeff ha scritto:
Non lo faranno uscire
sanno tutto quello che giochiamo e scoprire con i loro software chi punta in alto per loro è un giochino

Credo che non hai tutti i torti quelli li abbiamo ...noi

pistacchio · 7 Settembre 2022

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'

COLPO QUATERNA

Advanced Member >PLATINUM PLUS<

Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Member

Advanced Member

Advanced Premium Member

Advanced Member >PLATINUM<