RSS

Visual Basic 2010 Express — Membuat Aplikasi Untuk Mengkonversi Suhu

02 Des

Halo🙂
Kali ini saya akan membahas tentang membuat aplikasi menggunakan Visual Basic. Aplikasi yang akan dibuat di postingan ini adalah aplikasi pengkonversian suhu.
Software yang di gunakan :
Microsof Visual Basic 2010 Express
Bahasa pemrograman yang digunakan :
Visual Basic
Tampilan Hasil Jadi :

Hasil Jadi

Seperti yang terlihat di atas, aplikasi ini bisa digunakan untuk mengkonversi suhu dari 8 temperature yang ada. Sebelumnya saya sudah pernah membuat konversi suhu menggunakan AS3 dan AS2.

Visual Basic tentu saja berbeda dengan AS3/AS2, salah satu perbedaan nya terlihat pada contoh di atas dimana inputan angka saya buat menjadi maksimal 9 angka. Sebenarnya inputan angka ini tidak terbatas pada 9, bisa lebih banyak dari 9, hanya karena mengingat tempat yang ada maka saya buat ini menjadi 9. Seperti terlihat diatas saya memasukkan 999999999 dan hasil konversinya menjadi sangat besar dan memakan banyak tempat. Maka dari itu saya batasi sehingga menjadi 9. Berbeda dengan AS3/AS2 yang memang terbatas inputan angkanya🙂

Microsoft Visual Basic 2010 Express bisa di download dari website Microsoft. Aplikasi ini memiliki masa uji coba 30 hari dan setelah itu Anda akan diminta memasukkan key-code yang bisa didapat dengan membuat Microsoft Account🙂

  • Sekarang buat projek baru dengan menggunakan menu New Project atau dengan menekan Ctrl+N. Pilih Windows Form Application dan beri nama projek KonversiSuhu.

1

  • Buat form dengan menggunakan 2 combo box yang masing-masing diberi nama cmb1 dan cmb2, 1 text box dengan nama txtInput, 1 button dengan nama btnKonversi dan 1 label dengan nama lblHasil. Atur posisi agar sesuai dengan susunan pada contoh.

2

  • Klik pilihan Items pada ke dua combo box dan isikan nama-nama suhu yang akan dipakai. Tidak urut tidak masalah, pilih True pada pilihan Sorted untuk membuat isi combo box menjadi urut pada saat aplikasi dijalankan.

3 4

  • Pada aplikasi ini saya membuat supaya user hanya bisa memasukkan angka 0-9 dan karakter titik [.] sebagai inputan nilai yang akan dikonversi. Untuk itu akan digunakan kode yang berjalan saat tombol keyboard ditekan yaitu dengan menggunakan event bernama KeyPress. Untuk memunculkan event tersebut klik kanan pada form yang baru saja dibuat dan pilih View Code atau tekan F7. Kemudian pada menu di pojok kiri atas pilih text box yang akan diberi kode yaitu txtInput. Kemudian pada pojok kanan atas pilih KeyPress.

5

6 7

  • Ketikkan kode berikut ini ke dalam event yang baru saja dimunculkan tadi:
       Dim allowedChars As String = "0123456789."
       If allowedChars.IndexOf(e.KeyChar) = -1 Then
           ' Invalid Character
           e.Handled = True
       End If
  • Sehingga menjadi seperti gambar di bawah ini

8

  • Kalau sudah, sekarang coba test aplikasi dengan menekan tombol F5. Kalau berjalan benar maka kotak inputan hanya akan menerima angka 0-9 dan karakter titik (.)
  • Selanjutnya kita akan membuat supaya pada saat tombol btnKonversi ditekan akan dilakukan pengecekan apakah kedua combo box sudah dipilih [tidak kosong] dan apakah ada inputan angka di kotak textbox txtInput. Kalau tidak ada maka akan dimunculkan kotak pesan seperti pada gambar di bawah. Kalau tidak kosong maka akan dilakukan pengecekan berdasarkan isi dari combo box. Supaya lebih gampang saya berikan dulu codenya baru nanti saya jelaskan maksudnya🙂

9

  • Klik dua kali pada btnKonversi kemudian ketikkan code di bawah ini sehingga menjadi seperti contoh pada gambar di bawah
If cmb1.Text = "" Or cmb2.Text = "" Or txtInput.Text = "" Then
           MessageBox.Show("Harap isi dulu semua inputan yang ada", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning) 'text,nama form, button yang muncul, icon yang digunakan. Dari : http://www.homeandlearn.co.uk/NET/netMessageBox.html
       ElseIf cmb1.Text = "Celcius" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Celcius() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Fahrenheit" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Fahrenheit() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Rankine" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Rankine() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Delisle" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Delisle() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Newton" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Newton() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Réaumur" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Réaumur() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Rømer" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Rømer() & " derajat " & cmb2.Text
       ElseIf cmb1.Text = "Kelvin" Then
           lblHasil.Text = "Hasil Konversi : " & vbCrLf & txtInput.Text & " derajat " & cmb1.Text & " = " & Kelvin() & " derajat " & cmb2.Text
       End If

10

  • Kode diatas belum lengkap dan saat ditest akan muncul error. Abaikan dulu error yang ada. Perhatikan baik-baik code di atas, pada dasarnya kecuali If yang pertama, yang lainnya semuanya sama yaitu memanggil fungsi bernama Celcius(), Fahrenheit(), Rankine(), Delisle(), Newton(), Réaumur(),Rømer() atau Kelvin() yang akan menampilkan nilai konversi suhu.
  • Berikut adalah kode dari setiap fungsi tersebut

Newton_Reamur Rankine_Deslile Romer_Kelvin Celcius_Fahrenheit

  • Kalau diperhatikan, pada dasarnya kode di atas semuanya memiliki logika yang sama. Fungsi yang dibuat semuanya akan mengembalikan nilai bertipe Double karena suhu bukan hanya terdiri dari bilangan bulat, itu juga alasan kenapa inputan dibuat agar menerima karakter titik dan bukan hanya angka 0-9. Selanjutnya akan dideklarasikan 2 buah variabel yang bertipe Double. Variabel Y akan diisi dengan nilai dari textbox txtInput yang dikonversikan menjadi Double dengan menggunakan fungsi CDbl.
  • Selanjutnya dilakukan pengecekan apakah nilai combo box kedua suhu tertentu atau tidak. Kalau iya maka akan dilakukan perhitungan berdasarkan rumus konversi suhu tersebut [yang saya dapatkan dari sini : LINK WIKIPEDIA] yang kemudian diisikan ke dalam X kemudian terakhir nilai X akan dikembalikan setelah sebelumnya dibulatkan menjadi 2 angka dibelakang koma. Kenapa dibulatkan? Karena kalau tidak dibulatkan hasilnya bisa menjadi panjang seperti contoh di bawah ini dan memakan terlalu banyak tempat, makanya saya bulatkan menjadi 2 angka di belakang koma.

11

Hasil jadi (setup.exe) aplikasi ini bisa di dl di

Aplikasi Konversi Suhu Visual Basic

Hasil jadi dalam bentuk projek (*.sln/*.vb) bisa di dl di

Projek Konversi Suhu

 Pada saat penginstallan akan muncul peringatan, abaikan saja, ini karena saya sebagai pembuat belum memasukkan sertifikat ke dalam aplikasi ini.

12

Kalau sudah diinstall akan tampil seperti ini pada komputer.

13

Terima kasih sudah mampir dan membaca blog ini ^_^

Silakan tinggalkan pesan apabila ada yang ingin ditanyakan tentang postingan ini. Dan juga kalau postingan ini dirasa berguna mohon dishare ^_^

 
Tinggalkan komentar

Ditulis oleh pada Desember 2, 2014 in Visual Basic 2010 Express

 

Tag: ,

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

 
%d blogger menyukai ini: