Deskripsi dan Prosedur Latihan_01_36110039

    Deskripsi Latihan_01_36110039

    Terdapat 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.

3.    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 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.
Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

    Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu
upoltek_36110039.Text = Val(usd_36110039.Text) + Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
   lambel_36110039.Text = Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
persen_36110039.Text = Val(lambel_36110039.Text) / Val(upoltek_36110039.Text) * 100

Mengosongkan nilai TextBox
usd_36110039.Text = ""

     Even
ButtonClick

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan latihan_01_36110039:
1.    Klik Start dan pilih Microsoft Visual Studio 2008.


2.    Klik menu file dan pilih New Project.
 
3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
 
4.     Klik menu view dan pilih toolbox.
 
5.    Kemudian pilih object Label dan buat sebanyak 9. Pada properti text masing-masing label, isilah kalimat berikut:
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.
6.    Kemudian pilih object Textbox dan buat sebanyak 5, masing-masing disejajarkan dengan label Umur saya masuk Sekolah Dasar sampai Lama Belajar di Politeknik.
7.    Kemudian pilih object Textbox dan buat sebanyak 3 tetapi properti ReadOnly textbox tersebut diatur menjadi True, masing-masing disejajarkan dengan label Umur Saya setelah selesai di Politeknik sampai Persentase Lama Belajar terhadap Umur Saya.
8.    Kemudian pilih object Button dan buat sebanyak 2. Pada masing-masing properti text isi menjadi Hitung dan Kosongkan Lagi.
9.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
 
10.    Berilah nama pada object Textbox dan Button, isi properti name sesuai dengan nama yang anda inginkan dan nomor stambuk anda pada akhir nama tersebut.
11.    Klik Hitung 2x sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub hitung_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung_36110039.Click
upoltek_36110039.Text = Val(usd_36110039.Text) + Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
lambel_36110039.Text = Val(lbsd_36110039.Text) + Val(lbsltp_36110039.Text) + Val(lbslta_36110039.Text) + Val(lbpoltek_36110039.Text)
persen_36110039.Text = Val(lambel_36110039.Text) / Val(upoltek_36110039.Text) * 100
End Sub

12.    Kembali pada Form1.vb. [design], klik Kosongkan Lagi 2x sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti ini:

Private Sub kosong_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_36110039.Click
usd_36110039.Text = ""
lbsd_36110039.Text = ""
lbsltp_36110039.Text = ""
lbslta_36110039.Text = ""
lbpoltek_36110039.Text = ""
upoltek_36110039.Text = ""
lambel_36110039.Text = ""
persen_36110039.Text = ""
End Sub

13.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol hitung dan kosongkan lagi untuk mengetahui hasilnya.