Project VB Akademik

Assalamu’alaikum.. wr.. wb,

Alhamdulillah kali ini dalam Project VB sudah setahap lebih mantap meskipun masih dalam format yang sederhana dan semoga bermanfaat.

1.Sebagai Langkah awal mari kita buat sebuah Form Design dengan nama “Form Biodata” seperti dibawah ini :

2.Setelah Form Design selesai mari kita buatkan Source Code seperti dibawah ini :

Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isi_combo()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        ComboBox1.Text = " 06 Tekhnik Informatika "

    End Sub

    Sub isi_combo()

        ComboBox1.Items.Add(" 06 Tekhnik Informatika ")

        ComboBox1.Items.Add(" 07 Sistem Informasi ")

        ComboBox1.Items.Add(" 05 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 67 Tekhnik Komputer ")

        ComboBox1.Items.Add(" 26 Management Informatika ")

    End Sub

3. Lalu setelah itu mari kita Running program dengan click F5 dan inilah hasilnya :

4. Langkah berikutnya ialah mengubah Button1 dan Button4 dengan mengetikkan Source Code seperti dibawah ini :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "KELUAR" Then

            Me.Close()

        Else

            Call normal()

            Call bersih()

        End If

    End Sub

    Sub normal()

        Button1.Text = "TAMBAH"

        Button1.Enabled = True

        Button2.Text = "UBAH"

        Button2.Enabled = True

        Button3.Text = "HAPUS"

        Button3.Enabled = True

        Button4.Text = "KELUAR"

    End Sub

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

        If Button1.Text = "TAMBAH" Then

            Button1.Text = "SIMPAN"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "BATAL"

            TextBox1.Focus()

        Else

        End If

    End Sub

End Class

5. Lalu mari kita lihat hasilnya >>

To Be Continued alias Bersambung >>>