----------------------------------- Pip_Jr Thu Jan 20, 2005 10:13 pm i need some help =S!! ----------------------------------- I was making my Hang-Man prject that needs arrays and proccedures, then all of a suden (SCARIE PART) My computer crashed! oh god dam it! andi lost like 200 lines of code and forgot what i put down =( please help out! ----------------------------------- cycro1234 Thu Jan 20, 2005 10:28 pm ----------------------------------- Ok, so what part of your code do you need help with? ----------------------------------- basketball4ever Thu Jan 20, 2005 11:25 pm ----------------------------------- Well put what code you have now here... then we'll help u fix it or help u add more... we cant just do the hangman for you... ----------------------------------- Pip_Jr Fri Jan 21, 2005 6:58 am ----------------------------------- damn my school computer, i'll sned it right when i get to school in...hm.... 20 mins ok :oops: and i need it so i choose 1 letter thats in the word at a time, and if it gets it wrong it outputs the head of the stick man ----------------------------------- zomg Fri Jan 21, 2005 8:02 am ----------------------------------- i came to my current school late this semestre and had never taken visual basic before... but somehow i got stuck in the middle of a 2nd year VB class and my first program my teacher asked everybody to write was hangman game :shock: needless to say i got a big "0" on that assignment lol... just thought id share my sad story...anyway anyway it would be good to ur code so we could help ----------------------------------- eNc Fri Jan 21, 2005 9:25 am ----------------------------------- i came to my current school late this semestre and had never taken visual basic before... but somehow i got stuck in the middle of a 2nd year VB class and my first program my teacher asked everybody to write was hangman game :shock: needless to say i got a big "0" on that assignment lol... just thought id share my sad story...anyway anyway it would be good to ur code so we could help lol that sucks, did you tell him you don't kno vb ? ----------------------------------- Tony Fri Jan 21, 2005 9:29 am ----------------------------------- needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class :wink: ----------------------------------- eNc Fri Jan 21, 2005 9:48 am ----------------------------------- needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class :wink: lol you know it, but yea getting stuck in somthing you don't kno will give him a hard time all year. ----------------------------------- Pip_Jr Fri Jan 21, 2005 11:06 am ----------------------------------- Program Called "Hanger" % Make the title Page! % Rows: 30 % Columns:100 setscreen ("graphics:vga") var picID : int := 0 var x, y : int := 0 picID := Pic.FileNew ("h:\\no man.bmp") Pic.Draw (picID, x, y, picCopy) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setscreen ("nocursor") color (yellow) colorback (blue) put "Welcome to!..." var words : array 1 .. 20 of string words (1) := "computer" words (2) := "toamrow" words (3) := "teacher" words (4) := "student" words (5) := "red" words (6) := "blue" words (7) := "orange" words (8) := "foods" words (9) := "haste" words (10) := "catholic" words (11) := "root" words (12) := "gap" words (13) := "think" words (14) := "palace" words (15) := "love" words (16) := "smell" words (17) := "bus" words (18) := "school" words (19) := "skateboarder" words (20) := "snowboarding" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% locate (20, 48) put "Made by Cameorn Archer, With help of Mr.Ielapi!" delay (1000) colorback (black) cls color (yellow) colorback (black) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% color (black) setscreen ("nocursor") color (yellow) var player : string put "Enter you First Name, Please." get player delay (560) cls if player = "Mya" then % put "Have fun playing!" % put "Girls Kick ass!" elsif player = "mya" then % put "Have fun playing!" % put "Girls Kick ass!" else color (brightcyan) locate (11, 40) put "Loading... please wiat..." for count : 1 .. 4 play (">gcAgDfcgk") %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% var letters : array 1 .. 26 of string (26) letters (1) := "a" letters (2) := "b" letters (3) := "c" letters (4) := "d" letters (5) := "e" letters (6) := "f" letters (7) := "g" letters (8) := "h" letters (9) := "i" letters (10) := "j" letters (11) := "k" letters (12) := "l" letters (13) := "m" letters (14) := "n" letters (15) := "o" letters (16) := "p" letters (17) := "q" letters (18) := "r" letters (19) := "s" letters (20) := "t" letters (21) := "u" letters (22) := "v" letters (23) := "w" letters (24) := "x" letters (25) := "y" letters (26) := "z" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%CHESSE!%%%%%%%%%%%%%%%%% end for colorback (black) cls end if randint (x, 1, 20) put "If you want to quit the game during GamePlay, Type 'quit' on the guess" loop colorback (black) cls color (yellow) var playagain : string var alphabet : string := "a b c d e f g h i j k l m n o p q r s t u v w x y z" var guess : string colorback (black) delay (1500) cls for count : 1 .. length (words (x)) put "_ " .. end for put " " setscreen ("nocursor") put "You have theis letters left..." put alphabet put "Enter guess." get guess if guess = "Give_Up" then picID := Pic.FileNew ("h:\\Losing Page.bmp") Pic.Draw (picID, x, y, picCopy) end if if guess = words (x) then cls picID := Pic.FileNew ("h:\\Winning Page.bmp") Pic.Draw (picID, x, y, picCopy) delay (2000) get playagain delay (500) if playagain = "n" then delay (500) put "Aww =( Bye bye ", player delay (575) setscreen ("graphics:vga") colorback (purple) cls picID := Pic.FileNew ("h:\\ender.bmp") Pic.Draw (picID, x, y, picCopy) elsif playagain = "y" then delay (200) put "Yay! =)" end if exit when playagain = "n" end if exit when guess = "quit" exit when guess = "Give_Up" end loop This is all i got at the moment =S ----------------------------------- zomg Fri Jan 21, 2005 12:00 pm ----------------------------------- needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class :wink: i would have but i had just moved in with my dad and bro, and they didnt have the internet yet... i fixed that :twisted: and my school didnt alow me to go on this site becuz its a "chat program" and "email" man ive heard it all this year anyway here i am at school and on this site :P ----------------------------------- Tony Fri Jan 21, 2005 12:50 pm ----------------------------------- my school didnt alow me to go on this site becuz its a "chat program" and "email" well damn - god forbid that you'll actually deside to go somewhere and meet some people who post on compsci.. and then the school will be all like "OMG - we're going to get shut down because internet is full of student eating aliens" hah - I met a bunch of people from this site :wink: btw - my CS teacher reads this site :) So does McKenzie ----------------------------------- Bacchus Fri Jan 21, 2005 3:19 pm ----------------------------------- my school just screwed around with their computers and now this site wont even load there :( but ya thats gotta suk being stuk in 2nd year class that you nothing of lol ----------------------------------- Cervantes Fri Jan 21, 2005 4:08 pm ----------------------------------- Maybe I'm the only one who sees this, but if you lost your code, Pip_Jr, can't you rewrite it? I know it's a pain, but it's not as though it's our responsibility to write your code for you because you lost it. Besides, you should remember how you did it. And that's all we're going to help you with. I hope you're not asking us to finish your code for you.