Latihan_ 01_36110051
Deskripsi & Prosedur
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.
· Prosedur :
1. Buka Ms. Visual
Studio
2. Klik Create
Project
3. Ketik nama file
yang ingin disimpan
4. Akan terbuka
jendela pekerjaan Ms. Visual Studio
6. Buat text pada
form dengan menggunakan label, al:
a.
“TIDAK SADAR SUDAH”
b.
“Umur saya masuk sekolah dasar”
c.
“Lama belajar di sekolah dasar”
d.
“Lama belajar di SLTP”
e.
“Lama belajar di SLTA”
f.
“Lama belajar di Politeknik”
g.
“Umur saya setelah selesai di Politeknik”
h.
“Lama saya belajar”
i.
“Persentase lama belajar terhadap umur saya”
7. Buat kolom
sesuai dengan design pada latihan 1 dengan textbox,
kolom sebanyak 8
a.
Kolom 1 diberi nama “a36110051”
b.
Kolom 2 diberi nama “b36110051”
c.
Kolom 3 diberi nama “c36110051”
d.
Kolom 4 diberi nama “d36110051”
e. Kolom 5 diberi nama
“e36110051”
f. Kolom 6 diberi nama “f46110051”
g. Kolom 7 diberi nama
“g36110051”
h. Kolom 8 diberi nama
“h36110051”
8. Buat tombol sesuai dengan design pada latihan 1
dengan button
a.
Button 1 berisi teks “Hitung” dengan nama “Hitung36110051”
b. Button
2 berisi teks “Kosongkan” dengan nama “Kosong36110051”
Script Unique
·
Untuk Button HITUNG
Public Class Latihan_01_36110051
Private Sub hitung36110051_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hitung36110051.Click
f36110051.Text = Val(a36110051.Text) +
Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) +
Val(e36110051.Text)
g36110051.Text = Val(b36110051.Text) +
Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)
h36110051.Text = Val(g36110051.Text) /
Val(f36110051.Text) * 100
End
Sub
·
Untuk mengosongkan Button
Private Sub kosong36110051_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Kosong36110051.Click
a36110051.Text = ""
b36110051.Text = ""
c36110051.Text = ""
d36110051.Text = ""
e36110051.Text = ""
f36110051.Text = ""
g36110051.Text = ""
h36110051.Text = ""
End Sub
End Class
Even
Hitung36110051_Click
Kosong36110051_Click
Property
Property TextBox ==> ReadOnly=True
9. Uji program untuk mengetahui
apakah program ini berjalan dengan mengklik “Start Debbuging”
10. Jika program berjalan
simpan dengan mengklik “Save”
11. Selesai
Tidak ada komentar:
Posting Komentar