latihan_03_36110031

Tahap Penyelesaian Latihan_03_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_03 dan add. seperti pada gambar dibawah:

 

4.      Buat Form dibawah ini yang dimana Latihan_03 ini terdiri dari 3 object, yaitu Label, TextBox, dan Button. Seperti pada gambar dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_03_36110031

    Private Sub TextBox6_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UMUR_36110031.Enter

        UMUR_36110031.Text = Val(MASUK_36110031.Text) + Val(SD_36110031.Text) + Val(SLTP_36110031.Text) + Val(SLTA_36110031.Text) + Val(POLI_36110031.Text)

    End Sub

    Private Sub LAMA_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAMA_36110031.Enter

        LAMA_36110031.Text = Val(SD_36110031.Text) + Val(SLTP_36110031.Text) + Val(SLTA_36110031.Text) + Val(POLI_36110031.Text)

    End Sub

    Private Sub PERSENTASE_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERSENTASE_36110031.Enter

        PERSENTASE_36110031.Text = Val(LAMA_36110031.Text) / Val(UMUR_36110031.Text) * 100

    End Sub

    Private Sub Button1_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110031.Click

        MASUK_36110031.Text = ""

        SD_36110031.Text = ""

        SLTP_36110031.Text = ""

        SLTA_36110031.Text = ""

        POLI_36110031.Text = ""

        UMUR_36110031.Text = ""

        LAMA_36110031.Text = ""

        PERSENTASE_36110031.Text = ""

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

Deskripsi Latihan_03_36110031

 A.  Form Latihan 03 terdapat tiga object yaitu label, textbox, dan button

-        Object Label

Terdapat Sembilan Label ( yang bertuliskan Tidak sadar sudah, Umur saya masuk SD, Lama belajar di SD, Lama belajar di SLTP, Lama belajar di SLTA, Lama belajar di Politeknik, Umur saya setelah selesai di Politeknik, Lama saya belajar, dan Persentase lama belajar terhadap umur saya)

-        Object Textbox

Terdapat Delapan TextBox diantara nya lima status input dan tiga status ReadOnly. Status input digunakan untuk memasukkan nilai Umur saya masuk SD, Lama belajar di SD, Lama belajar di SLTP, Lama belajar di SLTA, Lama belajar di Politeknik,dan status ReadOnly digunakan untuk menampilkan hasil perhitungan Umur saya setelah selesai di Politeknik, Lama saya belajar, dan Persentase lama belajar terhadap umur saya.

-        Object Button

Terdapat satu Object Button yaitu Kosongkan lagi, dimana tombol ini digunakan untuk mengosongkan nilai-nilai pada TextBox.

B.      Script Unique

Untuk botton Kosongkan Lagi:

MASUK_36110031.Text = ""

C.   Even

Button1_36110031_Click

UMUR_36110031_TextChanged

LAMA_36110031_TextChanged

PERSENTASE_36110031_TextChanged

D.     Property

Property TextBox è ReadOnly = True