Program Menghitung Luas Kubus

Program Menghitung Luas Kubus adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga Program Menghitung Luas Kubus ini dapat bermanfaat bagi para programer dasar.

Listing Program Menghitung Luas Kubus :

Public Class Form1

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        volume.Text = sisi.Text * sisi.Text * sisi.Text
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sisi.Text = ""
        volume.Text = ""
        sisi.Focus()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub sisi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles sisi.KeyPress
        If Asc(e.KeyChar) = 13 Then
            volume.Text = sisi.Text * sisi.Text * sisi.Text
        End If
    End Sub

End Class

Semoga Program menghitung Luas Kubus diatas dapat bermanfaat bagi para Programer Pemula.