Aplikasi Converter Suhu dengan VB2008

suhuconverter

Berikut ini adalah penjelasan coding dari program Konversi Suhu buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

Konversi

Text

Aplikasi Konversi Suhu Dunia

2

Label

Text

Konversi Desimal dan Biner

Text

Nilai

3

Textbox1

Name

txtsuhu

Text

4

Textbox2

Name

txtcelcius

Text

3

Textbox3

Name

txtreamur

Text

4

Textbox4

Name

txtfahrenheit

Text

4

Textbox5

Name

txtkelvin

Text

5

RadioButton1

Name

rbcelcius

Text

Celcius

6

RadioButton2

Name

rbreamur

Text

Reamur

5

RadioButton3

Name

rbfahrenheit

Text

Fahrenheit

6

RadioButton4

Name

rbkelvin

Text

Kelvin

7

Button1

Name

Cmdconvert

Text

&Convert

8

Button2

Name

Cmdexit

Text

&Exit

Public Class Konversi
Dim response As MsgBoxResult
'tipe data tidak dideklarasikan dan otomatis menjadi tipe data variant

Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
If rbcelcius.Checked Then
txtcelcius.Text = txtsuhu.Text * 1
txtreamur.Text = 4 / 5 * txtsuhu.Text
txtkelvin.Text = 273 + txtsuhu.Text
txtfahrenheit.Text = 32 + (9 / 5 * txtsuhu.Text)
ElseIf rbreamur.Checked Then
txtcelcius.Text = 5 / 4 * txtsuhu.Text
txtreamur.Text = txtsuhu.Text * 1
txtkelvin.Text = 273 + (5 / 4 * txtsuhu.Text)
txtfahrenheit.Text = 32 + (9 / 4 * txtsuhu.Text)
ElseIf rbkelvin.Checked Then
txtcelcius.Text = txtsuhu.Text – 273
txtreamur.Text = 4 / 5 * (txtsuhu.Text – 273)
txtkelvin.Text = txtsuhu.Text * 1
txtfahrenheit.Text = 32 + (9 / 5 * (txtsuhu.Text – 273))
ElseIf rbfahrenheit.Checked Then
txtcelcius.Text = 5 / 9 * (txtsuhu.Text – 32)
txtreamur.Text = 4 / 9 * (txtsuhu.Text – 32)
txtkelvin.Text = 273 + (5 / 9 * (txtsuhu.Text – 32))
txtfahrenheit.Text = txtsuhu.Text * 1
End If
End Sub

Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
response = MsgBox(“Apakah Anda yakin ingin keluar”, MsgBoxStyle.OkCancel, “Konfirmasi Keluar”)
If response = MsgBoxResult.Ok Then
End
End If

End Sub
End Class

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Aplikasi Konverter_suhul
Aplikasi Konverter Suhu

5 thoughts on “Aplikasi Converter Suhu dengan VB2008

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s