Evidenziare estratti Come fare

[Xeroxs]

Grazie Ancora Joe, Concordando con quanto espresso da Master, per i Tuoi consigli e idee,
Mi piace pensare che con le mie idee magari strane riesco a stimolare l'interesse dei migliori, stavo tentando anche Io di capire come intervenire per le modifiche ma io devo ancora rincorrere su quanto Voi riuscite a Fare.
Chiedo solo a Maser se ha usato la stessa via o altra soluzione.

Grazie come sempre

 

[i legend]

Ciao , intanto i complimenti a Joe per il suo algoritmo ad hoc,
io avevo pensato a qualcosa di piu flessibile utilizzabile di volta in volta a seconda di quello che si vuole evidenziare.
,l altra sera era talmente addormentato che avevo frainteso la croce , non come schema ma come carattere,
ora che ho capito che si vuole disegnare uno schema, ho pensato qualcosa di molto "easy "
in pratica un array contenente delle stringhe
dove sono gli uno si attivano le posizioni dove sono gli zero si disattivano
in pratica si puo disegnare qualunque cosa, basta impostarla nell array
esempio
-------------
aCol(1)=" 0,1,0,1,0,1" -> posizione zero=0,posizione 1=1,posizione2=0,posizione3=1,posizione4=0,posizione5=1
ecco lo script con 3 esempi di posizioni attive

uno soluzione cosi è molto versatibile e semplice da utilizzare per chiunque , anche per chi non mastica di script.

Option Explicit
' verificatre che lo script funzioni correttamente , non se ne garantisce la giustezza :)'
Sub Main
   ReDim aCol_X(12)
   Dim idEstr,R,P,E
   Dim aCol(1)
   Dim aV
   ' Gli Uno attivano la posizione, gli zero l annullano
   ' questo Array evidenzia una croce
   ' array     "p0,p1,p2,p3,p4,p5"'
   aCol_X(1) = "0,1,0,0,0,1"
   aCol_X(2) = "0,0,1,0,1,0"
   aCol_X(3) = "0,0,0,1,0,0"
   aCol_X(4) = "0,0,1,0,1,0"
   aCol_X(5) = "0,1,0,0,0,1"
   aCol_X(6) = "0,0,0,0,0,0"
   aCol_X(7) = "0,0,0,0,0,0"
   aCol_X(8) = "0,0,0,0,0,0"
   aCol_X(9) = "0,0,0,0,0,0"
   aCol_X(10) = "0,0,0,0,0,0"
   aCol_X(12) = "0,0,0,0,0,0"
   idEstr = EstrazioneFin
  
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi FormatSpace(NomeRuota(R),12) & " ",,0
      aV = Split(aCol_X(R),",")
      For P = 1 To 5
         E = Estratto(idEstr,R,P)
         ' questo filtro attiva la cella se =1 altrimenti la disattiva'
         If aV(P)  Then aCol(1) = vbRed: Else aCol(1) = RGB(239,240,242)
         Scrivi " " & Format2(E) & " ",,0,aCol(1)
      Next
      Scrivi
   Next
   ' esempio numero 2
   ' questo Array evidenzia una Doppia croce
   aCol_X(1) = "0,1,0,0,0,1"
   aCol_X(2) = "0,0,1,0,1,0"
   aCol_X(3) = "0,0,0,1,0,0"
   aCol_X(4) = "0,0,1,0,1,0"
   aCol_X(5) = "0,1,0,0,0,1"
   aCol_X(6) = "0,0,1,0,1,0"
   aCol_X(7) = "0,0,0,1,0,0"
   aCol_X(8) = "0,0,1,0,1,0"
   aCol_X(9) = "0,1,0,0,0,1"
   aCol_X(10) = "0,0,1,0,1,0"
   aCol_X(12) = "0,0,0,1,0,0"
   Scrivi
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi FormatSpace(NomeRuota(R),12) & " ",,0
      aV = Split(aCol_X(R),",")
      For P = 1 To 5
         E = Estratto(idEstr,R,P)
         If aV(P) Then aCol(1) = vbRed: Else aCol(1) = RGB(239,240,242)
         Scrivi " " & Format2(E) & " ",,0,aCol(1)
      Next
      Scrivi
   Next
   ' questo Array evidenzia una Disegnino
   aCol_X(1) = "0,1,0,0,0,1"
   aCol_X(2) = "0,1,1,1,1,1"
   aCol_X(3) = "0,1,0,1,0,1"
   aCol_X(4) = "0,0,1,0,1,0"
   aCol_X(5) = "0,1,0,0,0,1"
   aCol_X(6) = "0,1,0,0,0,1"
   aCol_X(7) = "0,0,1,0,1,0"
   aCol_X(8) = "0,0,1,0,1,0"
   aCol_X(9) = "0,0,1,0,1,0"
   aCol_X(10) = "0,1,0,0,0,1"
   aCol_X(12) = "0,1,1,1,1,1"
   Scrivi
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi FormatSpace(NomeRuota(R),12) & " ",,0
      ReDim aV2(0)
      Call SplitByChar(aCol_X(R),",",aV2)
      For P = 1 To 5
         E = Estratto(idEstr,R,P)
         If aV2(P) Then aCol(1) = vbRed: Else aCol(1) = RGB(239,240,242)
         Scrivi " " & Format2(E) & " ",,0,aCol(1)
      Next
      Scrivi
   Next
