Contoh
Deskripsi Form Latihan 01
Form Latihan 01 Terdapat tiga object yaitu label,
textbox, dan button:
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
Text Box
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 dua object button (Hitung dan Kosongkan
Lagi). Tombol 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 SLPTm lama belajar di SLTA, dan lama belajar di
Politeknik;
-
Lama saya belajar adalah hasil penjumlahan lama
belajar di sekolah dasar, lama belajar di SLPT, 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 Tombol Kosongkan lagi digunakan untuk
mengosongkan nilai pada semua TextBox.
Script
Unique
Membaca nilai TextBox Lain dan Menempatkan
nilai pada TextBox tertentu
TextBox6.Text
= Val(TextBox1.Text) + Val(TextBox2.Text)
Mengosongkan nilai TextBox
TextBox1.Text
= “”
Even
ButtonClick
Property
Property TextBox ==> ReadOnly=True
