Infrared Schematic Diagram

floor plan

Activity 2

CODE:

Dim RGBValue As IntegerPrivate 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()EndEnd Sub
Private Sub mnuAuthor_Click()frmAuthor.ShowEnd Sub
Private Sub mnuBlue_Click() FrmLucky7.BackColor = RGB(10, 10, 150)End Sub
Private Sub mnuClose_Click()EndEnd 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 = vbRedEnd 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

Activity 1

Code:




Private Sub cmdClick_Click()


Coins.Visible = False
Me.Image1.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
Me.Image1.Visible = True
Beep
End If


End Sub

Private Sub cmdExit_Click()
End
End Sub

Activity 3

Code:

Private Sub VScrol1_Change()Picture1.BackColor = RGB(VScrol1.Value, VScrol2.Value, VScrol3.Value)Label1.Caption = "Red: " & VScrol1.ValueEnd Sub

Private Sub VScrol2_Change()Picture1.BackColor = RGB(VScrolt1.Value, VScrol2.Value, VScrol3.Value)Label2.Caption = "Green: " & VScrol2.ValueEnd Sub

Private Sub VScrol3_Change()Picture1.BackColor = RGB(VScrol1.Value, VScrol2.Value, VScrol3.Value)Label3.Caption = "Blue: " & VScrol3.ValueEnd Sub