Visual Basic Ping Pong BUG...

[sakisosf]

Λοιπόν αυτήν την περίοδο φτιάχνω ένα Ping Pong παιχνίδι στην Visual Basic αλλά δεν μου εμφανίζει το σκορ του δεύτερου παίχτη.Τι φταίει?

 

Εδώ είναι ο κώδικας

>
Public Class Form1
   Dim sara As Double = 20
   Dim mara As Double = 20
   Dim pi1 As Integer
   Dim pi2 As Integer
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
   
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Ball.Left -= sara
    Ball.Top -= mara
    If Ball.Top <= 0 Then mara = -25
    If Ball.Top >= 550 Then mara = +10
    If Ball.Left <= -100 Then sara = -20
    If Ball.Right >= 1250 Then sara = +20
    Platform1.Top = MousePosition.Y - Me.Location.Y - 50
    If Ball.Top > Platform2.Top Then Platform2.Top += 5
    If Ball.Bottom < Platform2.Bottom Then Platform2.Top -= 5
    If Ball.Left <= Platform1.Right Then
	    If Ball.Bottom >= Platform1.Top Then sara = -20 Else pi2 = pi2 + 1
	    Ball.Top = Location.Y = 230
	    Ball.Top = Location.X = 380
    End If
    If Ball.Right >= Platform2.Left Then
	    If Ball.Bottom >= Platform2.Top Then sara = +20 Else pi1 += pi1 + 1
	    Ball.Top = Location.Y = 230
	    Ball.Top = Location.X = 380
    End If
    Label1.Text = pi1
    Label2.Text = pi2
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
   End Sub
End Class

 

 

Βοηθήστε γιατί είμαι αρχάριος σε Visual Basic

[pantpesl2]

Αν υποθέσω ότι pi1 και pi2 είναι τα σκορ, το πρόβλημα βρίσκεται στις συνθήκες που έχεις στο τέλος με τα Platform1 και Platform2 αφού μόνο μετά τον έλεγχο των συνθηκών χρησιμοποιούνται οι μεταβλητές των σκορ.

[sakisosf]

Αν υποθέσω ότι pi1 και pi2 είναι τα σκορ, το πρόβλημα βρίσκεται στις συνθήκες που έχεις στο τέλος με τα Platform1 και Platform2 αφού μόνο μετά τον έλεγχο των συνθηκών χρησιμοποιούνται οι μεταβλητές των σκορ.

OK.Θα το κοιτάξω και θα σου πω

[sakisosf]

Αποτυχία.Παλεύω 3 ώρες και είτε με γεμίσεις με Errors είτε δεν λειτουργεί.Μάλλον θα το παρατήσω το παιχνιδάκι.