[VISUAL BASIC 2010] Label

[Visonar]

Hallo,
ich bin grad dabei in VB eine Art Shooter zu basteln. Und zwar muss man, wenn Label-A(Monition) auf 0 ist auf "Nachladen" klicken, damit Label-A wieder auf 10 springt. Nur wenn Label-A auf 0 ist und man weiter schießt geht es in den Minusbereich (-1, -2, -3...) Das möchte ich aber verhindern. Label-A soll auf 0 bleiben, bis man auf nachladen geklickt hat.
Danke!

[Kraizy​]

If-Abfrage benutzen.

[Visonar]

Das ist ja mal sehr genau.
Darauf bin ich auch schon gekommen, aber ich weiß nicht, wie genau der Code aussehen sollte. Könntest du ihn mir bitte sagen?

€: "If Label.Text = "0" Then ???"

[boxxiebabee]

Originally Posted by Visonar

Das ist ja mal sehr genau.
Darauf bin ich auch schon gekommen, aber ich weiß nicht, wie genau der Code aussehen sollte. Könntest du ihn mir bitte sagen?

€: "If Label.Text = "0" Then ???"

Copy&Paste wird dich nicht voranbringen. Wenn du nicht einmal simpelste IF-Abfragen beherrscht solltest du nochmal von ganz vorne anfangen..

if(label_munition.Text != "0")
{
//funktion für das schießen...
}

[Visonar]

Hmm? Wie meinste das mit dem Coby&Paste?
Na, ja, dein Beitrag hat mir leider nicht im geringsten geholfen. Kannst du mir nicht einfach sagen, was anstelle von "Funktion für das Schließen" reinkommt?
Danke.

[mrapc]

If [COLOR="SeaGreen"]Label1[/COLOR].text = ("0") Then
   [COLOR="Red"]Button1[/COLOR].enabled = True 'Nachladen möglich
Else
   [COLOR="Red"]Button1[/COLOR].enabled  = False ' Nachladen nicht möglich
End If

Label1 - Deine Monitionsanzeige
Button1 - Der Nachladeknopf

Und in Den Button

Label1.text += 50 'Es werden 50 Kugeln hinzugefügt

KOmpletter COde:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text += 50 '50 Kugeln werde gefüllt
    End Sub


    Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If Label1.Text = ("0") Then
            Button1.Enabled = True    'Nachladebutton KLickbar machen
            Button2.enabled = False   'Schussbutton unklickbar machen
        Else
            Button1.Enabled = False    'Nachladebutton unklickbar machen
            Button2.enabled = True     'Schussbutton wieder klickbar machen

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = False
        Label1.Text = 50
    End Sub
End Class

@Lizzaran
Falsche Sprache das ist C++ oder C# was du machst...

€:

[boxxiebabee]

Originally Posted by mrapc

If [COLOR="SeaGreen"]Label1[/COLOR].text = ("0") Then
   [COLOR="Red"]Button1[/COLOR].enabled = True 'Nachladen möglich
Else
   [COLOR="Red"]Button1[/COLOR].enabled  = False ' Nachladen nicht möglich
End If

Label1 - Deine Monitionsanzeige
Button1 - Der Nachladeknopf

Und in Den Button

Label1.text += 50 'Es werden 50 Kugeln hinzugefügt

KOmpletter COde:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text += 50 '50 Kugeln werde gefüllt
    End Sub


    Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If Label1.Text = ("0") Then
            Button1.Enabled = True    'Nachladebutton KLickbar machen
            Button2.enabled = False   'Schussbutton unklickbar machen
        Else
            Button1.Enabled = False    'Nachladebutton unklickbar machen
            Button2.enabled = True     'Schussbutton wieder klickbar machen

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = False
        Label1.Text = 50
    End Sub
End Class

@Lizzaran
Falsche Sprache das ist C++ oder C# was du machst...

€:

Ist mir klar, aber wenn man nur ein bisschen Ahnung hat, sollte man das in die richtige Sprache abwandeln können.

[mrapc]

Naja wohl war dafür brauch man aber eine Sprache die man Perfekt kann.

Ich ahb ihm mal den Kompletten code da gelassen der sollte ihm Helfen...

[Kraizy​]

Label1.text += 50

[mrapc]

Hä was los ist doch voll der normale code

[Kraizy​]

normaler Code?
Bitte lern erstmal selbst die Grundlagen, bevor du jemandem etwas beibringst...
Wie bereits in einem anderen Thread gesagt, benutz Option Strict On.

[mrapc]

Grr Ahh ich wette das Funktioniert Problem los man braucht nicht immer so irre viel zu schreiben da VB 2010 echt viel einem schon vor die Füsse legt und er will einfach nur ein POint and klick spiel mit vb machen und nicht gerade das Beste spiel der Welt schreiben da wird im Das Helfen mit OPtion bekommt er nur Probleme....

[Kraizy​]

Originally Posted by mrapc

mit OPtion bekommt er nur Probleme....

Es ist sowas von egal was er programmiert, mit Opt. Str. On ist es anfangs vielleicht schwer, ja, aber er lernt dadurch auch gleich von Anfang an, wie man richtig programmiert und mit Datentypen umgeht (und produziert nicht so einen Mist wie du den hier geschrieben hast) und vermeidet später auch Fehler(-meldungen) die man dann immer stundenlang suchen muss.

[mrapc]

mhh danke dass das was ich schreibe für dich Misst ist

aber ich denke nicht das man sich zu viel Arbeit machen muss

natürlich ist Option Strg on irgendwann notwendig aber noch nicht an dieser stelle sondern erst wenn man mit Zufall oder änderung Intern des Programmes zu tun hat wie z.B. bei einem Soundmaker/ Videocutter etc

Er wird hier ohne Problemlos zurecht kommen trotzdem danke

[Kraizy​]

mhh danke dass das was ich schreibe für dich Misst ist

Da kann ich nichts dran ändern.

aber ich denke nicht das man sich zu viel Arbeit machen muss

Es ist nich viel mehr Arbeit, wenn man noch 2-3 Begriffe hinzufügt, um etwas richtig umzuwandeln, damit später keine Fehler auftreten und man den ganzen Code neu schreiben muss.

natürlich ist Option Strg on irgendwann notwendig

Wenn man schlau ist, dann benutzt man das gleich von Anfang an, ansonsten hast du später damit Probleme und kannst gleich wieder alles von vorne lernen.

Er wird hier ohne Problemlos zurecht kommen

versteh ich nicht...

trotzdem danke

kein Problem.