COLPO QUATERNA

[vincenzo57]

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

 

[vincenzo57]

E che la fortuna sia con noi

 

[vincenzo57]

Questo metodo non è il frutto per vincere la quaterna e sento avverato

nel passato ce la speranza che si avveri ancora una volta la speranza e tanta

questo e il mio sogno.

Chi non studia non potrà mai arrivare alla meta Enzob

 

[Nek Kina]

Questo metodo non è il frutto per vincere la quaterna e sento avverato

nel passato ce la speranza che si avveri ancora una volta la speranza e tanta

questo e il mio sogno.

Chi non studia non potrà mai arrivare alla meta Enzob

Grazie di cuore per condividere il tuo Grande lavoro e impegno nel Forum 🙏

 

[Nek Kina]

E che la fortuna sia con noi

💪🤞

 

[laika55]

Grazie Vincenzo.Un in bocca al lupo.

 

[mezzomarinaio]

buonasera vincenzo57, beh, un minimo di grazie e riconoscenza di farci condividere un opportunita'
serve solo un pizzico di fortuna per condividere una grande gioia
buona fortuna a tutti!

 

[Julietta]

Se esce mi farò monaca ...

 

[Bluette5]

Grazie Vincenzo...vinto a tutte Terno in quartina.....1..72..79.... non so come si fa a postare lo scontrino..

 

[Julietta]

Quanto hai preso

 

[baby83]

Vincenzo ciao, si continua su ruota?

 

[Bluette5]

ho giocato 50 cts terno e 50 cts quaterna........penso di aver vinto 50 euro
ma sono contentissima ...grazie ancora a Vincenzo

un saluto a TUTTi

 

[barbara1968]

Grazie mille giocato a tutte e preso......

 

[tommasog]

complimenti Vincenzo e grazie per questo" regalo"

 

[lotto_tom75]

Complimenti a vincenzo e a tutti coloro che l'hanno seguito per il colpaccio!

 

[NEM]

Giocato solo su ruota ma i complimenti a Vincenzo sono d'obbligo 😄

 

[laika55]

Complimenti Vincenzo giocato su ruota si continua?? Grazie e buona serata.

 

[Alien.]

Vincenzo ho controllato luglio all'11^ estrazione è uscita quaterna 22/35/28/81 quindi non è nullo tu sei super 👏👏👏👏👏👏

Ciao dallo script risulta solo terno


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

 

[Alien.]

Lottomatica inizia a metterci lo zampino ? terno a cagliari ?
ma dato che i numeri non hanno memoria .....avanti fino alla 12° ma.....

 

[ascia]

Il terno uscito è il caso di continuarlo secondo voi?