LATIHAN_01_36110042

Deskripsi Form Latihan_01_36110042

Form Latihan 01 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 dua object button, yaitu:

1.   Hitung è Button1 = HITUNG_36110042

Tombol Hitung 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 SLPTm lama belajar di SLTA, dan lama belajar di Politeknik.

-          Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLPTm 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

2.   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

HITUNG_36110042_Click

KOSONGKAN_36110042_Click

Property

Property Textbox è ReadOnly = True

Langkah-langkah mengerjakan LATIHAN 01:

1.    Klik start , Buka Ms. Visual Studio 2008

2.    Klik Create Project

3.    Ketik nama file  yang diinginkan & location yang diinginkan untuk dsimpan kemudian klik OK.

4.     Kemudian akan tebuka jendela pekerjaan untuk Ms. Visual Studio 2008.

5.    Mengerjakan LATIHAN 01 dengan terlebih dahulu membuat form design sesuai dengan tugas LATIHAN 01.

6.    Membuat text pada form dengan menggunakan label:

a.    “TIDAK SADAR SUDAH”

b.    “Umur saya Masuk Sekolah Dasar”

c.     “Lama Belajar di SLTP”

d.    “Lama Belajar di SLTA”

e.    “Lama Belajar di Politeknik”

f.     “Umur Saya setelah selesai di Politeknik”

g.     “Lama Saya Belajar”

h.     “Persentase lama Belajar terhadap Umur saya”

7.     Membuat textbox sebanyak 5:

a.    Textbox 1 diberi nama “UMUR_36110042”

b.    Textbox 2 diberi nama “SD_36110042”

c.     Textbox 3 diberi nama “SLTP_36110042”

d.    Textbox 4 diberi nama “SLTA_36110042”

e.    Texbox 5 diberi nama “PNUP_36110042”

8.    Membuat textbox sebanyak 3 tetapi property ReadOnly textbox tersebut diatur menjadi True.

a.    Textbox 1 diberi nama “UMURSELESAI_36110042”

b.    Textbox 2 diberi nama “LAMABELAJAR_36110042”

c.     Textbox 3 diberi nama “PERSENTASE_36110042”

9.     Membuat text pada form dengan object button:

a.    “Hitung” dengan nama “HITUNG_36110042”

b.    “Kosongkan lagi” dengan nama “KOSONGKAN_36110042”

10.   Setelah form selesai seperti pada gambar di bawah ini:

11.  Kemudian double klik pada button “Hitung”, lalu akan muncul jendela Script, dan rumus untuk mengerjakan LATIHAN 01 adalah:

Public Class Latihan_01_36110042

    Private Sub HITUNG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG_36110042.Click

        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.