Latihan 01

Langkah Penyelesaian

Public Class Latihan_01_46110008

    Private Sub hitung_46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung_46110008.Click

        UPOL_46110008.Text = Val(USD_46110008.Text) + Val(LSD_46110008.Text) + Val(LSMP_46110008.Text) + Val(LSMA_46110008.Text) + Val(LPOL_46110008.Text)

        LAMBEL_46110008.Text = Val(LSD_46110008.Text) + Val(LSMP_46110008.Text) + Val(LSMA_46110008.Text) + Val(LPOL_46110008.Text)

        PRESENTASE_46110008.Text = (Val(LAMBEL_46110008.Text) / Val(UPOL_46110008.Text)) * 100

    End Sub

    Private Sub kosong_46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_46110008.Click

        US""D_46110008.Text = ""

        LSD_46110008.Text = ""

        LSMP_46110008.Text = ""

        LSMA_46110008.Text = ""

        LPOL_46110008.Text = ""

        UPOL_46110008.Text = ""

        LAMBEL_46110008.Text = ""

        PRESENTASE_46110008.Text = ""

    End Sub

End Class

Komentar :

1.  UPOL_46110008.Text = Val(USD_46110008.Text) + Val(LSD_46110008.Text) + Val(LSMP_46110008.Text) + Val(LSMA_46110008.Text) + Val(LPOL_46110008.Text)

==> val() berfungsi agar ketika script dijalankan, maka yang terbaca adalah nilai yang tertera di TextBox tersebut. Misal, pada USD_46110008 berisi angka 2, ketika dijumlahkan dengan LSD_46110008 yang bernilai 3 maka akan menghasilkan nilai “23” jika tidak menggunakan Val(). Jika menggunakan Val() maka hasil penjumlahannya adalah “5”, sesuai dengan hasil penjumlah nilainya yaitu “2 + 3 = 5”

2.  USD_46110008.Text = 

==> berfungsi untuk mengosongkan kembali TextBox yang dimaksud. Pada contoh di atas, yang dikosongkan adalah TextBox USD_46110008