Infrared Schematic Diagram

SPAMAST-CAS Admin Floor Plan

Activity 1

Code:


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

Activity 2

Output:

Code:

Dim RGBValue As Integer

Private Sub cmdCLICK_Click()
Coins.Visible = False
labelA.Caption = Int(Rnd * 10)
labelB.Caption = Int(Rnd * 10)
labelC.Caption = Int(Rnd * 10)
If (labelA.Caption = 7) Or (labelB.Caption = 7) Or (labelC.Caption = 7) Then
Coins.Visible = True
Beep
End If
End Sub

Private Sub cmdEXIT_Click()
End
End Sub

Private Sub mnuAuthor_Click()
frmDesign.Show
End Sub

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

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

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

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

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

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

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

Activity 3

Output

Code:

Private Sub VScrollFirst_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelred.Caption = "Red: " & VScrollFirst.Value
End Sub

Private Sub VScrollSecond_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelgreen.Caption = "Green: " & VScrollSecond.Value
End Sub

Private Sub VScrollThird_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelblue.Caption = "Blue: " & VScrollThird.Value
End Sub

A man who dares to waste one hour of time has not discovered the value of life.

One of My favoRitE Song (Unchanging Love)

Unchanging Love

Can Anyone love you like I do
It must have been fate that brought you here
A dream come true
No other love can make me feel this way
No other love for me but you

So now, __
Forever will be, you and me
With a song and our prayer
Our biggest fears __
So we can love eternally

There were days you won't believe
That I was meant for you and you for me
Time has come to make our hearts one
I found the love and now our life has begun
Life has begun

Unchanging Love, like a song
It can never change the way I feel
Every love song brings you back to me
With you in my heart
We can start a journey
To our destiny we'll see
That conquers all when you're with me
We can make it with unchanging love

You are the one that heaven sent to me
We are one heart, one soul, will always be
I'll love you more I did before
The day you walked into my life
Now our love today takes flight

There were days you won't believe
That I was meant for you and you for me
The time has come to make our hearts one
I found the love and now our life has begun
Life has begun

Unchanging Love, like a song
It can never change the way I feel
Every love song brings you back to me
With you in my heart
We can start a journey

To our destiny we'll see
That conquers all when you're with me
We can make it with unchanging love

You are what's best in me
We're strong
We've had it all when we're together
If you can show your love
We can make it and show them all
Forever and ever and ever

Unchanging Love, like a song
It can never change the way I feel
Every love song brings you back to me
With you in my heart
We can start a journey
To our destiny we'll see
That conquers all when you're with me
We can make it with unchanging love