Computer Hope
Software => Computer software => Topic started by: Artimis.Rules on December 10, 2008, 07:39:12 PM
-
Yes I meant to put Billionaire. I got *extremely* bored recently... Popped open VB08... And saw what came out.
Yes, this is inspired by the TV show "Who Wants to be a Millionaire"© and credit for the idea goes to them. I don't plan to sell this, and, I repeat, I just got bored. SO TAKE THAT LAWYERS!!
Heh. Couldn't resist. ^.^
So to the real reason your reading this:
I made a game where you can play through up-to 15 questions to see if you win the big 1 - 000 - 000 - 000
and once your done, you can load a different .txt file, and have the fun all over!
But, what if you've played all the one's your friends have sent you?
And you want to return the favor?
Simple. Just open a new text document. Set up the text file like this.
#1: Introduction Question
#2: Your first question
#3: First question's A answer
#4: First question's B answer
#5: First question's C answer
#6: First question's D answer
#7: THE LETTER OF THE CORRECT ANSWER
#8: The first question's Subject TYPE
#9: Repeat 2-8 with different questions/answers.
and don't put the #3: or whatever.
Say you get to question 4.. then you can't think of anything more.. just put "end" in the next question's "question" section.
Also -- "end" and the letter of the correct answer are both case sensitive.
Well -- You ready to have fun? here ch'a go.
http://www.mediafire.com/download.php?ghio2yurkxl (http://www.mediafire.com/download.php?ghio2yurkxl)
Please mention any bugs, glitches, and suggestions.
Special thanks to Kaelan.
Thanks for your time,
Artimis.
EDIT: Extract the "billionz" folder to your C drive.
EDIT:
Game in the designer
http://www.flickr.com/photos/17676123@N02/3099620724/in/photostream/
The game as you are loading a .txt file
http://www.flickr.com/photos/17676123@N02/3099617954/in/photostream/
Mid-Question (the answer's D! =P)
http://www.flickr.com/photos/17676123@N02/3098785881/in/photostream/
-
For some reason.....I don't feel like trying it.....
-
:( You sadden me Carbon Dudeoxide
-
Quite a fun little game and a nice way to kill some time. Ease of customization is nice too.
-
I personally don't trust it. Why does it need to connect to the internet to download files? Doesn't sound like that complex of a program to me. And who exactly is it connecting to?
-
Hmm, I tried running it in a sandboxed environment, but it stopped responding. You feel like giving it a shot, Carbon? (Despite your previous response... Heh.)
-
Connect to the internet? WTH...
Would some screenies convince you?
-
:( You sadden me Carbon Dudeoxide
Well firstly, you're new here and you've uploaded an unknown file.........
-
Connect to the internet? WTH...
Would some screenies convince you?
I'm testing something out first...let me get back to you on that in a few minutes.
-
Ok -- Images uploading to flikr -- bout half done as i'm typing this. Will mod this post and the prime one with the URL's.
EDIT:
Game in the designer
http://www.flickr.com/photos/17676123@N02/3099620724/in/photostream/
The game as you are loading a .txt file
http://www.flickr.com/photos/17676123@N02/3099617954/in/photostream/
Mid-Question (the answer's D! =P)
http://www.flickr.com/photos/17676123@N02/3098785881/in/photostream/
-
Artimis.Rules and the person who recommends that game ''Armor '' both their names start with A.....So I won't try it!
p.s. A for Annon
-
Our names start with A. Wow. Congradulations you learned your alphabet... atleast 1/27th of it.
He's a friend. His name is KAELAN. Gave a special thanks to him up in the main post.
-
Our names start with A. Wow. Congradulations you learned your alphabet... atleast 1/27th of it.
26.........
-
Mis-hit. Jeez.
-
Umm do I need to say more LOL
Thanks respected Moderator.
-
Hmm, I tried running it in a sandboxed environment, but it stopped responding. You feel like giving it a shot, Carbon? (Despite your previous response... Heh.)
I'll try it on my old unused laptop later if I remember. :D
-
Looks like all it downloads is the .NET Framework 3.5 SP1 (if you don't already have it installed). I can't get the game to work properly for me, but so far, it doesn't appear to have any malicious signatures or activities. It should be okay for anyone to try it out if they wish to do so. Of course, everyone should always exercise caution when downloading unfamiliar files. Everything has come back clean, but you can never be 100% certain, so download at your own discretion.
-
...if I remember. :D
Do remember. Anyone with VB08 with SP1 and really cares, here is the source. (Code is a bit bloated, i know. I'm working on it [2077 lines])
http://www.mediafire.com/download.php?cnywizmgklt
-
Yaay! I have trust with evidence! =P
Sorry, had to.
Sorry for the double-post BTW.
-
Do remember. Anyone with VB08 with SP1 and really cares, here is the source. (Code is a bit bloated, i know. I'm working on it [2077 lines])
Visual Studio Professional '08...
I'll take a gander when I'm bored. might have suggestions... if you're open to them.
-
Alright, took a quick look see at yer code; got some tips for you.
First; the four buttons appear to run the same code, but in four different places (Click events)
I recommend creating a separate procedure- for example, "CheckAnswer", which will take A,B,C, or D as it's argument.
then, each of your four buttons will be one line; "CheckAnswer("A")" for button A, and so forth. I could hazard a guess and say you've never used separate subroutines, which is OK, but they make programming a lot easier, and you can never learn them too early.
Also; you've got no error handling code. While this is acceptable for a Alpha or beta, it never hurts; and you can never add, (or learn how to write) them too early.
For example, in Button2_Click, where you open the text file whose name resides in textbox2 (love your imaginative names, btw ;D) the readAlllines() call could easily fail; rather then have your game crash with a generic framework error, you could enclose the procedure code in Try...Catch Block, and then provide a more descriptive error to your users. I'd be more specific, but I'd Rather be accurate then dead wrong, and I'm far more experienced with VB6 then .NET... In fact I almost suggested the use of an "On Error" statement, but that doesn't exist in .NET, and if it does it was deprecated by try...catch.
Last critique would be to rename your controls. I happened under the same problem when I learned VB way back with Visual basic 2 on Windows 3.1; I simply used the default names. Nowadays I wonder why it even provides a default name... under how many circumstances does the name "Command1" or "Text1" describe the controls purpose? Not often, I'm sure. Even today, over 15 years later, the default behaviour for control naming is exactly the same as it was in 1991. On the up-side, they actually changed the menu editor after VB6 (although they changed pretty much everything and it only stood to reason that they would also revamp the 15 year old menu editor)
lastly- your use of the "lines()" array seems a but non-linear; from what I can gather, it contains the various questions. a more extensible method would be to use a integral variable to store your question number; them multiply that question number by 7(number of lines in each questions definition), and add 1 (the introduction question); this will give you the first line (hopefully) for the question; you can then add the numbers 1 through 6 to extract the various portions of the questions data.
I'd add some more positive stuff here, but I think my years of experience makes me a bit blind to what I used to think was neat and cool years ago. In any case, I commend your efforts ;)
-
On the part about my code being bloated -- I know. Been working on it. Like this?:
If qnum = "1" Then
readline = lines(6)
If readline = "a" And correctanswer = "a" Or readline = "b" And correctanswer = "b" Or readline = "c" And correctanswer = "c" Or readline = "d" And correctanswer = "d" Then
MsgBox("CORRECT!")
'Question
readline = lines(8)
Question.Text = readline
'AnsA
readline = lines(9)
AnsA.Text = readline
'AnsB
readline = lines(10)
AnsB.Text = readline
'AnsC
readline = lines(11)
AnsC.Text = readline
'AnsD
readline = lines(12)
AnsD.Text = readline
qnum = "2"
Timer1.Enabled = True
correctanswer = lines(13)
Else
MsgBox("INCORRECT!")
qnum = "start"
readline = lines(0)
Question.Text = readline
AnsA.Text = "Yes"
AnsB.Text = "No"
AnsC.Visible = False
AnsD.Visible = False
End If
End If
If qnum = "start" Then
AnsC.Visible = True
AnsD.Visible = True
'Question
readline = lines(1)
Question.Text = readline
'AnsA
readline = lines(2)
AnsA.Text = readline
'AnsB
readline = lines(3)
AnsB.Text = readline
'AnsC
readline = lines(4)
AnsC.Text = readline
'AnsD
readline = lines(5)
AnsD.Text = readline
qnum = "1"
correctanswer = lines(6)
End If
If Question.Text = "end" Then
MsgBox("Congradulations! You have completed this version of 'Who Wants to Be a Billionaire?'!")
qnum = "start"
readline = lines(0)
Question.Text = readline
AnsA.Text = "Yes"
AnsB.Text = "No"
AnsC.Visible = False
AnsD.Visible = False
End If
I know about renaming the commands and such -- Those few controls we're my most recent addition... and aren't exactly up-to-par yet
The rest was like a toothpick against a brick wall. Not sure what you said lol.
EDIT: Going to start a new VB Project, copy the basic parts of code and the objects into it, then re-work the "Answer selection, checking, and changing question"-part