help needed in turing ... editing....

[zohaibchamp]

can someone plzz edit it and make it better by adding graphics and stufff..... plzz and quick.... tilll tuesday...

sorry for not labelling it and other things

colorback (7)
colour (0)
cls
var a, b, c, d, e, f, g, i, m : string
var j : int
var h, k, l : string (1)
j := 0
locate (12, 28)
put "Press any key to start"
put ""
put ""
locate (16, 37)
getch (k)
delay (1000)
loop
colourback (7)
color (0)
cls
put "NOTE: PLEASE USE DIGITS ONLY"
j := 0
locate (11, 37)
put "1. Passage"
locate (12, 37)
put "2. Quiz"
locate (13, 37)
put "3. Exit"
locate (15, 37)
get a
if a > "3" or a < "1" then
put "this is an inappropriate choice"
delay (1000)
elsif a = "3" then
cls
locate (12, 28)
put "Thanks for using the program"
exit

elsif a = "1" then
cls
put "Rabbits are small mammals in the family Leporidae, found in several parts"
put "of the world. There are eight different genera in the family classified"
put "as rabbits, including the European rabbit, cottontail rabbits and the"
put "Amami rabbit, an endangered species. There are many other species of rabbits"
put "along with pikas and hares. The male is called a buck and the female is"
put "a doe and a young rabbit is a kitten or kit."
put ""
put ""
put ""
put "press any key to go to the main menu"
getch (h)
delay (1000)





elsif a = "2" then
cls

locate (10, 18)
put "Please wait while we load your quiz!"
drawbox (180, 200, 330, 225, 0)
drawfillbox (180, 200, 190, 225, 8)
delay (100)
drawfillbox (190, 200, 200, 225, 8)
delay (100)
drawfillbox (200, 200, 210, 225, 8)
delay (100)
drawfillbox (210, 200, 220, 225, 8)
delay (100)
drawfillbox (220, 200, 230, 225, 8)
delay (100)
drawfillbox (230, 200, 240, 225, 8)
delay (100)
drawfillbox (240, 200, 250, 225, 8)
delay (100)
drawfillbox (250, 200, 260, 225, 8)
delay (100)
drawfillbox (260, 200, 270, 225, 8)
delay (100)
drawfillbox (270, 200, 280, 225, 8)
delay (100)
drawfillbox (280, 200, 290, 225, 8)
delay (100)
drawfillbox (290, 200, 300, 225, 8)
delay (100)
drawfillbox (300, 200, 310, 225, 8)
delay (100)
drawfillbox (310, 200, 320, 225, 8)
delay (100)
drawfillbox (320, 200, 330, 225, 8)
delay (100)
cls
loop

put "Q1.What are rabbits?"
put "1. mammals"
put "2. reptiles"
put "3. amphibians"
put "4. none of the above"
get b
if b > "4" or b < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop

cls
loop

put "Q2. How many different genera's in rabbits are there?"

put "1. 10"

put "2. 5"

put "3. 6"

put "4. 8"

get c
if c > "4" or c < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop

cls
loop
put "Q3. What species of rabbits is endangered?"
put "1. European"
put "2. Cottontail"
put "3. Amami"
put "4. Pikas"
get d
if d > "4" or d < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop

cls
loop
put "Q4. What is male rabbit called"
put "1. Buck"
put "2. Doe"
put "3. Kitten"
put "4. King"
get e
if e > "4" or e < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop

cls
loop
put "Q5. What is a young rabbit called"
put "1. kid"
put "2. boy"
put "3. kitten"
put "4. cub"
get f
if f > "4" or f < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop
cls
loop
put "Q6. What is a female rabbit called"
put "1. Buck"
put "2. Doe"
put "3. Kitten"
put "4. Queen"
get g
if g > "4" or g < "1" then
put "the number you chose was not a choice"
delay (2000)
cls
else
exit
end if
end loop
if b = "1" then
j := j + 1

end if
if c = "4" then
j := j + 1
end if
if d = "3" then
j := j + 1
end if

if e = "1" then
j := j + 1
end if
if f = "3" then
j := j + 1
end if
if g = "2" then
j := j + 1
end if
end if

cls
if j > 0 then
put "you got ", j, " out of 6 correct"
put "Or ", j / 6 * 100 : 1 : 2, "%"
put ""
put ""
put "press any key to go to the main menu"
getch (l)
delay (1000)
end if
end loop

[Tony]

You haven't answered any of the template's questions. Those are required to receive an adequate response.

[Alex C.]

...please
USE....
CODE TAGS!!!!
seriously though, compsci helps you understand what to do, not to do your own work for you...

anyways, use Pic.Draw (&New) to import your own images, and all the predefined draw functions...
oh, & check the Turing Walkthrough

[zohaibchamp]

no this is my assignment and i am not supposed to do so...... just edit it and put graphics in it... plzzz i have to submit it

[Alex C.]

well you have 4 days so....
Good Luck!

[Tony]

zohaibchamp @ Thu Jan 19, 2012 10:25 pm wrote:

no this is my assignment and i am not supposed to do so......

Wait, are you saying that you are "not supposed to do" your own assignment? I don't understand... care to elaborate?

[Alex C.]

maybe its a typo? ...JACKIE CHAN MEME @_@

[Tony]

[zohaibchamp]

guys plzzz. that was a mistake... i am not asking you to do my project.... just some good backgrounds and fonts and stuff..

[zohaibchamp]

i just started programming...

[zohaibchamp]

HOW ABOUT YOU GUYS TELL ME WHAT I SHOULD ADD IN IT ....... LIKE GRAPHICS AND STUFFF...... and also i am a beginner so don't tell me pro stuff to do!!!!..... plzzz

[Tony]

You could add some graphics... and stuff. Pic.Draw perhaps?

[Alex C.]

google images have interesting stuff

[zohaibchamp]

i hate all of you !!!!!

[Insectoid]

Well. That was completely uncalled for. You asked us to do your work for you (don't bother denying it- that's what you wanted from us). We refused, and had a few jokes at your expense (it's always quite amusing when people try to trick us into doing their homework. How stupid do you think we are?).

If you'd asked for help we'd've helped you. But you didn't, so we didn't.