# Binary Joke Program

Page 1 of 1

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

### #1 Senseika

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

# Binary Joke Program

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

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"
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"
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"
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

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

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

## Re: Binary Joke Program

Posted 12 January 2009 - 06:07 PM

Needs more cowbell..

### #3 snoj

• Married Life

Reputation: 84
• 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".

### #4 Senseika

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

## Re: Binary Joke Program

Posted 12 January 2009 - 10:17 PM

snoj, 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,