Pembuatan program konversi satuan yang akan saya bagikan di sini adalah program konversi satuan yang saya buat menggunakan aplikasi Visual Basic 6.0. Cara pembuatan program ini pun cukup sederhana, kita hanya memerlukan beberapa toolbox saja : label, text box, combo box, frame, command button, option button, dan check box. Agar lebih mudah untuk membuat program sederhana ini sebaiknya kita sudah menguasai dasar-dasar dari program VB 6.
Berikut ini akan saya jelaskan langkah - langkahnya.
- Buka program VB 6.0 kemudian buat standart EXE, buat 3 form dan 1 MIDI form dengan cara klik add form pada toolbar. jangan lupa save dahulu project anda.
Langkah 1 - MIDI form diatur tinggi dan lebarnya sesuai selera anda. Untuk membuat menu bar dapat menggunakan menu editor dengan cara klik icon Menu Editor pada toolbar sehingga muncul kotak dialog Menu Editor. Untuk membuat menu baru, klik Insert (Isi Caption dengan nama menu yang ingin dibuat, isi Name dengan nama unik untuk memudahkan dalam penyusunan kode nantinya). Untuk membuat sub menu, klik tanda panah kekanan, isi Caption dan Name. Anda juga dapat membuat shortcut untuk menu maupun sub menu dengan memilih pada kotak Shortcut.
Langkah 2a
Langkah 2b - MIDI form adalah tampilan pertama yang akan terlihat saat aplikasi ini dijalankan. Oleh karena itu, tampilan MIDI form harus dibuat semenarik mungkin, salah satu cara adalah dengan menambahkan gambar. Gambar dapat ditambahkan dengan menggunakan Picture Box pada toolbox. Setelah klik Picture Box kemudian drag sesuai selera anda. Untuk mengganti gambar, pilih gambar dengan cara klik tanda browse (…) pada kotak properties ( sebelah kanan jendela VB ). Untuk menjadika MIDI form ini menjadi menu utama maka perlu kita set dahulu dengan cara klik menu Project --> Project1 Properties --> Klik tab General kemudian ubah Startup Object menjadi MIDIForm1.
Langkah 3a
Langkah 3b - Stelah tampilan MIDI form sudah selesai, selanjutnya kita akan mendesain tampilan form1 yang akan kita buat untuk program konversi suhu. Pada program yang saya buat ini, saya cukup menggunakan beberapa tool pada toolbox, yaitu Label, TextBox, Frame, CommandButton, dan OptionButton. Untuk mengganti nama dari setiap tool yang telah digunakan, dapat dilakukan dengan cara mengganti Caption pada kotak Properties (paling kanan jendela VB).
Langkah 4a
Langkah 4b - Setelah tampilan form1 selesai, aktifkan form2 yang akan kita gunakan sebagai program konversi jarak. Pada form2 ini kita cukup menggunakan toolbox : Label, Frame, ComboBox, TextBox, dan CommandButton. Ganti caption pada kotak Properties sesuai selera anda. Khusus untuk nama ComboBox dapat diganti pada Text pada kotak Properties dan List item pada saat ComboBox diklik akan di input melalui kode yang akan saya bahas pada langkah selanjutnya.
Langkah 5 - Langkah selanjutnya adalah mendesain tampilan dari form3 yang akan dibuat untuk program konversi massa. Tampilan form3 yang saya buat kurang lebih sama seperti tampilan pada form2, hanya berbeda pada judul dan list item dalam ComboBox-nya nanti yang akan diisi melalui kode.
Langkah 6 - Setelah selesai mendesain tampilan semua form dan MIDI form, langkah selanjutnya adalah membuat kode-kode nya. Kita mulai dari kode pada MIDI form dahulu. Kita akan membuat kode yang berfungsi untuk membuat suatu action dari setiap menu dan sub menu yang telah kita buat tadi.
- Menu Exit
 |
