Public Class Form1
Private Sub btn_keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_keluar.Click
End
End Sub
Private Sub btn_proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_proses.Click
volume.Text = sisi.Text * sisi.Text *
sisi.Text
End Sub
Private Sub btn_hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_hapus.Click
volume.Text = ""
sisi.Text = ""
End Sub
End Class
Sumber : Esra
Handayani
Tidak ada komentar:
Posting Komentar