Perbandingan VGA CARD dan bagaimana cara membelinya..
klik link di bawah ini:

http://denzfirm.blogspot.com/2011/08/perbandingan-vga-card-dan-tips.html

program input data nilai menggunakan HScroll

 

Design form seperti gambar di samping.

copy paste listing program di bawah  ini :

Private Sub kosong()

Text1.Text = 0

Text2.Text = 0

Text3.Text = 0

Text4.Text = ""

End Sub

Private Sub Command1_Click()

kosong

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Activate()

kosong

End Sub

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value

Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2

If Text3.Text >= 96 Then

Text4.Text = "A"

ElseIf Text3.Text >= 76 Then

Text4.Text = "B"

ElseIf Text3.Text >= 60 Then

Text4.Text = "C"

ElseIf Text3.Text >= 50 Then

Text4.Text = "D"

Else

Text4.Text = "E"

End If

End Sub

Private Sub HScroll2_Change()

Text2.Text = HScroll2.Value

Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2

If Text3.Text >= 96 Then

Text4.Text = "A"

ElseIf Text3.Text >= 76 Then

Text4.Text = "B"

ElseIf Text3.Text >= 60 Then

Text4.Text = "C"

ElseIf Text3.Text >= 50 Then

Text4.Text = "D"

Else

Text4.Text = "E"

End If 

End Sub