Latihan_01_36110052
A. Object-object dalam Latihan_01_36110052 :
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 (Button1 untuk name Hitung dan Button2 untuk name Kosongkan
Lagi). Button1 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
button2 digunakan untuk mengosongkan nilai pada semua TextBox.
B. Script Unique
Untuk button1 (Hitung):
Textbox6_36110052.Text = Val(Textbox1_36110052.Text) + Val(Textbox2_36110052.Text) +Val(Textbox3_36110052.Text) + Val(Textbox4_36110052.Text)+Val(Textbox5_36110052.Text)
Textbox7_36110052.Text = Val(Textbox2_36110052.Text) + Val(Textbox3_36110052.Text) + Val(Textbox4_36110052.Text) + Val(Textbox5_36110052.Text)
Textbox8_36110052.Text = Val(Textbox6_36110052.Text) / Val(Textbox7_36110052.Text) * 100
Untuk button2 (Kosongkan Lagi):
Textbox1_36110052.Text = ""
Textbox2_36110052.Text = ""
Textbox3_36110052.Text = ""
Textbox4_36110052.Text = ""
Textbox5_36110052.Text = ""
Textbox6_36110052.Text = ""
Textbox7_36110052 .Text = ""
Textbox8_36110052.Text = ""
C.
Even
Hitung_36110052.Click
Kosongkanlagi_36110052.Click
D.
Property
Property TextBox ==> ReadOnly=True
Langkah-langkah
Latihan_1_36110052
1.
pilih menu STAR pada toolbar windows kemudian pilih
program Microsoft Visual Studio
2008
2.
Untuk memulai Microsoft
Visual Studio 2008 pilih menu file
new project{lihat gambar
dibawah}
3. Kemudian isi nama sesuai keinginan dan pilih tempat untuk menyimpan
file VB 2008 INi
4. Pertama Kita akan membuat program seperti dibawah ini
1. Untuk
memulai project baru Ketik File à New à Project
Ket : akan muncul NAME yang merupakan nama Project program
dan LOCATION yang merupakan tempat untuk menyimpan program yang akan kita buat
ini diisi sesuai keinginan.
2. Untuk
membuat tulisan diatas, contoh ”TIDAK SADAR SUSAH” menggunakan LABEL yang
berada didalam ToolBox Dan untuk
mengedit tulisannya menggunakan tabel Properties dengan menggunakan klik kanan.
Kita dapat mengikuti perintah ini untuk membuat tulisan yang lain yaitu dengan
menggunakan LABEL.
3. Label
dalam form ini ada 8 (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).
4. Untuk
membuat kotak putih yang berada
disebelah kanan itu menggunakan TEXTBOX yang berada di dalam ToolBox yang
merupakan Object
textbox. terdapat delapan TextBox dan ketiga TextBox yang terakhir , Object
textbox tetapi property ReadOnly textbox tersebut diatur menjadi True.
5. Untuk
membuat object tulisan “Hitung” diatas menggunakan BUTTON begitupun dengan
object ”kosongkan lagi” ini dapat diambil dari ToolBox.
6. Setelah
selesai form, masuk ke lembar Vb dan masukkan scipt
7. Uji program dengan
mengklik “Start Debbuging” dan save program dengan mengklik “Save”.
8. Selesai
Tidak ada komentar:
Posting Komentar