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

|