[loquin]

As an interesting diversion, come up with a coding example which can be translated to a famous quote (or book/song Title.) In other words, What is the quote associated with the following code sample?

Randomize
Do While Not Succeeded
  Succeeded = Try()
Loop

'
'
Private Function Try() as Boolean
  Try = Rnd > 0.99
End Sub

[reboot]

That's too easy....

[edit]Not the idea itself, but the example you used.

[edit 2]Oh yeah, "If at first you don't succeed, try, try again".

[reboot]

This sounds like fun... I wanna try.

Dim Handle As Boolean
Dim Answers As Boolean
Dim Truth As Boolean

Truth = True
Answers = Truth
Handle = Not Truth

Hint.. famous movie quote. Name the movie. Extra points for the actors.

(gee I hope this doesn't stink too bad. Lou is right, this is hard )

[Antariksh]

"Keep trying." And, you are making sure we will never succeed because Rnd > 0.99 will always be false. So, if we have not succeeded once, we can never succeed again! Am I right?
OK, How about this one: (Tell me if I have messed it up.)

Dim Desire2Jump As Boolean

If Desire2Jump Then
   DoStuff
EndIf

'
'

Private Sub DoStuff()
   frmMain.Eye1.Activate
   frmMain.Eye2.Activate
End Sub

It's very easy...

[Founder]

Reboot, is it
"You can't handle the truth"
The actor that said it was Jack Nicholson. He said it Tom Cruise. I can't for the life of me remeber the movie name. I can see the scene and remember the plot line, just can't recall the name.

I knew it would come to me.
"A Few Good Men"

[OnErr0r]

A Few Good Men.

[reboot]

Gotta make them harder!

[EracMan]

Here is a very easy one.

Dim Time as String

Time = ""
Time = ""
Time = "Charm"

I'll come up with a better one later.

[reboot]

Third times a charm

[00100b]

Const CONDITION As String = "DOWHENUBT"
Const CRITERIA As String = "WHEN"

If InStr(1, CONDITION, CRITERIA) <> 0 Then
    ExitWindowsEx, EWX_REBOOT Or EWX_FORCE, 0
End If

[alp0001]

"When in doubt something something"

[EracMan]

"When in doubt, Reboot (Your PC)"?

[alp0001]

Here is an easy one (and I wouldn't code this way normally):

Dim ltrs As Variant
ltrs = Array("I f", "l the n", "d for sp", "d")
MsgBox Join(ltrs, "ee")

[EracMan]

"I Feel the need for speed".

[Rockoon]

x = &h2B
Question = x or not x

[rick_deacha]

Originally Posted by Rockoon

x = &h2B
Question = x or not x

LOL
To be or not to be

[Dennis DVR]

to be or not to be

[alp0001]

Slightly harder one than my previous:

'by Pablo Picasso

Dim quote() As String, ii as long
Const AsciiEquivNumbers As String = "67 111 109 112 117 116 101 114 115 32 97 114 101 32 117 " & _
   "115 101 108 101 115 115 46 32 84 104 101 121 32 99 97 110 32 111 110 108 121 32 103 105 " & _
   "118 101 32 121 111 117 32 97 110 115 119 101 114 115 46"
quote = Split(AsciiEquivNumbers, " ", , vbTextCompare)
For ii = 0 To UBound(quote)
   quote(ii) = Chr$(quote(ii))
Next
'use join here

[darkforcesjedi]

computers are useless they can only give you answers

Private function ThereIsSpoon() As Boolean
    ThereIsSpoon = (2 = 3)
End Function

[rick_deacha]

Still dont know what is 00100b´s