Sorry your browser is not supported!

What's something fairly easy to program but would be a good learning experience?

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

22

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 3rd Nov 2003 04:25

PONG! here's the one I made...

after that I did breakout due to the very similar logic

-RUST-

Back to top

Profile PM

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 04:34

Okay, I'll try that, thanks. Anymore ideas?

Back to top

Profile PM Email Website

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 04:35

I don't even know where to start

*is so lost*

Back to top

Profile PM Email Website

QuothTheRaven

23

Years of Service

User Offline

Joined: 2nd Oct 2002

Location: United States

Posted: 3rd Nov 2003 04:46

Uh...I learned programming from programming my graphing caluclators, and it was one of the best choices I ever made.

Trying to learn programming concepts is a difficult process if you've never programmed before...

Back to top

Profile PM

genius

22

Years of Service

User Offline

Joined: 16th Oct 2003

Location: Utah, USA

Posted: 3rd Nov 2003 05:02

Quote: "Uh...I learned programming from programming my graphing caluclators, and it was one of the best choices I ever made.
"

Cool! So did I. I used a TI-83 Plus Silver Edition!

Back to top

Profile PM Website

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 05:06

You programmed calculators, how? You mean you acutlaly programmed calculators in real life, not a calculator on the computer? How di you do so?

Anyway, why doesn't this work?

Rem Project: VexenPONG
Rem Created: 11/2/2003 8:34:24 PM

Rem ***** Main Source File *****

`Setup:
load image "bat.bmp",1
sprite 1,1,300,1

do
gosub ply1
loop

ply1:
if upkey()=1 then move sprite 1,2
if downkey()=1 then move sprite 1,-2
if sprite y(1)=0 then move sprite 1,1
if sprite y(1)=800 then move sprite 1,-1
return

Thanks everyone

Back to top

Profile PM Email Website

Dave J

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 3rd Nov 2003 05:06

I used a normal TI-83, although, I learned VB first.

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

CattleRustler

Retired Moderator

22

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 3rd Nov 2003 05:08

I don't know what level you are at, if you are a complete beginner then I'd say stick with text based things like a "Hello World!" program, then move on to text I/O based things like a question-and-answer game, where the game asks a question and presents the user with multiple choice, keeping score along the way until all the questions are done - think about reusability, where the determination of right and wrong and keeping score is always the same, just the q's and possible a's change along the way so write the routine to be generic and have the program plug in the right arguments - so read up on functions

If you are well beyond this in your skill level then like I said start with something easy like getting an object to move around on the screen based on keys being pressed or mouse input - then move up from there to something harder like pong!

If you want the code from pong I can post it here

-RUST-

Back to top

Profile PM

Codger

23

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 3rd Nov 2003 05:11

InkyBro

You need to rotate spites to whatever angle you wish

if downkey()=1 then rotate sp#, 180

Move is SP, Velocity

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 05:11

No, no, just help me get this done.

Rem Project: VexenPONG
Rem Created: 11/2/2003 8:34:24 PM

Rem ***** Main Source File *****

`Setup:
set display mode 800,600,16
load image "bat.bmp",1
sprite 1,1,300,1

do
gosub ply1
loop

ply1:
if upkey()=1 then move sprite 1,2
if downkey()=1 then move sprite 1,-2
if sprite y(1) > 1 then move sprite 1,10
if sprite y(1) < 799 then move sprite 1,-10
return

This is what I currently have, and it works if you hit the top part of the screen, but it WILL NOT make the desired "barrier" at the bottom. I have no idea why, but I need help on this.

Back to top

Profile PM Email Website

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 05:12

@Codger: I need to rotate sprites for pong?

Back to top

Profile PM Email Website

Codger

23

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 3rd Nov 2003 05:18

The rotation determins direction

To Move Right
"Rotate Sprite SPNum, 90"

then "move Sp#, Pixels"

I just posted a PONG Game for the 2D Forum Check it out it is simple but clean and flexible it may get you going.

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 3rd Nov 2003 05:22

I can't find your pong game

Back to top

Profile PM Email Website

Codger

23

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 3rd Nov 2003 06:08 Edited at: 3rd Nov 2003 06:08

Click on the Snippit or Source Button

Rem Project: PONG
Rem Created: 11/2/2003 7:13:43 AM

Rem ***** Main Source File *****

Remstart
   The game of  pong using sprites
Remend

SET DISPLAY MODE 640,400,32

Sync OFF
Sync rate 0

#CONSTANT TopWall  1
#CONSTANT BottomWall  2
#CONSTANT LeftWall  3
#CONSTANT RightWall  4
#CONSTANT Paddle 5
#CONSTANT Ball 6
#CONSTANT BallSize 20

#CONSTANT SCRWD Screen Width()
#CONSTANT SCRHT Screen Height()
#CONSTANT WALLTH 25
#CONSTANT RED RGB(255,0,0)
#CONSTANT WHITE RGB(255,255,255)
#CONSTANT BLUE RGB(0,0,255)
#CONSTANT GREEN RGB(0,255,0)
#CONSTANT PDLWD 20
#CONSTANT PDLHT 60
#CONSTANT PDLX SCRWD-(WALLTH+PDLWD+5)
#CONSTANT PDLY MouseY()-(PDLHT/2)
#CONSTANT MinAngle 20

