MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG MENGGUNAKAN VB

hay friends ketumu lagi nih!!
kali ini saya  akan membahas tentang bagaimana cara menghitung luas dan keliling persegi panjang

1.buat project dan form baru

 
2.lalu  kita bikin  

 

3.lalu buat codingnya ,

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""


End Sub


Private Sub Command3_Click()
Unload Me
End Sub


Private Sub Form_Activate()
Text5.Text = Time
Text6.Text = Format(Date, "dddd,d yyyy mmmm")
End Sub


ok selesai lalu di RUN .... semoga halaman ini bermanfaat guys....