Latihan_01_46110024

Public Class Latihan_01_46110024

     Private Sub hitung_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung_46110024.Click

      selesai_46110024.Text = Val(umur_46110024.Text) + Val(sd_46110024.Text) + Val(sltp_46110024.Text) + Val(slta_46110024.Text) + Val(poltek_46110024.Text)

        lama_46110024.Text = Val(sd_46110024.Text) + Val(sltp_46110024.Text) + Val(slta_46110024.Text) + Val(poltek_46110024.Text)

        presentase_46110024.Text = Val(lama_46110024.Text) / Val(selesai_46110024.Text) * 100

    End Sub

    Private Sub kosong_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_46110024.Click

        umur_46110024.Text = ""

        sd_46110024.Text = ""

        sltp_46110024.Text = ""

        slta_46110024.Text = ""

        poltek_46110024.Text = ""

        selesai_46110024.Text = ""

        lama_46110024.Text = ""

        presentase_46110024.Text = ""

    End Sub

End Class

KOMENTAR

selesai_46110024.Text = Val(umur_46110024.Text) + Val(sd_46110024.Text) + Val(sltp_46110024.Text) + Val(slta_46110024.Text) + Val(poltek_46110024.Text)

scrift ini berfungsi untuk menjumlahkan text pada semua textbox yang diinginkan, sedangkan penggunaan Val agar perintah tersebut membaca text sebagai number sehingga operasi matematik dapat dijalankan.