Latihan_01_46110009

Deskripsi

  

.     Form Latihan_01 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 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 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.

Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

B.     Script Unique 

Untuk Buttom "Hitung"

TBG146110009.Text = Val(TBT146110009.Text) + Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)
        TBG246110009.Text = Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)
        TBG346110009.Text = Val(TBG246110009.Text) / Val(TBG146110009.Text) * 100

Untuk Buttom "Kosongkan Lagi"       TBT146110009.Text = ""
        TBT246110009.Text = ""
        TBT346110009.Text = ""
        TBT446110009.Text = ""
        TBT546110009.Text = ""
        TBG146110009.Text = ""
        TBG246110009.Text = ""
        TBG346110009.Text = ""

C.     Even

HITUNG_36110041_Click

KOSONG_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Rumus

      Public Class Latihan_01_46110009
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TBG146110009.Text = Val(TBT146110009.Text) + Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)
        TBG246110009.Text = Val(TBT246110009.Text) + Val(TBT346110009.Text) + Val(TBT446110009.Text) + Val(TBT546110009.Text)
        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