Pages

Kamis, 07 April 2011

MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG


  1. Buat Label untuk Panjang, Lebar dan Hasil. Kemudian buat 
     TextBox nya untuk masing-masing Label
  2. Buat CommandButton : Luas, Keliling, dan Exit
  3. 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
  1. Setelah itu tekan F5 untuk menjalankannya

Tidak ada komentar:

Posting Komentar