xBaffoBlù....evidenziare le figure in tabella

[Zetrix]

buongiorno BaffoBlù, ho visto che sei bravo con gli script,avrei una tabella da fare una correzione
sulla nazionale,ho scritto come a detto claudio per sistemare il bug sulla nazionale ma non ho risolto il problema..
se noti sulla ruota a tutte evidenzia delle palline nere e questo sarà dovuto al bug sulla nazionale..
ti metto lo script cosi vedi se riesci te a risolvere il problema..
la nazionale non la evidenzia proprio in quanto avrebbe dovuto evidenziare la figura 7
questo bug sulla nazionale LuigiB non l'aveva considerato infatti anche sulle altre tabelle
ce sempre questo problema sulla nazionale ma ho risolto grazie al suggerimento di claudio
che a risolto il bug sulla nazionale..
poi ho notato un altra cosa LuigiB forse si e dimenticato di mettere la data delle estrazioni nella tabella..
le ruote non fa niente ma almeno la data delle estrazioni la doveva mettere comunque non e questo il problema
poi se riesci a mettere anche la data delle estrazioni nella tabella tanto meglio..
ma forse questo e un lavoro che puo fare soltanto LuigiB..

 

[Zetrix]

Option Explicit
Sub Main
   Dim R,E,X,I,RB,RX,RK,K,Z,V,Y,RT,RF,F,Q,W,N(1)
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim cifra
   Dim qt,anum1,anum2,anum3
   Dim Totale,Total
   Dim stesto
   Dim aQuadroNum
   Dim aNumDaEvid
   '
   nRighe = 12
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(55,1)
   '
   Y = InputBox("Inserire 1 figura")
   Q = InputBox("Inserire 2 figura")
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For R = 1 To 12
  
      For V = Y To Y
         For W = Q To Q
            For E = 1 To 5
               For I = 1 To 90
                  N(1) = I
                  aQuadroNum(R,E) =(Estratto(EstrazioneFin - X,R,E))
                  aQuadroNum(R,E + 6) =(FuoriX(Estratto(EstrazioneFin - X,R,E),9))
                  '
                  If Figura(I) = V Or Figura(I) = W Then
                     '
                     If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = N(1) Then
                        '
                        nCaselleDaEvid = nCaselleDaEvid + 1
                        '
                        If R = 12 Then aNumDaEvid(nCaselleDaEvid,0) = R-1 Else aNumDaEvid(nCaselleDaEvid,0) = R
                        aNumDaEvid(nCaselleDaEvid,1) = E
                        '
                        nCaselleDaEvid = nCaselleDaEvid + 1
                        '
                        If R = 12 Then aNumDaEvid(nCaselleDaEvid,0) = R-1 Else aNumDaEvid(nCaselleDaEvid,0) = R
                        aNumDaEvid(nCaselleDaEvid,1) = E + 6
                        '
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   '
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))
   Scrivi
   Call DisegnaEstrazione(EstrazioneFin - X,CLng(0))
   Scrivi
End Sub

 

[BaffoBlù]

Vedi l'allegato 2283530

buongiorno BaffoBlù, ho visto che sei bravo con gli script,avrei una tabella da fare una correzione
sulla nazionale,ho scritto come a detto claudio per sistemare il bug sulla nazionale ma non ho risolto il problema..
se noti sulla ruota a tutte evidenzia delle palline nere e questo sarà dovuto al bug sulla nazionale..
ti metto lo script cosi vedi se riesci te a risolvere il problema..
la nazionale non la evidenzia proprio in quanto avrebbe dovuto evidenziare la figura 7
questo bug sulla nazionale LuigiB non l'aveva considerato infatti anche sulle altre tabelle
ce sempre questo problema sulla nazionale ma ho risolto grazie al suggerimento di claudio
che a risolto il bug sulla nazionale..
poi ho notato un altra cosa LuigiB forse si e dimenticato di mettere la data delle estrazioni nella tabella..
le ruote non fa niente ma almeno la data delle estrazioni la doveva mettere comunque non e questo il problema
poi se riesci a mettere anche la data delle estrazioni nella tabella tanto meglio..
ma forse questo e un lavoro che puo fare soltanto LuigiB..

