Program Sederhana Menghitung Luas Persegi Panjang VB 2008 Net

Program Sederhana Menghitung Luas Persegi Panjang VB Net

Postingan artikel ini akan membahas tentang Program Sederhana Menghitung Luas Persegi Panjang dengan VB Net 2008.
Sebelumnya kita desain terlebih dahulu formnya seperti ini :

 

Berikut Source Codenya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

        luas.Text = Val(panjang.Text) * Val(lebar.Text)

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click

        luas.Text = ""

        panjang.Text = ""

        lebar.Text = ""

    End Sub

    Private Sub lebar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handleslebar.KeyPress

        If Asc(e.KeyChar) = 13 Then

            hitung_Click(sender, e)

        End If

    End Sub

End Class

Penjelasan singkat Source Code :

 

ketika dijalankan, maka hasilnya akan seperti ini:

Sekian artikel tentang VB Net 2008..

Somoga bermanfaat..!!