Global StartSpeed : StartSpeed = 3
Global BallSpeed : BallSpeed = StartSpeed
Global TimeChange : TimeChange = 5000
Global MyTimer : MyTimer = Timer() + TimeChange

Randomize Timer()

MakeTable()
MakePaddle()
MakeBall()
Hide Mouse

do
   MoveBall()
   CheckLimits()
   MovePaddle()
   CheckCollision()
   CheckSpeed()
   Sync
loop

Function CheckLimits()

If Sprite x(Ball) > SCRWD-WALLTH
      MakeBall()
   Endif
   If Sprite x(Ball) < WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(0, Sprite Angle(Ball))
   Endif
   If Sprite Y(Ball) > SCRHT-WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(180, Sprite Angle(Ball))
   Endif
   If Sprite Y(Ball) < WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(180,Sprite Angle(Ball))
   Endif
EndFunction

Function Bounce(WallAng,N)
   ExitAngle = (WallAng-N) Mod 360
EndFunction ExitAngle

Function CheckSpeed()
   If MyTimer < Timer()
      inc BallSpeed
      MyTimer = Timer() + TimeChange
   EndIf
EndFunction

Function CheckCollision()
   Select Sprite hit(Ball,0)
   CASE Paddle : Rotate Sprite Ball,270-(Sprite Y(Ball)- (Sprite Y(Paddle)+PDLHT/2))  :ENDCASE
   EndSelect
EndFunction

Function MoveBall()
   Move Sprite Ball, BallSpeed
EndFunction

Function MakeTable()
   MakeSprite(TopWall,SCRWD,WALLTH,RED): Sprite TopWall,0,0,TopWall
   MakeSprite(BottomWall,SCRWD,WALLTH,RED):Sprite BottomWall,0,SCRHT-WALLTH,BottomWall
   MakeSprite(LeftWall,WALLTH,SCRHT,RED):Sprite LeftWall,0,0,LeftWall
   MakeSprite(RightWall,WALLTH,SCRHT,RED): Sprite RightWall,SCRWD-WALLTH,0,RightWall
EndFunction

Function MakePaddle()
   MakeSprite(Paddle,PDLWD,PDLHT,BLUE)
EndFunction

Function MakeBall():
   If Sprite Exist (Ball) Then Delete Sprite Ball
   MakeSprite(Ball,BallSize,BallSize,GREEN)
   Sprite Ball,50,50,Ball
   Offset Sprite Ball, BallSize/2,BallSize/2
   rotate sprite ball, rnd(60)+90
   BallSpeed = StartSpeed
EndFunction

Function MovePaddle()
   Sprite Paddle,SCRWD-(WALLTH+PDLWD+1),MouseY()-(PDLHT/2),Paddle
EndFunction

Function MakeSprite(SP,WD,HT,CL)
    If Bitmap Exist (1) then Delete Bitmap 1
    create Bitmap 1, WD,HT
    INK CL,0
    BOX 0,0,WD,HT
    Get Image SP,0,0,WD,HT
    Sprite SP,0,0,SP
    Delete Bitmap 1
    Set Current Bitmap 0
EndFunction

  
Rem Project: PONG
Rem Created: 11/2/2003 7:13:43 AM

Rem ***** Main Source File *****

Remstart
   The game of  pong using sprites
Remend

SET DISPLAY MODE 640,400,32

Sync OFF
Sync rate 0

#CONSTANT TopWall  1
#CONSTANT BottomWall  2
#CONSTANT LeftWall  3
#CONSTANT RightWall  4
#CONSTANT Paddle 5
#CONSTANT Ball 6
#CONSTANT BallSize 20

#CONSTANT SCRWD Screen Width()
#CONSTANT SCRHT Screen Height()
#CONSTANT WALLTH 25
#CONSTANT RED RGB(255,0,0)
#CONSTANT WHITE RGB(255,255,255)
#CONSTANT BLUE RGB(0,0,255)
#CONSTANT GREEN RGB(0,255,0)
#CONSTANT PDLWD 20
#CONSTANT PDLHT 60
#CONSTANT PDLX SCRWD-(WALLTH+PDLWD+5)
#CONSTANT PDLY MouseY()-(PDLHT/2)
#CONSTANT MinAngle 20

Global StartSpeed : StartSpeed = 3
Global BallSpeed : BallSpeed = StartSpeed
Global TimeChange : TimeChange = 5000
Global MyTimer : MyTimer = Timer() + TimeChange

Randomize Timer()

MakeTable()
MakePaddle()
MakeBall()
Hide Mouse

do
   MoveBall()
   CheckLimits()
   MovePaddle()
   CheckCollision()
   CheckSpeed()
   Sync
loop

