Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » eingabe realisieren ? for-schleife + bubbelsort ?

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
19.04.2006, 12:56 Uhr
PerseusX2



hallo
ich versuch derzeit in vb auf nen grünen zweig zu kommen.
bisher lief es ganz gut, doch langsam kommen die ersten probleme die ich net so recht allein lösen kann.

1. beim 2ten Berechnen würde ich gerne selber einen Wert eingeben können ?!
2. wie kann ich bubblesort (Berechnen3) realisieren mit werten die ich selber eingeben kann ?!

vielen dank im vorraus !


Visual Basic:
Private Sub cmdBeenden_Click()
End
End Sub

Private Sub cmdBerechnen_Click()
Dim Wert As Double

If IsNumeric(txtEingabe.Text) Then
    If (txtEingabe.Text > 0) Then
        Wert = txtEingabe.Text
        lblAusgabe1.Caption = Format(Wert, "#,##0.00")
        lblAusgabe2.Caption = Format(Wert * 2, "#,##0.00")
        lblAusgabe3.Caption = Format(Wert / 2, "#,##0.00")
    Else
        MsgBox "Keine - Zahlen !", vbOKOnly + vbCritical, "Eingebfehler !"
    End If
Else
    MsgBox "Keine Buchstaben !", vbOKOnly + vbCritical, "Eingabefehler!"
End If
End Sub

Private Sub cmdBerechnen2_Click()
Dim z As Double

For z = 0 To 5
lstAusgabe4.AddItem z
Next z
End Sub

Private Sub cmdBerechnen3_Click()
Const Anzahl = 15
Dim Zahlen(1 To Anzahl) As Long
Dim z As Long
Dim ZG As Long, EL As Long, z2 As Long, temp As Long

For z = 1 To Anzahl
Zahlen(z) = 100 + 1
lstAusgabe5.AddItem CStr(Zahlen(z))
Next z

EL = Anzahl
Do While EL > 1
    ZG = 1
    For z2 = 2 To EL
        If Zahlen(ZG) < Zahlen(z2) Then ZG = z2
    Next z2
    temp = Zahlen(ZG)
    Zahlen(ZG) = Zahlen(EL)
    Zahlen(EL) = temp
    EL = EL - 1
Loop
lstAusgabe5.Clear
For z2 = 1 To Anzahl
    lstAusgabe5.AddItem CStr(Daten(z2))
Next z2
End Sub

Private Sub cmdLoeschen_Click()
lblAusgabe1.Caption = ""
lblAusgabe2.Caption = ""
lblAusgabe3.Caption = ""
lstAusgabe4.Clear
lstAusgabe5.Clear
End Sub

Private Sub txtEingabe_Change()
lblAusgabe1.Caption = ""
lblAusgabe2.Caption = ""
lblAusgabe3.Caption = ""
End Sub



Dieser Post wurde am 19.04.2006 um 12:57 Uhr von PerseusX2 editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
19.04.2006, 13:48 Uhr
Uwe
C/C++ Master
(Administrator)


Hallo,
Du kannst z.b. die Zahlen in ein Array einlesen und dann über den Index die Werte weiterverarbeiten.

Visual Basic:
Private arZahlen(0 To 4) As Integer
Dim i as Integer
For i = 0 To 4
  arZahlen(i) = CInt(txtEingabe.Text)
Next


Warum ist Deine Schleifenvariable "z" vom Typ Double?
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe

Dieser Post wurde am 19.04.2006 um 13:50 Uhr von Uwe editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
19.04.2006, 16:18 Uhr
~Kapuzu
Gast


hi
ich habe ähnliche probleme mit dem bubble sort.
nur kommt bei mir nix in der anzeige ?!

Visual Basic:
Dim texxt(100) As String
Dim temp As String
Dim nochwas As Boolean
Dim anzahl As Long
Dim anz

anzahl = lstAusgabe5.ListCount
For v = 0 To lstAusgabe5.ListCount
    texxt(v) = lstAusgabe5.List(v)
Next
anz = UBound(texxt)

For ii = 1 To lstAusgabe5.ListCount
    For a = 0 To anzahl - 1
        If texxt(a) > texxt(a + 1) Then
        temp = texxt(a)
        texxt(a) = texxt(a + 1)
        texxt(a1) = temp
        nochwas = True
        vps = vps + 1
        End If
    Next
    If nochwas = False Then Exit For
Next ii
        
lstAusgabe5.Clear
For a = 0 To Int(anzahl)
  If Not texxt(a) = "" Then
    lstAusgabe5.AddItem texxt(a)
  End If
Next


Dieser Post wurde am 20.04.2006 um 08:59 Uhr von Uwe editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: