"Schematic Diagram of Infrared"

Floor Plan

Activity 3 "Output"

Activity 3 "Interface and Codes"

Private Sub VScrollRed_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label1.Caption = "Red: " & VScrollRed.Value

End Sub

Private Sub VScrollGreen_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label2.Caption = "Green: " & VScrollGreen.Value

End Sub

Private Sub VScrollBlue_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label3.Caption = "Blue: " & VScrollBlue.Value

End Sub

Activity 2 "Output"

Activity 2 "Interface and Codes"

Private Sub Image2_Click()
End
End Sub

Private Sub Label4_Click()
frmsEvEn.Show
Me.Hide
End Sub

Dim RGBValue As Integer

Private Sub Image1_Click()
End
End Sub

Private Sub Image2_Click()
Coins.Visible = False

lbl1.Caption = Int(Rnd * 10)
lbl2.Caption = Int(Rnd * 10)
lbl3.Caption = Int(Rnd * 10)

If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.Caption = 7) Then
Coins.Visible = True
Beep

End If
End Sub

Private Sub mnuAuthor_Click()
frmMae.Show
Me.Hide
End Sub

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

Private Sub mnuClose_Click()
End
End Sub

Private Sub mnuGreen_Click()
frmsEvEn.BackColor = RGB(10, 150, 10)
End Sub


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

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

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

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

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

Activity 1 "Output"