vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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
Re: Bubble Sort 
Autor: Select
Datum: 08.02.06 22:59

Hallo zusammen,

also erstes bin ich echt erstaunt mit welcher Interesse die Beiträger hier verfolgt werden und fühle mich hier richtig gut aufgehoben!!Also echt supi!!!

So jetzt zu meinem Code...das ganze ist so... ich habe da nochmal eine Nacht drüber geschlafen..in meinem Beispiel verwende ich da nur insg. 3 Zahlen wobei, dass ja natürlich wunderbar in einem Durchlauf ohne Schleife funktioniert, wenn die Zahlen folgendermaßen angeordnet sind: 3 - 1 - 2!!! Ich habe diese Zahlen zufällig genau in dieser Konstellation(nivht mit Rnd) via Variablen in Textfelder abgeleg. und somit schafft der folgende Code das ja in einem Durchlauf.
Würden die Zahlen so angeordnet: 3 - 2 - 1 funzt das ganze ja überhaupt nicht in einem Durchlauf
Also ist das "Progrämmchen", was ich mir ausgedacht habe wiklich Quatsch!!!
Aber vielleicht wollt ihr es ja doch noch sehen und vielleicht heitert es ja euren Tag ein wenig auf

Vielen Dank Trotzdem und mit den besten Grüßen
(Wenn jemand da eine Idee hat, wie das ohne Schleife funktionieren könnte würd ich mich riesig freuen, wenn sowas mal gepostet wird)
Und bitte nicht unnötig mühe machen!!Ist wirklich nicht wichtig!!!

    Option Explicit
    Public drei As Integer
    Public eins As Integer
    Public zwei As Integer
 
Private Sub Form_Load()
 
    drei = 3
    eins = 1
    zwei = 2
 
    txteins.Text = drei
    txtzwei.Text = eins
    txtdrei.Text = zwei
 
End Sub
 
Private Sub cmdStart_Click()
 
            Dim temp As Integer         'für die temporäre Zwischenspeicherung
 
 
            If txteins.Text > txtzwei.Text Then
 
                temp = txteins.Text
                txteins.Text = txtzwei.Text
                txtzwei.Text = temp
 
                If txtzwei.Text > txtdrei.Text Then
 
                    temp = txtzwei.Text
                    txtzwei.Text = txtdrei.Text
                    txtdrei.Text = temp
 
                End If
 
            End If
 
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bubble Sort579Select07.02.06 23:00
Re: Bubble Sort342Wolfgang08.02.06 07:10
Re: Bubble Sort360vbtricks08.02.06 19:23
Re: Bubble Sort377Select08.02.06 22:59
Re: Bubble Sort355Dirk09.02.06 08:08
Re: Bubble Sort342vbtricks09.02.06 09:18

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