Latihan_03_36110029

v    Deskripsi Latihan_03_36110029

 Object Label

Terdapat sembilan label (yang bertuliskan tidak sadar sudah, umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik, umur saya setelah selesai di Politeknik, lama saya belajar, persentase lama belajar terhadap umur saya).

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 SD; SLTP; SLTA; Politeknik. Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik, lama saya belajar, persentase lama belajar terhadap umur saya.

 Object Button

Terdapat satu object button (Kosongkan Lagi). Button Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

 Script Unique

Untuk button Kosongkan Lagi:

Umur_36110029.Text = ""

Even

Button2_36110029_Click

Umur_36110029_TextChanged

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_03_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

1.      Setelah format untuk Latihan_03_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code.

Public Class Latihan_03_36110029      Private Sub POLTEK_36110029_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles POLTEK_36110029.TextChanged USSP_36110029.Text = Val(UMUR_36110029.Text) + Val(SD_36110029.Text) + Val(SLTP_36110029.Text) + Val(SLTA_36110029.Text) + Val(POLTEK_36110029.Text) LSB_36110029.Text = Val(SD_36110029.Text) + Val(SLTP_36110029.Text) + Val(SLTA_36110029.Text) + Val(POLTEK_36110029.Text) PERSEN_36110029.Text = Val(LSB_36110029.Text) / Val(USSP_36110029.Text) * 100  End Sub Private Sub Button2_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_36110029.Click UMUR_36110029.Text = "" SD_36110029.Text = "" SLTP_36110029.Text = "" SLTA_36110029.Text = "" POLTEK_36110029.Text = "" USSP_36110029.Text = "" LSB_36110029.Text = "" PERSEN_36110029.Text = "" End Sub End Class

- -Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.