LATIHAN 03

Deskripsi latihan_03_36110043

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. Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya. 

RUMUS PERHITUNGANNYA :

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

Object Button

Terdapat satu object button Kosongkan Lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

T6_36110043.Text = (Val(T1_36110043.Text) + Val(T2_36110043.Text)

Mengosongkan nilai TextBox

T1_36110043.Text = ""

T2_36110043.Text = ""

Even

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah latihan 3  

• Klik Add New Item, > pilih templates Windows Form dan beri nama LATIHAN_03_36110043 kemudian klik Add, maka akan muncul Form LATIHAN_03_36110043.
• Dibawah ini adalah Design Form yang akan dibuat..

• Gunakan object Label, TextBox dan Button
• Beri nama setiap object yang dibuat kecuali Label

1. Nama Object TextBoxnya :

1.    Umur Saya Masuk Sekolah Dasar  = T1_36110043

2.    Lama Belajar di Sekolah Dasar  = T2_36110043

3.    Lama Belajar di SLTP = T3_36110043

4.     Lama Belajar di SLTA  = T4_36110043

5.    Lama Belajar di Politeknik.  = T5_36110043

6.  Umur Saya setelah selesai di Politeknik  = T6_36110043

7.    Lama Saya Belajar  = T7_36110043

                  8.  Persentase lama Belajar terhadap Umur Saya  = T8_36110043
    2.  Nama Object Label :
                        Kosongkan Lagi = KOSONG_36110043

Tombol Kosongkan Lagi digunakan untuk mengosongkan nilai pada semua textbox.

• setelah selesai klik2x untuk memunculkan lembaran SCRIPTnya
• ketik SCRIPT di bawah ini...

   

Public Class Latihan_03_36110043

    Private Sub T1_36110043_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T1_36110043.TextChanged

        T6_36110043.Text = (Val(T1_36110043.Text) + Val(T2_36110043.Text) + Val(T3_36110043.Text) + Val(T4_36110043.Text) + Val(T5_36110043.Text))

    End Sub

    Private Sub T2_36110043_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T2_36110043.TextChanged, T3_36110043.TextChanged, T4_36110043.TextChanged, T5_36110043.TextChanged

        T6_36110043.Text = (Val(T1_36110043.Text) + Val(T2_36110043.Text) + Val(T3_36110043.Text) + Val(T4_36110043.Text) + Val(T5_36110043.Text))

        T7_36110043.Text = (Val(T2_36110043.Text) + Val(T3_36110043.Text) + Val(T4_36110043.Text) + Val(T5_36110043.Text))

    End Sub

    Private Sub T6_36110043_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T6_36110043.TextChanged, T7_36110043.TextChanged

        T8_36110043.Text = ((Val(T6_36110043.Text) / Val(T7_36110043.Text)) * 100)

    End Sub

    Private Sub KOSONG_36110043_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG_36110043.Click

        T1_36110043.Text = ""

        T2_36110043.Text = ""

        T3_36110043.Text = ""

        T4_36110043.Text = ""

        T5_36110043.Text = ""

        T6_36110043.Text = ""

        T7_36110043.Text = ""

        T8_36110043.Text = ""

    End Sub

    Private Sub Latihan_03_36110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

•   save dan untuk memulai menjalankan aplikasi yang telah dikerjakan ini  klik ikon Start Debugging