Visual Basic 6 - Problema array

Forum - Visual Basic 6 - Problema array

Pagine: [ 1 2 ]

matto00 (Normal User)
Rookie

Messaggi: 41
Iscritto: 10/12/2008

Postato alle 20:08
Giovedì, 23/04/2009

Ciao a tutti ho ancora una volta bisogno del vostro aiuto.
Nel mio programma ho 2 vettori, il 1° con i nomi il 2° con i punti dei relativi nomi, ora a me servirebbe che ordinasse i punteggi ma spostasse anche l'altro vettore.
Ora vi faccio un esempio.

Vettore1(100,85,75,96)
Vettore2(Luca, Marco, Daniele, Mattia)

Quindi luca ha 100 punti, marco 85 etc io devo riuscire a ordinare il 1° vettore mantenendo il nome corrispondente lo stesso, come posso fare ?

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 20:55
Giovedì, 23/04/2009

Puoi usare un vettore di strutture

oppure

durante l'ordinamento del primo vettore (che penso saprai scrivere), ordini anche l'altro.

matto00 (Normal User)
Rookie

Messaggi: 41
Iscritto: 10/12/2008

Postato alle 21:23
Giovedì, 23/04/2009

Si per l'ordinamento ci sono, esattamente cos'è un vettore di strutture ? sono i vettori a + indici ?

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 21:34
Giovedì, 23/04/2009

No ...

Conosci una struttura?

Istruzioni

Type
...
End Type

matto00 (Normal User)
Rookie

Messaggi: 41
Iscritto: 10/12/2008

Postato alle 21:35
Giovedì, 23/04/2009

no non so proprio cosa sia

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 21:37
Giovedì, 23/04/2009

Allora segui l'altra strada ... modifica il codice in cui ordine il primo vettore, aggiungendo anche il secondo ...

matto00 (Normal User)
Rookie

Messaggi: 41
Iscritto: 10/12/2008

Postato alle 21:42
Giovedì, 23/04/2009

Già che ci sei non è che hai un link per il vettore di struttre cosi mi documento un pò

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 21:47
Giovedì, 23/04/2009

Per la struttura

http://msdn.microsoft.com/en-us/library/aa266315(VS.60).aspx

Fatta una, ne puoi fare un vettore ...

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 5:12
Domenica, 26/04/2009

Ciao,
non so se hai già risolto, ma considerato che mi sono occupato dell'ordinamento di matrici in un post di poco tempo fa, ti ho predisposto la seguente routine che ordina contemporanenamente i due vettore i cui componenti sono tra loro correlati:

Codice sorgente - presumibilmente VB.NET

Option Explicit
Option Base 1
Dim varNomeAssociato() As Variant
Dim varPuntiAssociato() As Variant
Dim intSub As Integer
'-----------------------------------
Private Sub Command1_Click()
    Call Associazione
End Sub
'-----------------------------------
Private Sub Associazione()
 
    varNomeAssociato = Array("Luca", "Marco", "Daniele", "Mattia", "Giovanni")
    varPuntiAssociato = Array(100, 85, 75, 96, 65)
 
'    For intSub = LBound(varNomeAssociato) To UBound(varNomeAssociato)
'        varNomeAssociato(intSub) = InputBox("Qual'é il nome dell'associato ?")
'        varPuntiAssociato(intSub) = InputBox("Quali sono i suoi punti ?")
'    Next intSub
    
    Call Ordina
 
    ReDim Preserve varNomeAssociato(LBound(varNomeAssociato) To UBound(varNomeAssociato))
    ReDim Preserve varPuntiAssociato(LBound(varPuntiAssociato) To UBound(varPuntiAssociato))
    
End Sub
'-----------------------------------
' Ordina le due matrici i cui componenti sono correlati:
Private Sub Ordina()
    Dim intMsg As Integer
    Dim i As Integer
    Dim temp As Long, temp2 As String
 
' Dispone un ordinamento crescente:
    For i = UBound(varPuntiAssociato, 1) To LBound(varPuntiAssociato, 1) Step -1
        For intSub = LBound(varPuntiAssociato, 1) To i - 1
            If varPuntiAssociato(intSub) > varPuntiAssociato(intSub + 1) Then
                temp = varPuntiAssociato(intSub)
                temp2 = varNomeAssociato(intSub)
                varPuntiAssociato(intSub) = varPuntiAssociato(intSub + 1)
                varNomeAssociato(intSub) = varNomeAssociato(intSub + 1)
                varPuntiAssociato(intSub + 1) = temp
                varNomeAssociato(intSub + 1) = temp2
            End If
        Next intSub
    Next i
 
'Visualizza i dati acquisiti:
    ' Inizializza il primo subscritto:
    intSub = 1
    Do
        intMsg = MsgBox("L'associato" & Space(1) & intSub & " é " & varNomeAssociato(intSub) & _
        Space(1) & " ed i suoi punti sono pari a" & Space(1) & varPuntiAssociato(intSub))
        intSub = intSub + 1
    Loop Until (intSub > 5)
 
End Sub

Non ho idea se la strada suggerita da theprogrammer (vettore di strutture) sia più performante, dato che non l'ho provata (mi riservo comunque di farlo per esperienza personale).
L'ordinamento impostato é cresente (nel tuo esempio da 75 --> 100 punti) e parrebbe funzionare; qualora sia indispensabile l'ordinamento decrescente, prova ad impostare If varPuntiAssociato(intSub) < varPuntiAssociato(intSub + 1) Then .
Ciao :k:

Ultima modifica effettuata da Louis il 26/04/2009 alle 5:35

Pagine: [ 1 2 ]