Praktikum 5.

1. Desain dari form dan kontrol lainnya sebagai berikut :

2. Setting dari masing-masing kontrol sebagai berikut :

       Silahkan berkresi sendiri
       Dengan Catatan :
          - Labelnya  berindex


3. Pertama kali pada general, deklarasikan variabel dengan tipe data yang dibuat sendiri seperti berikut  ini:

 Dim Data As Data_Karyawan
 Private Type Data_Karyawan
       NIK                As String * 5
       NAMA            As String * 30
       ALAMAT        As String * 50
       KOTA             As String * 50
       TGL_LAHIR   As Date
       JML_ANAK    As Byte
  End Type

4. Buat even Click untuk ketiga tombol command Button, Seperti berikut ini :

    Private Sub Cmd_Tampil_Click()
        Call Isi_Data
        Call Tampil_Data
        Call Bersih
     End Sub


     Private Sub Cmd_Bersih_Click()
       Call Bersih
      End Sub

     Private Sub Cmd_Keluar_Click()
          End
     End Sub

5. Buat Prosedur Isi_Data untuk memasukkan data dari kontrol yang ada diform ke dalam variabel yang sudah dibuat, seperti berikut ini :


   Sub Isi_Data()
             Data.NIK = Txt_NIK.Text
             Data.NAMA = Txt_Nama.Text
             Data.ALAMAT = Txt_Alamat.Text
             Data.KOTA = Txt_Kota.Text
             Data.TGL_LAHIR = Txt_Lahir.Text
             Data.JML_ANAK = Txt_Anak.Text
    End Sub

6. Buat prosedur Tampil_Data untuk meanmpilkan data ke kotak pesan (MsgBox) dari data yang ada di variabel, seperti berikut ini :

    Sub Tampil_Data()
    MsgBox "INFORMASI DATA KARYAWAN :" & Chr(10) & _
                     "NIK                 :" & Data.NIK & Chr(10) & _
                     "Nama               :" & Data.NAMA & Chr(10) & _
                     "Alamat             :" & Data.ALAMAT & Chr(10) & _
                     "Kota                :" & Data.KOTA & Chr(10) & _
                     "Tgl.Lahir         :" & Data.TGL_LAHIR & Chr(10) & _
                     "Jumlah Anak    :" & Data.JML_ANAK
     End Sub


7. Buat prosedur bersih untuk membersihkan kotak isian, seperti berikut ini :

      Sub Bersih()
            Txt_NIK.Text = ""
            Txt_Nama.Text = ""
            Txt_Alamat.Text = ""
            Txt_Kota.Text = ""
            Txt_Lahir.Text = ""
            Txt_Anak.Text = ""
       End Sub


8. Sekarang jalankan programnya dan isi textbox yang ada dan lanjutkan klik tombol tampil.