Portal Informatika | Sharing Tugas | Sharing Aplikasi | Sharing Informasi tentang Teknologi dan Aplikasi

Selasa, 16 Oktober 2012

APLIKASI BIODATA SEDERHANA MENGGUNAKAN VB 2008

Posted by Unknown On 19.32 1 comment


      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


1 komentar:

cara membuat biodata ktp nya gimna bang,,,

Posting Komentar