- Buat Label untuk Panjang, Lebar dan Hasil. Kemudian buatTextBox nya untuk masing-masing Label
- Buat CommandButton : Luas, Keliling, dan Exit
- Lalu buat kode programnya:
Private Sub Command1_Click()
Text3.Text = (Val(Text1) * Val(Text2))
End Sub
Private Sub Command2_Click()
Text3.Text = ((Val(Text1) + Val(Text2)) * 2)
End Sub
Private Sub Command3_Click()
End
End Sub
- Setelah itu tekan F5 untuk menjalankannya
Tidak ada komentar:
Posting Komentar