Anwendung klappt nich obwohl ich richtige Cods benutze

Question

Hallo

ich will eine kleine Anwendung machen bei der ich wenn ich auf ein Konopf drücke ein Mensch auf der stelle laufen sehe und wenn ich auf ein anderen Knopf drücke das, das Mänchen schießt

ich weis wie die Cods sind aber ihrgendwie klappt das schießen nicht.

Ich habe zur überprüfung (mit den gleichen Cods) zwei andere Anwendungen gemacht die ein das wenn ich auf ein Knopf drücke das mänchen lauft und bei der anderen das das mänchen bei Knopf druck schießt. Das klappt

könnt ihr mir tipps geben wie das geht warum das nicht geht? es kann nicht an den Coden liegen!

 

 

Answer 1

Hallo,

ohne Deinen Code zu kennen, dürfte es schwierig sein, Dir darauf eine passende Antwort zu geben, denn der Fehler wird sicher in Deinem Code liegen. Wenn es zuviel Code zum Posten ist, kannst Du auch ein Beispielprojekt auf bspw. Skydrive hochladen.

---

Thorsten Dörfler
Microsoft MVP Visual Basic
vb-faq.de

Answer 2

Nein es sind nicht viele

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Timer1.Tag = 1 Then
            Mann1.Show()
            Mann2.Hide()
            Mann3.Hide()
            Mann4.Hide()
            Mann5.Hide()
            Button1.Text = "Stehen bleiben"
            Timer1.Tag = 2
        ElseIf Timer1.Tag = 2 Then
            Mann1.Hide()
            Mann2.Show()
            Mann3.Hide()
            Mann4.Hide()
            Mann5.Hide()
            Timer1.Tag = 3
        ElseIf Timer1.Tag = 3 Then
            Mann1.Hide()
            Mann2.Hide()
            Mann3.Show()
            Mann4.Hide()
            Mann5.Hide()
            Timer1.Tag = 4
        ElseIf Timer1.Tag = 4 Then
            Mann1.Hide()
            Mann2.Hide()
            Mann3.Hide()
            Mann4.Show()
            Mann5.Hide()
            Timer1.Tag = 5
        ElseIf Timer1.Tag = 5 Then
            Mann1.Hide()
            Mann2.Hide()
            Mann3.Hide()
            Mann4.Hide()
            Mann5.Show()
            Timer1.Tag = 1
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        If Button1.Text = "Stehen bleiben" Then
            Timer1.Enabled = False
            Button1.Text = "Laufen"
        ElseIf Button1.Text = "Laufen" Then
            Timer1.Enabled = True
        End If
    End Sub
    Dim SRechts As Boolean
    Dim Schussspeed As Integer = 10
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Schießen()
    End Sub

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        SRechts = True
    End Sub
    Private Sub Schießen()
        If SRechts = True Then
            Schuss.Left += Schussspeed
        End If
    End Sub
End Class

Answer 3

Hallo MusikerEmo3000,

 

an deinem Code fällt mir auf, dass du zwar Timer1 "an" - und "aus" schaltets, dein Code aber nur für Timer2 _Tick Code parat hält.

Absicht oder fehlt noch was?

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/