Latihan_01_46110043

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lulus46110043.Text = Val(balita46110043.Text) + Val(sd46110043.Text) + Val(sma46110043.Text) + Val(sma46110043.Text) + Val(poltek46110043.Text)
        lama46110043.Text = Val(sd46110043.Text) + Val(sma46110043.Text) + Val(sma46110043.Text) + Val(poltek46110043.Text)
        persen46110043.Text = Val(lama46110043.Text) / Val(lulus46110043.Text) * 100
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        balita46110043.Text = ""
        sd46110043.Text = ""
        smp46110043.Text = ""
        sma46110043.Text = ""
        poltek46110043.Text = ""
        lulus46110043.Text = ""
        lama46110043.Text = ""
        persen46110043.Text = ""
    End Sub
End Class

Komentar :

* Pada Latihan 01 diatas ketika kita mengklik tombol HITUNG maka kolom yang ingin jumlahkan akan muncul pada kolom gelap. Penggunaan fungsi Val yaitu untuk menjumlahkan angka yang terdapat pada kolom terang agar tidak hanya berupa penggabungan angka.

* Untuk mengosongkan texbox kita hanya mengklik tombol HILANGKAN LAGI maka semua angka yang telah di input akan kembali hilang