Hi hi hi, io bravo con gli script?

Mi dispiace, ma se non ti ha potuto aiutare Claudio, non vedo come potrei farlo io che al suo confronto (negli script) sono un povero studentello di campagna (come disse Einstein di Tesla...).

scusa non ho capito cosa hai risolto se vedo ancora i pallini neri...

cosa ti aveva consigliato di fare claudio?

fammi capire il procedimento...

se vuoi aiuto devi darmi tutti gli indizi

...poi se c'è un bug...non lo so...

 

[Zetrix]

il problema e che dovrebbe evidenziare le figure sulla nazionale e non i pallini neri su tutte
la domanda e perche non evidenzia le figure sulla nazionale ?
non so se si tratta di un bug sulla nazionale fatto sta che la nazionale non la evidenzia proprio
claudio a risolto il bug sulla nazionale ma non su questa tabella ma sulle tabelle delle estrazioni
invece queste tabelle sono differenti perche sono gestite e scritte con il quadro numerico..
neanch'io sono esperto di script se no avrei risolto il problema riesco a fare quello che posso fare..
ce un modo che si possa eliminare la ruota tutte ?

 

[Zetrix]

se vediamo questa tabella si nota che i pallini neri sono allineati proprio con la figura 8 della nz
ma non evidenzia la nazionale e qua sta il problema e come se la ruota a tutte fosse la nazionale
secondo me bisogna trovare un modo di saltare la ruota a tutte e solo cosi puo evidenziare la nazionale..
If R = 11 Then R = 12
ho aggiunto anche questa riga ma non si e risolto niente..

 

[Zetrix]

BaffoBlù ho risolto il problema ho eliminato tt e nz perche sono due rompiscatole
manca soltanto la data delle estrazioni ma per scrivere la data sono cose che puo fare solo LuigiB.
grazie lo stesso della risposta.

 

[genios]

IF R=11 THEN R=R+1

 

[joe]

Secondo me il problema è sempre lo stesso.

Disegnare queste tabelle, ti complica la vita.

Che però ci siano bug, è altra cosa dal non saper risolvere il problema.

Come vedi ci possono essere il 9-4 di Venezia come ANCHE il 4-9 della Nazionale.

Però non è nella mia intenzione insistere sul dire che è più complicato.

Dunque reputo sia giusto che ci si faccia le ossa a suon di capocciate.

Come sempre, preferisco che le mie affermazioni siano supportate da prove innegabili:

 

[BaffoBlù]

IF R=11 THEN R=R+1

magari era così facile...

 

[BaffoBlù]

Vedi l'allegato 2283536

BaffoBlù ho risolto il problema ho eliminato tt e nz perche sono due rompiscatole
manca soltanto la data delle estrazioni ma per scrivere la data sono cose che puo fare solo LuigiB.
grazie lo stesso della risposta.

Bhe..., non è veramente risolto

Dai retta a Joe.

Perché ti complichi la vita con queste tabelle.
A meno che tu non cerca un lato estetico che ti fa comodo per motivi tuoi...

Ad ogni modo ci sono script che fanno quello che chiedi senza problemi e senza scomodare AquadroNum etc...

Però se solo vuoi visionare le figure o coppie di figure sul quadro estrazionale, puoi fare così :

 

[joe]

Ciao BaffoBlù.

Diciamo che la strada è quella proposta da Genios, ma essa ha una notevole pendenza.

Soprattutto, Eugenio ... l'ha presa dal verso sbagliato.






PS: Sembra che quanto hai proposto tu, individui le sequenze di numeri in modo molto restrittivo.

Cioè solo se essi sono adiacenti. Cioè attaccati l'un l'altro.

Ma questa è una parte del programma che non uso e potrei sbagliare.

Sia in quanto mi pare di rilevare, sia per la mancanza di conoscenza di eventuali altri dettagli della ricerca.

 

[BaffoBlù]

Ciao BaffoBlù.

Diciamo che la strada è quella, ma ha una notevole pendenza.

Eugenio ... l'ha presa dal verso sbagliato.


Vedi l'allegato 2283554

