Saturday, 24 March 2018

Temperature Conversion from Celsius to Fahrenheit and Kelvin

Public Class Form1
    Dim c, f, k As Single
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        c = TextBox1.Text
        f = (9 / 5) * c + 32
        k = 273.15 + c
        TextBox2.Text = f
        TextBox3.Text = k

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

No comments:

Post a Comment

Note: only a member of this blog may post a comment.