Mengenal Toolbox HscrollBar (Membuat aplikasi menghitung Luas Segitiga) di Ms. Visual Basic (VB)

Assalamu'alaikum wr. wb.
Yaaa... Selamat malam sahabat DM, Apa kabar ?? semoga sehat selalu ya.. dan mudah-mudahan semuanya dalam lindungan Allah SWT.... aamiin..
Oke, langsung saja ya, kali ini ane mau share tentang salah satu toolbox yang ada di VB 6, yaitu HScrollBar, temen-temen pada tau kan ??
fungsi dari Hscrollbar ini banyak ya, bisa buat besar kecilin ukuran huruf, bisa buat besar kecilin ukuran image atau gambar, dan lain sebagainya. tergantung kebutuhan temen-temen. Tapi pada kesempatan kali ini ane mau bikin aplikasi menghitung luas segitiga dengan toolbox ini sebagai alat untuk mengubah nilainya..
Sebelum anda membuat aplikasi menghitung luas segitiga, anda harus tahu terlebih dahulu rumus untuk menghitung luas segitiga. Rumus untuk menghitung luas segitiga adalah Luas=Alas x Tinggi / 2. Oke langsung saja ikuti tutorial dibawah ini :

Pertama, silahkan di buka program VB nya, buat form baru dan tambahkan 2 objek HscrollBar, 4 objek label dan 2 objek textbox. Susun objek-objek tersebut sehingga menjadi seperti gambar berikut 

Ubah properties name dari setiap objek sesuai dengan ketentuan pada tabel berikut :

Objek Toolbox	Hscroll1	Hscroll2	Text1	Text2	Label4
Name (Properties)	HSAlas	HSTinggi	txtAlas	txtTinggi	LblHasil
Max (Properties)	100	100	-	-	-

Klik dua kali pada objek HSAlas (Event : Change) dan masukan kode dibawah ini :

txtAlas.Text = HSAlas.Value

LblHasil.Caption = Val(txtAlas) * HSTinggi.Value / 2

Dan masukan kode dibawah ini kedalam objek HSTinggi (Event  Change) :

txtTinggi.Text = HSTinggi.Value
LblHasil.Caption = Val(txtTinggi) * HSAlas.Value / 2

Dan yang terakhir, silahkan jalankan aplikasi yang sudah dibuat dengan menekan tombol F5 pada keyboard. Kemudian geserkan HSAlas dan HSTinggi, dan lihat LblHasil akan berubah secara otomatis.

Penjelasan Kode Program Ms. Visual Basic 6.0 (VB 6):

Private Sub HSAlas_Change()

txtAlas.Text = HSAlas.Value

LblHasil.Caption = Val(txtAlas) * HSTinggi.Value / 2

End Sub

Ketika seorang user menggeser atau merubah (Event Change) nilai HSAlas maka teks pada txtAlas akan di isi dengan nilai pada HSAlas dan LblHasil akan diisi dengan hasil perkalian antara nilai yang ada pada txtAlas dengan nilai dari HSTinggi dan dibagi 2.

Private Sub HSTinggi_Change()

txtTinggi.Text = HSTinggi.Value

LblHasil.Caption = Val(txtTinggi) * HSAlas.Value / 2

End Sub

Ketika seorang user menggeser atau merubah (Event Change) nilai HSTinggi maka teks pada txtTinggi akan di isi secara otomatis dengan nilai pada HSTinggi dan LblHasil akan diisi dengan hasil perkalian antara nilai yang ada pada txtTinggi dengan nilai dari HSAlas dan dibagi 2.

Oke sobat Dm, sampai disini dulu ya... semoga bermanfaat... salam coding..

Wassalamu'alaikum wr. wb.