Infrared Schematic Diagram

SPAMAST-CAS Admin Floor Plan

Project_exercise#3

Private Sub VScroltiny_Change()

Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label1.Caption = "Red: " & VScroltiny.Value

End Sub

Private Sub VScrolminnie_Change()
Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label2.Caption = "Green: " & VScrolminnie.Value
End Sub

Private Sub VScroltinnie_Change()
Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label3.Caption = "Blue: " & VScroltinnie.Value
End Sub

Project_exercise#2

Dim RGBValue As Integer

Private Sub cmdClick_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 cmdExit_Click()
End
End Sub

Private Sub mnuAuthor_Click()
frmAuthor.Show
End Sub

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

Private Sub mnuClose_Click()
End
End Sub

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

Private Sub mnuOrange_Click()
FrmLucky7.BackColor = RGB(199, 95, 0)
End Sub

Private Sub mnuPink_Click()
FrmLucky7.BackColor = RGB(238, 63, 95
End Sub

Private Sub mnuRed_Click()
FrmLucky7.BackColor = RGB(150, 12, 10)
End Sub

Private Sub mnuViolet_Click()
FrmLucky7.BackColor = RGB(192, 36, 192)
End Sub

Private Sub mnuYellow_Click()
FrmLucky7.BackColor = RGB(255, 204, 26)
End Sub

Project_exercise#1

Private Sub cmdClick_Click()
Coins.Visible = False
lblA.Caption = Int(Rnd * 10) lblB.Caption = Int(Rnd * 10) lblC.Caption = Int(Rnd * 10) If (lblA.Caption = 7) Or (lblB.Caption = 7) Or (lblC.Caption = 7) Then

Coins.Visible = True
Beep

End If
End Sub

Private Sub cmdExit_Click()
End
End Sub