Novità

Ennio Caperna ed il suo Kcritico.

Rookie

Advanced Member >PLATINUM PLUS<
Mi resta sempre la solita domanda :

perché vendere previsioni sistemi programmi ?

Con le varie vincite garantite al 100% .... non vince abbastanza già di suo ?
Le tue (perspicaci) domande sono come gli interrogativi (e le risposte) , espressione di varie culture mondiali, molto diverse fra loro, contenute nel celebre libro (La risposta e' la domanda) di Alejandro Jodorowsky. In quelle storie, narrate e raccontate, l'uomo nasconde la sua sapienza. Morale della favola, rispetto al libro (ma non solo...) e' che anche gli adulti (non solo i bambini), a volte, hanno bisogno di favole.

Cosa possiamo desumere da cio' che ho gia' scritto?

Non e' la risposta da dare a cui dobbiamo pensare, ma... dopo una domanda, bisogna pensare alle conseguenti domande da porsi!
La saggezza e l'intelligenza devono guidare ognuno in questo compito, perche' il "segreto" nascosto e' proprio farsi le giuste domande.

Ritornando nel contesto, se Caperna avesse creduto nelle cose che ha scritto e venduto (e i prezzi non erano...bruscolini) probabilmente non avrebbe creato un account su fb per scrivere le cose che ho letto nei documenti e nei suoi post ... sarebbe invece da qualche parte a godersi la vecchiaia e i proventi dalle sue vendite. Il nostro, nei documenti che ho letto, afferma che non poteva giocare per mancanza di tempo materiale per farlo, e che egli e' sempre stato 15 gradini sopra i migliori studiosi. Ognuno tragga le proprie conclusioni.

Ora, a prescindere dal Caperna, il modo certo (metodo, sistema,etc.) per guadagnare al gioco (quindi anche al lotto) al 100% e' vendere questi prodotti pubblicizzandoli il piu' possibile, per ampliare al massimo la base dei potenziali acquirenti! Questi potenziali clienti, venivano abbacinati dal prezzo elevatissimo, che li portava a credere che l'altissimo costo implica (spesso e' vero ma non sempre, e non per questo tipo di prodotti) un grandissimo valore intrinseco del prodotto (di sicuro non hanno mai letto John Ruskin) e ovviamente, si sbagliavano. Come si sbagliano, generalmente parlando, coloro che credono ancora nelle favole oppure a cio' che viene facile credere...
 

edesimone

Advanced Member >PLATINUM<
Grazie Atlantis hai ragione non mi ero accorto del 54 ma deve essee 53, Allego il listato corretto e funzionante:

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 53 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10

Scrivi NomeRuota(r) & " " & EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(pr1 - g) & " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
Buonasera Antonio Pagano
Volevo chiederti se si può fare una modifica, io modificando For r = 1 To 10 in For r = 1 To 12,
mi ritrovo la ruota nazionale + tutte, quello che mi serve è modificare i parametri su tutte,
in modo da trovare l'estratto da giocare su tutte le ruote, naturalmente abbinato con altri numeri che io trovero.
Sicuramente cambiano i valori in percentuale un conto trovare su ruota singola un numero quì
lo deve trovare su tutte, sempre se fattibile evidenziare con i colori.
Grazie un saluto
edesimone
 

Alien.

Advanced Premium Member
Grazie Atlantis hai ragione non mi ero accorto del 54 ma deve essee 53, Allego il listato corretto e funzionante:

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 53 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10

Scrivi NomeRuota(r) & " " & EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(pr1 - g) & " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
Mi scuso ma come si cambia l'estrazione da gennaio 2022 ad oggi estrazione per estrazione, grazie.
 
Buongiorno Alien, ho corretto lo script rendendolo più leggibile. Lo script conteggia a ritroso dall'ultima estrazione a... Se vuoi partire da Gennaio basta conteggiare quante estrazioni a ritroso ci sono. Ultima estrazione 10161 alla data 1 gennaio 2022 10024 sono 137 estrazioni togli alla variabile es = 53 e metti es = 137. Se non mi sono spiegato bene sono qua. Ciao

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 137 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10

Scrivi NomeRuota(r) & " Data Inizio: " &Ini& " Data Estarzione fine : " &EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
 
Buonasera Antonio Pagano
Volevo chiederti se si può fare una modifica, io modificando For r = 1 To 10 in For r = 1 To 12,
mi ritrovo la ruota nazionale + tutte, quello che mi serve è modificare i parametri su tutte,
in modo da trovare l'estratto da giocare su tutte le ruote, naturalmente abbinato con altri numeri che io trovero.
Sicuramente cambiano i valori in percentuale un conto trovare su ruota singola un numero quì
lo deve trovare su tutte, sempre se fattibile evidenziare con i colori.
Grazie un saluto
edesimone
Scusa edesimone non avevo letto il tuo post. Certo che puoi tentae il gioco per tutte ti allego il listato corretto poi le estrazioni da controllare basta cambiare la variabile es.Ciao

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 137 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 12 To 12

