Novità

Tabulati percentuali di LuigiB

Che file aggiornato ti serve?
Mastrolettere: Bari
Vedi l'allegato 2287510
Ciao Claudio8
Beh, tipo quello che hai messo nel post. Magari due o tre ruote qualsiasi. Mi serve solo per passare il tempo e vedere se riesco a ricordare come utilizzarlo. visto che qualcosa sembra risvegliarsi nella mia memoria quando le guardo.
Ormai gioco solo virtualmente. Col caldo non esco e poi ho paura di dimenticare, ancora, come rientrare in casa.
Grazie comunque
Odino spieghi le tue vele al vento
Baciccia
 
Frammenti di ricordi
al tempo, parlo di alcuni decenni fa, la mia mente funzionava bene. Da poco mi interessavo di lotto e seguivo uno strano individuo
Prof. Pazzaglia. La prima volta lo vidi a "Scomettiamo che..." indovinare alla roulette, puntata dopo puntata, se non il numero uscito il suo settore. Il Croupier era incredulo e anch'io. (Al Prof. Pazzaglia i Casinò vietavano l'accesso).
Poi lo trovai su un giornale specializzato in lotto e, successivamente, lessi moltissimi suoi scritti.
Asseriva che il gioco del lotto, contrariamente alla credenza comune, non fosse casuale. Ma dipendesse da una serie di parametri, tipo l'urna utilizzata, la forma dei bussolotti che contenevano i numeri, il metodo di inserimento nell'urna e via elencando.
Asseriva anche che assieme alla statistica si dovesse dare importanza anche ad una legge fisica, senza, però, citare quale.
Pensandoci arrivai alla conclusione che l'unica legge fisica alla quale si riferiva poteva solo riguardare i bussolotti a forma di sfera (almeno credo, ricordo poco).
Mi è tornato alla mente perché girando per Internet mi sono imbattuto in questo:
Non ricordo se ho mai letto, se non quest'articolo, qualcosa di simile.
So che quello studio mi permise, poi, di ottenere risultati straordinari nelle previsioni del lotto. Ma non ricordo il perché, ne come feci, quali furono i miei ragionamenti. Maledizione!
Dateci un'occhiata. Forse vi sarà chiaro perché considero le quindicine e non le decine, anche se in mancanza di meglio...
Nel caso vi fosse chiaro, per favore, spiegatelo anche a me. Perché non ricordo.
Buona lettura, fecondi pensieri e conseguenti vincite a tutti
Baciccia
 
Frammenti di ricordi
al tempo, parlo di alcuni decenni fa, la mia mente funzionava bene. Da poco mi interessavo di lotto e seguivo uno strano individuo
Prof. Pazzaglia. La prima volta lo vidi a "Scomettiamo che..." indovinare alla roulette, puntata dopo puntata, se non il numero uscito il suo settore. Il Croupier era incredulo e anch'io. (Al Prof. Pazzaglia i Casinò vietavano l'accesso).
Poi lo trovai su un giornale specializzato in lotto e, successivamente, lessi moltissimi suoi scritti.
Asseriva che il gioco del lotto, contrariamente alla credenza comune, non fosse casuale. Ma dipendesse da una serie di parametri, tipo l'urna utilizzata, la forma dei bussolotti che contenevano i numeri, il metodo di inserimento nell'urna e via elencando.
Asseriva anche che assieme alla statistica si dovesse dare importanza anche ad una legge fisica, senza, però, citare quale.
Pensandoci arrivai alla conclusione che l'unica legge fisica alla quale si riferiva poteva solo riguardare i bussolotti a forma di sfera (almeno credo, ricordo poco).
Mi è tornato alla mente perché girando per Internet mi sono imbattuto in questo:
Non ricordo se ho mai letto, se non quest'articolo, qualcosa di simile.
So che quello studio mi permise, poi, di ottenere risultati straordinari nelle previsioni del lotto. Ma non ricordo il perché, ne come feci, quali furono i miei ragionamenti. Maledizione!
Dateci un'occhiata. Forse vi sarà chiaro perché considero le quindicine e non le decine, anche se in mancanza di meglio...
Nel caso vi fosse chiaro, per favore, spiegatelo anche a me. Perché non ricordo.
Buona lettura, fecondi pensieri e conseguenti vincite a tutti
Baciccia
Sono d'accordo sulla legge fisica... ma allora mi chiedo: perché non uscivano (ai tempi del bambino) gli stessi 5 numeri tutte le volte?
Dipendeva dalla forza con cui si girava la manovella e dalla lunghezza dall'avambraccio del bambino?
 
