سورس کدهای بازی با برنامه ویژوال بیسیک 6 Ball-N-Padlle یه بازی باحال برای برنامه نویسانی که با ویژوال بیسیک 6 کارمیکنن قسمتی از سورس کدهای برنا مه رو براتون میزارم
Private Sub Timer1_Timer()
If Ball.Top >= Frame1.Height - Ball.Height Then
ComputerScore = ComputerScore + 1
Label3.Caption = Str(ComputerScore)
Beep
yFlag = 1
End If
If Ball.Top <= Frame1.Top - (Ball.Height - 30) Then
PlayerScore = PlayerScore + 1
Label2.Caption = Str(PlayerScore)
سورس کدهای بازی با برنامه ویژوال بیسیک 6 Ball-N-Padlle