Membuat Converter Suhu Sederhana dengan menggunakan Aplikasi Visual Basic

-->

Buat Project baru

File>New Project> Windows Form Aplication > OK

Akan muncul lembar kerja FORM seperti di bawah ini

Buatlah 2 TextBox, dan 4 Button dengan cara Drag an Drop dari toolbox ke Form, dan buat Label seperti gambar di bawah ini :

Ganti nama button dengan Kelvin, Farenheit, Reamur, Hapus seperti gambar di bawah ini :

Sekarang masukan kode pada masing-masing button dengan ketikan seperti di bawah ini

• Pada Button1(Kelvin)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, z As Double

x = Val(TextBox1.Text)

z = x + 273

TextBox2.Text = z

End Sub

• Pada Button2(Farenheit)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, z As Double

x = Val(TextBox1.Text)

z = (x * 1.8) + 32

TextBox2.Text = z

End Sub

• Pada Button3(Reamur)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim x, z As Double

x = Val(TextBox1.Text)

z = 5 / 4 * x

TextBox2.Text = z

End Sub

• Pada Button4(Hapus)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Setelah selesai save project dan jalankan program dengan klick icon

Atau tekan tombol F5,,,, SELAMAT MENCOBA