Monday, February 17, 2025
Fahrenheit To Celsius in Microsoft Visual Basic NET
Program Listing
Public Class Form1
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
Dim fahrenheit As Double
Dim celsius As Double
' Validate input
If Double.TryParse(txtFahrenheit.Text, fahrenheit) Then
celsius = (fahrenheit - 32) * 5 / 9
lblResult.Text = "Celsius: " & Math.Round(celsius, 2).ToString()
Else
MessageBox.Show("Please enter a valid number.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
lblResult.Text = ""
txtFahrenheit.Clear()
txtFahrenheit.Focus()
End Sub
Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
Dim result As DialogResult
result = MessageBox.Show("Do you want to quit?", "Exit Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
lblResult.Text = ""
txtFahrenheit.Clear()
txtFahrenheit.Focus()
If result = DialogResult.Yes Then
Me.Close() ' Closes the current form
End If
End Sub
End Class