Scrivi NomeRuota(r) & " Data Inizio: " &Ini& " Data Estarzione fine : " &EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
'If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
 

edesimone

Advanced Member >PLATINUM<
Scusa edesimone non avevo letto il tuo post. Certo che puoi tentae il gioco per tutte ti allego il listato corretto poi le estrazioni da controllare basta cambiare la variabile es.Ciao

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 137 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 12 To 12

Scrivi NomeRuota(r) & " Data Inizio: " &Ini& " Data Estarzione fine : " &EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
'If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
Grazie Antonio
Lo script corretto in questa riga For r = 12 To 12 mi rileva la nazionale, mi serve per tutte, se cambio con For r = 11 To 11 risulta su tutte,
però non viene evidenziato con i colori, dove devo cambiare la variabile, questi parametri pr = Int(e * 25 /100) '% e pr1 = Int(e * 51 /100) %
ti ricordo che stiamo cercando l' estratto su tutte le ruote, se un numero deve uscire su ruota ogni 18 estrazione, su tutte un numero
ogni quanto deve uscire?. Una volta evidenziato di colore verde quante volte deve essere giocato?.
Grazie
edesimone
 

Alien.

Advanced Premium Member
Buongiorno Alien, ho corretto lo script rendendolo più leggibile. Lo script conteggia a ritroso dall'ultima estrazione a... Se vuoi partire da Gennaio basta conteggiare quante estrazioni a ritroso ci sono. Ultima estrazione 10161 alla data 1 gennaio 2022 10024 sono 137 estrazioni togli alla variabile es = 53 e metti es = 137. Se non mi sono spiegato bene sono qua. Ciao

Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 137 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10

Scrivi NomeRuota(r) & " Data Inizio: " &Ini& " Data Estarzione fine : " &EstrazioneFin - clp
Scrivi:Scrivi "NUMERO Fre-Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90

c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo

If c = 0 Then fleg = 1
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."

If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)

ColoreTesto 0
Next
Scrivi
Next


End Sub
Buonasera Antonio ,grazie per la cortesia ma è complicato inserire la data anzichè il numero del concorso in quanto sul web se inserisco il numero non trovo la data,

Inoltre se voglio andare in dietro di tot estrazioni 20/30 ecc come si fa,
 
Ultima modifica:

edesimone

Advanced Member >PLATINUM<
Buongiorno Antonio
Mi serve un tuo aiuto vedi #267, praticamente prova e lancio lo script modificato mettendo questi parametri For r = 11 To 11 risulta su tutte,
se vedi il risultato troverai una schermata con tutti i numeri in blu, mi serve che il programma mi segnali come quello in originale se blu (prossima uscita), verde (in uscita) e viola (uscita superata).
Grazie
edesimone
 
Buonasera Antonio ,grazie per la cortesia ma è complicato inserire la data anzichè il numero del concorso in quanto sul web se inserisco il numero non trovo la data,

Inoltre se voglio andare in dietro di tot estrazioni 20/30 ecc come si fa,
Alien basta cambiare la variabile es = 137 và 137 estrazioni a ritroso se metti es = 18 leggerà 18 estrazioni a ritroso. Per la ricerca con la data non sò come si fà speriamo in un programmatore più bravo. Ciao
 
Buongiorno Antonio
Mi serve un tuo aiuto vedi #267, praticamente prova e lancio lo script modificato mettendo questi parametri For r = 11 To 11 risulta su tutte,
se vedi il risultato troverai una schermata con tutti i numeri in blu, mi serve che il programma mi segnali come quello in originale se blu (prossima uscita), verde (in uscita) e viola (uscita superata).
Grazie
edesimone
edesimone buongiorno, a Tutte non saprei perchè ho provato ma mi da dati errati. Non ho mai approfondito in quanto un umero a tutte non so in che cosa possa aiutarmi. Comunque speriamo in qualcuno che possa risolvere. Forse a tutte sarebbe interessante per ambo.
 

Alien.

Advanced Premium Member
Alien basta cambiare la variabile es = 137 và 137 estrazioni a ritroso se metti es = 18 leggerà 18 estrazioni a ritroso. Per la ricerca con la data non sò come si fà speriamo in un programmatore più bravo. Ciao
Ciao Antonio ho provato ma mi interessava la data credo vada bene cambiare 137 con 18.
 
Ultima modifica:

adeleadele

Advanced Member >GOLD<
Buongiorno, purtroppo a volte viene difficile comprendere.C'è questa tabella come scegliere il numero? si prende l'ambo da solo?1678702481576.png
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
Alto