✔ VB6 Einfaches Programm

[Cluee]

Hi


Ich versuche ein einfaches Programm zu erstellen:

http://img174.imageshack.us/img174/7549/90415537mc3.png


Beim klicken der Befehlsschaltfläche mit dem Namen "KLICK" wird die grün hinterlegte Zahl um 1 erhöht.
Beim Klicken von +/- lässt sich die untere Zahl um ein erhöhen/verringern.



Die Untere Zahl:
- darf nie kleiner als 1 sein
- darf nie höher als 99 sein

Die grün hinterlegte Zahl
- darf nie höher als die untere Zahl sein
- darf nie kleiner als 0 sein
- darf nie höher als z. B. 5 sein.

Wenn die untere Zahl auf z.B. 2 ist soll die grüne Zahl bis maximal 2 gehen (bei 3.. 3 , bei 4 .. 4).


Mein Code:

Private Sub Command1_Click()
If Label2.Caption > Label1.Caption And Label1.Caption < 5 Then
   Label1.Caption = Label1.Caption + 1
End If
End Sub

Private Sub Command2_Click()
If Label2.Caption < 99 Then Label2.Caption = Label2.Caption + 1
End Sub

Private Sub Command3_Click()
If Label2.Caption > 1 Then Label2.Caption = Label2.Caption - 1
End Sub

Problem:
Wenn ich die untere Zahl auf z. B. 20 setzte bleibt die grün hinterlegte Zahl auf 3 und lässt sich nicht weiter erhöhen. Shocked Egal wie oft man klickt es, die grün hinterlegte Zahl ändert sich nicht mehr.

Leider kenne ich mich mit Visual Basic noch nicht so gut aus, daher weiss ich nicht woran es liegt

 

[ronaldh]

Ohne die Logik nun näher ausprobiert zu haben, fällt doch gleich auf, dass Du versuchst, mit der Caption zu rechnen. Die Caption ist aber ein String-Feld. Da sollte man sich nicht auf implizite Typumwandlungen verlassen.

Besser wäre da z.B.:

If Val(Label2.Caption) > Val(Label1.Caption) And Val(Label1.Caption) < 5 Then
   Label1.Caption = Str(Val(Label1.Caption) + 1)
End If

Grüsse
ronaldh

 

[Cluee]

Viele Dank

Es scheint alles zu funktionieren