© 2014 Firstsoft Technologies (P) Limited. login
Hi 'Guest'
Home SiteMap Contact Us Disclaimer
enggedu
Quick Links
Easy Studies

  HomeSource Code DotNet ►VB.Net▼

Temperature Converter

                          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

 

 

 

 

 

SLogix Student Projects

⇓Student Projects⇓
⇑Student Projects⇑
bottom