APLIKASI BIODATA SEDERHANA MENGGUNAKAN VB 2008

      I.        LISTING PROGRAM

Public Class Form1

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

        ComboBoxtgl.Text = "Tgl"

        ComboBoxbln.Text = "Bulan"

        ComboBoxthn.Text = "Tahun"

        ComboBoxAgama.Text = "Agama"

    End Sub

    Private Sub ButtonUlangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUlangi.Click

        'Tombol Ulangi

        TextBoxDepan.Text = ""

        TextBoxBelakang.Text = ""

        TextBoxTempat.Text = ""

        TextBoxAlamat.Text = ""

        TextBoxLain.Text = ""

        ComboBoxtgl.Text = ""

        ComboBoxbln.Text = ""

        ComboBoxthn.Text = ""

        ComboBoxAgama.Text = ""

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        CheckBoxBasic.Checked = False

        CheckBoxC.Checked = False

        CheckBoxCplus.Checked = False

        CheckBoxPhp.Checked = False

        CheckBoxJava.Checked = False

        CheckBoxLain.Checked = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Nama Lengkap

        LabelNama.Text = TextBoxDepan.Text

        LabelBelakang.Text = TextBoxBelakang.Text

        'Tempat Tanggal Lahir

        LabelTtl.Text = TextBoxTempat.Text & "," & ComboBoxtgl.Text & " " & ComboBoxbln.Text & " " & ComboBoxthn.Text

        'Agama

        LabelAgama.Text = ComboBoxAgama.Text

        'Jenis Kelamin

        If RadioButton1.Checked Then

            LabelJK.Text = "Laki-laki"

        ElseIf RadioButton2.Checked Then

            LabelJK.Text = "Perempuan"

        End If

        'Alamat

        LabelAlamat.Text = TextBoxAlamat.Text

        'Pilihan Bahasa Program

        If CheckBoxBasic.Checked Then

            ListBox1.Items.Add("Basic")

        End If

        If CheckBoxC.Checked Then

            ListBox1.Items.Add("C")

        End If

        If CheckBoxCplus.Checked Then

            ListBox1.Items.Add("C++")

        End If

        If CheckBoxPHP.Checked Then

            ListBox1.Items.Add("PHP")

        End If

        If CheckBoxJava.Checked Then

            ListBox1.Items.Add("Java")

        End If

        If CheckBoxLain.Checked Then

            ListBox1.Items.Add = TextBoxLain.Text

        End If

    End Sub

    Private Sub ComboBoxtgl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxtgl.SelectedIndexChanged

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

End Class

    II.        TAMPILAN APLIKASI

Read Full story