Latihan 03_36110055

PROSEDUR LATIHAN 3 :

Pada latihan 3 sama prosedurnya dengan latihan 1, yaitu :

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Tulis tesk pada form dengan menggunakan label :

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”

Catatan : g, h, dan i adalah object textbox tetapi property ReadOnly textbox di atur jadi true.

Ø  Lalu buat textbox sebanyak 8 kolom dan isi nama pada properties :

Ø    “UMUR_36110055”

Ø    “SD_36110055”

Ø    “SMP_36110055”

Ø    “SMK_36110055”

Ø    “POLITEKNIK_36110055”

Ø    “X_36110055”

Ø    “X1_36110055”

Ø    “X2_36110055”

Ø  Buat tombol dengan memakai button pada toolbox dan isi nama “Kosongkan lagi” pada property

Tampilannya seperti di bawah ini :

Ø  Setelah itu, kita membuat script :

Public Class Latihan_03_36001155

    Private Sub POLITEKNIK_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles POLITEKNIK_36001155.TextChanged

        X_36001155.Text = Val(UMUR_36001155.Text) + Val(SD_36001155.Text) + Val(SMP_36001155.Text) + Val(SMK_36001155.Text) + Val(POLITEKNIK_36001155.Text)

        X1_36001155.Text = Val(SD_36001155.Text) + Val(SMP_36001155.Text) + Val(SMK_36001155.Text) + Val(POLITEKNIK_36001155.Text)

        X2_36001155.Text = Val(X_36001155.Text) / Val(X1_36001155.Text) * 100

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        UMUR_36001155.Text = ""

        SD_36001155.Text = ""

        SMP_36001155.Text = ""

        SMK_36001155.Text = ""

        POLITEKNIK_36001155.Text = ""

        X_36001155.Text = ""

        X1_36001155.Text = ""

        X2_36001155.Text = ""

    End Sub

End Class