Latihan_01_46110038

Deskripsi Form Latihan_01_46110038:

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

Object Label

Di Latihan_01_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, dan Persentase lama Belajar terhadap umur saya.

Object Text Box

Di Latihan_01_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_01_46110038 ada 2 buah button yaitu Hitung dan Kosongkan Lagi. 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 SLPT lama belajar di SLTA, dan lama belajar di Politeknik;

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

Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique

    Private Sub ermai038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ermai46110038.Click

        ermaf46110038.Text = Val(ermaa46110038.Text) + Val(ermab46110038.Text) + Val(ermac46110038.Text) + Val(ermad46110038.Text) + Val(ermae46110038.Text)

        ermag46110038.Text = Val(ermab46110038.Text) + Val(ermac46110038.Text) + Val(ermad46110038.Text) + Val(ermae46110038.Text)

        ermah46110038.Text = ermaf46110038.Text / ermag46110038.Text * 100

Property

Property TextBox ==> ReadOnly=True

Even

Click

Cara Membuat Form Latihan_01_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_01_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_01_46110038

    Private Sub ermai038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ermai46110038.Click

        ermaf46110038.Text = Val(ermaa46110038.Text) + Val(ermab46110038.Text) + Val(ermac46110038.Text) + Val(ermad46110038.Text) + Val(ermae46110038.Text)

        ermag46110038.Text = Val(ermab46110038.Text) + Val(ermac46110038.Text) + Val(ermad46110038.Text) + Val(ermae46110038.Text)

        ermah46110038.Text = ermaf46110038.Text / ermag46110038.Text * 100

    End Sub

    Private Sub ermaj038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ermaj46110038.Click

        ermaa46110038.Text = ""

        ermab46110038.Text = ""

        ermac46110038.Text = ""

        ermad46110038.Text = ""

        ermae46110038.Text = ""

        ermaf46110038.Text = ""

        ermag46110038.Text = ""

        ermah46110038.Text = ""

    End Sub

End Class

Langkah untuk menjalankan Latihan_01_46110038:

1.  Klik start debugging.

2.  Isi semua textbox yang berstatus input.

3.  Untuk menampilkan hasilnya klik Hitung, untuk mengosongkan lagi klik Kosongkan Lagi.