MAKALAH TENTANG PEMROGRAMAN VISUAL BASIC ALAT KONVERSI JARAK
Bab 1
Pendahuluan
- Latar belakang
pada saat ini banyak sekali hal-hal yang bersifat instan lebih dipilih masyarakat dari pada hal-hal yang bersifat memerlukan proses,mulai dari makanan,system administrasi,alat komunikasi dan lain sebagainya.
Untuk itu pada kesempatan kali ini kami penyusun makalah juga akan mencoba menyajikan alat yang akan memudahkan kehidupan masyarakat yang kami beri nama “Aplikasi konversi jarak”.
Karena perlunya masyarakat tahu perubahan jarak dari satuan jarak satu ke satuan jarak yang lainnya.semoga dengan aplikasi ini akan lebih memudahkan kehidupan masyarakat.
- Rumusan masalah
- Apa itu aplikasi konversi jarak?
- Apa saja komponen-komponen aplikasi konversi jarak?
- Apa kegunaan aplikasi konversi jarak?
- Bagaimana cara pengoprasian aplikasi konversi jarak?
- Tujuan
- Untuk mengetahui apa itu aplikasi konversi jarak.
- Mengetahui komponen-komponen aplikasi konversi jarak.
- Mengetahui kegunaan aplikasi konversi jarak.
- Mengetahui cara pengoprasian aplikasi konversi jarak.
Bab 2 : Pembahasan
APLIKASI KONVERSI JARAK
- Pengertian
Dalam kehidupan sehari-hari kita pasti sering berpergian,entah itu kegiatan rutin atau tidak tanpa kita sadari kita telah melakukan suatu perjalanan,dan didalam sebuah perjalanan pasti ada yang namanya jarak,nah pada kesempatan kali ini Kami akan mencoba membahas tentang aplikasi yang berfungsi merubah jarak dari suatu satuan ke satuan yang lain yaitu dengan aplikasi konversi jarak.
Apa itu aplikasi konversi jarak? Aplikasi konversi jarak adalah aplikasi yang digunakan untuk menghitung sebuah jarak dari suatu satuan ke satuan yang lain.contoh saja kita berjalan sejauh 1000 meter,tp dalam satuan Kilometer kita hanya berjalan sejauh 1 kilometer.pada aplikasi ini dilengkapi dengan 7 opsi konversi kilometer sampai millimeter.
Jadi dengan adanya aplikasi ini kita sangat mudah menghitung satuan jarak satu ke satuan jarak yang lainnya.
- Komponen-komponen
Sebelum kita mulai pengoprasian aplikasi konversi jarak,alangkah baiknya kita mengetahui,bahan bahannya agar kita dapat mengetahui cara membuatnya sehingga mungkin lebih bermanfaat nantinya.
Komponen-komponen aplikasi ini terdiri dari :
- Label
Berfungsi sebagai tanda nama inputan .
- Text box
Berfungsi sebagai tempat inputan.
- Commond button
Berfungsi sebagai tombol eksekusi.
- Combo box
Berungsi sebagai opsi yang akan di pilih
- Frame
Berfungsi sebagai latar user interface.
Komponen-komponennya sangat sederhana namun cukup untuk mewakili untuk membangun sebuah aplikasi yang memudahkan penggunanya.
- Algoritma dan coding
Semua aplikasi pasti mempunyai algoritma dan coding begitu pula aplikasi konversi jarak,pada aplikasi ini digunakan sebuah algoritma yang sangat simple ,dimana “combo dari” diwakili dengan huruf “a” dan “combo ke” diwakili dengan huruf “b” dengan ketentuan “c” adalah hasil yang harus dihitung oleh program.
Penulisan rumus c = b – a
Setelah “c” ditemukan barulah kita masuk rumus selanjutnya yaitu hasil = Bil * (10 ^ c)
Dimana :
hasil : hasil akhir
Bil : inputan user
10 : ketentuan satuan
C : satuan jarak yang harus di proses
Dengan algoritma seperti diatas maka akan dapat di hasilkan konversi jarak yang tepat sesuai keinginan user atau pengguna.lebih jelasnya lihat codig di bawah ini :
Private Sub Command1_Click()
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
Private Sub Command2_Click()
End
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If (MsgBox(“Yakin Ingin Keluar???”, vbQuestion Or vbYesNo, “Keluar”) = vbNo) Then
Cancel = True
Else
Terimakasih suda menggunakan aplikasi ini
End If
End Sub
- Cara pengoprasian
Akhirnya sampai juga pada tahap pengoprasian aplikasi konversi jarak,disini kita hanya harus memilih satuan yang akan kita ubah dan memilih satuan yang kita inginkan,contoh saja meter ke kilo meter,kita cukup klik opsi meter di “combo dari” dan memilih opsi kilometer di “combo ke”,setelah itu kita masukkan nilai jarak yang kita inginkan di text box masukan.lalu klik “commond button OK” maka hasilnya akan keluar langsung di “text box hasil”.
Cukup mudah bukan,nah semoga aplikasi ini bermanfaat untuk pengguna dan memudahkan pengguna.
Bab 3
Penutup
Alhamdulillah akhirnya setelah kita pelajari tentang aplikasi konversi jarak semoga kita dapat mengerti apa aplikasi konversi jarak ,cara pembuatan aplikasi dan algoritma codingnya serta cara pengoprasiannya.sehingga para pembaca mendapat wawasan baru tentang aplikasi visual basic.
Untuk segala jenis kekurangan dalam penulisan kami atas nama penulis mohon maaf sebesar-besarnya,semoga tulisan ini bermanfaat dan berguna bagi para pembaca.terimakasih atas perhatian pembaca salam sukses dari kami penulis “APLIKASI KONVERSI JARAK”.