Deskripsi Penyelesaian Latihan_03_36110041

Deskripsi Penyelesaian

Latihan_03_36110041

A.     Form Latihan_03 terdapat tiga object yaitu Label, Textbox, dan Button:

Ø  Object Label

Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di SD; lama belajar di SLTP; lama belajar di SLTA; lama belajar di Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya) 

Ø  Object Text Box

Terdapat delapan textbox (lima status input; tiga status read only). Status input digunakan untuk memasukkan nilai; umur saya masuk sekolah dasar, lama belajar di SD; lama belajar di SLTP; lama belajar di SLTA; lama belajar di 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

Terdapat satu object button (Kosongkan Lagi). Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

B.     Script Unique 

Untuk Buttom "Kosongkan Lagi"
        R1_36110041.Text = ""

        R2_36110041.Text = ""

        R3_36110041.Text = ""

        R4_36110041.Text = ""

        R5_36110041.Text = ""

        R6_36110041.Text = ""

        R7_36110041.Text = ""

        R8_36110041.Text = ""

C.     Even

R6_36110041_Enter

R7_36110041_Enter

R8_36110041_Enter

B2_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.       Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_03_36110041

    Private Sub R6_36110041_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles R6_36110041.Enter

        R6_36110041.Text = Val(R1_36110041.Text) + Val(R2_36110041.Text) + Val(R3_36110041.Text) + Val(R4_36110041.Text) + Val(R5_36110041.Text)

    End Sub

    Private Sub R7_36110041_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles R7_36110041.Enter

        R7_36110041.Text = Val(R2_36110041.Text) + Val(R3_36110041.Text) + Val(R4_36110041.Text) + Val(R5_36110041.Text)

    End Sub

    Private Sub R8_36110041_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles R8_36110041.Enter

        R8_36110041.Text = Val(R7_36110041.Text) / Val(R6_36110041.Text) * 100

    End Sub

    Private Sub B2_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2_36110041.Click

        R1_36110041.Text = ""

        R2_36110041.Text = ""

        R3_36110041.Text = ""

        R4_36110041.Text = ""

        R5_36110041.Text = ""

        R6_36110041.Text = ""

        R7_36110041.Text = ""

        R8_36110041.Text = ""

    End Sub

End Class