Latihan 01_36110055

PROSEDUR LATIHAN 1 :

Ø  Klik star baru cari Microsoft Visual Studio 2008, “Klik 2 kali”.

Ø  Klik “File” > new  > pilih “Project”.

Ø  Ganti nama, pilih lokasi dimana kita mau simpan baru “Ok”

Ø  Muncullah form1.vb

Ø  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 dengan nama :

v    “Hitung”

v    “Kosongkan lagi”

Tampilannya seperti di bawah ini :

Ø  Setelah itu, kita membuat script :

Public Class Latihan_01_36001155

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

        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