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
















>