[VISUAL BASIC 2010] Label

[mrapc]

iCh weis net Englisch musste ich auch nicht von vorne beginnen nur weil ich eine Vokabel nicht wusste...

Aber er kanns ja machen dann schreib ihm ne Anleitung

[Kraizy​]

iCh weis net Englisch musste ich auch nicht von vorne beginnen nur weil ich eine Vokabel nicht wusste...

Eig. wollte ich jetzt nochmal was schreiben und dir es nochmal erklären, aber ist mir iwie egal..mach es einfach wie du willst, nur bring sowas keinem Neuling bei, am Ende hat er nur noch mehr Probleme.

schreib ihm ne Anleitung

Wieso sollte ich? Ich habe seine Frage bereits beantwortet, wenn er nicht weiß, wie er es (richtig) machen muss, dann soll er halt fragen.

[mrapc]

naja mh kay ist schön das alle auf dich hören müssen.

Glaub einfach an das was du meinst ich habe es bis jetzt noch NIE gebraucht sondern immer umgehen können aber das liegt an dir

Ist genau so wie mit AutoIt wenn man will nimmt man den Form Designer wenn nicht dann halt nicht ist jedem Selbst überlassen und wenn man will kann mans mit Option mache, erklärnung dafür hab ich schon lange auf gefunden

[Visonar]

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

€:

Danke, ist auch ne gute Idee. Aber was ist jetzt genau, wenn ich anstatt den Schuss per Klick auf einen Button gleich als Mausklick machen will. Kann ich das auch irgendwie sperren?

Und @ xKraizy:
Wenn du igendwie schlecht drauf bist heute, dann lass doch einfach gut sein und halt dich aus diesem Thema raus. Ich möchte ja wie gesagt kein übertriebenes Spiel, was einmal um die ganze Welt gehen soll programmieren, sondern einfach ein Bisschen aus Spaß. Da wird "Label.Text +/-= X" wohl ausreichen, was es auch immer schon getan hat. Trotzdem danke für den anderen Hinweis.

€:
So, ich habs jetzt mit folgendem Code geschafft:

If Label.Text = "-1" Then Label.Text = "0"

Das heißt, wenn die Monition auf -1 ist geht sie automatisch wieder auf 0. =)
Nur jetzt hab ich das Problem mit den Treffern. Die gehen ja einfach weiter, wie könnte ich das denn lösen?

[Kraizy​]

Wenn du igendwie schlecht drauf bist heute, dann lass doch einfach gut sein und halt dich aus diesem Thema raus.

Ich bin nicht schlecht drauf, ich habe ihm nur erklärt, dass es nicht falsch ist gleich von Anfang an richtig zu programmieren.

Das heißt, wenn die Monition auf -1 ist geht sie automatisch wieder auf 0. =)
Nur jetzt hab ich das Problem mit den Treffern. Die gehen ja einfach weiter, wie könnte ich das denn lösen?

Warum -1? Das versteh ich jetzt nicht...
Zeig uns doch mal deine Funktion, die du benutzt um zu schießen/Objekte zu treffen dann können wir dir auch weiterhelfen. Normalerweiße frägst du einfach ab, wie viel Schuss noch übrig ist, wenn 0 dann die Funktion nicht aufrufen..Pseudo-Code:

PHP Code:

//Wenn man Mausklick links macht, Munnition prüfen, wenn nicht 0, dann Schuss ausführen
If Not Munni = 0 Then
   Schießen_Funktion()
End If 


Im Nachladen-Button:

PHP Code:

Munni = 10 


[Visonar]

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick // Label1 = Das Schussobjekt
        Label1.Location = New Point(Label1.Location.X + 10, Label1.Location.Y - 0)
    End Sub


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label3.Text += 1 // Label3 = Hits
        Label5.Text -= 1 // Label5 = Monition
        If Label5.Text = "-1" Then Label5.Text = "0"
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Label5.Text = "0" Then Button1.Enabled = True // Button1 = Nachladen
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label5.Text = "10"
        Button1.Enabled = False
    End Sub
End Class

So, wenn jetzt die Monition auf 0 ist kann ich ja einfach weiter auf Label1 schießen und bekomme weiter Hits, was ja eigentlich nicht möglich ist, wenn meine Monition leer ist. ;D

[Kraizy​]

PHP Code:

//Label1.Click
//Nachladen-Button wird erst aktiviert, wenn man 0 Schuss hat,
//normalerweiße kann man aber auch nach einem Schuss nachladen,
//musst du selbst anpassen wie du willst
If Label5.Text > 0 Then
     Label3.Text += 1
     Label5.Text -=1
     If Label5.Text = 0 Then
          Button1.Enabled = True
     End If
End If 


Und bitte, ändere die Namen z.B. in "lblHits", "lblMunni"...aber bitte nicht Label1/2/3...

[Visonar]

Höö?
Soll ich das in nen Timer packen oder wo?
Sorry, aber i-wie klappt das nicht so ganz. Die Hits werden immernoch mehr.

[Kraizy​]

Habs nochmal umgeändert.
Nein du packst das ins Label1.Click Ereignis.

[Visonar]

Soo, jetzt hats geklappt. So wollt ich es haben. Genau diesen Code (If Label5.Text > 0 Then) hab ich ganze Zeit gesucht. ;D

[boxxiebabee]

Originally Posted by Visonar

Soo, jetzt hats geklappt. So wollt ich es haben. Genau diesen Code (If Label5.Text > 0 Then) hab ich ganze Zeit gesucht. ;D

Das ist ne simpelste IF-Abfrage. Glaube kaum das du selbst nen "Shooter" programmiert hast, sondern alles einfach zusammen kopiert hast.

Wie gesagt, lern erstmal die Grundlagen

[Visonar]

Soo, wo ich das Thema grad offen hab: Wie könnte ich es anstellen, dass Objekte, die sich zufällig auf der Form bewegen eine bestimmte Grenze nicht überschreiten? Das heißt, oben in der Form steht z.B. etwas und die Objekte sollen dort nicht hin gehen, wenn sie sich zufällig verschieben, sondern im unteren Bereich bleiben. ;D
Thunks.

[Kraizy​]

Beim Setzen der zufälligen Position prüfst du ob die Position innerhalb des zulässigen Bereichs ist (mit einer If-Abfrage, Pseudocode: If Position.X > 1 AndAlso Position.X < 10, das gleiche mit Position.Y), wenn ja, dann soll es dort hin, ansonsten neue Position ausgeben lassen.

[Visonar]

Originally Posted by xKraizy

Beim Setzen der zufälligen Position prüfst du ob die Position innerhalb des zulässigen Bereichs ist (mit einer If-Abfrage, Pseudocode: If Position.X > 1 AndAlso Position.X < 10, das gleiche mit Position.Y), wenn ja, dann soll es dort hin, ansonsten neue Position ausgeben lassen.

hmm, könntest du mit bitte den genauen code dafür geben?
also, i-wie: if button1.location > 1 andalso button1.location < 10 then

[Kraizy​]

Originally Posted by Visonar

könntest du mit bitte den genauen code dafür geben?

Nein kann ich nicht, erstens weiß ich ja nicht wie/wann/wo du die zufällige Position festlegst und 2. bringt dir C&P nichts. Wäre erstmal nicht schlecht wenn du uns zeigst wie du das machst, dann kann man dir auch Tipps geben...