Kontrol Volume

Ane punya program sederhana untuk membuat tampilan buat kontrol volume pake VB 6.0

Pertama - tama, Buat tampilan seperti di bawah ini

Sebelum di run

Pada form load kasih script seperti ini

Private Sub Form_Load()
Shape2.Height = 3500 - VScroll1.Value
Shape3.Top = 505 + VScroll1.Value
Shape3.Left = 720 + HScroll1.Value
Label5.Top = 900 + VScroll1.Value
Text1.Text = ((3500 - VScroll1.Value) / (VScroll1.Max)) * 100
Label5.Caption = (Text1.Text / 100) * 20 & " Liter"
End Sub

Dan tampilansetela di run akan tampak seperti ini

Setelah du run

 Script di atas adalah untuk membuat agar shape dan label berada dalam posisinya masing - masing serta untuk menentukan tinggi serta lebar shape.

Jika Vscrol l Diutak utik

Penampakan di samping adalah ulah dari Vscrol atau Vertical scroll dengan script di bawah ini.

Private Sub VScroll1_Scroll()
Shape2.Top = 1000 + VScroll1.Value
Shape2.Height = 3500 - VScroll1.Value
Shape3.Top = 505 + VScroll1.Value
Label5.Top = 900 + VScroll1.Value
Text1.Text = ((3500 - VScroll1.Value) / (VScroll1.Max)) * 100
End Sub

Bola yang berpindah

Dan untuk menggerakkan bola seperti gambar di samping adalah ulah dari Hscroll

Private Sub HScroll1_Scroll()
Shape3.Left = 720 + HScroll1.Value
End Sub

dan yang terakhir, Volime air diadopsi dari persenan volume air

Private Sub Text1_Change()
Label5.Caption = (Text1.Text / 100) * 20 & " Liter"
End Sub

Seperti inilah sedikit yang dapat Ane bagikan. Semoga bermanfaat

Posted in: Programing