Binary Joke Program

THIS IS NOT A NEED HELP. IT IS A FUNNY PROGRAM, AND I WANT SUGGESTIONS

Page 1 of 1

3 Replies - 1012 Views - Last Post: 12 January 2009 - 10:17 PM

#1 Senseika  Icon User is offline

  • D.I.C Head
  • member icon

Reputation: 3
  • View blog
  • Posts: 66
  • Joined: 09-January 09

Binary Joke Program

Post icon  Posted 12 January 2009 - 07:11 AM

If your wondering why I made this topic an "Advanced" Topic, it is because a lot of people don't know their 0s and 1s. They Uberfail at math. Even if they majored in math in college.
Option Explicit

Public Idiot As Boolean
Public NormalPerson As Boolean
Public OKPerson As Boolean
Public Determine As String

Sub Form_Load()
Determine = InputBox("In binary, what is the value of 111111111111111?", "Binary Joke")
If Determine = "32767" Then
	NormalPerson = True
	Idiot = False
	OKPerson = False
	MsgBox "Your normal. You earned a 100. Yes a 1 followed by two big fat goose eggs. The answer is 32,767. Your answer was " & Determine & ".", vbOKOnly, "Your a Normal Person"
	Unload Me
ElseIf Determine = "32768" Then
	NormalPerson = False
	Idiot = False
	OKPerson = True
	MsgBox "Your OK. You earned a 75. Yes a 7 followed by a 5, also the value of 3 quarters. The answer is 32,767. Not " & Determine & ". But you were close.", vbOKOnly, "Your an OK Person"
	Unload Me
Else
	NormalPerson = False
	OKPerson = False
	Idiot = True
	MsgBox "You Fail. You earned a 0. Yes a big fat goose egg. The answer is not going to reveal itself you know. Not " & Determine & ".", vbOKOnly, "Your a Binary Idiot"
	Call Form_Load
End If
End Sub



Thats basically the entire code. I want suggestions on how to improve it. I do not want flame. Also, judge this on a scale of 1 - 10, 10 being the most, on how much pain this program caused your head.

Is This A Good Question/Topic? 0
  • +

Replies To: Binary Joke Program

#2 Winstinology  Icon User is offline

  • I'm pretty good with a laser mouse..
  • member icon

Reputation: 7
  • View blog
  • Posts: 958
  • Joined: 08-May 08

Re: Binary Joke Program

Posted 12 January 2009 - 06:07 PM

Needs more cowbell..
Was This Post Helpful? 0
  • +
  • -

#3 snoj  Icon User is offline

  • Married Life
  • member icon

Reputation: 84
  • View blog
  • Posts: 3,564
  • Joined: 31-March 03

Re: Binary Joke Program

Posted 12 January 2009 - 08:11 PM

The program is flawed since the real answer is "11001010000111000010010010011101111000111000111".
Was This Post Helpful? 0
  • +
  • -

#4 Senseika  Icon User is offline

  • D.I.C Head
  • member icon

Reputation: 3
  • View blog
  • Posts: 66
  • Joined: 09-January 09

Re: Binary Joke Program

Posted 12 January 2009 - 10:17 PM

View Postsnoj, on 12 Jan, 2009 - 07:11 PM, said:

The program is flawed since the real answer is "11001010000111000010010010011101111000111000111".

translate it to regular numbers. i have the right answer. positive integers in binary cna only go up to 32767. negative integers can go to -32768,
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1