Ennio Caperna ed il suo Kcritico.

Rookie · 18 Ottobre 2022

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

Atlantis57 · 20 Ottobre 2022

uscito anche il numero 65 a Torino

edesimone · 17 Novembre 2022

Antonio Pagano ha scritto:
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. · 18 Novembre 2022

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

Antonio Pagano · 19 Novembre 2022

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

Antonio Pagano · 19 Novembre 2022

edesimone ha scritto:
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 · 19 Novembre 2022

Antonio Pagano ha scritto:
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. · 19 Novembre 2022

Antonio Pagano ha scritto:
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,

edesimone · 21 Novembre 2022

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

Alien. · 22 Novembre 2022

toon ha scritto:
Non ho cambiato quasi nulla, andava più che bene così!!
Allego il file txt , non mi permette di mettere il listato come solito, ma penso vada
bene ugualmente..

Ciao toon come si può andare indietro nelle estrazioni per fare dei controlli,grazie

Antonio Pagano · 22 Novembre 2022

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

Antonio Pagano · 22 Novembre 2022

edesimone ha scritto:
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. · 22 Novembre 2022

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

adeleadele · 13 Marzo 2023

Buongiorno, purtroppo a volte viene difficile comprendere.C'è questa tabella come scegliere il numero? si prende l'ambo da solo?

cico66 · 16 Luglio 2024

lo script funziona solo con spaziometria?

BaffoBlù · 16 Luglio 2024

Alien. ha scritto:
Ciao Antonio ho provato ma mi interessava la data credo vada bene cambiare 137 con 18.

passavo di qua e mi è venuto così...

Codice:

Option Explicit
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,x,ex,ez
   ColoreTesto 0:Scrivi " Legenda Colori "
   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
   x = CInt(InputBox("Quante Estrazioni a Ritroso ? ",,"111"))
   es = x + clp
   Ini = EstrazioneFin - es + clp
   fin = EstrazioneFin - clp
   ex = EstrazioneFin - es + clp
   ez = EstrazioneFin - clp
   For r = 1 To 11
      If r = 11 Then r = 12
      Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex,,,"/") & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez,,,"/") & " - " & "[" & 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

cico66 · 24 Aprile 2026

scusate come si esegue questo script?

Reacher · 24 Aprile 2026

Apri spaziometria
Gestione script
Elabora scritp
cancella sub main e end sub
Copia e incolli lo script
Clicca sul fulmine e lo script sarà eseguito

InRicordo · 11 Maggio 2026

Antonio Pagano ha scritto:
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

Salve,
in cerca d'idee ho rubato questo script, se non lo trovi sai chi è il responsabile, e l'ho dato in pasto alla AI chiedendole di trasformarlo in una macro per Excel. Mi aspettavo chissà quali difficoltà e invece...

Questo è il risultato:

In confronto allo script:

Mancano 84.09
Ho chiesto alla AI e mi ha risposto:

Va beh! Cosa ne pensate?
Se non avete nulla in contrario la integrerei nel mio file

Risultato finale:

è corretto lo stato?

vinci · Oggi alle 09:27

Buongiorno, ho ripreso questo script che mi sembra a parere mio un ottimo lavoro.
Ho modificato leggermente qualcosa da quello originale adattandolo alle mie esigenze.
Ho seguito il metodo per circa 3 mesi e i risultati purtroppo sono stati modesti.
Le piccole modifiche che ho fatto sono qui sotto riportate:

"----------------------------METODO KRITIKO 137------------------------------------ "
"----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
"Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
"Da giocare a colpo nell'estrazione successiva"

Se fosse possibile sarebbe ottima cosa fare ulteriori modfiche:
-individuare il numero di estrazioni del calcolo che statisticamente fornisce i risultati miglior (in questo caso 137)
-estrapolare a parte la o le previsioni che rispettano le condizioni sopra elencate (massimo 5 numeri per ruota)
- capire per quanti colpi di gioco seguire le previsioni scelte
. statistiche delle previsioni prese in esame (resoconto)

Vediamo se può interessare e se chi ne è capace se si può fare queste modifiche

GRAZIE

_____________________________________________________________________________________________________________________________________

SCRIPT

Option Explicit
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,x,ex,ez
ColoreTesto 0:Scrivi " Legenda Colori "
ColoreTesto 1:Scrivi " PROSSIMA USCITA "
ColoreTesto 3:Scrivi " In USCITA "
ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "----------------------------METODO KRITIKO 137------------------------------------ "
Scrivi "----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
Scrivi "Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
Scrivi "Da giocare a colpo nell'estrazione successiva"

Scrivi "----------------------------------------------------------------------------------- "

c = 0
clp = 0
x = CInt(InputBox("Quante Estrazioni a Ritroso ? ",,"137"))
es = x + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
ex = EstrazioneFin - es + clp
ez = EstrazioneFin - clp
For r = 1 To 11
If r = 11 Then r = 12
Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex,,,"/") & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez,,,"/") & " - " & "[" & 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

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

Ennio Caperna ed il suo Kcritico.

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Super member

Super member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Super member

Super member

Advanced Premium Member

Advanced Member >PLATINUM<

Junior Member

Advanced Member >PLATINUM<

Junior Member

Advanced Member

Advanced Member >PLATINUM<

Super Member >GOLD<