Learn Computer Programming Free from our source codes in my website.
Sponsored Link Please Support
https://www.techseries.dev/a/27966/qWm8FwLb
https://www.techseries.dev/a/19181/qWm8FwLb
My Personal Website is http://www.jakerpomperada.com
Email me at jakerpomperada@gmail.com and jakerpomperada@yahoo.com
Thursday, February 27, 2025
Wednesday, February 26, 2025
Monday, February 24, 2025
Sunday, February 23, 2025
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