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. |