End Sub

per Xerox:
ciao , non sono le idee strambe, che spingono qualcuno ad aiutare, anzi a mio avviso è l opposto.
se qualcuno ha voglia di imparare , mi sembra il minimo cercare di aiutare nelle nostre possibilità

ci tengo a precisare, che il mio primo script è fatto con lo scopo anche di spiegare e mostrare cosa si puo fare con spazioscript, questo invece è solo un gioco , ho cercato di rendere facile qualcosa per chiunque , anche a chi la matematica prorio gli sta antipatica
ciao
potete disegnare di tutto

 

[Xeroxs]

Ciao, I-Legend
Prima Di tutto se mi sono spiegato male ti chiedo scusa, perchè forse Ti ho indirizzato su un'altra strada, il tutto nasce da una cosa che a me piace molto cercare di evidenziare anche gli estratti che possono far parte di un metodo e/o di un calcolo allora parlandone con un amica mi è venuta in mente la X (Che Io erroneamente ho chiamato croce) che è l'iniziale e Finale del mio soprannome...

e credimi ho capito le potenzialità del programma al di là del gioco ma mi rendo conto anche dei miei limiti e riuscire a raggiungere un obbiettivo direi che per me è davvero tanta cosa, e vedendo anche la tua soluzione non posso che restare a bocca aperta non tanto per il raggiungimento di un obbiettivo ma perchè proponi una soluzione flessibile che va davvero oltre....

Alcuni Di Voi sono davvero ad un livello che Vi fa onore solo per il fatto che condividete il vostro sapere con chi comunque non lo è...
Grazie davvero.

 

[joe]

Ringrazio nuovamente tutti.

Concordo con ilegend,

Luigi ha anche inserito molte istruzioni per gestire la logica booeliana, cioè valori "attivi" e "spenti".

Li ho visti poco utilizzati se non nel disegnare le estrazioni e poco altro.

 

[i legend]

Ciao, I-Legend
Prima Di tutto se mi sono spiegato male ti chiedo scusa, perchè forse Ti ho indirizzato su un'altra strada, il tutto nasce da una cosa che a me piace molto cercare di evidenziare anche gli estratti che possono far parte di un metodo e/o di un calcolo allora parlandone con un amica mi è venuta in mente la X (Che Io erroneamente ho chiamato croce) che è l'iniziale e Finale del mio soprannome...

e credimi ho capito le potenzialità del programma al di là del gioco ma mi rendo conto anche dei miei limiti e riuscire a raggiungere un obbiettivo direi che per me è davvero tanta cosa, e vedendo anche la tua soluzione non posso che restare a bocca aperta non tanto per il raggiungimento di un obbiettivo ma perchè proponi una soluzione flessibile che va davvero oltre....

Alcuni Di Voi sono davvero ad un livello che Vi fa onore solo per il fatto che condividete il vostro sapere con chi comunque non lo è...
Grazie davvero.

Ciao xerox , non ti sei spiegato male.
Ero io troppo stanco, avevo sonno, cmq lo script tutto sommato faceva anche quanto chiedevi.
Buono studio. Solitamente la soluzione migliore è la più semplice.
Per questo non è sempre facile trovarla

 

[fillotto]

Chiedo allora sulla falsa riga di quanto fin qui realizzato come evidenziare,relativamente ad una singola estrazione , dei 55 numeri estratti quelli estratti una sola volta .Questo per vedere eventuali figure e simmetrie che ciascuno ci vede.

 

[fillotto]

Chiedo allora sulla falsa riga di quanto fin qui realizzato come evidenziare,relativamente ad una singola estrazione , dei 55 numeri estratti quelli estratti una sola volta .Questo per vedere eventuali figure e simmetrie che ciascuno ci vede.

Stessa cosa solo quelli usciti 2 volte....

 

[i legend]

Ciao filotto
luigi ha scritto la funzione numeriripetutirilevatiE
Con la logica del primo script si fa semplice semplice.
Provaci
Ciao

 

[joe]

Sempre alternativo anche se ...

sullo script presente al primo messaggio,

con Spaziometria, che permette di colorare gli estratti,

farlo in funzione della loro frequenza è davvero semplice.

Sub Main
   Dim nu(1),ru(2),r,p
   Dim Ini,Fin,Es
   Ini = EstrazioneFin
   Fin = EstrazioneFin
   ru(1) = 11 : ru(2) = 12
   For Es = Ini To Fin
      Scrivi GetInfoEstrazione(Es),1
      Scrivi
      For r = 1 To 12
         If r = 11 Then r = 12
         Scrivi SiglaRuota(r),True,False
         For p = 1 To 5
            nu(1) = Estratto(Es,r,p)
            Scrivi Space(1) & Format2(nu(1)),1,0,,SerieFreq(Es,Es,nu,ru,1) - 1
         Next
         Scrivi
      Next
   Next
   Scrivi
   Scrivi Space(2) & "Legenda:",True,,4
   For P = 1 To 4
      Scrivi "Presenze = " & P,True,True,,r - 1
   Next
End Sub

PS : Ho scelto, per semplicità, nero/blu/rosso/verde

 

[fillotto]

solo con l'osservazione con lo script di Joe analizzo l'estrazione del 18/2/21 ruote di firenze e torino , cosa hanno in comune? Quattro numeri usciti 2 volte e un numero uscito una volta rispettivamente il 63 a FI e il 79 a TO . Andiamo sul tabellone delle estrazioni per evidenziare il 63 a FI e il 79 a TO. Dividiamo idealmente il tabellone in due parti BA...MI e NA.....VE troviamo "specularmente"i due numeri speculari a 63 e 79 ossia 48 a CA e 58 a RO
li evidenziamo per vedere come si è comportato questa quaterna ...1° colpo Bari Ambo 1° colpo ripetizione del 63 su firenze... ecc vedete voi.
Provate con altre estrazioni e liberate la fantasia

 

[joe]

Buon giorno a tutte/i.

Riguardo gli aspetti fortemente cabalistici e numerologici, nell'estrazione del 02/03/2021

