Latihan_01_36110033

   

Latihan_01_36110033

A.    Object-object dalam Latihan_01_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 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):

  

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

Untuk button2 (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

Button1_36110033.Click

Button2_36110033.Click

D.    Property

Property TextBox ==> ReadOnly=True

       

Prosedur

• Buka Ms. Visual Studio  
• Klik Create Project 
• Ketik nama file yang ingin disimpan
•  Akan terbuka jendela pekerjaan Ms. Visual Studio 
•  Design form dengan menggunakan tools pada toolbox 
• Buat text pada form dengan menggunakan label, sebanyak 9 label. Dengan nama text masing-masing   sebagai berikut:                                                

• TIDAK SADAR SUDAH sebagai judul
• 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 

• Buat kolom sesuai dengan design pada latihan 1 dengan mengguanakan textbox,  sebanyak 8 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk.
• Buat 2 tombol sesuai dengan design pada latihan 1 dengan menggunakan button kemudian namaya diisi dengan button1 dan button2 yang kemudian diikuti stambuk dibelakangnya. Sementara pada Text button diisi dengan Hitung dan Kosongkan Lagi.                    
• Untuk menuliskan rumus button1 (hitung), klik dua kali tombol hitung pada from. Akan muncul from untuk menulis rumus. Adapun rumusnya dapat dituliskan sebagai berikut: 

     Public Class Form1

Private Sub Button1_36110033_Click(ByValsender As System.Object,ByVal e As System.EventArgs)Handles Button1_36110033.Click

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.TextVal(LB_36110033.Text)/Val(UP_36110033.Text)*100             

End Sub   

Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan. 

• Untuk melanjutkan kerumus berikutnya, klik from design dan klik dua kali tombol kosongkan lagi. Kemudian tulis rumus sebagai berikut untuk menjalankan perinta mengosongkan: 

Private Sub Button2_36110033_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button2_36110033.Click

UMUR_36110033.Text = ""

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  

• Uji kembali program untuk mengetahui apakah program ini berjalan atau tidak dengan cara  mengklik Start  Debbuging

• Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data 

• Setelah melaksanakan semua prosedur maka latihan 1selesai.