Pseudo Code
On button “shake”
click
Generate random number between 1-5
If the random number=1
Display
“Not sure” in label answer
If random number=2
Display
“Ok” in label “answer”
If random number=3
Display
“Yes” in label “answer”
If random number=4
Display
“No” in label “answer”
If random number=5
Display
“Maybe” in label “answer”
Pseudo code is a description on the key aspects of the program. I have chosen to display the "Shake!" button properties (the "yes" "no" and "maybe" answers).
Program Code:
Public Class frmMagic
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub btnShake_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShake.Click
Dim intRandom As Integer
intRandom = Int(Rnd() * 3 + 1)
Select Case intRandom
Case "1"
lblAnswer.Text = "yea cunt"
Case "2"
lblAnswer.Text = "no"
Case "3"
lblAnswer.Text = "maybe"
Case Else
lblAnswer.Text = "ERROR"
End Select
End Sub
End Class
