درس تطبيقى رائع على استخدام ScrollBar

[ltr] Visual Basic 6.0 lesson - Temperature convector
ScrollBar control is a very handy tool for Visual Basic programmers. It is used in many tricks like (sizing, scrolling texts .... etc)

Visual Basic ScrollBar example

Temperature Convector Desktop application source code project is a good example for Visual Basic beginners to start studying ScrollBars and how handy they are for a programmer as a tool on the form.

Scrollbars in Visual Basic 6.0 is free to use, easy to place on a form (Horizontally or Vertically) according to your need in the design-time (IDE), in our example we will place one Scrollbar on the form and some labels, TextBoxes and CommandButtons as in the photo below .

Temperature Convector VB6 Source Code

What is Celsius and Fahrenheit ?
- Celsius
is a scale and unit of measurement for temperature. It is named after the Swedish astronomer Anders Celsius (1701–1744), who developed a similar temperature scale. The degree Celsius (°C) can refer to a specific temperature on the Celsius scale as well as a unit to indicate a temperature interval, a difference between two temperatures or an uncertainty. The unit was known until 1948 as "centigrade" from the Latin centum translated as 100 and gradus translated as "steps".

- Fahrenheit
is a temperature scale based on one proposed in 1724 by, and named after, the physicist Daniel Gabriel Fahrenheit (1686–1736).[1] Within this scale, the freezing of water into ice is defined at 32 degrees, while the boiling point of water is defined to be 212 degrees - on Fahrenheit's original scale the freezing point of brine was zero degrees.
 

Option Explicit
' C = (F-32)*5/9

Dim TempC As Integer
Dim TempF As Integer

Private Sub CmdExit_Click ()
End
End Sub

Private Sub Command1_Click()
VsbTemp.Value = 98.6
TxtExp.Caption = "Here is Where Body Temp. at 37C Equals F.Temp."
End Sub

Private Sub Command1_LostFocus()
TxtExp.Caption = ""
End Sub

Private Sub Command2_Click()
VsbTemp.Value = -40
TxtExp.Caption = "Here is Where F.Temp Equals The C.Temp At -40 Point"
End Sub

Private Sub Command2_LostFocus()
TxtExp.Caption = ""
End Sub

Private Sub Command3_Click()
VsbTemp.Value = 32
TxtExp.Caption = "Scale Resets"
End Sub

Private Sub Command4_Click()
TxtExp.Caption = "http://evry1falls.freevar.com/vb6/"
End Sub

Private Sub Command4_LostFocus()
TxtExp.Caption = ""
End Sub

Private Sub VsbTemp_Change()
'Read F and convert to C.

TempF = VsbTemp.Value
LblTempF.Caption = Str(TempF)
TempC = CInt(TempF - 32) * 5 / 9
LblTempS.Caption = Str(TempC)
End Sub

Private Sub VsbTemp_Scroll()
'Read F and Convert To C.

TempF = VsbTemp.Value
LblTempF.Caption = Str(TempF)
TempC = CInt(TempF - 32) * 5 / 9
LblTempS.Caption = Str(TempC)
End Sub

Source : Here