difficile entrare nella testa altrui.

io poi con il quadro estrazionale in quel modo non mi ci trovo, ho bisogno di larghe vedute
e Spaziometria li soddisfa.

Cosa ci farà una volta individuato quello che cerca?

Lo sai come vanno certe cose qui, uno chiede e poi ci fa altro...

 

[Zetrix]

x Joe , lo so che ai risolto il problema ma non vuoi mettere la soluzione..
ma non importa..

 

[Zetrix]

BaffoBlù quella tabella e troppo estesa e so che si puo fare anche con quella tabella..
ma io lavoro con il quadro numerico e mica solo con le figure..
ma non e che mi interessa tanto la nazionale la potrei anche escludere dalla tabella
speravo visto la tua bravura con gli script che riuscivi a risolvere il problema..
e mi sembra che ai collaborato anche con LuigiB con SpazioMetria quindi dovresti conoscere
bene il programma..
il fatto della tabella con i pallini neri e un fatto di estetica insomma non e mica bello mettere
una tabella nel forum con i pallini neri eh non va bene per niente..

 

[Zetrix]

una cosa e certa alla 11 riga e come se leggesse lo 0 che e difatti il 90
e infatti ho evidenziato le figure 4 e 9 e il 90 e di figura 9
e questo spiega perche evidenzia i pallini neri perche alla 11 riga ce lo 0
e lo 0 lo legge come se fosse il 90 e questo spiega perche evidenzia a lato della tabella
tutta la figura 9
e alla 11 riga doveva esserci la nazionale..e invece la nazionale e alla 12 riga..

 

[BaffoBlù]

BaffoBlù quella tabella e troppo estesa e so che si puo fare anche con quella tabella..
ma io lavoro con il quadro numerico e mica solo con le figure..
ma non e che mi interessa tanto la nazionale la potrei anche escludere dalla tabella
speravo visto la tua bravura con gli script che riuscivi a risolvere il problema..
e mi sembra che ai collaborato anche con LuigiB con SpazioMetria quindi dovresti conoscere
bene il programma..
il fatto della tabella con i pallini neri e un fatto di estetica insomma non e mica bello mettere
una tabella nel forum con i pallini neri eh non va bene per niente..

Aspetta !

Io non sono bravo con gli script come credi, anzi...

io non è che abbia collaborato....

io sono stato solo l'idea creatrice e LuigiB è stato la mano che la spasmata.

Infatti se vai a vedere la scheda "Info", mi troverai fra gli unici Supervisori del programma (BaffoBlù e Ramco).

Ramco (se non sbaglio) fu quello che aiutò Luigi ad implementare il fattore script all'interno del programma
(prima non si potevano eseguire gli script...)

Io ci sono stato a periodi alterni (Dico la verità....brutte malattie...molti qui lo sanno...)

io gli script li so fare ma quelli base, per reminiscenze del basic del C64, poi mi sono adattato, ma ho anch'io i miei limiti.
Se ero come LuigiB vedevate script da mille e una notte...

Dici che conosco bene il programma?

No affatto!

Fu creato una 15 ina di anni fa, io ci stetti appresso un 3.4 anni a periodi alterni, poi sono sparito.

nel corso del tempo sono state aggiunte tante di quelle cose che francamente io non uso e non ho mai usato.

-------------------------------------

Posso dirti che Il tuo problema è proprio quello script che stai usando...

Consiglio di metterti d'accordo con Joe offrendogli un caffè lungo....

 

[joe]

una cosa e certa alla 11 riga e come se leggesse lo 0 che e difatti il 90
e infatti ho evidenziato le figure 4 e 9 e il 90 e di figura 9
e questo spiega perche evidenzia i pallini neri perche alla 11 riga ce lo 0
e lo 0 lo legge come se fosse il 90 e questo spiega perche evidenzia a lato della tabella
tutta la figura 9
e alla 11 riga doveva esserci la nazionale..e invece la nazionale e alla 12 riga..

Hai spiegato perché ... SE ... si creano delle leggi assurde queste diventano complicate nella loro interpretazione.

Difficili da applicare e rispettare.

