Deskripsi dan Prosedur Latihan_03_36110039

     Deskripsi Form Latihan_03_36110039 

Terdapat tiga object yaitu label, textbox, dan button:
1.    Object Label
Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di Sekolah Dasar; lama belajar di SLTP; lama belajar di SLTA; lama belajar di Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya)

2.    Object TextBox
Terdapat delapan textbox (lima status input; tiga status read only). Status input digunakan untuk memasukkan nilai umur saya masuk sekolah dasar; lama belajar di Sekolah Dasar; lama belajar di SLTP; lama belajar di SLTA; lama belajar di Politeknik. Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya.
TextBox Lama Belajar di Politeknik digunakan sebagai pengganti tombol Hitung yang ada pada latihan_01_36110039, untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Rumus perhitungannya adalah:
-          Umur saya setelah selesai di Politeknik merupakan hasil penjumlahan Umur saya masuk sekolah
            dasar; lama belajar di sekolah dasar, lama belajar di SLTP; lama belajar di SLTA, dan lama belajar
            di Politeknik;
-          Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLTP,
           lama belajar di SLTA, dan lama belajar di Politeknik;
-          Persentase lama belajar terhadap umur saya adalah lama saya belajar dibagi umur saya setelah
            selesai di politeknik dikali 100.

3.    Object Button
Terdapat satu object Button (Kosongkan Lagi) yang digunakan untuk mengosongkan nilai pada semua TextBox.

     Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu
upoltek_36110039.Text = Val(usd_36110039.Text) + Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)

Mengosongkan nilai TextBox
usd_36110039.Text = ""

     Even
lbpoltek_36110039_TextChanged
kosong_36110039_Click

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_03_36110039:

1.    Klik icon Add New Item.
       
2.    Pada kolom Categories dan Templates klik Windows Forms, isi kolom name dengan
       Latihan_03_36110039.vb,  kemudian pilih add.
      

3.    Buka Latihan_01_36110039.vb [design] dan copy semua object Label, Textbox, dan Button yang ada
       didalamnya ke Latihan_03_36110039.vb [design].

4.    Hapus object Button Hitung.

5.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


6.  Klik 2x textbox Lama Belajar di Politeknik sehingga muncul perintah berikutnya dan masukkan rumus,
     contohnya seperti ini:

Private Sub lbpoltek_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbpoltek_36110039.TextChanged
upoltek_36110039.Text = Val(usd_36110039.Text) + Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
lambel_36110039.Text = Val(lbsd_36110039.Text) +  Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
persen_36110039.Text = Val(lambel_36110039.Text) /  Val(upoltek_36110039.Text) * 100
End Sub

7. Kembali pada Latihan_03_36110039.vb [design], klik Kosongkan Lagi 2x sehingga muncul perintah
    berikutnya dan masukkan rumus, contohnya seperti ini:

Private Sub kosong_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_36110039.Click
       usd_36110039.Text = ""
        lbsd_36110039.Text = ""
        lbsltp_36110039.Text = ""
        lbslta_36110039.Text = ""
        lbpoltek_36110039.Text = ""
        upoltek_36110039.Text = ""
        lambel_36110039.Text = ""
        persen_36110039.Text = ""
       End Sub

8.    Klik menu Project pilih Kumpulan_Latihan_03_36110039. Pada Startup Form pilih
       Latihan_03_36110039 lalu close.
      

10.  Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon
       Start Debugging dan isi kolom yang perlu diisi dan klik tombol Kosongkan Lagi untuk mengetahui
       fungsinya.