Membuat Konversi Suhu Sederhana Menggunakan Visual Basic 6.0 (VB6)

Hai Teman-taman Zie-Berbagi kali ini saya mencoba untuk memberikan tutorial yang sangat sederhana dan cukup mudah untuk teman-teman semua coba...
Menurut saya ini tidak terlalu sulit kq , hanya butuh ketekunan , ketelitian dan keinginan yang kuat .


Saya juga ingin lebih memperdalam lagi tentang visual basic ini, namun karena keterbatasan media dan keterbatasan waktu sekolah membuat saya harus mengurungkan niat saya.
Oleh karena itu sobat semua yang masih punya waktu untuk belajar mari manfaatkan sebaik-baik nya supaya tidak menyesal ya.


Baik langsung saja ke topik pembicaraan , kali ini saya akan sedikit menjelaskan tentang cara membuat konversi suhu sederhana menggunakan visual basic 6.0

Yang kita Perlukan adalah
*1 Buah form
*1 Buah label
*2 Buah combobox
*2 Buah textbox
*3 Buah command button dan kalo perlu
*2 Buah frame buat hiasan angsung kita buat ,,


Masukan kode berikut pada form

 Dim A, B, C, D, U, V
Dim Hasil
Dim SuhuAwal
Dim DR, ke


Private Sub Form_Load()
    Dari.AddItem "Celsius"
    Dari.AddItem "Reamur"
    Dari.AddItem "Fahrenheit"
    Kesuhu.AddItem "Celsius"
    Kesuhu.AddItem "Reamur"
    Kesuhu.AddItem "Fahrenheit"
End Sub



Private Sub OK_Click()
SuhuAwal = Val(txtSuhu.Text)
Select Case Dari.ListIndex
Case 0
    A = 5
    V = 0
Case 1
    A = 4
    V = 0
Case 2
    A = 9
    V = 32
End Select

Select Case Kesuhu.ListIndex
Case 0
    B = 5
    U = 0
Case 1
    B = 4
    U = 0
Case 2
    B = 9
    U = 32
End Select

DR = Val(A)
ke = Val(B)
If DR = ke Then
Hasil = SuhuAwal
ElseIf DR = 9 Then
Hasil = (SuhuAwal - V) / (A / B)
Else
Hasil = (SuhuAwal * (B / A)) + U
End If
lbHasil = SuhuAwal & " " & Dari.Text & " = " & Int(Hasil) & " " & Kesuhu.Text
End Sub

Private Sub Hapus_Click()
txtSuhu.Text = ""
lbHasil.Caption = ""
Dari.Text = ""
Kesuhu.Text = ""
End Sub

Private Sub Exit_Click()
End
End Sub





Tekan F5 Atau pilih RUN untuk menjalankan program.

NB: Jika langsung Copas Insya Alloh bisa langsung berjalan programnya tanpa erorr , tapi apabila error biasanya kita hanya perlu mengganti symbol-symbol saja

Jika ada error atau kesalahan syntax coba teliti lagi kemungkinan ada kesalahan huruf atau kesalahan penulisan.
Apabila masih error silahkan untuk berkomentar di bawah ....

Sekian Dulu Tutorial sederhana dari saya , apabila ada kesalahan dan kekurangan mohon maaf karena sesungguhnya manusia itu tidak ada yang sempurna...