Latihan_03_36110038

Deskripsi Latihan_03_36110038

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; SLTP; SLTA; 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; SLTP; SLTA; Politeknik. Rumus perhitungan dituliskan di balik textbox dengan even yang sesuai. 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 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.

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) yang digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique 

·         Button "Kosongkan Lagi" (button1_36110038)
       text1_36110038.Text = ""

   text2_36110038.Text = ""

   text3_36110038.Text = ""

   text4_36110038.Text = ""

   text5_36110038.Text = ""

   text6_36110038.Text = ""

   text7_36110038.Text = ""

   text8_36110038.Text = ""   

Even

Button1_36110038.Click

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.klik star lalu pilih Microsoft Visual Studio 2008

2. pilih file => new => project

3. isi name dan location pada kolom yang disiapkan lalu OK

4. buat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox

5. ganti nama textbox dan button menggunakan "Properties Window"

6. Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_03

Public Class Latihan_03_36110038

    Private Sub text1_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text1_36110038.TextChanged

        text6_36110038.Text = Val(text1_36110038.Text) + Val(text2_36110038.Text) + Val(text3_36110038.Text) + Val(text4_36110038.Text) + Val(text5_36110038.Text)

        text7_36110038.Text = Val(text6_36110038.Text) - Val(text1_36110038.Text)

        text8_36110038.Text = Val(text7_36110038.Text) / Val(text6_36110038.Text) * 100

    End Sub

    Private Sub text2_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text2_36110038.TextChanged

        text6_36110038.Text = Val(text1_36110038.Text) + Val(text2_36110038.Text) + Val(text3_36110038.Text) + Val(text4_36110038.Text) + Val(text5_36110038.Text)

        text7_36110038.Text = Val(text6_36110038.Text) - Val(text1_36110038.Text)

        text8_36110038.Text = Val(text7_36110038.Text) / Val(text6_36110038.Text) * 100

    End Sub

    Private Sub text3_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text3_36110038.TextChanged

        text6_36110038.Text = Val(text1_36110038.Text) + Val(text2_36110038.Text) + Val(text3_36110038.Text) + Val(text4_36110038.Text) + Val(text5_36110038.Text)

        text7_36110038.Text = Val(text6_36110038.Text) - Val(text1_36110038.Text)

        text8_36110038.Text = Val(text7_36110038.Text) / Val(text6_36110038.Text) * 100

    End Sub

    Private Sub text4_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text4_36110038.TextChanged

        text6_36110038.Text = Val(text1_36110038.Text) + Val(text2_36110038.Text) + Val(text3_36110038.Text) + Val(text4_36110038.Text) + Val(text5_36110038.Text)

        text7_36110038.Text = Val(text6_36110038.Text) - Val(text1_36110038.Text)

        text8_36110038.Text = Val(text7_36110038.Text) / Val(text6_36110038.Text) * 100

    End Sub

    Private Sub text5_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text5_36110038.TextChanged

        text6_36110038.Text = Val(text1_36110038.Text) + Val(text2_36110038.Text) + Val(text3_36110038.Text) + Val(text4_36110038.Text) + Val(text5_36110038.Text)

        text7_36110038.Text = Val(text6_36110038.Text) - Val(text1_36110038.Text)

        text8_36110038.Text = Val(text7_36110038.Text) / Val(text6_36110038.Text) * 100

    End Sub

    Private Sub Button1_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110038.Click

        text1_36110038.Text = ""

        text2_36110038.Text = ""

        text3_36110038.Text = ""

        text4_36110038.Text = ""

        text5_36110038.Text = ""

        text6_36110038.Text = ""

        text7_36110038.Text = ""

        text8_36110038.Text = ""

    End Sub

End Class

7. Tekan F5 pada keyboard untuk menjalankan form.