"SCHEMATIC DIAGRAM"

EXERCISE NO. 4

FLOOR PLAN

EXERCISE NO. 3

Private Sub VScrollA_Change()

Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblA.Caption = "Red: " & VScrollA.Value

End Sub

Private Sub VScrollB_Change()Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblB.Caption = "Green: " & VScrollB.Value

End Sub

Private Sub VScrollC_Change()Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblC.Caption = "Blue: " & VScrollC.Value

End Sub

EXERCISE NO. 2

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()

frmAuthor.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

Private Sub mnuClose_Click()
End
End Sub

EXERCISE NO. 1

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

EndIf

End Sub
Private Sub cmdEXIT_Click()

End

End Sub

hmmp...

this song is for my friend..

i really mis him..

Since this is what you wanted
Then I`ll just walk away
You`ll have your time to think of all the things in what you need
When im gone and away
Is this really what you wanted?
Then I will let you go
I`ll be keeping all my fears
Though im drowning in my tears
With a thought
Of a life without you

Chorus:
But if someday you`ll need a friend
I promise I won`t let you down
I`ll be there for you
Right there beside you
I promise

Is this really what you needed?
Then now we`ll say goodbye
All the memories that we`ve shared
Will be running in my head
I`ll be thinking about you
Just thinking about you
(Repeat Chorus)

Bridge:
Coz if one day things don`t feel so right
I am someone you can call
If you feel you`ve no one to turn to I`m here

Coz if this is what you needed
I won`t let you see me cry
And all my sleepless nights
I`ll be waiting for your call
I`ll be dreaming about you
Just dreaming about you
(Repeat Chorus 2x)

MY BLOG ACCOUNT

Hi everyone!!

I'm Angelie Palmero, a BSIT student from SPAMAST, soon to be named as Davao del Sur State College in the year 2010..

I've created this blog 'coz i just love to..!!haha..

Honestly, I've created this 'coz this is one of the requirements of our subject, SOFTWARE ENGINEERING...

I guess that would be all.. Thank you!!!!!!haha...