Skipper131
Grünschnabel
hi,
ich muss bald ein Referat über das Bubblesortverfahren halten und muss dabei 5 Zahlen eingeben die sortiert werden. Das Programm funktioniert, aber ich wollte wissen wie ich den Inhalt der Textfelder löschen kann wenn ich auf den Button "Neu" drücke. Und vllt könnt ihr noch die Kommentare ergänzen oder verbessern.
'Variabln und Array Deklarieren
Dim mZahlen(20) As Long
Dim k, I, Temp As Long
Private Sub cmdAusführen_Click()
For I = 1 To 5 'Dem Array die Werte der Textfelder zuweisen
mZahlen(I) = CLng(txtZahlen(I).Text)
Next I
bubblesort mZahlen(), 1, 5 'Aufrufen der Prozedur
End Sub
Private Sub bubblesort(ByRef mZahlen_sortiert() As Long, ByVal l As Long, n As Long)
For I = (5 - 1) To 0 Step -1 'Bestimmung des Anfangs- und Endpunkt, dabei verläuft die Schleife rückwärst
For k = 0 To I 'Bestimmung des Anfangs- und Endpunkt der Variable k
If mZahlen(k) > mZahlen(k + 1) Then 'Wenn k größer als k+1 dann durch Variable Temp vertauschen
Temp = mZahlen_sortiert(k)
mZahlen(k) = mZahlen(k + 1)
mZahlen(k + 1) = Temp
End If
Next k
Next I
For I = 1 To n 'Die sortierten Zahlen in der Listbox ausgeben
Zahlen_sortiert.AddItem (mZahlen(I))
Next I
End Sub
Private Sub cmdEnde_Click() 'Programm beenden
End
End Sub
Private Sub cmdNeu_Click()
Me.Zahlen_sortiert.Clear
End Sub
MFG
M.Sami Khan
ich muss bald ein Referat über das Bubblesortverfahren halten und muss dabei 5 Zahlen eingeben die sortiert werden. Das Programm funktioniert, aber ich wollte wissen wie ich den Inhalt der Textfelder löschen kann wenn ich auf den Button "Neu" drücke. Und vllt könnt ihr noch die Kommentare ergänzen oder verbessern.
'Variabln und Array Deklarieren
Dim mZahlen(20) As Long
Dim k, I, Temp As Long
Private Sub cmdAusführen_Click()
For I = 1 To 5 'Dem Array die Werte der Textfelder zuweisen
mZahlen(I) = CLng(txtZahlen(I).Text)
Next I
bubblesort mZahlen(), 1, 5 'Aufrufen der Prozedur
End Sub
Private Sub bubblesort(ByRef mZahlen_sortiert() As Long, ByVal l As Long, n As Long)
For I = (5 - 1) To 0 Step -1 'Bestimmung des Anfangs- und Endpunkt, dabei verläuft die Schleife rückwärst
For k = 0 To I 'Bestimmung des Anfangs- und Endpunkt der Variable k
If mZahlen(k) > mZahlen(k + 1) Then 'Wenn k größer als k+1 dann durch Variable Temp vertauschen
Temp = mZahlen_sortiert(k)
mZahlen(k) = mZahlen(k + 1)
mZahlen(k + 1) = Temp
End If
Next k
Next I
For I = 1 To n 'Die sortierten Zahlen in der Listbox ausgeben
Zahlen_sortiert.AddItem (mZahlen(I))
Next I
End Sub
Private Sub cmdEnde_Click() 'Programm beenden
End
End Sub
Private Sub cmdNeu_Click()
Me.Zahlen_sortiert.Clear
End Sub
MFG
M.Sami Khan
