[VB] Membuat termometer konversi Celsius - Fahrenheit

Deklarasi:
1 Form
1 VScroolBar
2 TextBox

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Private Sub VScroll1_Change()
    PrintFC VScroll1.Value
End Sub

Sub PrintFC(ByVal Temp As Integer)
    Dim C As String
    C = CStr((Temp - 32) * 5 / 9)
    Text1.Text = Temp: Text2.Text = Int(C)
End Sub

Jangan Lupa Komentar Yaa..