-----------------------------------

SGeorge

Mon Jan 14, 2008 6:11 pm


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.


-----------------------------------

StealthArcher

Mon Jan 14, 2008 6:14 pm


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.


-----------------------------------

shakin cookie

Mon Jan 14, 2008 6:16 pm


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

-----------------------------------

hey steven!!!


-----------------------------------

SGeorge

Mon Jan 14, 2008 6:19 pm


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]


-----------------------------------

SGeorge

Mon Jan 14, 2008 6:20 pm


Re: RE:Gr 9 final isp help please!! Due January 16 08

-----------------------------------

hey steven!!!

SUP akiva


-----------------------------------

shakin cookie

Mon Jan 14, 2008 6:25 pm


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

-----------------------------------

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



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




-----------------------------------

SGeorge

Mon Jan 14, 2008 6:33 pm


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"]


-----------------------------------

shakin cookie

Mon Jan 14, 2008 6:35 pm


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!


-----------------------------------

SGeorge

Mon Jan 14, 2008 6:38 pm


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

-----------------------------------

U didnt tell me@
 
%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 



-----------------------------------

shakin cookie

Mon Jan 14, 2008 6:40 pm


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...


-----------------------------------

LaZ3R

Mon Jan 14, 2008 7:00 pm


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.


-----------------------------------

StealthArcher

Mon Jan 14, 2008 7:04 pm


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.  :)


-----------------------------------

SGeorge

Mon Jan 14, 2008 7:17 pm


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

-----------------------------------

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


-----------------------------------

shakin cookie

Mon Jan 14, 2008 7:37 pm


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.


-----------------------------------

Gooie

Mon Jan 14, 2008 8:27 pm


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

-----------------------------------

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


-----------------------------------

SMasood

Tue Jan 15, 2008 9:07 pm


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

-----------------------------------

I seriously doubt this program can be completed in time for the 16th.
Way to lower his self-esteem :) And I'm pretty sure he's done :|


-----------------------------------

syntax_error

Tue Jan 15, 2008 9:16 pm


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


-----------------------------------

shakin cookie

Thu Jan 17, 2008 11:00 am


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

-----------------------------------

he is done!