1. Langkah-langkah penyelesaian
Public Class Latihan_01_46110007
Private Sub HITUNG46110007_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles HITUNG46110007.Click
TBG146110007.Text =
Val(TB146110007.Text) + Val(TB246110007.Text) + Val(TB346110007.Text) +
Val(TB446110007.Text) + Val(TB546110007.Text)
TBG246110007.Text =
Val(TB246110007.Text) + Val(TB346110007.Text) + Val(TB446110007.Text) +
Val(TB546110007.Text)
TBG346110007.Text =
Val(TBG246110007.Text) / Val(TBG146110007.Text) * 100
End Sub
Private Sub KOSONGKAN46110007_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles KOSONGKAN46110007.Click
TB146110007.Text = ""
TB246110007.Text = ""
TB346110007.Text = ""
TB446110007.Text = ""
TB546110007.Text = ""
TBG146110007.Text = ""
TBG246110007.Text = ""
TBG346110007.Text = ""
End Sub
End Class
2. Komentar
TBG146110007.Text = Val(TB146110007.Text) +
Val(TB246110007.Text) + Val(TB346110007.Text) + Val(TB446110007.Text) +
Val(TB546110007.Text)
Script ini bertujuan untuk
menjumlahkan isi dari setiap textbox yang diinginkan. Penggunaan “Val” dalam
sript ini bertujuan untuk membaca data sebagai number bukan karakter (string).
TB146110007.Text = ""
Scribt ini bertujuan untuk
mengosongkan / menormalkan kembali textbox yang diinginkan.
Posting Komentar