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...