Stavo provando alcuni Script scaricati chissà quando e questo:
------------------------------------------------------------------------------------------
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,2))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
----------------------------------------------------------------------------------------------------------------------------------

Mi ha dato:

1721848905236.png

Che ne pensate? Si possono trarre indicazioni? Il ritardo da solo non dice molto. Un ritardo su Tutte di 4 numeri a 51 estrazioni non mi sembra granché, o mi sbaglio?

Approfitto per inviare un caldo saluto a Mike58, sperando che il suo silenzio sia dovuto al fatto che è in qualche isola tropicale a divertirsi.
Ovunque Tu sia. Un abbraccio
Baciccia
 
Con quest'altro Script, che non ho la più pallida idea che cosa faccia:
------------------------------------------------------------------------------------------------------
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Ini = EstrazioneFin - 27
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1)
For es = Ini To fin
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) =(es)
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 180,es))
kk = kk + 1

V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 180,fin)
freq(1) = "Freq"
freq(2) = " <> "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " <> "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " <> "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr

Next
Call AddRigaTabella(V,,,1)
For y = 1 To 92
If y < 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
Next
Next
'Next
Call AddRigaTabella(freq,,,1)
Call AddRigaTabella(rit,,,1)
Call AddRigaTabella(sto,,,1)
Call AddRigaTabella(Lettere,,,1)
Call SetTableWidth("100%")
CreaTabella
End Sub
---------------------------------------------------------------------------------------------------------------------
Ho fatto queste previsioni (per gioco, per curiosità):
1721849515710.png

Assieme a quelli che vedete ce ne sono altri che, per ora, non hanno dato riscontro.

La scelta dei numeri è avvenuta così (nulla di scientifico, ragionato ecc.)

In fondo alla Tabella, per ogni ruota, ho scelto i numeri che avevano come valore una "F" (qualsiasi cosa significhi) e ho messo il numero con F assieme ai laterali in gioco, per vedere cosa succedeva. Se tutto questo abbia un senso, salvo quello di passare del tempo, non lo so.

Che ne pensate? Solo cavolate?

Baciccia
 
Lotto7 evidenza la probabilita 'uscita dlla 61-75 il 16 luglio 2024:

1721921276461.png
Il 13 luglio è iniziata una fase di alta frequenza (che dura di solito 6/9 estrazioni con al max un estrazioni senza numeri della quindicina):

1721921646133.png

Mi sembra in buona posizione il settore che comprende 73.74.75
Se uscirà stasera o nelle prossime estrazioni chiedete direttamente a San Pietro. Io non lo so.
Per sicurezza, voi, giocate i numeri che usciranno, quando usciranno! ;)

Vincite faraoniche a tutti
Baciccia
 
Con quest'altro Script, che non ho la più pallida idea che cosa faccia:
------------------------------------------------------------------------------------------------------
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Ini = EstrazioneFin - 27
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1)
For es = Ini To fin
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) =(es)
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 180,es))
kk = kk + 1

V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 180,fin)
freq(1) = "Freq"
freq(2) = " <> "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " <> "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " <> "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr

