Latihan_01_46110045

Public Class Latihan_01_46110045

    Private Sub hit46110045_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hit46110045.Click
        tbt646110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text) + Val(tbt346110045.Text) + Val(tbt446110045.Text) + Val(tbt546110045.Text)
        tbt746110045.Text = Val(tbt246110045.Text) + Val(tbt346110045.Text) + Val(tbt446110045.Text) + Val(tbt546110045.Text)
        tbt8346110045.Text = Val(tbt746110045.Text) / Val(tbt646110045.Text) * 100
    End Sub

    Private Sub koslag46110045_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles koslag46110045.Click
        tbt146110045.Text = ""
        tbt246110045.Text = ""
        tbt346110045.Text = ""
        tbt446110045.Text = ""
        tbt546110045.Text = ""
        tbt646110045.Text = ""
        tbt746110045.Text = ""
        tbt8346110045.Text = ""
    
End Sub








Komentar : tanda + dalam rumus diatas diartikan sebagai penjumlahan dari textbox yang ada, sementara kata "val" artinya value yang berarti menjumlahkan seluruh angka-angka yang kita masukkan ke dalam textbox yang sudah dibuat. untuk tanda " " sendiri maksudnya adalah agar data-data yang kita masukkan dapat dikosongkan lagi.