[vb6] getallen sorteren dmv bubble

[misterw]

goedenavond dames/heren,

ik kom er niet uit...ik zit hier al 3 dagen aan helaas zonder resultaat...

probleem: ik wil 10 getallen sorteren dmv bubble sort (een manier van sorteren door middel van elk element te vergelijken met het volgende en indien nodig verwisselen.)

vervelende is dat ik alle getallen in precies dezelfde volgorde eruit krijg als dat ik ze erin stop zonder dat er ook maar 1 verplaatst is... ik hoop dat jullie mij kunnen vertellen wat ik fout doe

bron:

code:

Private Sub Form_Load()
Dim getal(9) As Integer
Dim w As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer


End Sub

Private Sub Command1_Click()

x = "10"
y = "1"
w = "1"

getal0 = Text1(0)
getal1 = Text1(1)
getal2 = Text1(2)
getal3 = Text1(3)
getal4 = Text1(4)
getal5 = Text1(5)
getal6 = Text1(6)
getal7 = Text1(7)
getal8 = Text1(8)
getal9 = Text1(9)


    While x > 2
    
      
            w = y + "1"
            
            If getaly >= getalw Then

            z = getaly
            getaly = getalw
            getalw = z
            
            Print getalw
            
            End If
            
                          
           y = y + "1"
           x = x - "1"


Wend




Print "de getallen op volgorde van klein naar groot"
Print " "
Print (getal0)
Print (getal1)
Print (getal2)
Print (getal3)
Print (getal4)
Print (getal5)
Print (getal6)
Print (getal7)
Print (getal8)
Print (getal9)

End Sub

[Nvidiot]

code:

Dim getal(9) As Integer
Dim w As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

Die moeten in ieder geval van form_load naar Command1_click. Waar ze nu staan bestaan ze alleen binnen form_load, maar zodra het form geladen is niet meer.

code:

x = "10"

"10" is een string, geen integer, daar kun je dus niet mee rekenen.

Verder lijkt het erop dat je een array van 10 getallen wilt aanmaken, maar dat doe je niet, je maakt 10 variabelen aan, genaamd getal0 .. getal9.

[whoami]

Hoi,

Je kunt dit makkelijk zelf oplossen door je code te debuggen. VB6 biedt genoeg mogelijkheden (watches, breakpoints) om dat te doen.
Je gaat dus stap voor stap (regel per regel) je code uitvoeren, en je kan iedere keer zien wat er gebeurt (of wat er precies niet gebeurt). Een programmeur moet kunnen debuggen.
Aangezien dit topic gewoon een 'ziehier m'n code, debug ze ff' is, doe ik het topic dicht.