A.
Object-object dalam Latihan_03_36110033
:
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
satu object button (Kosongkan Lagi). Button Kosongkan lagi digunakan untuk
mengosongkan nilai pada semua TextBox.
B.
Script Unique
Untuk button Kosongkan Lagi:
UMUR_36110033.Text = ""
SD_36110033.Text = ""
SMP_36110033.Text = ""
SMK_36110033.Text = ""
X_36110033.Text
= ""
UP_36110033.Text = ""
LB_36110033.Text = ""
PB_36110033.Text = ""
C.
Even
Button2_36110033_Click
X_36110033_TextChanged
D.
Property
Property TextBox ==> ReadOnly=True
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,
sebanyak 9 label. Dengan nama text masing-masing sebagai berikut:
o TIDAK SADAR SUDAH sebagai judul
o Umur saya
masuk sekolah dasar
o Lama belajar
di sekolah dasar
o Lama belajar
di SLTP
o Lama belajar
di SLTA
o Lama belajar
di Politeknik
o Umur saya
setelah selesai di Politeknik (Readonlynya
diubah menjadi True)
o Lama saya
belajar (Readonlynya diubah menjadi
True)
o Persentase
lama belajar terhadap umur saya (Readonlynya
diubah menjadi True)
7. Buat kolom
sesuai dengan design pada latihan 03 dengan mengguanakan textbox, sebanyak 8 kolom.
Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor
stambuk. Tiga textbox dari yang
paling akhir readonlynya diuba
menjadi true.
8. Buat 1 tombol sesuai dengan design pada latihan 03
dengan menggunakan button. Kemudian beri nama Button2_36110033 (menggunakan button2
karena kesalahan saat membuat buttonnya 2 padahal Cuma pake satu button) kemudian
textnya diisi dengan Kosongkan Lagi.
9. Untuk
menuliskan rumus pada latihan 03, klik dua kali textbox yang bernama X_36110033
from. Akan muncul lembar kerja untuk menulis rumus. Adapun rumusnya dapat
dituliskan sebagai berikut:
Public Class Latihan_03_36110033
Private SubX_36110033_TextChanged(ByValsenderAs Object,ByValeAsSystem .EventArgs)HandlesX_36110033.TextChanged
UP_36110033.Text=Val(UMUR_36110033.Text)+Val(SD_36110033.Text)+Val(SMP_36110033.Text)+Val(SMK_36110033.Text+Val(X_36110033.Text)
LB_36110033.Text=Val(SD_36110033.Text)+Val(SMP_36110033.Text)+Val(SMK_36110033.Text)+Val(X_36110033.Text)
PB_36110033.Text=Val(LB_36110033.Text)/Val(UP_36110033.Text)*100
End Sub
10. Kemudian di Start Debbuging,
maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan. Untuk
menuliskan rumus pada tombol kosongkan lagi, pelaksanaannya sama dengan
penulisan rumus sebelumnya yaitu kelik dua kali pada tombol kosongkan lagi dan
selanjutnya menuliskan rumusnya. Tujuannya agar dapat mengosongkan lagi apa
yang telah kia tulis sebelumnya dan adapun rumusnya sebagai berikut:
Private Sub
Button2_36110033_Click(ByVal sender AsSystem.Object, ByVal
e As System.EventArgs) Handles
Button2_36110033.Click
UMUR_36110033.Text
= ""
SD_36110033.Text = ""
SMP_36110033.Text = ""
SMK_36110033.Text = ""
X_36110033.Text = ""
UP_36110033.Text = ""
LB_36110033.Text = ""
PB_36110033.Text = ""
End Sub
End Class
11. Uji kembali program untuk mengetahui apakah program
ini berjalan atau tidak dengan cara
mengklik Start Debbuging
12. Jika program berjalan simpan dengan menekan tombol ctrl+s untuk menyimpan data
13. Setelah melaksanakan semua prosedur maka latihan 03 selesai.
Tidak ada komentar:
Posting Komentar