Visual basic for CSL 2-E

Private Sub btnmhoroscope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmhoroscope.Click

lblzsign.Visible = True
txtzsign.Visible = True
lbllcolor.Visible = True
txtlcolor.Visible = True
lbllday.Visible = True
txtllday.Visible = True
lbllnumber.Visible = True
txtlnumber.Visible = True


txtfname.Enabled = False
txtlname.Enabled = False
cmbage.Enabled = False
cmbday.Enabled = False
cmbgender.Enabled = False
cmbmonth.Enabled = False
cmbyr.Enabled = False


If cmbmonth.Text = "January" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Aquarius"
txtlcolor.Text = "Red"
txtlnumber.Text = "10,18, &32"
txtllday.Text = "Monday"

ElseIf cmbmonth.Text = "February" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Cancer"
txtlcolor.Text = "Apple Green"
txtlnumber.Text = "24,36 & 14"
txtllday.Text = "Tuesday"

ElseIf cmbmonth.Text = "March" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Gemini"
txtlcolor.Text = "Orange"
txtlnumber.Text = "19,28 & 35"
txtllday.Text = "Wednesday"

ElseIf cmbmonth.Text = "April" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Taurus"
txtlcolor.Text = "Black"
txtlnumber.Text = "17,16 & 27"
txtllday.Text = "Thursday"

ElseIf cmbmonth.Text = "May" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Aries"
txtlcolor.Text = "Brown"
txtlnumber.Text = "31,24 & 13"
txtllday.Text = "Friday"

ElseIf cmbmonth.Text = "June" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Scorpio"
txtlcolor.Text = "White"
txtlnumber.Text = "28,34 & 18"
txtllday.Text = "Monday"

ElseIf cmbmonth.Text = "July" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Libra"
txtlcolor.Text = "Blue"
txtlnumber.Text = "58,14 & 69"
txtllday.Text = "Tuesday"

ElseIf cmbmonth.Text = "August" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Virgo"
txtlcolor.Text = "Pink"
txtlnumber.Text = "1,15 & 29 "
txtllday.Text = "Wednesday"

ElseIf cmbmonth.Text = "September" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Leo"
txtlcolor.Text = "Gray"
txtlnumber.Text = "24,36 & 34"
txtllday.Text = "Thursday"

ElseIf cmbmonth.Text = "October" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Pisces"
txtlcolor.Text = "Yellow Green"
txtlnumber.Text = "22,26 & 34"
txtllday.Text = "Friday"

ElseIf cmbmonth.Text = "November" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Capricorn"
txtlcolor.Text = "Violet"
txtlnumber.Text = "14,12 & 9"
txtllday.Text = "Saturday"

ElseIf cmbmonth.Text = "December" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Sagittarius"
txtlcolor.Text = "Sky Blue"
txtlnumber.Text = "8,10 & 24"
txtllday.Text = "Sunday"

End If

End Sub

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

lblzsign.Visible = False
txtzsign.Visible = False
lbllcolor.Visible = False
txtlcolor.Visible = False
lbllday.Visible = False
txtllday.Visible = False
lbllnumber.Visible = False
txtlnumber.Visible = False

txtfname.Text = " "
txtlname.Text = " "
cmbage.Text = " "
cmbday.Text = " "
cmbgender.Text = " "
cmbmonth.Text = " "
cmbyr.Text = " "

txtfname.Enabled = True
txtlname.Enabled = True
cmbage.Enabled = True
cmbday.Enabled = True
cmbgender.Enabled = True
cmbmonth.Enabled = True
cmbyr.Enabled = True

txtzsign.Text = " "
txtlcolor.Text = " "
txtllday.Text = " "
txtlnumber.Text = " "
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Me.Close()
End Sub

End Class

Pbb double task video

The House B housemates makes a funny video inside the house of big brother. As you can see this video its make laugh to you. It is hard for them to do but they want the people outside and all over the world whose watching this video will be happy.

Angel Locsin in Emmy Award with her 1m Gown

Angel Locsin was confirmed to wear a expensive gown in the Emmy Award for nominating a best actress in the Lobo Teleserye. Her gown worth 1 million peso. Angel’s 1m worth gown was designed with a lot of beads and swarovski jewels. It it a sponsored gown for her to wear it in the Emmy’s Award Night. In other words she did not spend money for her fabulous dress.

“The Lesson that to be Learned”

I stand before you today for a reason that every one of us should be reminded. Be reminded regarding our behavior toward our beloved mother earth. We heard and watch from the news how typhoon Ondoy and Pepeng destroy homes, kill lives and left but nothing. Many of our brethren are in so much pain and in great sorrow if how can they start into then normal lives again. We cannot pinpoint anybody if who is the caused for everything that happened, because every one of us is accountable, every one of us are blamable. For this reason, you, me, and all of us, enough of this hall should be responsive enough for Mother Earth.

God bought everything for us in good and in most perfect way. He made it sure that everything he made will work so well. But people abused and destroy what was perfectly made by God; that’s why this tragedy exists. From the tragedy we experienced, I hope from now on, we will learn our lessons and will know what to do. It will not be a tremendous flood if all of us know the word DISCIPLINE. If we have a discipline in ourselves this tragedy will not be bad as it is.