Latihan_03_46110038

Deskripsi Form Latihan_03_46110038:

Form Latihan_03_46110038 terdapat 3 object yaitu label, textbox, dan button.

Object Label

Di Latihan_03_46110038 ada 9 label yang berisi teks tidak sadar sudah, umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik, umur saya setelah selesai di Politeknik, lama saya belajar, persentase lama belajar terhadap umur saya.

Object Text Box

Di Latihan_03_46110038 ada 8 textbox, 5 status input dan 3 status read only. Status input digunakan untuk memasukkan nilai: umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik. Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik, lama saya belajar, persentase lama belajar terhadap umur saya.

Object Button

Di Latihan_03_46110038 ada 1 buah button yaitu Kosongkan Lagi. Button Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique

Untuk button Kosongkan Lagi:

Umur_46110038.Text = ""

Even

Textchanged.

Cara Membuat Form Latihan_03_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_03_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_03_46110038

    Private Sub mama46110038_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles mama46110038.Enter

        mama46110038.Text = Val(umur46110038.Text) + Val(SD46110038.Text) + Val(SLTP46110038.Text) + Val(SLTA46110038.Text) + Val(POLTEK46110038.Text)

    End Sub

    Private Sub mimi46110038_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles mimi46110038.Enter

        mimi46110038.Text = Val(SD46110038.Text) + Val(SLTP46110038.Text) + Val(SLTA46110038.Text) + Val(POLTEK46110038.Text)

    End Sub

    Private Sub mami46110038_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles mami46110038.Enter

        mami46110038.Text = Val(mama46110038.Text) / Val(mimi46110038.Text) * 100

    End Sub

    Private Sub lagi46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lagi46110038.Click

        umur46110038.Text = ""

        SD46110038.Text = ""

        SLTP46110038.Text = ""

        SLTA46110038.Text = ""

        POLTEK46110038.Text = ""

        mama46110038.Text = ""

        mimi46110038.Text = ""

        mami46110038.Text = ""

    End Sub

End Class

Langkah untuk menjalankan Latihan_03_46110038:

1.  Klik start debugging.

2.  Isi textbox yang berstatus input.

3.  Tekan tombol Tab untuk menapilkan hasil setelah menginput textbox yang tersedia.