[VB Frage] Label begrenzen!

[c01nsk1llz]

Also, ich habe momentan ein Problem, und zwar programmiere ich ein Spiel, in VB...
Das Problem ist, das mit dem Geld. Wenn man angenommen noch 40 Gold hat und etwas 50 Gold kostet, steht da -10

        If ComboBox1.SelectedItem = "5a" Then
            Label3.Text -= 50

Es soll aber eine Meldung kommen

        If ComboBox1.SelectedItem = "5a" Then
            Label3.Text -= 50
          MsgBox("Du kannst nicht weniger als 0 Taler besitzen")

und dann soll kein -10 erscheinen, sondern die Taleranzahl(Geld/Gold-Anzahl) soll nach der MsgBox auf 40 bleiben!

[.BritainAndy]

ich kann kein bisschen vb aber kann man das nich mit ner if abfrage machen?

if Label3.text > 0 then
msgbox("du kanns nicht weniger Taler besitzen")

[c01nsk1llz]

Leider das gleiche Problem.
(-10 Taler)...
Wenn ich es in einen Timer oder in die Form packe,
erscheint die Fehlermeldung durchgehend..

__

Ich brauch ya eine Funktion, die das zurücksetzt auf 40 Taler..

Trotzdem Danke

[Konata-Chan]

das programm soll vor dem SChreiben prüfen ob das und das unter 0 ist...
also.....

If Label3 - 50 > 0 then
msgbox("du kanns nicht weniger Taler besitzen")
Else
Label3 -= 50
End If

[KingZuck]

glaube man muss >= nicht > oder?

sorry wenn ich mich irre..

[c01nsk1llz]

Weiß ich nicht, falls ya. Konata's Code Funzt.
wenn ICH mich nicht irre, hab ich das aber auch schon ausprobiert..
Kann auch sein, dass man > sowie >= benutzen kann.

[Varken~]

Originally Posted by c01nsk1llz

Weiß ich nicht, falls ya. Konata's Code Funzt.
wenn ICH mich nicht irre, hab ich das aber auch schon ausprobiert..
Kann auch sein, dass man > sowie >= benutzen kann.

Grundlagen: Operatoren,

[Konata-Chan]

man kann > benutzen...
oder >=
> 0 bedeutet -0.0000000.....1 und weniger
>= 0 bedeutet 0 und weniger

> weniger als
>= weniger oder gleich

€dit:
würde dann das > durch >= lieber austauschen..
is besser

[Jeoni]

Konata, du failst. Das 'weniger als' ist < und das 'größer als'-Zeichen >.
Demnach müsste der Code auch so gehen:

If Label3 - 50 < 0 then
msgbox("Du kannst nicht weniger Taler besitzen!")
Else
Label3 -= 50
End If

[Algaten™]

Hier mal eine Lösung:

  
Dim Geld As String
        Dim Kosten As String

If ComboBox1.SelectedItem = "5a" Then

        Geld = Label3.Text
        Kosten = 50
        Geld = Val(Geld) - Val(Kosten)

        If Geld < 0 Then
            MsgBox("Du kannst nicht weniger als 0 Taler besitzen")
        Else
            Label3.Text = Geld
        End If
End If

Dieser Code ist sehr Praktisch aber auch Knapp gehalten

[nkkk]

man kann das auch über das "TextChanged" event machen, das hat den Vorteil, dass auch andere methoden den "wert" des Labes nicht unter null setzen können.