Next
Call AddRigaTabella(V,,,1)
For y = 1 To 92
If y < 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
Next
Next
'Next
Call AddRigaTabella(freq,,,1)
Call AddRigaTabella(rit,,,1)
Call AddRigaTabella(sto,,,1)
Call AddRigaTabella(Lettere,,,1)
Call SetTableWidth("100%")
CreaTabella
End Sub
---------------------------------------------------------------------------------------------------------------------
Ho fatto queste previsioni (per gioco, per curiosità):
Vedi l'allegato 2287585

Assieme a quelli che vedete ce ne sono altri che, per ora, non hanno dato riscontro.

La scelta dei numeri è avvenuta così (nulla di scientifico, ragionato ecc.)

In fondo alla Tabella, per ogni ruota, ho scelto i numeri che avevano come valore una "F" (qualsiasi cosa significhi) e ho messo il numero con F assieme ai laterali in gioco, per vedere cosa succedeva. Se tutto questo abbia un senso, salvo quello di passare del tempo, non lo so.

Che ne pensate? Solo cavolate?

Baciccia
1721939291142.png
Stavo provando alcuni Script scaricati chissà quando e questo:
------------------------------------------------------------------------------------------
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,2))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
----------------------------------------------------------------------------------------------------------------------------------

Mi ha dato:

Vedi l'allegato 2287584

Che ne pensate? Si possono trarre indicazioni? Il ritardo da solo non dice molto. Un ritardo su Tutte di 4 numeri a 51 estrazioni non mi sembra granché, o mi sbaglio?

Approfitto per inviare un caldo saluto a Mike58, sperando che il suo silenzio sia dovuto al fatto che è in qualche isola tropicale a divertirsi.
Ovunque Tu sia. Un abbraccio
Baciccia
Acc.Ho messo la Tabella sbagliata
 
Quindi confermi che andava giocato il 10 . 🙂 ;);)
9 e 10. Storia di due numeri INNAMORATI che, finalmente, stasera, si sono incontrati:

1725044027483.png

Chi ha voglia osservi l'uscita dell'un numero e dell'altro. Non dimentichi che, secondo le tabelle di Pazzaglia, si richiamavano a vicenda.
Avete, di fronte agli occhi, la differenza di chi parla di lotto perché ha la lingua in bocca, e chi, invece, ne parla sapendo cosa dice. E il tempo, che è galantuomo, da ragione a chi sa, non all'asino di turno.
Ora, sarà interessante scoprire, col tempo, se l'incontro è stato fecondo, e vi saranno nuovi tentativi d'incontro, o se, invece, si lasceranno, andando ciascuno per la sua strada, alla ricerca di un nuovo numero da corteggiare...
Peccato che non abbia partecipato all'incontro giocandoli, sarà per la prossima.
I numeri, contrariamente a quanto si dice, HANNO MEMORIA. Io devo averli offesi a morte. Non escono mai, quando li gioco :cry: .
Non fate come me! Rispettateli, adulateli, riempiteli di coccole e forse....
Le vincite vi portino così tanti soldi da non saper dove metterli (io ho posto...)
Baciccia
 
Con quest'altro Script, che non ho la più pallida idea che cosa faccia:
------------------------------------------------------------------------------------------------------
Sub Main
...
End Sub
---------------------------------------------------------------------------------------------------------------------
Baciccia
Prima che :) TU :) me lo chiedessi ti ho fatto le correzioni minime del caso ( ritardo storico ???? )
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Dim es,co,p
Ini = EstrazioneFin - 27
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone (frequenze in 180es) in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1,,"Calibri")
For es = Ini To fin
co = co + 1
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) = es & " " & 28 - co + 1
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 179,es))
kk = kk + 1
V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 179,fin)
freq(1) = "Freq"
freq(2) = " 180es "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " 28es "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " ??? "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr
Next
Call AddRigaTabella(V,,,1,,"calibri")
For y = 1 To 92
If y <= 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y <= 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y <= 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y <= 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y <= 90 Then Call SetColoreCella((y + 2),6,0)
Next
'Next
Next
Call AddRigaTabella(freq,,,1,,"calibri")
Call AddRigaTabella(rit,,,1,,"calibri")
Call AddRigaTabella(sto,,,1,,"calibri")
Call AddRigaTabella(Lettere,,,1,,"calibri")
Call SetTableWidth("100%")
CreaTabella
End Sub
Fanne buon uso :):)
 
