• Home
 · 
• Miscellaneous
 · 
• Enhancement to existing code entitled Just something fun to do.

Enhancement to existing code entitled Just something fun to do.

Enhancement to existing code entitled "Just something fun to do."

Rate Enhancement to existing code entitled Just something fun to do.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'command buttons.  Have fun!

Private Sub Command1_Click()

'ALWAYS DOCUMENT YOUR CODE!

'*************************************************
'* This routine is a variation on the old novelty*
'* executive decision maker which, when shaken,  *
'* would return a random answer to any question! *
'*                    Have Fun!                  *
'*************************************************

Repeat: 'This label allows the "Random Generator"
        'to be called recursively, if necessary, to
        'avoid duplicate answers
    
    Randomize 're-seed the "Random Number Generator"
    
    'Use variable names that mean something!  Don't
    'just copy the "Microsoft Examples" and paste them
    'in without some reason for doing so...
    DecisionValue% = Int((6 * Rnd) + 1)
    
    'Select Case is a better choice in lieu of an "IF"
    'block here.  As you can see, I use much less code
    'to accomplish the same task.
    Select Case DecisionValue%
        Case 1
             LblAnswer = "Not today!"
             BackGroundColor% = 12
        Case 2
             LblAnswer = "Definately!"
             BackGroundColor% = 10
        Case 3
             LblAnswer = "Not today!"
             BackGroundColor% = 12
        Case 4
             LblAnswer = "Yes!"
             BackGroundColor% = 10
        Case 5
             LblAnswer = "No!"
             BackGroundColor% = 12
        Case 6
             LblAnswer = "My sources say maybe!"
             BackGroundColor% = 14
    End Select
    
    'This "IF" block makes sure it's never the same
    'answer twice in a row
    If LblAnswer = Label1.Caption Then 'if the same
        GoTo Repeat ' do over
    Else 'otherwise
        Label1.Caption = LblAnswer ' show the new answer
        Form1.BackColor = QBColor(BackGroundColor%) 'change the color
    End If
    
    'This one is unecessary!
    '*********************
    '*MyValue = Lblanswer*
    '*********************
    
    '   Last, but certainly not least, check your
    'spelling!  It's a sure mark of and inexperienced
    'programmer and, besides, it will make consumers
    'hesitant to rely on your applications, programmers
    'on your code, and any future customers on your products!
    
End Sub

Private Sub Command2_Click()

    'end the program
    End

End Sub

Private Sub Form_Load()

'Set up your default values here
Label1.Caption = "Ask a question..."

'set up some fun stuff like this timer...
Timer1.Interval = 1000 'about a second

End Sub

Private Sub Timer1_Timer()

    'when the timer fires, alternate the "Command"
    'button text
    If Command1.Caption = "Ask a question..." Then
        Command1.Caption = "...then click here!"
    Else
        Command1.Caption = "Ask a question..."
    End If
    
End Sub