NUOVO AMBIENTE SCRIPT AREA TECNICA

[i legend]

Quello delle estrazioni , non è difficile.
Tom se la matrice contiene long
Utilizza

' colonna 1 verso 1 indice uno.

OrdinamatriceL()
Non devi utilizzare la matrice d appoggio. Non ricordo bene i parametri interni.

 

[lotto_tom75]

Quello delle estrazioni , non è difficile.
Tom se la matrice contiene long
Utilizza

' colonna 1 verso 1 indice uno.

OrdinamatriceL()
Non devi utilizzare la matrice d appoggio. Non ricordo bene i parametri interni.

Grazie ho provato.. ma mi dice che non posso... perchè la matrice è variant...



forse il proff mi ha indicato la strada lunga anche per questo motivo... 😌

 

[i legend]

Tom , ora non accendo il pc che non sto benissimo, se non riesci domani mattina ti posto un esempio.
Buona notte a tutti
Nello smess se guardi è stato utilizzato in quasi tutti i moduli

 

[i legend]

Ma cosa contiene la matrice?

 

[lotto_tom75]

Tom , ora non accendo il pc che non sto benissimo, se non riesci domani mattina ti posto un esempio.
Buona notte a tutti
Nello smess se guardi e stato utilizzato in quasi tutti i moduli

Ma figurati. Rimettiti piuttosto uomo d'acciaio... 😜 💪 👍 😉 Ok thanks ci guardo ma penso di non cavarci un ragno dal buco lo stesso perchè come ho già detto al proff le matrici multidimensionali e i grafici mi restano particolarmente difficili da apprendere...

Ma cosa contiene la matrice?

    matricexlistbox(cln, 0) = aValori(1) 'num
    matricexlistbox(cln, 1) = aValori(2) 'ruota
    matricexlistbox(cln, 2) = aValori(3) 'rit
    matricexlistbox(cln, 3) = aValori(4) 'ritmax
    matricexlistbox(cln, 4) = aValori(5) 'incmax
    matricexlistbox(cln, 5) = aValori(6) 'freq

'Notte

 

[i legend]

I dati devono o essere omogenei
. Domani guardo ordinamatrice

 

[LuigiB]

il bagno te lo farei fare io .. tenendoti la testa sott'acqua però .. finche non mi dici che hai capito le matrici...

questa è una matrice

pure questa

e anche questa ....

 

[i legend]

Buon do a tutti.
Appena tornato dal medico.
Dopo pranzo faccio qualche prova

 

[lotto_tom75]

il bagno te lo farei fare io .. tenendoti la testa sott'acqua però .. finche non mi dici che hai capito le matrici...

questa è una matrice

pure questa

e anche questa ....


Vedi l'allegato 2256531

Già..., Il famoso metodo "FULL IMMERSION..." sergente maggiore Hartman! 🤠

Ad ogni modo tra un'iimmersione e l'altra... provo a dirle che senza esempi di code "su misura" sarà davvero difficile per me superare il corso di scripters twinbasic marines 😈🤖💪 signore! 😵 🤣

Sto cercando di capirci qualcosa online nelle matrici multidimensionali e loro ordinamento ma per ora è come andar di notte a fari spenti signore! 😵‍💫😆

L'unica cosa che ho capito per adesso... forse.. è che rispetto la virgola la parte a sx è relativa al numero di righe e la parte destra a quello delle colonne... 😅 quindi suppongo che il primo parametro di matrice data una matrice MATRICEDIESEMPIO(A,B) nel caso non si conoscano il numero di righe (come nel caso che mi necessita...) si possa mettere un valore dinamico tipo MATRICEDIESEMPIO ((ubound(vettoredelleformazionigenerate),B) dove B invece è l'array di colonne definite... tipo num, nome ruota, ecc... Ma a questo punto non essendo omogenee di tipo ovvero sia essendo stringhe e numeri e volendo la matrice solo dati omogenei... come posso fare per trasformare il vettore array formazioni e il vettore nome ruota in valori numerici di tipo long? Sicuro di aver detto l'ennesima eresia in campo di programmazione.. 😱😹😬 la saluto cordialmente sergente maggiore Hartman! 🤙🤠

 

[LuigiB]

 

[i legend]

Tom perché non utilizzi un esempio semplice
Dim aMat(10,10) as variant
Popola con valori non omogenei.
Posta il codice .
Scrivi quale colonna ordinare e il verso.
Dim idcol as long
Dim aVerso(1) as long
Idcol=
Averso(1)= ( )
Qui metti il verso nelle parentesi , se non sbaglio c era un problema con il (-1), ma credo che l abbia già risolto luigi.

Vai poi si fa l ordinamento.
Sono 2 righe.

 

[lotto_tom75]

Con tutto il rispetto signore... la spia, sul cadetto che mi ha detto che le matrici richiedono valori omogenei, io non la faccio signore... 🤫🫢😶‍🌫️😶😆. Per la prima parte in rosso credo di aver già provveduto... , a parte il valore dinamico delle righe, che ho impostato, così tanto per fare un esempio, ad un valore fisso pari a 100 signore...

