LATIHAN_03_36110042

Deskripsi Form Latihan_03_36110042

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

a.   Object Label

Terdapat Sembilan label yang bertuliskan, sbb:

1.    TIDAK SADAR SUDAH

2.    Umur Saya Masuk Sekolah Dasar

3.    Lama Belajar di Sekolah Dasar

4.     Lama Belajar di SLTP

5.    Lama Belajar di SLTA

6.    Lama Belajar di Politeknik

7.     Umur Saya setelah selesai di Politeknik

8.    Lama Saya Belajar

9.     Persentase lama Belajar terhadap Umur Saya

b.  Object Textbox

Terdapat Delapan Textbox ( lima status input, tiga status ReadOnly). Status input digunakan untuk memasukkan  nilai:

1.    Umur Saya Masuk Sekolah Dasar è Textbox1 = UMUR_36110042

2.    Lama Belajar di Sekolah Dasar è Texboxt2 = SD_36110042

3.    Lama Belajar di SLTP è Textboxt3 SLTP_36110042

4.     Lama Belajar di SLTA è Textbox4 = SLTA_36110042

5.    Lama Belajar di Politeknik. è Textbox5 = PNUP_36110042

Status ReadOnly digunakan untuk menampilkan hasil perhitungan:

1.    Umur Saya setelah selesai di Politeknik è Textboxt6 = UMURSELESAI_36110042

2.    Lama Saya Belajar è Textboxt7 = LAMABELAJAR_36110042

3.    Persentase lama Belajar terhadap Umur Saya è Textbox8 = PERSENTASE_36110042

c.  Object Button

Terdapat satu object button, yaitu:

1.   Kosongkan Lagi è Button2 = KOSONGKAN_36110042

Tombol Kosongkan Lagi digunakan untuk mengosongkan nilai pada semua textbox.

Sricpt Unique

1.    Membaca nilai Textbox Lain dan menempatkan nilai pada Textbox tertentu

UMURSELESAI_36110042.Text = Val(UMUR_36110042.Text) + Val(SD_36110042.Text) + Val(SLTP_36110042.Text) + Val(SLTA_36110042.Text) + Val(PNUP_36110042.Text)

LAMABELAJAR_36110042.Text = Val(SD_36110042.Text) + Val(SLTP_36110042.Text) + Val(SLTA_36110042.Text) + Val(PNUP_36110042.Text)

PERSENTASE_36110042.Text = Val(LAMABELAJAR_36110042.Text) / Val(UMURSELESAI_36110042.Text) * 100

2.    Mengosongkan Nilai Textbox

UMUR_36110042.Text = ""

SD_36110042.Text = ""

SLTP_36110042.Text = ""

SLTA_36110042.Text = ""

PNUP_36110042.Text = ""

LAMABELAJAR_36110042.Text = ""

UMURSELESAI_36110042.Text = ""

PERSENTASE_36110042.Text = ""

Even

PNUP_36110042_TextChanged

KOSONGKAN_36110042_Click

Property

Property Textbox è ReadOnly = True

Langkah-langkah mengerjakan LATIHAN 03

1.    Klik Add New Item, lalu muncul jendela Add New Item pilih templates Windows Form dan beri nama LATIHAN 03 kemudian klik Add, maka akan muncul jendela script dengan nama LATIHAN 03.

2.    Membuka form design LATIHAN 01 dan copy form designnya ke LATIHAN 03, tetapi button “HITUNG” di delete, seperti pada gambar dibawah ini.

3.    Rumus untuk menyelesaikan Latihan di atas tanpa menggunakan button “hitung” adalah:

Double klik pada textbox “PNUP_36110042” untuk memunculkan ketiga textbox setelahnya, rumusnya adalah sbb:

 Public Class Latihan_03_36110042

    Private Sub PNUP_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PNUP_36110042.TextChanged

        UMURSELESAI_36110042.Text = Val(UMUR_36110042.Text) + Val(SD_36110042.Text) + Val(SLTP_36110042.Text) + Val(SLTA_36110042.Text) + Val(PNUP_36110042.Text)

        LAMABELAJAR_36110042.Text = Val(SD_36110042.Text) + Val(SLTP_36110042.Text) + Val(SLTA_36110042.Text) + Val(PNUP_36110042.Text)

        PERSENTASE_36110042.Text = Val(LAMABELAJAR_36110042.Text) / Val(UMURSELESAI_36110042.Text) * 100

    End Sub

    Private Sub KOSONGKAN_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONGKAN_36110042.Click

        UMUR_36110042.Text = ""

        SD_36110042.Text = ""

        SLTP_36110042.Text = ""

        SLTA_36110042.Text = ""

        PNUP_36110042.Text = ""

        LAMABELAJAR_36110042.Text = ""

        UMURSELESAI_36110042.Text = ""

        PERSENTASE_36110042.Text = ""

    End Sub

End Class

Untuk memulai menjalankan aplikasi yang telah dikerjakan, klik ikon Start Debugging.