"SCHEMATIC DIAGRAM"

"FLOORPLAN"

Get One At - Friendster Comments

EXERCISE 2: "THE LUCKY SEVEN WITH MENU EDITOR"

OUTPUT ABOUT THE AUTHOR

EXERCISE 2: "THE LUCKY SEVEN WITH MENU EDITOR"

OUTPUTS

EXERCISE 2: "THE LUCKY SEVEN WITH MENU EDITOR"

Dim RGBValue As Integer

Private Sub cmdT1_Click()
COINS1.Visible = False

lblT1.Caption = Int(Rnd * 10)
LBLT2.Caption = Int(Rnd * 10)
LBLT3.Caption = Int(Rnd * 10)

If (lblT1.Caption = 7) Or (LBLT2.Caption = 7) Or (LBLT3.Caption = 7) Then
COINS1.Visible = True
Beep
End If
End Sub

Private Sub cmdT2_Click()
End
End Sub

Private Sub Form_Load()
Label3.Caption = Date
Label4.Caption = Time

End Sub

Private Sub mnuAuthor_Click()
FRM3.Show
FRM2.Hide
End Sub

Private Sub mnuBlue_Click()
FRM2.BackColor = RGB(10, 10, 150)
End Sub


Private Sub mnuClose_Click()
End
End Sub


Private Sub mnuGreen_Click()
FRM2.BackColor = RGB(10, 150, 10)
End Sub
Private Sub Label1_DblClick()
FRM3.Hide
FRM2.Show
End Sub


Private Sub mnuOrange_Click()
FRM2.BackColor = RGB(255, 121, 0)
End Sub

Private Sub mnuPink_Click()
FRM2.BackColor = RGB(255, 201, 255)
End Sub

Private Sub mnuRed_Click()
FRM2.BackColor = RGB(255, 0, 0)
End Sub

Private Sub mnuViolet_Click()
FRM2.BackColor = RGB(99, 0, 86)
End Sub

Private Sub mnuYellow_Click()
FRM2.BackColor = RGB(255, 255, 0)
End Sub

Private Sub Label1_DblClick()
FRM3.Hide
FRM2.Show
End Sub

EXERCISE 3: "COLOR MAKING"

Private Sub VScrollT1_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTR.Caption = "Red: " & VScrollT1.Value
End Sub

Private Sub VScrollT2_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTG.Caption = "Green: " & VScrollT2.Value
End Sub

Private Sub VScrollT3_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTB.Caption = "Blue: " & VScrollT3.Value
End Sub

Private Sub Form_Load()
Label3.Caption = Date
Label4.Caption = Time

End Sub

EXERCISE 1: "THE LUCKY SEVEN"

Dim RGBValue As Integer

Private Sub cmdT1_Click()
COINS1.Visible = False

lblT1.Caption = Int(Rnd * 10)
LBLT2.Caption = Int(Rnd * 10)
LBLT3.Caption = Int(Rnd * 10)

If (lblT1.Caption = 7) Or (LBLT2.Caption = 7) Or (LBLT3.Caption = 7) Then
COINS1.Visible = True
Beep
End If
End Sub

Private Sub cmdT2_Click()
End
End Sub

Private Sub Form_Load()
Label3.Caption = Date
Label4.Caption = Time

End Sub

Private Sub mnuAuthor_Click()
FRM3.Show
FRM2.Hide
End Sub