(da poco "tramontata" la possibilità dell'essere data palindroma)

ci sono 22 24 44 42 che sono estratti una sola volta, pertanto nel massimo di 4 ruote.

Questi numeri si caratterizzano per avere "la cifra" con cui termina ognuno di essi,

che coincide con la prima cifra del numero successivo.

Sino a chiudere la quartina in cerchio, senza inizio e senza fine.

Bari / Milano / Firenze le ruote in cui si è generata questa condizione.

42 capogioco con i rimanenti (con il 67 in Genova numero-primo, mancante ed in chiusura spaziometrica)

 

[fillotto]

Riguardo all'estrazione del 02/03/2021 invece io vedrei bene l'intera cinquina di MI cioè:
15 42 08 44 35 curiosamente usciti una volta sola e ovviamente assenti in tutte le altre ruote. Perciò per ambo su tutte e su MI (siccome però non sono bravo in previsioni .... se vi ispira giocate qualche euro )

 

[joe]

Qui giunti...

... quella che Xeroxs dice essere una idea strana,

unità alle osservazioni di Filotto, riportano pari-pari a quanto si era visto con Luigi

e per cui lui aveva preparato una guida in vb6.

Cioè ci sono gli strumenti per la creazione di * una utility per la visualizzazione *

capace di evidenziare selettivamente e capace ed allo stesso tempo

di superare il limite del run-time tipico dello script.

So che quanto ho scritto è piuttosto incomprensibile e generico, però nel dichiararmi favorevole

e disponibile a fornire proposte, nuovi dettagli, supporto .... chiedo se,

tra i migliori, qualcuno è disponibile, al partecipare alla realizzazione dell' utility, qui tratteggiata.

In attesa...

Cordiali saluti.

 

[LuigiB]

Ciao Joe ... seguo il vostro thread e non ho capito se in questo tuo ultimo messaggio mi chiamavi in causa ... sei troppo ermetico

 

[joe]

Luigi ... tu naturalmente ne sei capace, da solo.

Se ... fatta-pronta ... noi la si usa.

Se la facciamo "da noi" senza naturalmente rinunciare, al tuo preziosissimo contributo,

dovrebbe essere una buona soddisfazione per tutti.

Per essere un pochino più esplicito si tratterebbe di avere la visualizzazione dell'archivio.

in cui poter evidenziare i vari estratti ... potendoli scegliere per gruppi, sorti, ruote ... ecc.

 

[joe]

ciao Luigi, buona giornata e grazie per l'attenzione.

In sintesi ci avevi dato il "mini-browser" con la sua griglia 5x11

Lo stesso che abbiamo visto qui nella forma ridotta (in VbScript)

Si tratterebbe di visualizzarlo in forma di archivio, in una riga

ed assieme a questa le 20-30 righe che la pagina può contenere e scorrere.

Allo stesso tempo, avere la possibilità di fornire "una raccolta di parametri"

che determinano quali estratti scegliere, evidenziare (includere/escludere) in questa tabella-archivio.

Giustamente avevamo detto che evidenziare per esempio 10 numeri in tutte le ruote ...

... si traduce nell'avere uno schermo tanto pieno quanto vuoto di evidenze.

Se si limitassero "10 numeri dal terno (in poi)" ...

... rimarrebbe evidente "se" ed in quale ruota/e è presente.

In un programma si vedrebbe ANCHE cosa cambia ... aggiungendo/togliendo/cambiando ...

senza dover chiudere/cambiare/rilanciare lo script.

 

[LuigiB]

ciao Luigi, buona giornata e grazie per l'attenzione.

In sintesi ci avevi dato il "mini-browser" con la sua griglia 5x11

Lo stesso che abbiamo visto qui nella forma ridotta (in VbScript)

Si tratterebbe di visualizzarlo in forma di archivio, in una riga

ed assieme a questa le 20-30 righe che la pagina può contenere e scorrere.

Allo stesso tempo, avere la possibilità di fornire "una raccolta di parametri"

che determinano quali estratti scegliere, evidenziare (includere/escludere) in questa tabella-archivio.

Giustamente avevamo detto che evidenziare per esempio 10 numeri in tutte le ruote ...

... si traduce nell'avere uno schermo tanto pieno quanto vuoto di evidenze.

Se si limitassero "10 numeri dal dal terno" (in poi) ...

... rimarrebbe evidente "se" ed in quale ruota/e è presente.

In un programma si vedrebbe ANCHE cosa cambia ... aggiungendo/togliendo/cambiando ...

senza dover chiudere/cambiare/rilanciare lo script.

Cioè voi vorreste realizzare un piccolo programmino con queste funzionalita che per ora avete fatto in script ?
Io sono pronto ad aiutarvi , ma solo da mentore ... non scrivo codice se mai vi dico cosa fae ovi faccio esempi che voi poi dovrete riportare nella realtà del programma ma è omai ora che almeno qualcuno di voi faccia il passo e inizi a programmare in un ambiente seppur vecchio come puo essere il vb6 ...
Bisogna iniziare per gradi ... se per voi va ben io ci sono...

 

[joe]

OTTIMO.

Unica cosa, se ricordo bene la tua mail, non mi è più accessibile,

Se in futuro dovesse essere necessario poter scambiare, dati ... qui impossibili, ti farò sapere.

Intanto vediamo se si aggiunge qualcuno.

 

[fillotto]

In un programma si vedrebbe ANCHE cosa cambia ... aggiungendo/togliendo/cambiando ...

senza dover chiudere/cambiare/rilanciare lo script.

mi intriga quest'ultima possibilità. C'è qualcosa di nuovo

 

[i legend]

Ciao , non ho vb6 , ma visto che vb.net ( visual studio) è free se decidete di utilizzarlo sono pronto ad imparare, o almeno pronto a provarci
Ciao