Famous Quote?
Famous Quote?
Famous Quote?
Famous Quote?
Famous Quote?
Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote?
Famous Quote? Famous Quote?
Famous Quote?
Go Back  Xtreme Visual Basic Talk > > > Famous Quote?


Reply
 
Thread Tools Display Modes
  #1  
Old 06-04-2004, 10:35 AM
loquin's Avatar
loquinFamous Quote? loquin is offline
Google Hound

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Arizona, USA
Posts: 12,399
Default Famous Quote?


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?

Code:
Randomize Do While Not Succeeded Succeeded = Try() Loop ' ' Private Function Try() as Boolean Try = Rnd > 0.99 End Sub
__________________
Lou
"I have my standards. They may be low, but I have them!" ~ Bette Middler
"It's a book about a Spanish guy called Manual. You should read it." ~ Dilbert
"To understand recursion, you must first understand recursion." ~ unknown

Last edited by loquin; 06-04-2004 at 03:08 PM.
Reply With Quote
  #2  
Old 06-04-2004, 10:41 AM
reboot's Avatar
rebootFamous Quote? reboot is offline
Keeper of foo

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Graceland
Posts: 15,614
Default

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

Last edited by reboot; 06-04-2004 at 11:01 AM.
Reply With Quote
  #3  
Old 06-04-2004, 11:00 AM
reboot's Avatar
rebootFamous Quote? reboot is offline
Keeper of foo

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Graceland
Posts: 15,614
Default

This sounds like fun... I wanna try.
Code:
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 )
Reply With Quote
  #4  
Old 06-04-2004, 11:01 AM
Antariksh's Avatar
Antariksh Antariksh is offline
Centurion
 
Join Date: Aug 2003
Location: Lothlorien
Posts: 167
Default

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

Code:
Dim Desire2Jump As Boolean If Desire2Jump Then DoStuff EndIf ' ' Private Sub DoStuff() frmMain.Eye1.Activate frmMain.Eye2.Activate End Sub

It's very easy...
__________________
Probable Impossibility is better than Impossible Probability
Reply With Quote
  #5  
Old 06-04-2004, 11:04 AM
Bob Schwarz, Sr.'s Avatar
Bob Schwarz, Sr.Famous Quote? Bob Schwarz, Sr. is offline
Just One of the Boys
 
Join Date: May 1998
Location: Aurora, IL, U.S.
Posts: 1,276
Default

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"
__________________
.Net Forum
Reply With Quote
  #6  
Old 06-04-2004, 11:06 AM
OnErr0r's Avatar
OnErr0rFamous Quote? OnErr0r is offline
Obsessive OPtimizer

Administrator
* Guru *
 
Join Date: Jun 2002
Location: Debug Window
Posts: 13,767
Default

A Few Good Men.
Reply With Quote
  #7  
Old 06-04-2004, 11:17 AM
reboot's Avatar
rebootFamous Quote? reboot is offline
Keeper of foo

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Graceland
Posts: 15,614
Default

Gotta make them harder!
Reply With Quote
  #8  
Old 06-04-2004, 11:24 AM
EracMan's Avatar
EracMan EracMan is offline
Junior Contributor
 
Join Date: Mar 2004
Location: L.A. , CA
Posts: 239
Default

Here is a very easy one.

Code:
Dim Time as String Time = "" Time = "" Time = "Charm"

I'll come up with a better one later.
Reply With Quote
  #9  
Old 06-04-2004, 11:31 AM
reboot's Avatar
rebootFamous Quote? reboot is offline
Keeper of foo

Retired Moderator
* Guru *
 
Join Date: Nov 2001
Location: Graceland
Posts: 15,614
Default

Third times a charm
Reply With Quote
  #10  
Old 06-04-2004, 11:38 AM
00100b's Avatar
00100bFamous Quote? 00100b is offline
Martian In Disguise

Retired Moderator
* Guru *
 
Join Date: May 2003
Location: Minneapolis, MN
Posts: 9,566
Default

Code:
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
__________________
The only stupid question is the one that goes un-asked.
Reply With Quote
  #11  
Old 06-04-2004, 11:44 AM
alp0001's Avatar
alp0001Famous Quote? alp0001 is offline
Ultimate Contributor

Retired Moderator
* Expert *
 
Join Date: Jan 2002
Location: Lakemoor, IL
Posts: 2,826
Default

