Latihan_03_46110009

Gambar Latihan 3

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"         

           TBT146110009.Text = ""
        TBT246110009.Text = ""
        TBT346110009.Text = ""
        TBT446110009.Text = ""
        TBT546110009.Text = ""
        TBG146110009.Text = ""
        TBG246110009.Text = ""
        TBG346110009.Text = ""

D.     Property

Property TextBox ==> ReadOnly=True

Rumus

       Public Class Latihan_03_46110009

  Private Sub TBG146110009_TextChanged(ByVal sender As System.Object, ByVal e As                  System.EventArgs) Handles TBG146110009.TextChanged
        TBG146110009.Text = Val(TBT146110009.Text) + Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)

    End Sub

    Private Sub TBG246110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBG246110009.TextChanged
        TBG246110009.Text = Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)
    End Sub

    Private Sub TBG346110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBG346110009.TextChanged
        TBG346110009.Text = Val(TBG246110009.Text) / Val(TBG146110009.Text) * 100
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TBT146110009.Text = ""
        TBT246110009.Text = ""
        TBT346110009.Text = ""
        TBT446110009.Text = ""
        TBT546110009.Text = ""
        TBG146110009.Text = ""
        TBG246110009.Text = ""
        TBG346110009.Text = ""
    End Sub
End Class