Latihan_01_46110055

Public Class Latihan_01_46110055

    Private Sub hitung46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110055.Click

        tbg146110055.Text = Val(umur46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

        tbg246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

        tbg346110055.Text = Val(tbg246110055.Text) / Val(tbg146110055.Text) * 100

    End Sub

Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click

        umur46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        tbg146110055.Text = ""

        tbg246110055.Text = ""

        tbg346110055.Text = ""

    End Sub

End Class

Komentar :

1. tbg146110055.Text = Val(umur46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)         ==> Tanda (+) dalam rumus diatas diartikan sebagai penjumlahan dari textbox yang sudah kita buat sebelumnya. Kata (val) yaitu value diartikan untuk menjumlahkan seluruh angka – angka yang telah kita masukkan di dalam textbox yang sudah dibuat sebelumnya
2.  umur46110055.Text = ""  ==> Tanda (“”) yaitu agar data-data yang telah kita masukkan dapat di kosongkan lagi