Ans :
Dim tempf, tempc As Integer Private Sub cmdClear_Click() Logic for clearing text boxes IblFah. Caption = Clear
IblCel.Caption = Clear
End Sub
Private Sub cmdExit_click()
unload Me
End Sub
Private Sub Form__Load() VscTemp.Value = 32 IblFah.Caption = VscTemp.Value IblCel.Caption = 0
End Sub
Private Sub VscTemp_Change() tempf = CInt(VscTemp.Value) IblFah.Caption = CStr(tempf) tempc = ((tempf - 32) * 5 / 9) IblCel .Caption = CStr (tempc)
End Sub
No comments:
Post a Comment