Sabtu, 02 Februari 2013

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) Handles lebar.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..!! :-)

Tidak ada komentar:
Write komentar