In modo più soft, le avevo descritte come inutili complicazioni.

Che poi il 90 sia di Figura Zero non lo avevo ancora mai letto !

Ma non è questo il problema.

Prima cosa hai scritto che ... con 10 Ruote funziona.

Bene, è un buon punto di partenza.

Per il computer "10 Ruote" sono "10 Ruote".

Se a queste 10 ci si aggiunge 1 Ruota, la Nazionale, per il computer "10 Ruote" + "1 Ruota" = "11 Ruote".

Questo è così ... un dato di fatto ... che piaccia o non piaccia.

Alla sintesi di queste prime semplici considerazioni si può dedurre che la tabella per contenere 11 Ruote,

"dovrebbe" essere di 11 Righe.

Questo fatto sembra essere recepito e così è nell'immagine che hai inserito al messaggio #15.

Ora è evidente che per la Nazionale hai fatto un salto di 2 unità per passare da 10 a 12

+1 lo ha fatto il For-Next

+1 lo ha fatto If R = 11 Then R = 12 che si è aggiunto per saltare la "Ruota Virtuale 11" = Tutte.

...

È evidente che se hai usato una sola variabile R

Essa non può contenere contemporaneamente

12 per puntare alla ruota in cui "leggere" e

11 per puntare alla riga In cui "scrivere".

È un errore di logica.

Perché R = 11 è DIVERSO da R = 12.

Dunque in una tabella 11 x 11 si tratta di andare a correggere l'ultima linea,

perché come si è detto le prime 10 funzionano.

 

[BaffoBlù]

Ciao BaffoBlù.

Diciamo che la strada è quella proposta da Genios, ma essa ha una notevole pendenza.

Soprattutto, Eugenio ... l'ha presa dal verso sbagliato.


Vedi l'allegato 2283554



PS: Sembra che quanto hai proposto tu, individui le sequenze di numeri in modo molto restrittivo.

Cioè solo se essi sono adiacenti. Cioè attaccati l'un l'altro.

Ma questa è una parte del programma che non uso e potrei sbagliare.

Sia in quanto mi pare di rilevare, sia per la mancanza di conoscenza di eventuali altri dettagli della ricerca.

si ,anch'io non lo uso, era solo per dimostrazione e credo che tu abbia ragione che siano adiacenti, LuigiB lo ha fatto così,
ma non so se qualcuno lo ha chiesto in quel modo, boo...
io non uso molte cose...

 

[joe]

Detto che riga in cui leggere e riga in cui scrivere ...

... dopo la decima Ruota diventano diverse (rispettivamente 12 e 11) ho utilizzato par questi 2 valori due variabili (r & s).

R per la Ruota da leggere e S per la Ruota da scrivere (in tabella).

Ho voluto utilizzare questa soluzione molto semplice, perché si trattava di rispettare,

i contenuti originali dello script fatto da Luigi al quale vanno i miei saluti.

Option Explicit
Sub Main
   ' Test_DisegnaEstrazioneQN
   ' Script V.2.0 By Joe del 10/052024
   ' Visualizza anche Ruota Nazionale & i numeri nelle Figure scelte.
   Dim r,e,s
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   ' predispone le dimensioni della matrice che contiene i numeri
   nRighe = 11
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(121,1) ' Quantità di celle possibili 
   Scrivi DataEstrazione (EstrazioneFin,,,"/"),1,1
   For r = 1 To 12
      If r <> 11 Then
         s = s + 1 'Riga della Tabella
         For e = 1 To 5
            aQuadroNum(s,e) = Estratto(EstrazioneFin,r,e)
            aQuadroNum(s,e + 6) = Figura(Estratto(EstrazioneFin,r,e))
            '
            If Figura(aQuadroNum(s,e)) = 9 Or Figura(aQuadroNum(s,e)) = 4 Then
               '
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = s
               aNumDaEvid(nCaselleDaEvid,1) = e
               '
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = s
               aNumDaEvid(nCaselleDaEvid,1) = e + 6
            End If
         Next
      End If
   Next
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
End Sub

 

[Zetrix]

Joe grazie dello script dopo leggo lo script e se riesco a seguire la tua logica sugli script..