deskripsi latihan_03_36110040

Form Latihan_03_36110040 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(5 textbox  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

Terdapat satu object button (Kosongkan lagi)

 Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Terdapat dua object button (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

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

Private Sub BPOLTEK36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPOLTEK36110040.TextChanged

        UPOLTEK36110040.Text = Val(USD36110040.Text) + Val(BSD36110040.Text) + Val(BSLTP36110040.Text) + Val(BSLTA36110040.Text) + Val(BPOLTEK36110040.Text)

        LSB36110040.Text = Val(BSD36110040.Text) + Val(BSLTP36110040.Text) + Val(BSLTA36110040.Text) + Val(BPOLTEK36110040.Text)

        PERSEN36110040.Text = Val(LSB36110040.Text) / Val(UPOLTEK36110040.Text) * 100

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        USD36110040.Text = ""

        BSD36110040.Text = ""

        BSLTP36110040.Text = ""

        BSLTA36110040.Text = ""

        BPOLTEK36110040.Text = ""

        UPOLTEK36110040.Text = ""

        LSB36110040.Text = ""

        PERSEN36110040.Text = ""

    End Sub

End Class

    End Sub

Even

ButtonClick

Property

Property TextBox ==> ReadOnly=True