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..!!
