Saturday, February 7, 2015

Program in Visual Basic for Celsius to farheniet

Dim c As Double
Dim f As Double


Private Sub CmdClr_Click()
TxtInput.Text = ""
    TxtInput.SetFocus
End Sub

Private Sub Command1_Click()
c = Val(TxtInput.Text)
If Val(c) = 0 And TxtInput = "" Then
    MsgBox "Enter Any number", vbInformation, "Result"
    TxtInput.SetFocus
    Else
    f = 9 * c \ 5 + 32
    MsgBox "Fahrenheit :" & "   " & f, vbInformation, "Result"
   
End If

End Sub

Private Sub Command2_Click()
f = Val(TxtInput.Text)
If Val(c) = 0 And TxtInput = "" Then
    MsgBox "Enter Any number", vbInformation, "Result"
    TxtInput.SetFocus
    Else
    c = (f - 32) * 5 \ 9
    MsgBox "Celsius :" & "   " & c, vbInformation, "Result"
   
End If
End Sub



Featured posts

Happy Independence Day August 15th

 Here's a message for India's Independence Day (August 15th): "शुभ स्वतंत्रता दिवस! आजादी की 79वीं वर्षगांठ पर, आइए हम अपने देश...

Popular posts