· Deskripsi Form
Latihan 03
Form Latihan_03_36110030terdapat tiga object yaitu label,
textbox, dan button:
1.
Object Label
Terdapat
Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah
dasar, lama belajar di Sekolah Dasar; lama belajar di SLTP; lama belajar di
SLTA; lama belajar di 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 Sekolah Dasar; lama belajar di SLTP; lama
belajar di SLTA; lama belajar di Politeknik. Status Read Only digunakan untuk
menampilkan hasil perhitungan umur saya setelah selesai di Politeknik; Lama
saya belajar; Persentase lama Belajar terhadap umur saya.
TextBox Lama
Belajar di Politeknik digunakan sebagai pengganti tombol Hitung yang ada pada
latihan_01_36110030, 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 SLTP; 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.
3.
Object Button
Terdapat
satu object Button (Kosongkan Lagi) yang digunakan untuk mengosongkan nilai
pada semua TextBox.
·
Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada
TextBox tertentu
rivate Sub
lsb36110030_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles lsb36110030.Enter
lsb36110030.Text =
Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) +
Val(lpnup36110030.Text)
End Sub
Mengosongkan
nilai TextBox
usd36110030.Text
= ""dst.
·
Even
·
Private Sub lsb36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles
lsb36110030.Enter
·
lsb36110030.Text =
Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) +
Val(lpnup36110030.Text)
·
End Sub
·
Property
Property
TextBox ==>
ReadOnly=True
PROSEDUR PENYE;ESAIAN LATIHAN 3
A.KLIK add new item untuk membuat form baru
A.KLIK add new item untuk membuat form baru
B.Setelah add new item terbuka kemudian pilih windows form di windows form ketik nama form dan add
C. kemudian desainlah form seperti di bawah ini :
D.kemudian mengganti nama text box seperti
umur saya masuk di sekolah dasar : USD36110030
lama belajar disekolah : LSD36110030
lama belajar di sltp : LSLTP36110030
lama belajar di slta : LSLTA 36110030
lama belajar di PNUP : LPNUP36110030
umur saya setelah selesai di poltek : ULLS36110030
lama saya belajar : LSB36110030
persentase lama belajar terhadp umur say : persen36110030
kosong : kosong
umur saya masuk di sekolah dasar : USD36110030
lama belajar disekolah : LSD36110030
lama belajar di sltp : LSLTP36110030
lama belajar di slta : LSLTA 36110030
lama belajar di PNUP : LPNUP36110030
umur saya setelah selesai di poltek : ULLS36110030
lama saya belajar : LSB36110030
persentase lama belajar terhadp umur say : persen36110030
kosong : kosong
E.lalu masukan rumus seperti ini :
Public Class Form3
Private Sub ulls36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ulls36110030.Enter
ulls36110030.Text = Val(usd36110030.Text) + Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
End Sub
Private Sub lsb36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb36110030.Enter
lsb36110030.Text = Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
End Sub
Private Sub Tpersen36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tpersen36110030.Enter
Tpersen36110030.Text = Val(lsb36110030.Text) / Val(ulls36110030.Text) * 100
End Sub
Private Sub KOSONG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG.Click
usd36110030.Text = ""
lsd36110030.Text = ""
lsltp36110030.Text = ""
lslta36110030.Text = ""
lpnup36110030.Text = ""
ulls36110030.Text = ""
lsb36110030.Text = ""
Tpersen36110030.Text = ""
End Sub
End Class
F . uji program dengan mengklik " star budgetting "
Private Sub ulls36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ulls36110030.Enter
ulls36110030.Text = Val(usd36110030.Text) + Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
End Sub
Private Sub lsb36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb36110030.Enter
lsb36110030.Text = Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
End Sub
Private Sub Tpersen36110030_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tpersen36110030.Enter
Tpersen36110030.Text = Val(lsb36110030.Text) / Val(ulls36110030.Text) * 100
End Sub
Private Sub KOSONG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG.Click
usd36110030.Text = ""
lsd36110030.Text = ""
lsltp36110030.Text = ""
lslta36110030.Text = ""
lpnup36110030.Text = ""
ulls36110030.Text = ""
lsb36110030.Text = ""
Tpersen36110030.Text = ""
End Sub
End Class
F . uji program dengan mengklik " star budgetting "
G. ketika sudah sukses maka save yaa
0 komentar:
Posting Komentar