Fahrenheit To Celsius in Visual Basic NET

Byjakerpomperada

Feb 17, 2025 #celsius, #celsius a fahrenheit, #celsius and fahrenheit in hindi, #celsius in vb.net, #celsius to fahrenheit, #celsius to fahrenheit in vb.net, #Celsius To Fahrenheit in Visual Basic 6, #fahrenheit, #fahrenheit in vb.net, #fahrenheit to celsius, #fahrenheit to celsius converter in vb.net, #fahrenheit to celsius converter in visual foxpro, #how do you convert celsius to fahrenheit and back?, #how do you convert celsius to fahrenheit in visual basic?, #vb.net

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