VB6

hi

Ich versuche ein einfaches Programm zu erstellen:

[Blockierte Grafik: 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.

Das sieht dann so aus:

Private Sub Command1_Click()
Label1.Caption = Label1.Caption + 1
End Sub


Private Sub Command2_Click()
Label2.Caption = Label2.Caption + 1
End Sub


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

Mein Problem:

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.

Wo kann ich die maximale Zahl festlegen?

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

Oder wenn die untere Zahl auf z.B. 1 ist soll die grüne Zahl bis maximal 1 gehen. Bei 50 maximal bis 2. Bei 100 auf maximal bis 3.

Kann es mir jemand einfach erklären, da ich mich mit Visual Basic noch nicht so gut auskenne?

wow danke

Zitat

des mit der 50 hab ich net verstanden...

Ich habe noch eine Label und ein Button hinzugefügt um es besser darstellen zu können:

[Blockierte Grafik: http://img294.imageshack.us/img294/1681/66899500xz6.png]

Um die rot hinterlegte Zahl um eins zu erhöhen muss die untere Zahl auf 1 sein.
Um die rot hinterlegte Zahl um zwei zu erhöhen muss die untere Zahl auf 50 sein.
Um .. drei .. 100.

Oder z.b:

Um die rot hinterlegte Zahl um eins zu erhöhen muss die untere Zahl auf 33 sein.
Um die rot hinterlegte Zahl um zwei zu erhöhen muss die untere Zahl auf 47 sein.

Kann man die vorausgesetzt Zahl festlegen?

Edit:

ok ich denke ich habe es selbst erledigt

Das ist der Code für 10er Schritte. Jedes mal wenn die untere Zahl um 10 erhöht wird kann man die farbige um 1 erhöhen.

Private Sub Command4_Click()
If Label2.Caption > Label3.Caption And Label3.Caption < 5 Then


If Label2.Caption >= 10 And Label3.Caption < 1 Then
    Label3.Caption = Label3.Caption + 1

ElseIf Label2.Caption >= 20 And Label3.Caption < 2 Then
    Label3.Caption = Label3.Caption + 1


ElseIf Label2.Caption >= 30 And Label3.Caption < 3 Then
    Label3.Caption = Label3.Caption + 1


ElseIf Label2.Caption >= 40 And Label3.Caption < 4 Then
    Label3.Caption = Label3.Caption + 1


ElseIf Label2.Caption >= 50 And Label3.Caption < 5 Then
    Label3.Caption = Label3.Caption + 1
End If
End If
End Sub

Was mir jedoch unklar ist: 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. Egal wie oft man klickt es, die grün hinterlegte Zahl ändert sich nicht mehr