Sabtu, 07 Desember 2013





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