program menghitung keliling dan luas jajargenjang

MEMBUAT PROGRAM MENCARI KELILING DAN LUAS JAJAR GENJANG

Langkah-langkah

1.     Membuat bentuk yang akan di rancang

2.      Properties masing masing komponen(control)

Control	Propertis	pengaturan
TextBox1	Name        Text	txt_tinggi [dikosongkan]
TextBox2	Name        Text	txt_alas [dikosongkan]
TextBox3	Name        Text	sisiab [dikosongkan]
TextBox4	Name        Text	sisiad [dikosongkan]
TextBox5	Name        Text	sisibc [dikosongkan]
TextBox6	Name        Text	sisidc [dikosongkan]
TextBox7	Name        Text	txt_luas [dikosongkan]
TextBox8	Name        Text	txt_keliling [dikosongkan]
Label1	Name	Tinggi
Label2	Name	Alas
Label3	Name	sisiab
Label4	Name	sisiad
Label5	Name	sisibc
Label6	Name	sisidc
Label7	Name	keliling
Label5	Name	Menghitung keliling dan luas jajargenjang
CommandButton1	Name Caption	cm_hapus hapus
CommandButton2	Name Caption	cm_hitung hitung
CommandButton3	Name Caption	cm_exit exit

Kode Program

a.        Code program untuk hitung (proses)

Private sub cm_hitung kilik()

Dim keliling As double
 keliling = Val(sisiab.Text) + Val(sisiad.Text) + Val(sisibc.Text) + Val(sisidc.Text)
txt_keliling.text= keliling

Dim luas As double
luas=val( txt_alas.text)*val(txt_tinggi.text)
txt_luas=luas
End sub

b.        Code program untuk exit (keluar)

Private sub cm_exit klik()
End
End

c.         Code program untuk hapus

sub Private hapus kilik()
sisiab=””
sisiad=””
sisidc=””
sisibc=””
txt_keliling=””
txt_alas=””
txt_luas=””
End sub

DAFTAR PUSTAKA

DAnish FathurRahman (referensi)

SARAN/MASUKAN

Apabil ada salah pengetikan atau salah kode program yang tertera kiranya diberitahukan agar dapat diperbaiki , sehingga nantinya bagi yang membaca tidak meniru yang salah,
   demikian makalah yang saya buat ,mohon perhatianya. Trima kasih.