Jump to content
Heads Up! This website is no longer maintained, if your a member from our era, consider joining the discord to say hello.
Sign in to follow this  

Ask Magic 8 Ball

Recommended Posts

Ask Magic 8 Ball

Version: 1.0.0

Author: HG-Bounder-X

Category: Programs

Screenshot:

 

 

Description:

Enter a Yes/No question and get an answer :D

Enter a Yes/No question and get an answer :D

I am making a better version currently.

3 ball is finished. 4-7 & 9 are in the works.

3 - Why

4 - What

5 - How

6 - Where

7 - When

8 - Yes/No

9 - Who

 

:D I'll ahve it done within next week :D

 

Download The File

 

Submitted by HG-Bounder-X, on Apr 25 2008, 11:13 PM

Share this post


Link to post

lol, just wait until I add the other six balls >:3

Share this post


Link to post

Wow.. A program that does nothing but randomally select Pre-determined phrases.

 

I dub Thee Most Useful Program over.

 

I Vote we make a website for this.

Share this post


Link to post

Nobody said it was useful.

As it is, it's not even that entertaining.

But when I add 3-7 & 9, you can make combinations that can, at times, even make sense 0.o

I'm just doing it because I'm bored and to prove I'm beyond my VB6 class at school >_>

Share this post


Link to post
Wow.. A program that does nothing but randomally select Pre-determined phrases.

 

I dub Thee Most Useful Program over.

 

I Vote we make a website for this.

plutomic, if your here to start flame or grief then do it in the flame section. this is just a bit of fun that Bounder decided to make up.

Share this post


Link to post

LOL I asked it if I was DJing right now. It told me definitely not. I lol'ed

Share this post


Link to post

2008-04-25_2329.png

lmao!!

Share this post


Link to post

I think you coded this in vb.. if so put randomize at the top of ur code so the answers are not in a certain order.. lol sorry for posting on old file but it looked interesting

 

for example

' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6.
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))

if that randomize isn't there, even though it is using the Rnd() function, the random generated numbers will always have a specific order

Share this post


Link to post

My random function that I use for everything:

 

Public Function Random(Lowerbound As Integer, Upperbound As Integer) As Integer
   Randomize
   Random = Int(Rnd * Upperbound) + Lowerbound
End Function

Share this post


Link to post

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
Sign in to follow this  

×