Caro claudio8
confesso che non ricordavo più nulla dello Script in questione. Ho riletto quello che avevo scritto e nulla ci capii!
A volte mi farebbe piacere sapere cosa avevo in testa quando scrivevo qualche post (sempre che ci fosse qualcosa).
Frugherò tra i centomilauno appunti, che prendo giornalmente, per cercare di capire cosa avevo in mente.
Comunque grazie centomila. Se mai riuscirò a darmi pagare per le mie improbabili previsioni GIURO che penserò di mandarti qualcosa. Basta il pensiero. E diamine, altrimenti, che Baciccia sarei?
Grazie davvero. Domani lo studierò.
Poi, se me ne ricorderò, ti illustrerò le mie impressioni.
Felicità e gioia aleggino sempre su te e quanti ami
Baciccia
 
Prima che :) TU :) me lo chiedessi ti ho fatto le correzioni minime del caso ( ritardo storico ???? )
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Dim es,co,p
Ini = EstrazioneFin - 27
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone (frequenze in 180es) in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1,,"Calibri")
For es = Ini To fin
co = co + 1
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) = es & " " & 28 - co + 1
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 179,es))
kk = kk + 1
V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 179,fin)
freq(1) = "Freq"
freq(2) = " 180es "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " 28es "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " ??? "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr
Next
Call AddRigaTabella(V,,,1,,"calibri")
For y = 1 To 92
If y <= 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y <= 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y <= 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y <= 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y <= 90 Then Call SetColoreCella((y + 2),6,0)
Next
'Next
Next
Call AddRigaTabella(freq,,,1,,"calibri")
Call AddRigaTabella(rit,,,1,,"calibri")
Call AddRigaTabella(sto,,,1,,"calibri")
Call AddRigaTabella(Lettere,,,1,,"calibri")
Call SetTableWidth("100%")
CreaTabella
End Sub
Fanne buon uso :):)
Caro claudio8
ho provato lo Script da te corretto, direi che funziona bene, anche se non capisco cosa fa (ma chissà, piano, piano...).
C'è, però, una cosa che non capisco:

1725087711144.png

La prima decina 1-10 è in azzurro (bene), ma la seconda decina va dall'11 al 19 (la prima è la decina naturale, la seconda, no. E così via.)

Dall'alto della mia ignoranza ho scoperto che responsabile di questo è:

1725087883272.png

Ho, quindi effettuato alcune prove (sul vecchio Script che avevo), fino ad arrivare:

1725087937814.png

e output:

1725088016939.png

Che mi soddisfa di più. Quello che non so è, se la modifica, può inficiare i risultati. Non mi sembra, ma chi si fida di me stesso?
Tu che ne pensi?
Ciao e di nuovo grazie
Baciccia
 
