Langsung ke konten utama

Program Konversi Suhu (Visual Basic)


Wah malem-malem begini saya baru teringat, bahwa ada tugas di esok hari yaitu membuat program konversi suhu dengan Visual Basic. Saya masih awam sekali dalam pemrograman, jadinya saya langsung menuju mbah Google untuk mencari cara membuat program tersebut. Dan langsung ketemu, ini dia tempatnya All Info For You (Terima kasih kepada agan yang punya web)

Ini dia prosedur pembuatannya (copas dari yang punya website):
Buka Visual Basic 6.0 teman-teman dan ikuti langkah-langkah berikut :
  1. Masukkan 5 buah Label
  2. Masukkan 1 buah Frame
  3. Masukkan 5 buah TextBox
  4. Masukkan 4 buah OptionButton
  5. Masukkan 3 buah CommandButton
Setelah itu pada bagian Properties ganti Caption :

  1. Label1 Menjadi “Masukkan Suhu yang Telah Diketahui dan Tekan Tombol Konversi” atau sesuka teman-teman.
  2. Label2 Menjadi “Fahrenheit”
  3. Label3 Menjadi “Celcius”
  4. Label4 Menjadi “Rheamur”
  5. Label5 Menjadi “Kelvin”
  6. Frame1 Menjadi “Masukkan Pilihan Input”
  7. OptionButton1 Menjadi “Fahrenheit”
  8. OptionButton2 Menjadi “Celcius”
  9. OptionButton3 Menjadi “Rheamur”
  10. OptionButton4 Menjadi “Kelvin”
  11. CommandButton1 Menjadi “&Konversi”
  12. CommandButton2 Menjadi “&Again”
  13. CommandButton3 Menjadi “&Exit”
Tampilan visual
Gambar Program
Selanjutnya rapikan Label,Frame,TextBox,OptionButton, dan CommandButton menjadi seperti gambar dibawah ini.

Setelah Tampilannya sesuai dengan gambar diatas, maka teman-teman perlu source code atau script agar programnya bisa digunakan.
Inilah Script programnya :

1. Pada Form load

Private Sub Form_Load()
Option1 = True
End Sub
2. Pada Option1

Private Sub Option1_Click()
If Option1 = True Then
Option2 = False And Option13 = False And Option4 = False
End If
End Sub
3. Pada Command1

Private Sub Command1_Click()
Dim jwb As Integer
If Text1.Text = "" Then
  jwb = MsgBox("Masukkan Nilai Suhu Yang Akan Dikonversi!!!   ", _
        vbInformation + vbYesNo, "WARNING")
    If jwb = vbNo Then
            Unload Me
    ElseIf jwb = vbYes Then
            FrmKonversiSuhu.Show
End If
ElseIf Option1 = True Then
Fahrenheit
ElseIf Option2 = True Then
Celcius
ElseIf Option3 = True Then
Rheamur
ElseIf Option4 = True Then
Kelvin
End If
End Sub
4. Pada Command2

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text2.BackColor = "&H80000005"
Text3.BackColor = "&H80000005"
Text4.BackColor = "&H80000005"
Text5.BackColor = "&H80000005"
Text1.SetFocus
End Sub
5. Pada Command3

Private Sub Command3_Click()
Unload Me
End Sub
Nah berikutnya tulislah Script berikut pada bagian paling bawah Script program temen-teman …

Sub Celcius()
Dim bil1, fah, rhe, kel As Integer
bil1 = Text1
fah = Val((Text1.Text) * 9 / 5) + 32
Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse)
rhe = Val(Text1.Text) * 4 / 5
Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse)
kel = Val(Text1.Text) + 273
Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse)
Text3.BackColor = black
End Sub
Sub Fahrenheit()
Dim bil1, cel, rhe, kel As Integer
bil1 = Text1
cel = Val((Text1.Text) - 32) * 5 / 9
Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse)
rhe = Val((Text1.Text) - 32) * 4 / 9
Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse)
kel = Val(((Text1.Text) - 32) * 5 / 9) + 273
Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse)
Text2.BackColor = black
End Sub
Sub Rheamur()
Dim bil1, fah, cel, kel As Integer
bil1 = Text1
fah = Val((Text1.Text) * 9 / 4) + 32
Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse)
cel = Val(Text1.Text) * 5 / 4
Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse)
kel = Val((Text1.Text) * 5 / 4) + 273
Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse)
Text4.BackColor = black
End Sub
Sub Kelvin()
Dim bil1, fah, cel, rhe As Integer
bil1 = Text1
fah = Val((((Text1.Text) - 273) * 9 / 5)) + 32
Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse)
cel = Val(Text1.Text) - 273
Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse)
rhe = Val((Text1.Text) - 273) * 4 / 5
Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse)
Text5.BackColor = black
End Sub
Selesai deh programnya, tinggal teman-teman save...

Komentar

  1. Oke gan, lanjutkan :D

    Sama-sama kita belajar hehe

    BalasHapus
    Balasan
    1. @Idham: iya agan Idham sipsip. Dan pada akhirnya saya ga' masuk kuliah tadi pagi. Hahaha. Sesuatu sekali jadinya :D

      Hapus

Posting Komentar

Postingan populer dari blog ini

Tentang Storyboard dan Animasi Stop-motion

Storyboard Storyboard yaitu sketsa gambar yang berurutan sesuai dengan naskah cerita film tersebut. Storyboard digunakan untuk membuat naskah cerita menjadi lebih hidup, dan cerita film tersebut dapat disajikan kepada penonton dengan membawakan pesan dari pembuat film tersebut. Storyboard adalah rangkaian cerita yang memberikan rincian video, dan ilustrasi adegan utama, yaitu bagaimana latar belakangnya, siapa yang akan ada dalam video, dan adegan apa yang akan ditampilkan. Berikut ini akan kita bahas cara membuat storyboard dalam film pendek beserta contohnnya. 1. Memilih media yang paling cocok digunakan untuk dibuat template storyboard. Anda bisa menggunakan papan putih yang dibagi – bagi perkolom untuk menggambarkan setiap adegan, namun ukuran yang digunakan haruslah yang lumayan besar. Jika ingin menggunakan software, Anda dapat menggunakan “Adobe Illustrator”, “storyboardthat.com”, “Microsoft PowerPoint”, “Amazon’s Storyteller”, atau “inDesign” untuk membuat template storyboard d...

Sejarah, Keunggulan dan Cara Membuat Video di Aniamker

Animaker Animaker adalah perangkat lunak video dan animasi berbasis cloud yang pertama kali diluncurkan dalam versi beta terbuka pada tahun 2014. Pada bulan Februari 2015, perangkat lunak secara resmi diluncurkan berdasarkan model freemium yang memungkinkan pengguna opsi akun gratis. Perangkat lunak ini menyediakan alat online untuk membuat dan mengedit animasi video. Perangkat lunak ini dikembangkan oleh Animaker Inc., sebuah perusahaan SaaS berbasis video yang didirikan oleh RS Raghavan.  Animaker dibangun di atas HTML5 dan membantu pengguna membuat video animasi yang dapat diekspor ke Facebook , YouTube , atau diunduh sebagai file MP4. Perangkat lunak ini juga tersedia sebagai ekstensi Chrome di Toko Web Chrome . Keunggulan Animaker Dapat didownload secara gratis. Untuk mudah di buka saat Penggunaannya. Namun pembuatan Video animasinya masih Berbasis web. Fiturnya cukup lengkap mulai dari infografik, typografi, 2 dimensi dan 2,5 dimensi. Hasilnya dapat dibuat video dengan durasi...

Istilah Dalam Skenario dan Aplikasi Untuk Menulis Skenario

Skenario, adegan layar (screenplay) atau naskah film ialah cetak biru yang ditulis untuk film atau acara televisi. Skenario dapat dihasilkan dalam bentuk olahan asli atau adaptasi dari penulisan yang sudah ada seperti hasil sastra.  Istilah dalam Skenario antara lain: 1.      BCU (BIG CLOSE UP): Pengambilan gambar dengan jarak yang sangat dekat. Biasanya, untuk gambar-gambar kecil agar lebih jelas dan detail, seperti anting tokoh. 2.      CAMERA FOLLOW: Petunjuk pengambilan gambar dengan cara mengikuti pergerakan obyek 3.      CAMERA PAN TO: Petunjuk pengambilan gambar dengan cara mengalihkan kamera kepada obyek yang dituju dari obyek sebelumnya 4.      COMMERCIAL BREAK: Jeda iklan. Penulis skenario harus memperhitungkan jeda ini, dengan memberi kejutan atau suspense agar penonton tetap menunggu adegan berikutnya. 5.      CREDIT TITLE: Penayangan nama tim kreatif dan orang yang terlibat dalam sebuah produksi...