Function CheckLimits()

   If Sprite x(Ball) > SCRWD-WALLTH
      MakeBall()
   Endif
   If Sprite x(Ball) < WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(0, Sprite Angle(Ball))
   Endif
   If Sprite Y(Ball) > SCRHT-WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(180, Sprite Angle(Ball))
   Endif
   If Sprite Y(Ball) < WALLTH
      Move Sprite Ball, -BallSpeed
      Rotate Sprite Ball, Bounce(180,Sprite Angle(Ball))
   Endif
EndFunction

Function Bounce(WallAng,N)
   ExitAngle = (WallAng-N) Mod 360
EndFunction ExitAngle

Function CheckSpeed()
   If MyTimer < Timer()
      inc BallSpeed
      MyTimer = Timer() + TimeChange
   EndIf
EndFunction

Function CheckCollision()
   Select Sprite hit(Ball,0)
   CASE Paddle : Rotate Sprite Ball,270-(Sprite Y(Ball)- (Sprite Y(Paddle)+PDLHT/2))  :ENDCASE
   EndSelect
EndFunction

Function MoveBall()
   Move Sprite Ball, BallSpeed
EndFunction

Function MakeTable()
   MakeSprite(TopWall,SCRWD,WALLTH,RED): Sprite TopWall,0,0,TopWall
   MakeSprite(BottomWall,SCRWD,WALLTH,RED):Sprite BottomWall,0,SCRHT-WALLTH,BottomWall
   MakeSprite(LeftWall,WALLTH,SCRHT,RED):Sprite LeftWall,0,0,LeftWall
   MakeSprite(RightWall,WALLTH,SCRHT,RED): Sprite RightWall,SCRWD-WALLTH,0,RightWall
EndFunction

Function MakePaddle()
   MakeSprite(Paddle,PDLWD,PDLHT,BLUE)
EndFunction

Function MakeBall():
   If Sprite Exist (Ball) Then Delete Sprite Ball
   MakeSprite(Ball,BallSize,BallSize,GREEN)
   Sprite Ball,50,50,Ball
   Offset Sprite Ball, BallSize/2,BallSize/2
   rotate sprite ball, rnd(60)+90
   BallSpeed = StartSpeed
EndFunction

Function MovePaddle()
   Sprite Paddle,SCRWD-(WALLTH+PDLWD+1),MouseY()-(PDLHT/2),Paddle
EndFunction

Function MakeSprite(SP,WD,HT,CL)
    If Bitmap Exist (1) then Delete Bitmap 1
    create Bitmap 1, WD,HT
    INK CL,0
    BOX 0,0,WD,HT
    Get Image SP,0,0,WD,HT
    Sprite SP,0,0,SP
    Delete Bitmap 1
    Set Current Bitmap 0
EndFunction

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

CattleRustler

Retired Moderator

22

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 3rd Nov 2003 06:31

my pong is in 3d but has a 2d appearance. If you want it just let me know.

-RUST-

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Nov 2003 09:22

There's always the Hello World demo!

I made breakout before I made pong, but pong does require less work.
You could always make a pacman game using ASCII characters. That was the first semi-game I ever wrote.

Back to top

Profile PM Email Website

zircher

23

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 3rd Nov 2003 20:27

As long as the sprite is on the screen, don't these two lines cancel each other out?
--
TAZ

if sprite y(1) > 1 then move sprite 1,10
if sprite y(1) < 799 then move sprite 1,-10

Back to top

Profile PM Email Website

Surreal Studio IanG

22

Years of Service

User Offline

Joined: 21st Sep 2003

Location: Cyberspace...I think

Posted: 3rd Nov 2003 20:55

i'm an newey and i am learning by programming for the alienware competition - i'm stupid, insane and mad

Flick that switch...*BANG*...Not that one!

Back to top

Profile PM Email Website

orv

22

Years of Service

User Offline

Joined: 9th Sep 2003

Location: Chicago, IL

Posted: 3rd Nov 2003 21:04

@Inkybro:
* you're using 800x 600 rez.
* 800 pixels is the horizontal rez.
* 600 pixels is the vertical rez.
* sprite y() is for vertical rez.
* sooooo.. your paddle will go off the bottom of the screen!
change:

if sprite y(1) < 799 then move sprite 1,-10

to:

if sprite y(1) < 599 then move sprite 1,-10

that should work!

If you aim at nothing you'll hit it every time. 806mhz AMD Athlon Processor. 384MB memory.
Windows XP Home Edition. RADEON 9700 Pro graphics card. - editor.exe=1.0.6.1 - DBPCompiler.exe=V1.05

Back to top

Profile PM Website

Inkybro

23

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Where I live :)

Posted: 4th Nov 2003 08:13

I DID IT! AND IT LOOKS BETTER TOO!

ply1:
if upkey()=1 then move sprite 1,2
if downkey()=1 then move sprite 1,-2
if sprite collision (1,2) = 1 then move sprite 1,-10
if sprite collision (1,3) = 1 then move sprite 1,10
return