Mi fa piacere che sei attento, e scruti gli errori. ( però se mi devi far cecare con ste immagini visibili solo con un 90", smetto :) :ROFLMAO: )
Ti metto una diversa soluzione per la colorazione delle Decine.
For y = 3 To 92
If y < 13 Then Call SetColoreCella( y ,6,0)
If y > 22 And y < 33 Then Call SetColoreCella( y ,6,0)
If y > 42 And y < 53 Then Call SetColoreCella( y ,6,0)
If y > 62 And y < 73 Then Call SetColoreCella( y ,6,0)
If y > 82 And y < 93 Then Call SetColoreCella( y ,6,0)
Next
La tabella elenca la frequenza del singolo numero nelle ultime 180 estrazioni in maniera quasi" alfanumerica"
Questa particolarità è l'unica cosa che la tabella ha in comune con il Mastrolettere del tuo Prof. ( info x @genios )

La maniera alfanuerica consiste nell'utilizzare la numerazione a 2 cifre con le lettere. In esadecimali solo i numeri da 10 a 15 utilzzano le lettere ... 10=A... 15=F) e per i numeri oltre .... ????

Se guardi bene la tabella vedrai che nella righe delle estrazioni ed in "Codifica" vi sono valori "10" ed altri maggiori che non vengono trasformati in alfanumerici bensì in esadecimali in questa riga ("Hex(EstrattoFrequenza(r,(nu(p)),fin-179,es))"
lo script sotto vi mostrerà quanto scritto
Sub Main 'trasforma i numeri da 1 a 20 in esadecimali
For x = 1 To 20
Scrivi x & " " & Hex(x)
Next
End Sub
https://it.wikipedia.org/wiki/Sistema_numerico_esadecimale

Saluti
 
Mi fa piacere che sei attento, e scruti gli errori. ( però se mi devi far cecare con ste immagini visibili solo con un 90", smetto :) :ROFLMAO: )
Ti metto una diversa soluzione per la colorazione delle Decine.
For y = 3 To 92
If y < 13 Then Call SetColoreCella( y ,6,0)
If y > 22 And y < 33 Then Call SetColoreCella( y ,6,0)
If y > 42 And y < 53 Then Call SetColoreCella( y ,6,0)
If y > 62 And y < 73 Then Call SetColoreCella( y ,6,0)
If y > 82 And y < 93 Then Call SetColoreCella( y ,6,0)
Next
La tabella elenca la frequenza del singolo numero nelle ultime 180 estrazioni in maniera quasi" alfanumerica"
Questa particolarità è l'unica cosa che la tabella ha in comune con il Mastrolettere del tuo Prof. ( info x @genios )

La maniera alfanuerica consiste nell'utilizzare la numerazione a 2 cifre con le lettere. In esadecimali solo i numeri da 10 a 15 utilzzano le lettere ... 10=A... 15=F) e per i numeri oltre .... ????

Se guardi bene la tabella vedrai che nella righe delle estrazioni ed in "Codifica" vi sono valori "10" ed altri maggiori che non vengono trasformati in alfanumerici bensì in esadecimali in questa riga ("Hex(EstrattoFrequenza(r,(nu(p)),fin-179,es))"
lo script sotto vi mostrerà quanto scritto
Sub Main 'trasforma i numeri da 1 a 20 in esadecimali
For x = 1 To 20
Scrivi x & " " & Hex(x)
Next
End Sub
https://it.wikipedia.org/wiki/Sistema_numerico_esadecimale

Saluti
Ok! Tutto chiaro. Me ne ricorderò finché non chiudo il post, poi andrò a controllare di non aver chiuso il gatto in frigo (la bottiglia del latte stranamente è nel cuscino accanto al mio 😵‍💫).
Non ho ancora capito, o meglio l'ho capito e poi dimenticato, come postare immagini che non siano microscopiche. Pardon.
Come diceva l'ago alla siringa: "Oggi non sono in vena..."
Meglio che vada, sento un miagolio congelato.
Grazie
Baciccia
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 gennaio 2025
    Bari
    48
    55
    67
    87
    14
    Cagliari
    60
    78
    37
    36
    07
    Firenze
    04
    55
    45
    27
    42
    Genova
    46
    77
    47
    17
    33
    Milano
    17
    86
    14
    63
    55
    Napoli
    25
    71
    16
    48
    28
    Palermo
    65
    55
    31
    05
    25
    Roma
    80
    05
    74
    75
    28
    Torino
    28
    66
    20
    24
    87
    Venezia
    25
    29
    20
    70
    24
    Nazionale
    62
    71
    03
    28
    15
    Estrazione Simbolotto
    Bari
    42
    33
    18
    36
    32

Ultimi Messaggi

Indietro
Alto