| Langkah 7 |
Pada saat men-setting menu editor kita telah mengisi Name dengan nExit, ini akan menjadi nama objek dari menu Exit saat penulisan kode. Selanjutnya saya ingin action dari menu Exit adalah menutup program konversi ini, maka kode yang ditulis adalah:
Private Sub nExit_Click()
If (MsgBox("Ingin Keluar Program?", vbQuestion Or vbYesNo, "Exit") = vbNo) Then
Cancel = True
Else: MsgBox "TERIMAKASIH TELAH MENGGUNAKAN PROGRAM INI", vbInformation, "Program Konversi"
End
End If
End Sub
Sub Menu Suhu
Pada sub menu suhu ini saya menginginkan saat saya klik menu ini akan muncul tampilan form1 yang sebelumnya telah kita desain untuk program konversi suhu. Sehingga kode :
Private Sub nSuhu_Click()
Form1.Show
End Sub
Sub Menu Jarak
Pada sub menu suhu ini saya menginginkan saat saya klik menu ini akan muncul tampilan form2 yang sebelumnya telah kita desain untuk program konversi jarak. Sehingga kode :
Private Sub nJarak_Click()
Form2.Show
End Sub
Sub Menu Massa
Pada sub menu suhu ini saya menginginkan saat saya klik menu ini akan muncul tampilan form2 yang sebelumnya telah kita desain untuk program konversi jarak. Sehingga kode :
Private Sub nMassa_Click()
Form3.Show
End Sub
Kode untuk MIDI form selesai.8. Langkah selanjutnya adalah membuat kode untuk form1 yaitu program konversi suhu.
Pertama kita akan membuat kode untuk rumus yang nantinya akan dijalankan saat mengganti OptionButton dan menginput nilai pada TextBox. Tulis pada kotak kode:
Private Sub rumus()
If Option1.Value = True And Option5.Value = True Then
Text2.Text = Text1.Text
ElseIf Option1.Value = True And Option6.Value = True Then
Text2.Text = (Val(Text1.Text) * 9 / 5) + 32
ElseIf Option1.Value = True And Option7.Value = True Then
Text2.Text = Val(Text1.Text) * 4 / 5
ElseIf Option1.Value = True And Option8.Value = True Then
Text2.Text = Val(Text1.Text) + 273
ElseIf Option2.Value = True And Option5.Value = True Then
Text2.Text = (Val(Text1.Text) - 32) * 5 / 9
ElseIf Option2.Value = True And Option6.Value = True Then
Text2.Text = Text1.Text
ElseIf Option2.Value = True And Option7.Value = True Then
Text2.Text = (Val(Text1.Text) - 32) * 4 / 9
ElseIf Option2.Value = True And Option8.Value = True Then
Text2.Text = ((Val(Text1.Text) - 32) * 5 / 9) + 273
ElseIf Option3.Value = True And Option5.Value = True Then
Text2.Text = Val(Text1.Text) * 5 / 4
ElseIf Option3.Value = True And Option6.Value = True Then
Text2.Text = (Val(Text1.Text) * 9 / 4) + 32
ElseIf Option3.Value = True And Option7.Value = True Then
Text2.Text = Text1.Text
ElseIf Option3.Value = True And Option8.Value = True Then
Text2.Text = (Val(Text1.Text) * 5 / 4) + 273
ElseIf Option4.Value = True And Option5.Value = True Then
Text2.Text = Val(Text1.Text) - 273
ElseIf Option4.Value = True And Option6.Value = True Then
Text2.Text = ((Val(Text1.Text) - 273) * 9 / 5) + 32
ElseIf Option4.Value = True And Option7.Value = True Then
Text2.Text = (Val(Text1.Text) - 273) * 4 / 5
ElseIf Option4.Value = True And Option8.Value = True Then
Text2.Text = Text1.Text
End If
End Sub
Kode di atas merupakan kumpulan rumus untuk konversi suhu.
Selanjutnya adalah membuat kode agar setiap kita mengubah pilihan pada OptionButton maka hasil konversi juga akan ikut berubah.
Private Sub Option1_Click()
Call rumus
End Sub
Private Sub Option2_Click()
Call rumus
End Sub
Private Sub Option3_Click()
Call rumus
End Sub
Private Sub Option4_Click()
Call rumus
End Sub
Private Sub Option5_Click()
Call rumus
End Sub
Private Sub Option6_Click()
Call rumus
End Sub
Private Sub Option7_Click()
Call rumus
End Sub
Private Sub Option8_Click()
Call rumus
End Sub
Private Sub Text1_Change()
Call rumus
End Sub
Private Sub Text2_Change()
Call rumus
End Sub
Terakhir kita membuat kode untuk CommandButton agar saat diklik maka program akan tertutup dan kembali ke tampilan MIDI form.
Private Sub Command2_Click()
Unload Me
End Sub
Pertama, kita akan membuat item list pada setiap ComboBox, yaitu dengan menuliskan kode sebagai berikut:
Private Sub Form_Load()
Combo1.AddItem "Kilometer"
Combo1.AddItem "Hektometer"
Combo1.AddItem "Dekameter"
Combo1.AddItem "Meter"
Combo1.AddItem "Desimeter"
Combo1.AddItem "Centimeter"
Combo1.AddItem "Milimeter"
Combo1.AddItem "Inch"
Combo1.AddItem "Feet"
Combo2.AddItem "Kilometer"
Combo2.AddItem "Hektometer"
Combo2.AddItem "Dekameter"
Combo2.AddItem "Meter"
Combo2.AddItem "Desimeter"
Combo2.AddItem "Centimeter"
Combo2.AddItem "Milimeter"
Combo2.AddItem "Inch"
Combo2.AddItem "Feet"
End Sub
Selanjutnya kita akan membuat Rumus pertama yang akan kita beri nama rumus1. Berikut adalah kodenya:
Private Sub rumus1()
If Combo1.Text = "Kilometer" Then
a = 1
ElseIf Combo1.Text = "Hektometer" Then
a = 2
ElseIf Combo1.Text = "Dekameter" Then
a = 3
ElseIf Combo1.Text = "Meter" Then
a = 4
ElseIf Combo1.Text = "Desimeter" Then
a = 5
ElseIf Combo1.Text = "Centimeter" Then
a = 6
ElseIf Combo1.Text = "Milimeter" Then
a = 7
End If
If Combo2.Text = "Kilometer" Then
b = 1
ElseIf Combo2.Text = "Hektometer" Then
b = 2
ElseIf Combo2.Text = "Dekameter" Then
b = 3
ElseIf Combo2.Text = "Meter" Then
b = 4
ElseIf Combo2.Text = "Desimeter" Then
b = 5
ElseIf Combo2.Text = "Centimeter" Then
b = 6
ElseIf Combo2.Text = "Milimeter" Then
b = 7
End If
Bil = Val(Text1.Text)
c = b - a
Hasil = Bil * (10 ^ c)
Text2.Text = Hasil
End Sub
Selanjutnya untuk rumus kedua akan kita beri nama rumus2.
Private Sub rumus2() 'konversi all ke inch'
If Combo1.Text = "Inch" And Combo2.Text = "Inch" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Kilometer" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10 ^ -5
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Hektometer" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10 ^ -4
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Dekameter" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10 ^ -3
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Meter" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10 ^ -2
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Desimeter" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10 ^ -1
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Centimeter" Then
Text2.Text = Val(Text1.Text) * 2.54
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Milimeter" Then
Text2.Text = (Val(Text1.Text) * 2.54) * 10
ElseIf Combo1.Text = "Inch" And Combo2.Text = "Feet" Then
Text2.Text = Val(Text1.Text) / 12
'konversi feet ke all'
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Kilometer" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10 ^ -3
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Hektometer" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10 ^ -2
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Dekameter" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10 ^ -1
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Meter" Then
Text2.Text = Val(Text1.Text) * 0.3048
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Desimeter" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Centimeter" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10 ^ 2
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Milimeter" Then
Text2.Text = (Val(Text1.Text) * 0.3048) * 10 ^ 3
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Inch" Then
Text2.Text = Val(Text1.Text) * 12
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Feet" Then
Text2.Text = Text1.Text
'konversi all ke inch'
ElseIf Combo1.Text = "Kilometer" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 5) / 2.54
ElseIf Combo1.Text = "Hektometer" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 4) / 2.54
ElseIf Combo1.Text = "Dekameter" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 3) / 2.54
ElseIf Combo1.Text = "Meter" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 2) / 2.54
ElseIf Combo1.Text = "Desimeter" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10) / 2.54
ElseIf Combo1.Text = "Centimeter" And Combo2.Text = "Inch" Then
Text2.Text = Val(Text1.Text) / 2.54
ElseIf Combo1.Text = "Milimeter" And Combo2.Text = "Inch" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -1) / 2.54
ElseIf Combo1.Text = "Feet" And Combo2.Text = "Inch" Then
Text2.Text = Val(Text1.Text) * 12
'konversi all ke feet'
ElseIf Combo1.Text = "Kilometer" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 3) / 0.3048
ElseIf Combo1.Text = "Hektometer" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 2) / 0.3048
ElseIf Combo1.Text = "Dekameter" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ 1) / 0.3048
ElseIf Combo1.Text = "Meter" And Combo2.Text = "Feet" Then
Text2.Text = Val(Text1.Text) / 0.3048
ElseIf Combo1.Text = "Desimeter" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -1) / 0.3048
ElseIf Combo1.Text = "Centimeter" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -2) / 0.3048
ElseIf Combo1.Text = "Milimeter" And Combo2.Text = "Feet" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -3) / 0.3048
End If
End Sub
Kemudian kita akan membuat kode untuk memanggil rumus1 dan rumus2 ketika kita mengubah ComboBox dan TextBox diganti.
Private Sub Text1_Change()
Call rumus1
Call rumus2
End Sub
Private Sub Text2_Change()
Call rumus1
Call rumus2
End Sub
Terakir sama seperti form1, kita akan membuat kode tombol CommandBotton agar dapat menutup program.
Private Sub Command2_Click()10. Langkah terakhir adalah membuat kode untuk form3 yaitu program konversi massa. Kode yang digunakan hampir sama seperti form2.
Unload Me
End Sub
Pertama, kita akan membuat item pada setiap ComboBox.
Private Sub Form_Load()
Combo1.AddItem "Ton"
Combo1.AddItem "Kwintal"
Combo1.AddItem "Kilogram"
Combo1.AddItem "Gram"
Combo1.AddItem "Pound"
Combo1.AddItem "lb"
Combo1.AddItem "kip"
Combo1.AddItem "Slug"
Combo2.AddItem "Ton"
Combo2.AddItem "Kwintal"
Combo2.AddItem "Kilogram"
Combo2.AddItem "Gram"
Combo2.AddItem "Pound"
Combo2.AddItem "lb"
Combo2.AddItem "kip"
Combo2.AddItem "Slug"
End Sub
Kedua, membuat kode rumus konversi. Kode rumus ini cukup panjang karena berisi rumus konversi yang akan digunakan.
Private Sub rumus1()
If Combo1.Text = "Ton" And Combo2.Text = "Ton" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Ton" And Combo2.Text = "Kwintal" Then
Text2.Text = Val(Text1.Text) * 10
ElseIf Combo1.Text = "Ton" And Combo2.Text = "Kilogram" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf Combo1.Text = "Ton" And Combo2.Text = "Gram" Then
Text2.Text = Val(Text1.Text) * 10 ^ 6
ElseIf Combo1.Text = "Ton" And Combo2.Text = "Pound" Then
Text2.Text = (Val(Text1.Text) * 1000) / 0.45359237
ElseIf Combo1.Text = "Ton" And Combo2.Text = "lb" Then
Text2.Text = ((Val(Text1.Text) * 1000) / 14.59) / 0.03108
ElseIf Combo1.Text = "Ton" And Combo2.Text = "kip" Then
Text2.Text = (((Val(Text1.Text) * 1000) / 14.59) / 0.03108) / 1000
ElseIf Combo1.Text = "Ton" And Combo2.Text = "Slug" Then
Text2.Text = (Val(Text1.Text) * 1000) / 14.59
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Ton" Then
Text2.Text = Val(Text1.Text) / 10
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Kwintal" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Kilogram" Then
Text2.Text = Val(Text1.Text) * 100
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Gram" Then
Text2.Text = Val(Text1.Text) * 10 ^ 5
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Pound" Then
Text2.Text = (Val(Text1.Text) * 100) / 0.45359237
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "lb" Then
Text2.Text = ((Val(Text1.Text) * 100) / 14.59) / 0.03108
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "kip" Then
Text2.Text = (((Val(Text1.Text) * 100) / 14.59) / 0.03108) / 1000
ElseIf Combo1.Text = "Kwintal" And Combo2.Text = "Slug" Then
Text2.Text = (Val(Text1.Text) * 100) / 14.59
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Ton" Then
Text2.Text = Val(Text1.Text) / 1000
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Kwintal" Then
Text2.Text = Val(Text1.Text) / 100
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Kilogram" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Gram" Then
Text2.Text = Val(Text1.Text) * 10 ^ 3
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Pound" Then
Text2.Text = Val(Text1.Text) / 0.45359237
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "lb" Then
Text2.Text = (Val(Text1.Text) / 14.59) / 0.03108
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "kip" Then
Text2.Text = (((Val(Text1.Text) / 14.59) / 0.03108) / 1000)
ElseIf Combo1.Text = "Kilogram" And Combo2.Text = "Slug" Then
Text2.Text = Val(Text1.Text) / 14.59
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Ton" Then
Text2.Text = Val(Text1.Text) / 10 ^ 6
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Kwintal" Then
Text2.Text = Val(Text1.Text) * 10 ^ -5
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Kilogram" Then
Text2.Text = Val(Text1.Text) * 10 ^ -3
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Gram" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Pound" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -3) / 0.45359237
ElseIf Combo1.Text = "Gram" And Combo2.Text = "lb" Then
Text2.Text = ((Val(Text1.Text) * 10 ^ -3) / 14.59) / 0.03108
ElseIf Combo1.Text = "Gram" And Combo2.Text = "kip" Then
Text2.Text = (((Val(Text1.Text) * 10 ^ -3) / 14.59) / 0.03108) / 1000
ElseIf Combo1.Text = "Gram" And Combo2.Text = "Slug" Then
Text2.Text = (Val(Text1.Text) * 10 ^ -3) / 14.59
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Ton" Then
Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ -3
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Kwintal" Then
Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ -2
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Kilogram" Then
Text2.Text = Val(Text1.Text) * 0.45359237
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Gram" Then
Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ 3
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Pound" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "Pound" And Combo2.Text = "lb" Then
Text2.Text = ((Val(Text1.Text) * 0.45359237) / 14.59) / 0.03108
ElseIf Combo1.Text = "Pound" And Combo2.Text = "kip" Then
Text2.Text = (((Val(Text1.Text) * 0.45359237) / 14.59) / 0.03108) / 1000
ElseIf Combo1.Text = "Pound" And Combo2.Text = "Slug" Then
Text2.Text = (Val(Text1.Text) * 0.45359237) / 14.59
ElseIf Combo1.Text = "lb" And Combo2.Text = "Ton" Then
Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ 3
ElseIf Combo1.Text = "lb" And Combo2.Text = "Kwintal" Then
Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ 2
ElseIf Combo1.Text = "lb" And Combo2.Text = "Kilogram" Then
Text2.Text = (Val(Text1.Text) * 0.03108) * 14.59
ElseIf Combo1.Text = "lb" And Combo2.Text = "Gram" Then
Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ -3
ElseIf Combo1.Text = "lb" And Combo2.Text = "Pound" Then
Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) / 0.45359237
ElseIf Combo1.Text = "lb" And Combo2.Text = "lb" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "lb" And Combo2.Text = "kip" Then
Text2.Text = Val(Text1.Text) / 1000
ElseIf Combo1.Text = "lb" And Combo2.Text = "Slug" Then
Text2.Text = Val(Text1.Text) * 0.03108
ElseIf Combo1.Text = "kip" And Combo2.Text = "Ton" Then
Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ -3
ElseIf Combo1.Text = "kip" And Combo2.Text = "Kwintal" Then
Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ -2
ElseIf Combo1.Text = "kip" And Combo2.Text = "Kilogram" Then
Text2.Text = ((Val(Text1.Text) * 1000) * 0.03108) * 14.59
ElseIf Combo1.Text = "kip" And Combo2.Text = "Gram" Then
Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ 3
ElseIf Combo1.Text = "kip" And Combo2.Text = "Pound" Then
Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 0.45359237
ElseIf Combo1.Text = "kip" And Combo2.Text = "lb" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf Combo1.Text = "kip" And Combo2.Text = "kip" Then
Text2.Text = Text1.Text
ElseIf Combo1.Text = "kip" And Combo2.Text = "Slug" Then
Text2.Text = (Val(Text1.Text) * 1000) * 0.03108
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Ton" Then
Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ -3
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Kwintal" Then
Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ -2
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Kilogram" Then
Text2.Text = Val(Text1.Text) * 14.59
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Gram" Then
Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ 3
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Pound" Then
Text2.Text = (Val(Text1.Text) * 14.59) / 0.45359273
ElseIf Combo1.Text = "Slug" And Combo2.Text = "lb" Then
Text2.Text = Val(Text1.Text) / 0.03108
ElseIf Combo1.Text = "Slug" And Combo2.Text = "kip" Then
Text2.Text = (Val(Text1.Text) / 0.03108) / 1000
ElseIf Combo1.Text = "Slug" And Combo2.Text = "Slug" Then
Text2.Text = Text1.Text
End If
End Sub
Setelah itu kita membuat kode agar setiap merubah nilai pada TextBox maka rumus akan dijalankan.
Private Sub Text1_Change()
Call rumus1
End Sub
Terakir kita membuat kode tombol CommandBotton agar dapat menutup program.
Private Sub Command1_Click()
Unload Me
End Sub
Program konversi telah selesai, silahkan dicoba semoga bermanfaat.Pembuatan program sederhana ini memang cukup melelahkan terutama dalam menuliskan code-nya, teteapi jika sudah paham tentang prinsip code yang digunkan maka akan terasa gampang.
Untuk mengunduh aplikasi ini, saya berikan link download aplikasi yang sudah saya buat. Anda dapat memodifikasi aplikasi ini sesuai kebutuhan anda. Klik disini, semoga dapat membantu membantu.
Comments
Post a Comment