Dim matricexlistbox(100, 6) As variant

            aValori(1) = StringaNumeri(aretcol) ' numero
            aValori(2) = NomeRuota(ru) ' nome ruota
            aValori(3) = frz.RetValori.Ritardo ' valore del ritardo di quel numero su quella ruota
            aValori(4) = frz.RetValori.RitardoMax
            aValori(5) = frz.RetValori.IncrementoRitMax
            aValori(6) = frz.RetValori.Presenze

    matricexlistbox(cln, 0) = aValori(1) 'num
    matricexlistbox(cln, 1) = aValori(2) 'ruota
    matricexlistbox(cln, 2) = aValori(3) 'rit
    matricexlistbox(cln, 3) = aValori(4) 'ritmax
    matricexlistbox(cln, 4) = aValori(5) 'incmax
    matricexlistbox(cln, 5) = aValori(6) 'freq

Per la seconda parte in blu... signore con tutto il rispetto... se parlava vulcaniano... 🖖👽forse signore la capivo meglio... signore 😵😵‍💫🥴 🤠


ps: ho trovato geniale "palla di panettone " signore! 😆😅😂🤣

 

[i legend]

Tom mi serve un codice banale con cui riempi aValori()
Non necessariamente il tuo codice originale.
Basta che fai un ciclo e la riempi.
Dai che proseguiamo.

grande Tom 🤣🤣🤣🤣

X Luigi.
Avevo suggerito di utilizzare ordinanatriceL ( quindi con valori omogenei)
Ordinamatrice aveva qualche problema mi sembra di ricordare anche perché è più comoda, prende stringhe e numeri.

 

[LuigiB]

 

[happy]

Vedi l'allegato 2256547

Ciao Luigi,scusa l'ignoranza, ma è normale che settando BackColor = vbBlack
ottengo questo risultato:




mentre se metto BackColor = vbBlackness ottengo:


Grazie!
Buona serata a tutti!

 

[LuigiB]

ineffeti è strano , vbBlackness sinceramente non l'ho manco mai sentito ..bho ..

 

[lotto_tom75]

Vedi l'allegato 2256547

Grazie mille capellone... 🤠😆 👌💪🫶👋🤩🧑‍🍳🙂

 

[happy]

ineffeti è strano , vbBlackness sinceramente non l'ho manco mai sentito ..bho ..

 

[lotto_tom75]

Allora.. x luigi o x chi può illuminarmi... (sempre sulle stra maledette matrici multi dimensionali)

Forse.., riguardo l'adattamento dello splendido esempio del sergente, sono in parte riuscito dopo ennemila prove a modificare lotto boss e a...

caricare la list box nel form esterno con i contenuti della matrice...
e a connettere.. la combobox x la scelta di ordinamento alla stessa listbox...

Ad ogni modo non riesco assolutamente a:

1) ridimensionare dinamicamente la matrice in rapporto al numero delle righe... effettivamente sviluppate
2) ordinare in modo corretto le varie colonne della matrice dalla relativa combobox...
In sostanza riguardo a questo secondo punto... la combobox comunica... con la listbox ma "on dick mode" per così dire...

Di seguito i pezzi di... code.. semi.. funzionanti...


code nel modulo robot boss

    matricexlistbox(cln, 0) = aValori(1) 'num
    matricexlistbox(cln, 1) = aValori(2) 'ruota
    matricexlistbox(cln, 2) = aValori(3) 'rit
    matricexlistbox(cln, 3) = aValori(4) 'ritmax
    matricexlistbox(cln, 4) = aValori(5) 'incmax
    matricexlistbox(cln, 5) = aValori(6) 'freq


aV = OrdinaMatrice(matricexlistbox, outputform.cmbOrd.ListIndex, , 1)

outputform.List1.AddItem("n:" & matricexlistbox(cln, 0) & " r: " & matricexlistbox(cln, 1) & " rit " & matricexlistbox(cln, 2) & " ritmax " & matricexlistbox(cln, 3) & " incmmax " & matricexlistbox(cln, 4) & " freq " & matricexlistbox(cln, 5))
  
outputform.Show

code nel form outputform

       Private Sub Form_Load()
               AlimentaCombo
    End Sub
 
    Sub AlimentaCombo()
        cmbOrd.AddItem "Numeri"
        cmbOrd.AddItem "Ritardo"
        cmbOrd.AddItem "Ritardo Max"
        cmbOrd.AddItem "Incmax"
        cmbOrd.AddItem "Frequenza"
        cmbOrd.AddItem "Ruota"
  
  
        cmbOrd.ListIndex = 0
  
    End Sub
 
    Private Sub cmbOrd_Change()
  
             AlimentaLista
  
    End Sub


     Sub AlimentaLista(Optional colonnesviluppate As Long)
 
     outputform.List1.Clear
 
         Dim aV() As Variant
         Dim k3 As Long
         Dim sRecord As String
   
     
         aV = OrdinaMatrice(matricexlistbox, outputform.cmbOrd.ListIndex, , 1)
    
         outputform.print "COLONNE SVILUPPATE " & UBound(matricexlistbox)
   
        For k3 = 1 To  UBound(matricexlistbox)
             
           outputform.List1.AddItem aV(k3, 0) & "- " & FormatString (CStr(aV(k3, 1)), Space$(5), 2) & " - " & FormatString (CStr(aV(k3, 2)), Space$(5), 2) & " - " & aV(k3, 3) & " - " & FormatString (CStr(aV(k3, 4)), Space$(5), 2) & " - " & aV(k3, 5)
       
        Next

piccolo screen shot riguardo l'output semi... corretto... e semi... collegato.. e interattivo... finora ottenuto...
con combobox funzionante... in "dick mode"

 

[i legend]

Devi scrivere l evento quando clicchi sulla combobox e l indice cambia