Senin, 07 Oktober 2013

Aplikasi Bio data mahasiswa menggunakan vb net.

11.55 | Diposting oleh | | Edit Entri












Aplikasi Bio data mahasiswa menggunakan vb net.


1.Coding

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

2.Hasil coding 




| 0 komentar
Langganan: Postingan (Atom)