Latihan 4

LATIHAN 4

Object	Propertis	Ket
TextBox1	Name	txtpanjang
	Text	Dihapus/dikosongkan
TextBox2	Name	txtlebar
	Text	Dihapus/dikosongkan
TextBox3	Name	txtluas
	Text	Dihapus/dikosongkan
TextBox4	Name	txtkel
	Text	Dihapus/dikosongkan
CommandButton1	Name	cmdhitung
	Caption	&Hitung
CommandButton2	Name	cmdlagi
	Caption	&Lagi
CommandButton3	Name	cmdkeluar
	Caption	&Keluar
Frame1	Caption	Input
Frame2	Caption	Hasil

Listing Program

Private Sub cmdhitung_Click()

p = Val(txtpanjang.Text)

l = Val(txtlebar.Text)

luas = p * l

kel = 2 * (p + l)

txtluas.Text = luas

txtkel.Text = kel

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtpanjang.Text = ""

txtlebar.Text = ""

txtluas.Text = ""

txtkel.Text = ""

txtpanjang.SetFocus

End Sub

LATIHAN 5

Ketentuan Soal :

• Klik Hitung : Tampil Rata-rata
  

  Rata-rata = (10 % x Absen) + (20 % x Tugas) + (30 % x UTS) + (40 % x UAS)
  

• Klik Bersih : Semua Textbox dalam keadaan kosong (bersih) dan kursor otomatis berada di NIM
  
• Klik Keluar : Keluar dari Program