KONVERSI SUHU CELCIUS KE REAMUR & FAHRENHEIT

      I.        LISTING PROGRAM

Public Class Form1

        Private Sub cmdKonversi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKonversi.Click

        'Deklarasi

        Dim reamur As Double

        Dim fahrenheit As Double

        'Rumus Konversi

        reamur = Val(txtcelcius.Text) * 0.8

        fahrenheit = Val(txtcelcius.Text) * 1.8 + 32

        lblreamur.Text = reamur & " Reamur"

        lblfahrenheit.Text = fahrenheit & " Fahrenheit"

    End Sub

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

        End

    End Sub

End Class

      I.        PROPERTIS

Nama Objek	Properties	Nilai
Form1	Text	Koonversi Suhu
	MaximizeBox	False
TextBox	Name	txtCelcius
	TextAlign	Right
Button	Text	&Konversi
	Name	cmdKonversi
Label1	Text	Celcius
Label2	Text	Fahrenheit
	Name	lblfahrenheit
	FontBold	True
Label3	Text	Reamur
	Name	lblreamur
	FontBold	True

TAMPILAN APLIKASI

Read Full story