1. Langkah-langkah penyelesaian
Public Class Latihan_03_46110007
Private Sub TBG146110007_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TBG146110007.Enter
TBG146110007.Text =
Val(TB146110007.Text) + Val(TB246110007.Text) + Val(TB346110007.Text) +
Val(TB446110007.Text) + Val(TB546110007.Text)
End Sub
Private Sub TBG246110007_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TBG246110007.Enter
TBG246110007.Text =
Val(TB246110007.Text) + Val(TB346110007.Text) + Val(TB446110007.Text) +
Val(TB546110007.Text)
End Sub
Private Sub TBG346110007_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TBG346110007.Enter
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
Pada dasarnya script ini bertujuan sama dengan script pada
latihan 01, yang berbeda terdapat pada script yang awalnya berada pada tombol
hitung latihan 01 dipindahkan dibalik textbox yang menyajikan hasil
perhitungan.
Private Sub TBG246110007_Enter(ByVal sender As
Object, ByVal e As System.EventArgs) Handles TBG246110007.Enter
Penggunaan
enter pada sript ini bertujuan menyajikan hasil perhitungan pada textbox yang
akan menyajikan hasil perhitungan dengan menekan tombol ENTER atau TAB.
Posting Komentar