Program untuk menghitung Keliling dan Luas Persegi Panjang dengan menggunakan objek HscrollBar dan VScrollBar pada Microsoft Visual Basic 6.0

HScrollBar merupakan slider horizontal -> bergerak ke kanan atau ke kiri.

VScrollBar merupakan slider vertikal -> bergerak ke atas atau ke bawah

Dalam program ini, kita dapat menghitung Keliling dan Luas Persegi Panjang tanpa perlu mengisi nilai Panjang dan Lebar pada objek TextBox, akan tetapi cukup dengan menggeser slider pada objek HScrollBar dan VScrollBar

Langkah – langkah pembuatan program adalah sbb :

·       Buka proyek Standard EXE yang baru

·   Disain tampilan form seperti gambar berikut dengan menggunkan objek TextBox dan Label, CommandButton

 

Gbr 1

·       Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text	Txt_Panjang (dikosongkan)
TextBox2	Name        Text	Txt_Lebar (dikosongkan)
TextBox3	Name        Text	Txt_Keliling  (dikosongkan)
TextBox4	Name        Text	Txt_Luas (dikosongkan)
Label1	Caption	Panjang
Label2	Caption	Lebar
Label3	Caption	Keliling
Label4	Caption	Luas
CommandButton1	Name         Caption	cmd_exit E&xit
Form1	Name Caption	HScrolBar_VscrollBar Program menghitung Keliling dan Luas Persegi Panjang menggunakan HScrollBar-VScrollBar

·       Klik menu View  =>  Code lalu ketik kode program dibawah ini :

Private Sub HScroll1_Change()

Me.Txt_Panjang.Text = Me.HScroll1.Value

Me.Txt_Keliling.Text = (Me.HScroll1.Value * 2) + (Me.VScroll1.Value * 2)

Me.Txt_Luas.Text = Me.HScroll1.Value * Me.VScroll1.Value

End Sub

Private Sub Txt_Lebar_Change()

On Error Resume Next

Me.VScroll1.Value = Me.Txt_Lebar.Text

Me.Txt_Keliling.Text = (Me.HScroll1.Value * 2) + (Me.VScroll1.Value * 2)

Me.Txt_Luas.Text = Me.HScroll1.Value * Me.VScroll1.Value

End Sub

Private Sub Txt_Panjang_Change()

On Error Resume Next

Me.HScroll1.Value = Me.Txt_Panjang.Text

Me.Txt_Keliling.Text = (Me.HScroll1.Value * 2) + (Me.VScroll1.Value * 2)

Me.Txt_Luas.Text = Me.HScroll1.Value * Me.VScroll1.Value

End Sub

Private Sub VScroll1_Change()

Me.Txt_Lebar.Text = Me.VScroll1.Value

Me.Txt_Keliling.Text = (Me.HScroll1.Value * 2) + (Me.VScroll1.Value * 2)

Me.Txt_Luas.Text = Me.HScroll1.Value * Me.VScroll1.Value

End Sub

Private Sub cmd_exit_Click()

End

End Sub

·       Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·       Hasilnya Ketika program dijalankan

Gbr.2

Download Program untuk menghitung Keliling dan Luas Persegi Panjang dengan menggunakan objek HscrollBar dan VScrollBar  disini