[VISUAL BASIC 2010] Label

Page 1 of 3 1 23
06/29/2011 19:22 Visonar#1
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!
06/29/2011 20:19 Kraizy​#2
If-Abfrage benutzen.
06/30/2011 12:52 Visonar#3
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 ???"
06/30/2011 13:11 boxxiebabee#4
Quote:
Originally Posted by Visonar View Post
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...
}
06/30/2011 13:23 Visonar#5
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. :)
06/30/2011 13:41 mrapc#6
Code:
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
Code:
Label1.text += 50 'Es werden 50 Kugeln hinzugefügt

KOmpletter COde:
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...

€:
06/30/2011 13:57 boxxiebabee#7
Quote:
Originally Posted by mrapc View Post
Code:
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
Code:
Label1.text += 50 'Es werden 50 Kugeln hinzugefügt

KOmpletter COde:
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.
06/30/2011 14:03 mrapc#8
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...
06/30/2011 14:08 Kraizy​#9
Quote:
Label1.text += 50
:facepalm:
06/30/2011 14:32 mrapc#10
Hä was los ist doch voll der normale code :D
06/30/2011 14:35 Kraizy​#11
normaler Code?
Bitte lern erstmal selbst die Grundlagen, bevor du jemandem etwas beibringst...
Wie bereits in einem anderen Thread gesagt, benutz Option Strict On.
06/30/2011 14:43 mrapc#12
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....
06/30/2011 14:49 Kraizy​#13
Quote:
Originally Posted by mrapc View Post
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.
06/30/2011 15:05 mrapc#14
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
06/30/2011 16:05 Kraizy​#15
Quote:
mhh danke dass das was ich schreibe für dich Misst ist
Da kann ich nichts dran ändern.

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

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

Quote:
Er wird hier ohne Problemlos zurecht kommen
versteh ich nicht...

Quote:
trotzdem danke
kein Problem.
Page 1 of 3 1 23