01 | Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click |
02 | Dim dblTemp As Double |
03 | Dim dblResult As Double |
04 | Convert.ToString(txtTemp) |
05 | If radCelsius.Checked = True Then |
06 | dblResult = (dblTemp * 9) / 5 - 32 |
07 | ElseIf radFahrenheit.Checked = True Then |
08 | dblResult = (dblTemp * 5 / 9) + 32 |
09 | End If |
10 | lblResult.Text = Format(dblResult, ".") |
11 | End Sub |