Home » Archives » February 2010
code
February 24, 2010Public Class Form1
Private Sub Lblgender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lblgender.Click
End Sub
Private Sub Cbgender_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbgender.SelectedIndexChanged
If Cbgender.Text = “Male” Then
Pb2.Visible = False
Pb1.Visible = True
Else
Cbgender.Text = “Female”
Pb1.Visible = False
Pb2.Visible = True
End If
Cbhobbies.Visible = True
Lblhobbies.Visible = True
Cbhobbies.Enabled = True
End Sub
Private Sub Cbhobbies_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbhobbies.SelectedIndexChanged
If Cbhobbies.Text = “Swimming” Then
Pb3.Visible = True
Pb4.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Basketball” Then
Pb4.Visible = True
Pb3.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Football” Then
Pb4.Visible = False
Pb3.Visible = False
Pb5.Visible = True
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Reading Book” Then
Pb6.Visible = True
Pb3.Visible = False
Pb5.Visible = False
Pb4.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Badminton” Then
Pb7.Visible = True
Pb3.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb4.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Texting” Then
Pb4.Visible = False
Pb3.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = True
Pb9.Visible = False
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
ElseIf Cbhobbies.Text = “Shopping” Then
Pb4.Visible = False
Pb3.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = True
Pb10.Visible = False
Lblcourse.Visible = True
Cbcourse.Visible = True
Cbcourse.Enabled = True
Else : Cbhobbies.Text = “Soundtrip”
Pb10.Visible = True
Pb3.Visible = False
Pb5.Visible = False
Pb6.Visible = False
Pb7.Visible = False
Pb8.Visible = False
Pb9.Visible = False
Pb4.Visible = False
End If
Cbcourse.Enabled = True
Lblcourse.Visible = True
Cbcourse.Visible = True
End Sub
Private Sub Cbcourse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbcourse.SelectedIndexChanged
If Cbcourse.Text = “Computer Science” Then
Pb11.Visible = True
Pb12.Visible = False
Pb13.Visible = False
Pb14.Visible = False
Pb15.Visible = False
ElseIf Cbcourse.Text = “Criminology” Then
Pb12.Visible = True
Pb11.Visible = False
Pb13.Visible = False
Pb14.Visible = False
Pb15.Visible = False
ElseIf Cbcourse.Text = “Education” Then
Pb13.Visible = True
Pb12.Visible = False
Pb11.Visible = False
Pb14.Visible = False
Pb15.Visible = False
ElseIf Cbcourse.Text = “Hotel & Restaurant Management” Then
Pb14.Visible = True
Pb12.Visible = False
Pb13.Visible = False
Pb11.Visible = False
Pb15.Visible = False
ElseIf Cbcourse.Text = “Business Administration” Then
Pb15.Visible = True
Pb12.Visible = False
Pb13.Visible = False
Pb14.Visible = False
Pb11.Visible = False
End If
End Sub
Private Sub Btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncancel.Click
Me.Close()
End Sub
Private Sub Btnproceed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproceed.Click
If Txtfirstname.Text = “” Then
MsgBox(”Please enter your firstname”)
ElseIf Txtlastname.Text = “” Then
MsgBox(”Please enter your lastname”)
Else
Lblwelcome.Text = “Welcome ” & Txtfirstname.Text & “” & Txtlastname.Text
Lblwelcome.Visible = True
Cbgender.Visible = True
Cbcourse.Visible = False
Cbhobbies.Enabled = False
Cbcourse.Visible = False
Lblgender.Visible = True
Lblhobbies.Visible = False
Lblcourse.Visible = False
Lblfirstname.Visible = False
Lbllastname.Visible = False
Btnproceed.Enabled = False
Txtfirstname.Visible = False
Txtlastname.Visible = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
vasquez
February 8, 2010
Analie D.Vasquez
Brgy.Yabton Ilaya Ivisan Capiz
Mobile No. 09305359456
E-mail:Cutiegurlann@yahoo.com
OBJECTIVES: To enhance my skills and to develop my abilities as an individual.
PERSONAL DATA :
Date of birth: August 10, 1992
Sex: Female
Age: 18
Height: 5’3
Weight: 50 kl’s.
Religion: Roman Catholic
Civil status: Single
Citizenship: Filipino
Language : English, Tagalog, and Hiligaynon
EDUCATIONAL BACKGROUD:
College : Hercor College (2008-2010)
Course : Bachelor of Science in Computer Science (Ladderized)
SKILLS:
Computer Literate
- Microsoft Office Word
- Microsoft Office PowerPoint
- Microsoft Office Excel
- Microsoft Web Expression
- Microsoft Office Publisher
- Internet
EXPERIENCE:
NC II Assessment Exam (Pass)
- M/S Word
- M/S PowerPoint
- M/S Excel
- Internet
REFERENCES:
Netaly D. Casimero
Dean of Computer Education Department
Hercor College, Lawa-an CampusContact
No. 6216-896
Rexel Rose Tolentino
Instructor (Computer Education Department)
Hercor College, Lawa-an Campus
Contact No. 6216-896
Mrs. Melba S. Polonan
Teacher (Aralin Panlipunan)
Capiz national high School
Rocreh Web Design
February 5, 2010” class=”align-left” />Finally it’s my time to participate this contest if I really not so expert of this field of contest, because this my first time to join this kind of contest and I will try all of my best to one of the top contestant of this contest if I not blessed to win or even one of the top contestant of this contest I’m just try my ability to participate of this contest.
This is the first and ever SEO contest on this school and I’m sure this contest will be given a some knowledge and idea to all the student that have a web blog and to all the contestant on how to opitimized of her/his bog and how to bookmark and how to blog commenting and how to link building to have a high rangking on google.com.
This contest is was started on January 19, 2009, and will be end this coming IT Week of computer Department, and this contest is have a keyword Rocreh WEb Design. All entries should have a visible link back to the sponsor anywhere on the post entry. The contest sponsored by Affordable Web Design.
Prizes for Top 3 Ranking
1st Prize
P1,500.00 cash
plus WEBSITE (1 year domain registration for .com + hosting)
2nd Prize
P1,00.00 cash
plus WEBSITE (1 year domain registration for .info only + hosting)
3rd Prize
P800.00 cash
plus WEBSITE (1 year domain registration for .info only + hosting)
” class=”align-left” />
” class=”align-left” />


