The Old Mighty Pong

• Download source code - 93.9 KB

Introduction

I was staring in shock at some VB6 tutorials on how to make Pong. There were shown some awful functions, libraries, and things I couldn't understand. So I thought I could simplify the code to a level which a programmer with my experience would understand. I began to code from scratch, and in a few days, I managed to accomplish the task...

Background

Well, I suppose that many of you have played Pong... it's just a classic. But in my solution, there are some tricky parts, like the controls - they are buttons which have captions with "&" in front. And when set the controls section, you will probably notice that if you delete the char "&" before the actual control, it wouldn't work...

Using the Code

The code is nothing serious as I mentioned earlier. I have replaced the currenX position with the "Left" property and currentY with "Top".

Here is a piece of the code:

'timer sub 
If Ball.Top = 0 Then optDown.Checked = True
If Ball.Top = 264 Then optUp.Checked = True
If optUp.Checked = True Then Ball.Top = Ball.Top - 1
If optDown.Checked = True Then Ball.Top = Ball.Top + 1
If optLeft.Checked = True Then Ball.Left = Ball.Left - 1
If optRight.Checked = True Then Ball.Left = Ball.Left + 1
If Ball.Left < -20 Then lblP2Score.Text = lblP2Score.Text + 1
If Ball.Left > 408 Then lblP1Score.Text = lblP1Score.Text + 1

Points of Interest

I was very exited when I did it, because I got to know a new way of making objects move. And I finally made an app from which I earned :D

History

I will keep an eye on your requests for improvement. If you'd like to contact me - my e-mail is buffallo@abv.bg.