"When in doubt something something"
__________________
Avatar by the very talented member: lebb
Reply With Quote
  #12  
Old 06-04-2004, 11:55 AM
EracMan's Avatar
EracMan EracMan is offline
Junior Contributor
 
Join Date: Mar 2004
Location: L.A. , CA
Posts: 239
Default

"When in doubt, Reboot (Your PC)"?
Reply With Quote
  #13  
Old 06-04-2004, 11:57 AM
alp0001's Avatar
alp0001Famous Quote? alp0001 is offline
Ultimate Contributor

Retired Moderator
* Expert *
 
Join Date: Jan 2002
Location: Lakemoor, IL
Posts: 2,826
Default

Here is an easy one (and I wouldn't code this way normally):
Code:
Dim ltrs As Variant ltrs = Array("I f", "l the n", "d for sp", "d") MsgBox Join(ltrs, "ee")
__________________
Avatar by the very talented member: lebb
Reply With Quote
  #14  
Old 06-04-2004, 11:59 AM
EracMan's Avatar
EracMan EracMan is offline
Junior Contributor
 
Join Date: Mar 2004
Location: L.A. , CA
Posts: 239
Default

"I Feel the need for speed".
Reply With Quote
  #15  
Old 06-04-2004, 12:05 PM
Rockoon's Avatar
Rockoon Rockoon is offline
Joseph Koss

* Guru *
 
Join Date: Aug 2003
Location: Unfashionable End
Posts: 3,615
Default

x = &h2B
Question = x or not x
Reply With Quote
  #16  
Old 06-04-2004, 12:07 PM
rick_deacha's Avatar
rick_deachaFamous Quote? rick_deacha is offline
Ultimate Contributor

Retired Leader
* Expert *
 
Join Date: Feb 2004
Location: Monterrey, Mexico
Posts: 2,179
Default

Quote:
Originally Posted by Rockoon
x = &h2B
Question = x or not x
LOL
To be or not to be
__________________
Rick
Use [vb][/vb] | Refer to VBA or VB | Newbie? run the Macro Recorder
Excel and VB Automation :|: Excel FAQ
Reply With Quote
  #17  
Old 06-04-2004, 12:08 PM
Dennis DVR's Avatar
Dennis DVRFamous Quote? Dennis DVR is offline
Back in the Game

Forum Leader
* Expert *
 
Join Date: Nov 2003
Location: Manila Philippines
Posts: 3,576
Default

to be or not to be
__________________
Avatar by Lebb

[Posting Guidelines] [Standards & Practices Tutorial] [Participate here effectively]
Our knowledge can only be finite, while our ignorance must necessarily be infinite. Karl Popper
Reply With Quote
  #18  
Old 06-04-2004, 12:53 PM
alp0001's Avatar
alp0001Famous Quote? alp0001 is offline
Ultimate Contributor

Retired Moderator
* Expert *
 
Join Date: Jan 2002
Location: Lakemoor, IL
Posts: 2,826
Default

Slightly harder one than my previous:
Code:
'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
__________________
Avatar by the very talented member: lebb
Reply With Quote
  #19  
Old 06-04-2004, 01:02 PM
darkforcesjedi's Avatar
darkforcesjediFamous Quote? darkforcesjedi is offline
Trust me, I'm an

* Expert *
 
Join Date: Apr 2001
Location: In ur base, pwnin d00dz
Posts: 1,964
Default

computers are useless they can only give you answers

Code:
Private function ThereIsSpoon() As Boolean ThereIsSpoon = (2 = 3) End Function
__________________
To err is human; to debug, divine.
Reply With Quote
  #20  
Old 06-04-2004, 01:04 PM
rick_deacha's Avatar
rick_deachaFamous Quote? rick_deacha is offline
Ultimate Contributor

Retired Leader
* Expert *
 
Join Date: Feb 2004
Location: Monterrey, Mexico
Posts: 2,179
Default

Still dont know what is 00100b´s
__________________
Rick
Use [vb][/vb] | Refer to VBA or VB | Newbie? run the Macro Recorder
Excel and VB Automation :|: Excel FAQ
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
Famous Quote?
Famous Quote?
Famous Quote? Famous Quote?
Famous Quote?
Famous Quote?
Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote? Famous Quote?
Famous Quote?
Famous Quote?
 
Famous Quote?
Famous Quote?
 
-->