Oke..gue langsung, tanpa basa basi..
ini salah satu program yang gue coba buat dari Visual basic..
Buat 4 buah label dan 1 command, 1 shape dan 1 vsscroll
Option Explicit
Dim TempF As Integer
Dim TempC As Integer
Private Sub cmdExit_Click()
End
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)
lblTempC.Caption = Str(TempC)
End Sub
