Temperature Converter

Category:

C#, VB.NET, ASP.NET

Type:

Applications

Difficulty:

Beginning

Author:

SaEeD

Version Compatibility: Visual Basic.NET

More information:

This program converts a given temperature to any of three formats; Kelvin, Celsius and Fahrenheit. Simply add the required form controls.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub c_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.CheckedChanged
        cmd.Enabled = True

End Sub

Private Sub f_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f.CheckedChanged
        cmd.Enabled = True
    End Sub

Private Sub t_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.CheckedChanged
        cmd.Enabled = True
    End Sub

Private Sub r_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        cmd.Enabled = True
    End Sub

Private Sub cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd.Click
        Dim box As Double
        Dim sum As Double
        Dim sum2 As Double
        Dim sum3 As Double
        box = Convert.ToDouble(txt.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