[vb6] ordinamenti

[jjjjjj]

Egregi

Un altro problemuccio in vb6

dopo i file txt numerici le somme di array (questa era facilissima!)

mettiamo che nella text1(0) deve starci la somma piu' alta e' le altre in sequenza cioe' 1°-2°-3° etc etc

quale sara' il codice?


Ringrazio per una cortese risposta.

Saluti

[optime]

http://forum.html.it/forum/showthrea...hreadid=683542

[jjjjjj]

Ti ringrazio

Pero' il mio non si appoggia ad un db

ma inserisce i dati in un form li salva

e dopo in un altro form li legge

fa' la somma dei dati

ed e' li che li deve ordinare

dalla somma piu' alta alla piu' bassa

e se per caso anche qua' sono in parita dovrebbe guardare il testo

mettendoli in ordine alfabetico.

quale sara' il codice?

[optime]

molto evidentemente NON hai letto bene il post

[jjjjjj]

Egregi

Gira che ti rigira,ho trovato qualcosa per ordinare i punteggi,pero' non li mette in ordine punteggi 14,17,16,10,10,8,7,9,4,1),non sebra molto ordinata!

Dove sbaglio?

i punteggi sono nella text3

For i = 0 To 9
      Classifica(i) = Text3(i)
Next i

For i = 0 To 9
  For j = i + 1 To 9
     x = Classifica(i)
     y = Classifica(j)

     If Classifica(x) > Classifica(y) Then
        Temp = Classifica(i)
        Classifica(i) = Classifica(j)
        Classifica(j) = Temp
     End If
Next j, i

For i = 0 To 9
   Text3(i) = Classifica(i)
Next i

Ringrazio per una cortese risposta

Saluti.

[MMarzia]

j, includi il codice nell'apposito tag [*CODE] codice [*/CODE] (senza asterischi)

[jjjjjj]

Text3(0) = somma1 + sommax + somma2 + somma3
Text3(1) = somma4 + somma5 + somma6 + somma7
Text3(2) = somma8 + somma9 + somma10 + somma11
Text3(3) = somma12 + somma13 + somma14 + somma15
Text3(4) = somma16 + somma17 + somma18 + somma19
Text3(5) = somma20 + somma21 + somma22 + somma23
Text3(6) = somma24 + somma25 + somma26 + somma27
Text3(7) = somma28 + somma29 + somma30 + somma31
Text3(8) = somma32 + somma33 + somma34 + somma35
Text3(9) = somma36 + somma37 + somma38 + somma39
For i = 0 To 9
    
      Classifica(i) = Text3(i)

Next i
For i = 0 To 9

For j = i + 1 To 9

   x = Classifica(i)

y = Classifica(j)

If Classifica(x) > Classifica(y) Then

   Temp = Classifica(i)

    Classifica(i) = Classifica(j)

    Classifica(j) = Temp

End If

Next j, i

For i = 0 To 9

Text3(i) = Classifica(i)

Next i

[jjjjjj]

dove sbaglio?

[jjjjjj]

Risolto grazie lo stesso!