Computer Science Canada

noob needs help
Author:  War_Caymore [ Thu Sep 21, 2006 10:45 am ]
Post subject:  noob needs help
this is such a simple program (for the "anything under 20 lines contest") but for some reason it's not working. i can't seem to find my problem. it's been 6 months sence i written any code so i'm a little rusty. i jusut my comp up and running.

code:
View.Set ("graphics")
var font : int
var x, y : int
font := Font.New ("sans serif:18:bold")
assert font > 0
Font.Draw ("Whats that?", 240, 200, font, black)
delay (3000)
cls
Font.Draw ("omigod!", 260, 200, font, black)
delay (3000)
loop
    Draw.FillOval (200, 300, x, y, red)
    x := x + 1
    y := y + 1
    if x = 600, end
end loop
Author:  do_pete [ Thu Sep 21, 2006 10:53 am ]
Post subject: 
Please post more descriptive titles. Here is the fixed version of your code.
code:
View.Set ("graphics")
var font : int
var x, y : int := 0
font := Font.New ("sans serif:18:bold")
assert font > 0
Font.Draw ("Whats that?", 240, 200, font, black)
delay (3000)
cls
Font.Draw ("omigod!", 260, 200, font, black)
delay (3000)
loop
    Draw.FillOval (200, 300, x, y, red)
    x := x + 1
    y := y + 1
    exit when x = 600
end loop
Basically, all you need to do is assign x and y a value before going x := x + 1 and y := y + 1. You also need to change your second last line.
Author:  War_Caymore [ Thu Sep 21, 2006 10:59 am ]
Post subject: 
do_pete wrote:
Please post more descriptive titles.


sorry about that.

thanx. actualy... right when you posted i kinda figured out my problem.

but thanx for the help. bits for you.
Author:  ZeroPaladn [ Thu Sep 21, 2006 11:57 am ]
Post subject: 
Cute, brother. Anyways, yeah, your title should probably state what your problem is. PM me when you can bro, so i can find out what yoru classes are over @ MHS.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy