Computer Science Canada

Gr 9 final isp help please!! Due January 16 08

Author:  SGeorge [ Mon Jan 14, 2008 6:11 pm ]
Post subject:  Gr 9 final isp help please!! Due January 16 08

So In my game you have to drag Five blocks from the top of the screen to the bottom of the screen from smallest to greatest!
I need help where you have to be able to drag the blocks down and i can't do that please help and fast!!!
Here take a look at my program.

Author:  StealthArcher [ Mon Jan 14, 2008 6:14 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

I find this time of year, very sad.


It's only 3 kb, post it in code tags and we can offer help, but be forewarned, try to ask us to do it for you, and well, let's not go there.

Author:  shakin cookie [ Mon Jan 14, 2008 6:16 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

hey steven!!!

Author:  SGeorge [ Mon Jan 14, 2008 6:19 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

kk help me now please!!!

%Stevenson George
%Dec.26.07
%Ms.Dyke
%This program will let you put blocks in order from smallest to biggest.
%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")
forward proc mainMenu
forward proc userinput

%Declaration Statement
var name : string
var timerunning : int
var winID1 : int := Window.Open ("position:100;100,graphics:640;400")

%Title
procedure title
cls
locate (1, 30)
put "The Building Blocks Game"
put ""
end title


procedure goodbye
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
put ""
put "Player: ", name
put "Your time was: ", timerunning, " milliseconds"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye

proc Btnmouse
var x, y, buttonnumber, buttonupdown, buttons : int
var nx, ny : int
loop
buttonwait ("down", x, y, buttonnumber, buttonupdown)
nx := x
ny := y
loop
drawfillbox (x, y, nx, ny, 0) % Erase previous line
exit when buttonmoved ("up")
mousewhere (nx, ny, buttons)
drawbox (x, y, nx, ny, brightred) % Draw line to position
end loop
buttonwait ("up", nx, ny, buttonnumber, buttonupdown)
drawfillbox (x, y, nx, ny, brightgreen) % Draw line to final position
drawfillbox (x - 2, y + 2, nx + 2, ny - 2, 0)
drawfillbox (x, y, nx, ny, 0)
end loop

end Btnmouse

proc display
title
drawfillbox (10, 330, 60, 380, 110)
drawfillbox (85, 280, 185, 380, 10)
drawfillbox (210, 350, 240, 380, 75)
drawfillbox (265, 230, 415, 380, 15)
drawfillbox (440, 305, 515, 380, 240)

drawfillbox (9, 9, 41, 41, 7)
drawfillbox (64, 9, 116, 61, 7)
drawfillbox (139, 9, 216, 86, 7)
drawfillbox (239, 9, 341, 111, 7)
drawfillbox (364, 9, 516, 161, 7)

drawfillbox (10, 10, 40, 40, 0)
drawfillbox (65, 10, 115, 60, 0)
drawfillbox (140, 10, 215, 85, 0)
drawfillbox (240, 10, 340, 110, 0)
drawfillbox (365, 10, 515, 160, 0)
timerunning := Time.Elapsed
var enterBtn : int := GUI.CreateButtonFull (580, 0, 0, "Enter", goodbye, 0, KEY_ESC, false)
Btnmouse
loop
exit when GUI.ProcessEvent
end loop
end display

body userinput
title
put "Please enter your name: " ..
get name
display
View.Update
end userinput

procedure introduction
title
put "This program will test your skill to place blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end introduction

procedure goodbye1
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye1

proc goodbyenice
title
put "Congratulations! You have put the blocks from smallest to largest!"
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
end goodbyenice

proc goodbyewrong
title
put "INCORRECT! Sorry try again and remember to put the blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
end goodbyewrong

body mainMenu
title
var introBtn : int := GUI.CreateButton (200, 275, 0, "Introduction", introduction)
var playBtn : int := GUI.CreateButton (200, 200, 0, "Play Building Blocks Game!", userinput)
var exitBtn : int := GUI.CreateButton (200, 125, 0, "Exit", goodbye1)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end mainMenu

fork music
introduction
loop
mainMenu
exit when GUI.ProcessEvent
userinput
display
end loop
goodbye
[/list][/list]

Author:  SGeorge [ Mon Jan 14, 2008 6:20 pm ]
Post subject:  Re: RE:Gr 9 final isp help please!! Due January 16 08

shakin cookie @ Mon Jan 14, 2008 6:16 pm wrote:
hey steven!!!


SUP akiva

Author:  shakin cookie [ Mon Jan 14, 2008 6:25 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

oh, and steven, when you post code, put
Turing:
  at the top and
at the bottom. It will make it look like this:

Turing:


proc hello
put"Hello!"
loop
exit when hasch
end loop
end hello


Author:  SGeorge [ Mon Jan 14, 2008 6:33 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

Thx Akiva and get someone to help me!!!
[syntax="turing"]
%Stevenson George
%Dec.26.07
%Ms.Dyke
%This program will let you put blocks in order from smallest to biggest.
%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")
forward proc mainMenu
forward proc userinput

%Declaration Statement
var name : string
var timerunning : int
var winID1 : int := Window.Open ("position:100;100,graphics:640;400")

%Title
procedure title
cls
locate (1, 30)
put "The Building Blocks Game"
put ""
end title

procedure goodbye
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
put ""
put "Player: ", name
put "Your time was: ", timerunning, " milliseconds"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye

proc display
title
drawfillbox (10, 330, 60, 380, 110)
drawfillbox (85, 280, 185, 380, 10)
drawfillbox (210, 350, 240, 380, 75)
drawfillbox (265, 230, 415, 380, 15)
drawfillbox (440, 305, 515, 380, 240)

drawfillbox (9, 9, 41, 41, 7)
drawfillbox (64, 9, 116, 61, 7)
drawfillbox (139, 9, 216, 86, 7)
drawfillbox (239, 9, 341, 111, 7)
drawfillbox (364, 9, 516, 161, 7)

drawfillbox (10, 10, 40, 40, 0)
drawfillbox (65, 10, 115, 60, 0)
drawfillbox (140, 10, 215, 85, 0)
drawfillbox (240, 10, 340, 110, 0)
drawfillbox (365, 10, 515, 160, 0)
timerunning := Time.Elapsed
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
loop
exit when GUI.ProcessEvent
end loop
end display

body userinput
title
put "Please enter your name: " ..
get name
display
View.Update
end userinput

procedure introduction
title
put "This program will test your skill to place blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end introduction

procedure goodbye1
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye1

proc goodbyenice
title
put "Congratulations! You have put the blocks from smallest to largest!"
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
end goodbyenice

proc goodbyewrong
title
put "INCORRECT! Sorry try again and remember to put the blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
end goodbyewrong

body mainMenu
title
var introBtn : int := GUI.CreateButton (200, 275, 0, "Introduction", introduction)
var playBtn : int := GUI.CreateButton (200, 200, 0, "Play Building Blocks Game!", userinput)
var exitBtn : int := GUI.CreateButton (200, 125, 0, "Exit", goodbye1)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end mainMenu

introduction
loop
mainMenu
exit when GUI.ProcessEvent
userinput
display
end loop
goodbye
[syntax="turing"]

Author:  shakin cookie [ Mon Jan 14, 2008 6:35 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

no no no... you have to put [/syntax] at the bottom... not [syntax="turing"] again!

Author:  SGeorge [ Mon Jan 14, 2008 6:38 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

U didnt tell me@
Turing:

%Stevenson George
%Dec.26.07
%Ms.Dyke
%This program will let you put blocks in order from smallest to biggest.
%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")
forward proc mainMenu
forward proc userinput

%Declaration Statement
var name : string
var timerunning : int
var winID1 : int := Window.Open ("position:100;100,graphics:640;400")

%Title
procedure title
cls
locate (1, 30)
put "The Building Blocks Game"
put ""
end title

procedure goodbye
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
put ""
put "Player: ", name
put "Your time was: ", timerunning, " milliseconds"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye

proc display
title
drawfillbox (10, 330, 60, 380, 110)
drawfillbox (85, 280, 185, 380, 10)
drawfillbox (210, 350, 240, 380, 75)
drawfillbox (265, 230, 415, 380, 15)
drawfillbox (440, 305, 515, 380, 240)

drawfillbox (9, 9, 41, 41, 7)
drawfillbox (64, 9, 116, 61, 7)
drawfillbox (139, 9, 216, 86, 7)
drawfillbox (239, 9, 341, 111, 7)
drawfillbox (364, 9, 516, 161, 7)

drawfillbox (10, 10, 40, 40, 0)
drawfillbox (65, 10, 115, 60, 0)
drawfillbox (140, 10, 215, 85, 0)
drawfillbox (240, 10, 340, 110, 0)
drawfillbox (365, 10, 515, 160, 0)
timerunning := Time.Elapsed
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
loop
exit when GUI.ProcessEvent
end loop
end display

body userinput
title
put "Please enter your name: " ..
get name
display
View.Update
end userinput

procedure introduction
title
put "This program will your skill to place blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end introduction

procedure goodbye1
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye1

proc goodbyenice
title
put "Congratulations! You have put the blocks from smallest to largest!"
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
end goodbyenice

proc goodbyewrong
title
put "INCORRECT! Sorry try again and remember to put the blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
end goodbyewrong

body mainMenu
title
var introBtn : int := GUI.CreateButton (200, 275, 0, "Introduction", introduction)
var playBtn : int := GUI.CreateButton (200, 200, 0, "Play Building Blocks Game!", userinput)
var exitBtn : int := GUI.CreateButton (200, 125, 0, "Exit", goodbye1)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end mainMenu

introduction
loop
mainMenu
exit when GUI.ProcessEvent
userinput
display
end loop
goodbye

Author:  shakin cookie [ Mon Jan 14, 2008 6:40 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

there you go...

and btw, i have no idea how to help you...

sorry...

Author:  LaZ3R [ Mon Jan 14, 2008 7:00 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

Sigh, kids using GUI... always with the GUI.

Anyways, you need to learn how to use a command called Mouse.Where if you even want to begin with having the user interact with blocks via a mouse.

Search it up in the helpmenu of turing.

Author:  StealthArcher [ Mon Jan 14, 2008 7:04 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

I personally got the highest mark in my class last year, and I never touched the GUI. Smile

Author:  SGeorge [ Mon Jan 14, 2008 7:17 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

how do i use mouse where to do tht please explain!!!

Author:  shakin cookie [ Mon Jan 14, 2008 7:37 pm ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

im sorry LaZ3R, but our teacher specifically said that we are required to have turing's GUI in our program.

Author:  Gooie [ Mon Jan 14, 2008 8:27 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

I seriously doubt this program can be completed in time for the 16th.

Author:  SMasood [ Tue Jan 15, 2008 9:07 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

Gooie @ Mon Jan 14, 2008 8:27 pm wrote:
I seriously doubt this program can be completed in time for the 16th.

Way to lower his self-esteem Smile And I'm pretty sure he's done Neutral

Author:  syntax_error [ Tue Jan 15, 2008 9:16 pm ]
Post subject:  Re: Gr 9 final isp help please!! Due January 16 08

a) guys serly stop using the help section for small talk... it gets annoying use pravite pms for that
or even better if you're friends and... idk a chat program ( im sure you can think of a way )

b) its due 2mororw what did you think people here have no lifes and would drop everything to get your work done you should have come here for help early

c) you can USE TURING HELP FOR MOUSE WHERE; TURING HELP + YOU = WORK GETTING DONE
if not use the turing walkthough
its wonderful idk why they even teach turing at all since the lesson are all there in detailed examples

Author:  shakin cookie [ Thu Jan 17, 2008 11:00 am ]
Post subject:  RE:Gr 9 final isp help please!! Due January 16 08

he is done!


: