Belajar Logika dan Pemrograman

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 100
TrackBar1.SmallChange = 1
TrackBar1.LargeChange = 1
TrackBar1.TickFrequency = 5
TrackBar1.Value = 0

End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim Reamur, Fahrenheit As Single
Reamur = 4 / 5 * TrackBar1.Value
Fahrenheit = 9 / 5 * TrackBar1.Value
LblKonversi.Text = "Suhu " & TrackBar1.Value & " Derajat sama dengan " & Format(Reamur, "0.00") & " Reamur dan " & Format(Fahrenheit, "0.00") & " Fahrenheit"
End Sub
End Class