code

Public 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

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

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