A. Object-object dalam Latihan_01_36110048 :
1. 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).
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 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.
3. Object Button
Terdapat dua object button (Hitung dan Kosongkan Lagi). Button Hitung digunakan 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 SLPT, 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.
Sedangkan button Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.
B. Script Unique
Untuk button Hitung:
T6_36110048.Text = (Val(T1_36110048.Text) + Val(T2_36110048.Text) + Val(T3_36110048.Text) + Val(T4_36110048.Text) + Val(T5_36110048.Text))
T7_36110048.Text = (Val(T2_36110048.Text) + Val(T3_36110048.Text) + Val(T4_36110048.Text) + Val(T5_36110048.Text))
T8_36110048.Text = ((Val(T6_36110048.Text) / Val(T7_36110048.Text)) * 100)
Untuk button Kosongkan Lagi:
T1_36110048.Text = ""
C. Even
HITUNG_36110048_Click
KOSONG_36110048_Click
D. Property
Property TextBox ==> ReadOnly=True
0 komentar:
Posting Komentar