We can create a temperature converter which can convert the temperature into
any given unit.
Private Sub
RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles c.CheckedChanged
Button1.Enabled = True
End Sub
Private Sub
RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles f.CheckedChanged
Button1.Enabled = True
End Sub
Private Sub
RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles t.CheckedChanged
Button1.Enabled = True
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim box As Double
Dim sum As Double
Dim sum2 As Double
Dim sum3 As Double
box = Convert.ToDouble(TextBox1.Text)
If c.Checked = True Then
lblc.Text = box
sum = (box * 9) / 5 + 32
lblf.Text = sum
sum2 = box + 273.15
lblt.Text = sum2
End If
If f.Checked = True Then
lblf.Text = box
sum = (box - 32) * 5 / 9
lblc.Text = sum
sum2 = sum + 273.15
lblt.Text = sum2
End If
If t.Checked = True Then
lblt.Text = box
sum = box - 273.15
lblc.Text = sum
sum2 = (sum * 9) / 5 + 32
lblf.Text = sum2
End If
End Sub
End Class
Contact:
Mr. Roshan P. Helonde
Mobile: +91-7276355704
WhatsApp: +91-7276355704
Email: roshanphelonde@rediffmail.com