vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
BubbleSort Code.........Hilfe!!! 
Autor: melanie
Datum: 24.01.06 19:14

Hallo leutz....

hab ein großes Problem brauch für das Fach Datenverabeitung einen Lauffähigen VB-BubbleSort Code. Hab damit schon angefangen aber komme nicht weiter und weiß nicht was ich noch machen kann. Zum Programm es sollen eine Zahl eingegeben werden die dann in der listbox 1angezeigt werden soll durch drücken auf denn Sortierbutton sollen die Zahlen nach dem BubbleSort-Prinzip auf der listbox 2 in geordneter Weise angezeigt werden.

Hilf mir oder schickt mir falls einer von euch so ein Programm schon hat zu..............würd mich riesig freuen.........


ach ja hier mein code wo ich nicht weiter komme...........

Option Explicit
Dim a As Integer
Dim j As Integer
Dim i As Integer
Dim indexwert(10) As Integer

Dim zahl(1) As Integer
Dim wert(5) As Integer
Dim WerteEinlesen As Integer
Dim WerteNeu As Integer
Private Sub cmd_Ende_Click()

End

End Sub
--------------------------------------------------------------------------------------
Private Sub cmd_hinzu_Click()
For i = 1 To 1
wert(i) = Val(wert_txt.Text)
wert_list.AddItem (wert(i))

Next i
End Sub
-----------------------------------------------------------------------------------------
Private Sub cmd_sort_Click()



'If Val(wert_list.ItemData) > Val(wert_list.ItemData) + 1 Then msg (funzt)End If'
sort_list.Clear

For j = 1 To wert_list.ListCount - 1
For a = 1 To wert_list.ListCount - 1
If wert(a) > wert(a + 1) Then
WerteNeu = wert(a)
wert(a) = wert(a + 1)
wert(a + 1) = WerteNeu

End If
Next a
Next j

For a = 1 To wert_list.ListCount
sort_list.AddItem (wert(a))
Next a
End Sub
------------------------------------------------------------------------------------
Private Sub cmd_zeile_löschen_Click()

If wert_list.ListIndex >= 0 Then wert_list.RemoveItem wert_list.ListIndex



End Sub
-----------------------------------------------------------------------------
Private Sub cmd_loeschen_Click()

wert_list.Clear

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
BubbleSort Code.........Hilfe!!!769melanie24.01.06 19:14
Re: BubbleSort Code.........Hilfe!!!569vbtricks24.01.06 19:58
Re: BubbleSort Code.........Hilfe!!!439melanie24.01.06 20:38
Re: BubbleSort Code.........Hilfe!!!460firemike24.01.06 21:38
Re: BubbleSort Code.........Hilfe!!!495melanie24.01.06 22:20
Re: BubbleSort Code.........Hilfe!!!509firemike24.01.06 23:52
Re: BubbleSort Code.........Hilfe!!!560melanie25.01.06 11:07
Re: BubbleSort Code.........Hilfe!!!456brave@heart25.01.06 15:33
Re: BubbleSort Code.........Hilfe!!!467paulneus25.01.06 17:47
Re: BubbleSort Code.........Hilfe!!!497vbtricks25.01.06 17:58
Re: BubbleSort Code.........Hilfe!!!434paulneus25.01.06 18:13
Re: BubbleSort Code.........Hilfe!!!454melanie06.02.06 15:53

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel