TutorialCara Membuat Kamus Dengan Visual Basic 6.0 YouTube from www.youtube.com. Berikut program tersebut, saya sertakan juga source codenya. Tutorial cara membuat rambut palsu dengan photoshop; Sistem informasi parkir kendaraan dengan visual basic 6 saya pikir anda yang menemukan artikel ini adalah mahasiswa teknik informatika yangLAPORAN AKHIR PRAKTIKUM Nama Ema Dwi K NPM 23114547 Kelas 1KB07 Materi Visual Basic 6 Tanggal 16 Oktober 2014/23 Oktober 2014 Asisten Baris Ketua Asisten Paraf Asisten ..................... UNIVERSITAS GUNADARMA LABORATORIUM SISTEM KOMPUTER 2014/2015 Visual Basic merupakan bahasa pemograman komputer. Bahasa pemograman adalah perintah-perintah atau instruksi yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Visual Basic selain disebut sebagai bahasa pemograman, juga sering disebut sebagai sarana tool untuk menghasilkan program-program aplikasi berbasiskan windows. Visual Basic memungkinkan pembuatan aplikasi Graphical User Interface GUI atau pemograman yang menggunakan tampilan grafis sebagai alat komunikasi dengan pemakainya. Dalam Visual Basic untuk pembuatan tampilan user interface relatif mudah dilakukan karena hanya perlu meletakkan objek-objek grafis ke sumber form yang sudah disediakan Visual Basic. Setelah itu cukup mengatur properti dari objek-objek tersebut. Inilah Tampilan awal saat membuka aplikasi Visual Basic Membuat Program Membuat program sederhana dengan menggunakan Visual Basic salah satu contoh program yang akan dibuat adalah Daftar Menu Makanan. Berikut adalah cara membuat Project Daftar Menu Makanan Buka aplikasi Visual Basic Setelah Aplikasi di buka, pilih menu untuk membuat program. Lalu klik Open Setelah itu, kita buat nama pada bagian yang ingin kita beri nama dengan Label. Lalu ganti nama label dengan Daftar Makanan. Untuk menggantinya klik label yg sudah kita buat pada form lalu pada kolom Propertise sebelah kanan terdapat caption lalu ganti label 1 menjadi Daftar Makanan. Setelah membuat label , buat 1 combobox . Lakukan cara diatas berulang label 2 di ganti dengan nama Pesanan, lebel 3 diganti dengan nama Harga, label 4 diganti dengan nama Jumlah Harga. Setelah itu kita buat kolom untuk mengisi data keterangan yang akan d hitung oleh komputer dengan menggunakan Textbox .Lalu kosongkan nama text1 pada kolom sebelah kanan. Setelah itu buat lagi dibawah kolom kosong yg sudah dibuat sebelumnya dan kosongkan nama text2. Buat lagi text3 lalu kosongkan nama text3. Setelah itu, buat tombol yang akan digunakan pada program dengan menggunakan CommandButton , commandButton yang saya gunakan 2 CommandButton. Setelah itu membuat kolom list . SetelahTampilan menjadi seperti diatas langkah selanjutnya ialah 1. Double Klik Pada CommandButton1Tambah Pesanan, Masukan codingan sebagai berikut Private Sub Command1_Click If Combo1 = "Paket Pecel Ayam" Then = "Paket Pecel Ayam" = 15000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Paket Pecel Ayam maka di text1 akan muncul tulisan Paket Pecel Ayam dan di Text2 akan muncul harga dari Paket Pecel Ayam sebesar If Combo1 = "Paket Pecel Lele" Then = "Paket Pecel Lele" = 13000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Paket Pecel Lele maka di text1 akan muncul tulisan Paket Pecel Lele dan di Text2 akan muncul harga dari Paket Pecel Lele sebesar If Combo1 = "Sate Ayam" Then = "Sate Ayam" = 15000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Sate Ayam maka di text1 akan muncul tulisan Sate Ayam dan di Text2 akan muncul harga dari Sate Ayam sebesar If Combo1 = "Sate Kambing" Then = "Sate Kambing" = 20000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Sate Kambing maka di text1 akan muncul tulisan Sate Kambing dan di Text2 akan muncul harga dari Sate Kambing sebesar If Combo1 = "Teh Manis" Then = "Teh Manis" = 3000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Teh Manismaka di text1 akan muncul tulisan Teh Manis dan di Text2 akan muncul harga dari Teh Manis If Combo1 = "Jeruk Manis" Then = "Jeruk Manis" = 5000 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Jeruk Manis maka di text1 akan muncul tulisan Jeruk Manis dan di Text2 akan muncul harga dari Jeruk Manis sebesar If Combo1 = "Es/Hangat" Then = "Es/Hangat" = 500 End If Dari perintah tersebut dimaksudkan jika di combo 1 terdapat daftar makanan Es/Hangat maka di text1 akan muncul tulisan Es/Hangat dan di Text2 akan muncul harga dari Es/Hangat sebesar If Combo1 = "Paket Pecel Ayam" Then "Paket Pecel Ayam" If Combo1 = "Paket Pecel Lele" Then "Paket Pecel Lele" If Combo1 = "Sate Ayam" Then "Sate Ayam" If Combo1 = "Sate Kambing" Then "Sate Kambing" If Combo1 = "Teh Manis" Then "Teh Manis" If Combo1 = "Jeruk Manis" Then "Jeruk Manis" If Combo1 = "Es/Hangat" Then "Es/Hangat" If Combo1 = "Paket Pecel Ayam" Then " 15000" If Combo1 = "Paket Pecel Lele" Then " 13000" If Combo1 = "Sate Ayam" Then " 15000" If Combo1 = "Sate Kambing" Then " 20000" If Combo1 = "Teh Manis" Then " 3000" If Combo1 = "Jeruk Manis" Then " 5000" If Combo1 = "Es/Hangat" Then " 500" Perintah Di Atas menunjukan bahwa jika combo1 muncul pesanan paket pecel ayam dan ditambah menu selanjutnya maka di list 1 akan muncul daftar pesanan dan di list 2 akan ditampilkan daftar harga . Setelah itu double klik pada CommandButton2 Jumlah Harga, masukan perintah sebagai berikut Private Sub Command2_Click Dim totalbelanja As Long Dim t As Integer totalbelanja = 0 For t = 0 To - 1 totalbelanja = totalbelanja + Val Next = totalbelanja End Sub Setelah itu double klik pada form, masukan perintah sebagai berikut Private Sub Form_Load "Paket Pecel Ayam" "Paket Pecel Lele" "Sate Ayam" "Sate Kambing" "Teh Manis" "Jeruk Manis" "Es/Hangat" End Sub Setelah semua perintah sudah dimasukan, kita lakukan test drive dengan me-running program yang baru kita buat dengan cara, klik icon Start pada toolbar diatas. Maka program akan berjalan seperti pada contoh berikut. Setelah program berjalan dengan lancar, kita buat program ini agar bisa dibuka dan berjalan normal seperti pada program umumnya, dengan cara sebagai berikut Klik File > Pilih Make >Pilih tujuan penyimpanan program dan Beri nama Daftar Menu Makanan pada kolom isian nama yang tersedia > Klik OK. Selesai
Tahupentingnya bahan-bahan makanan yang bernilai gizi, dan dapat memasak makanan di perkemahan untuk sedikitnya 5 orang. Cara Membuat Program Menu Utama Dengan Menu Editor Pada Visual Basic 6.0 Cara Membuat Program Menu Utama Dengan Menu Editor Pada
Post ke selanjutnya kita akan Membuat Program Daftar menu makanan dan jumlah harga. Pertama buat sebuah form pada visual basic Kemudian buat 4 label yang pertama untuk Menu makanan, yang kedua untuk Food, yang ketiga untuk Drink, yang terakhir untuk Total harga di dalam frame Selanjutnya buat 2 textboxt, 3 Frame, 2 listbox, dan 3 command button. Contoh seperti gambar dibawah. Pertama buat general codingnya Dim JumlahMakan As String Dim JumlahMinum As String Dim DaftarMakanMinum As String Dim MakananPilihan As String Dim MinumanPilihan As String Dim Harga1 As Long Dim Harga2 As Long Dim Jumlah1 As Long Dim Harga3 As String Dim Harga4 As String Dim Jumlah2 As String Selanjutnya buat codingan command1 Private Sub Command1_Click JumlahMakan = JumlahMinum = DaftarMakanMinum = MakananPilihan = MinumanPilihan = If JumlahMakan = “” Or JumlahMinum = “” Then MsgBox “Masukkan Jumlah Pesanan” ElseIf MakananPilihan = “” Or MinumanPilihan = “” Then MsgBox “Harap Pilih Menu” Else Harga1 = JumlahMakan * Harga2 = JumlahMinum * Jumlah1 = Harga1 + Harga2 Harga3 = CStrHarga1 Harga4 = CStrHarga2 Jumlah2 = CStrJumlah1 DaftarMakanMinum = “Jumlah Pesanan ” + “Nama Menu ” + “Harga” + vbNewLine DaftarMakanMinum = DaftarMakanMinum + JumlahMakan + MakananPilihan + Harga3 + vbNewLine DaftarMakanMinum = DaftarMakanMinum + JumlahMinum + MinumanPilihan + Harga4 + vbNewLine DaftarMakanMinum = DaftarMakanMinum + “Total ” + Jumlah2 = DaftarMakanMinum End If End Sub Selanjutnya buat codingan untuk command button ke 2 Private Sub Command2_Click = “” = “” = “” End Sub Kemudian buat codingan untuk command button ke 3 Private Sub Command3_Click End End Sub Lalu buat codingan untuk menambahkan menunya Private Sub Form_Load “Ayam” = 5000 “Bebek” = 5500 “Teh Manis” = 2500 “Kopi” = 3500 End Sub Hasilnya Dan Jika Belum memesan kemudian di klik maka akan muncul message box Itu karena tadi kita memasukan cooding If JumlahMakan = “” Or JumlahMinum = “” Then MsgBox “Masukkan Jumlah Pesanan” ElseIf MakananPilihan = “” Or MinumanPilihan = “” Then MsgBox “Harap Pilih Menu”BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/STUDIO 2010 Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/Studio 2010 yaitu “MEMBUAT TABEL MENU MAKANAN DAN MINUMAN”. Sebelum kita mulai membuat TUTORIALNYA, akan lebih barokahnya apabila kita memulai dengan membaca Bismillahirrohmaanirrohiimm. Langkah pertama membuka aplikasi Visual Studio 2010. Klik shortcut VB 2010 pada menu desktop. Contoh Atau bisa melalui start All Program Microsoft Visual Studio 2010 Contoh Langkah kedua. Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini kemudian pilih pada menu “New Project...” Setelah menekan New Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan OK Setelah anda masuk kedalam VB 2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka ketik pada keyboard anda “Ctrl+Alt+ X Jika ingin mengganti nama “form1” bisa anda melakukannya dengan mengganti dari properties dengan menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan “koding” agar lebih pasih dalam menggunakan rumus pada VB 2010. CARANYA dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya. Dan anda bisa memperbesar lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya lebih besar. Cara mengubah nama “form1” menggunakan nama lain seperti “Latihanku” adalah Masukkan rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah ini Private Sub Form1_LoadByVal sender As ByVal e As Handles = "Latihanku" Koding yang benar. End Sub Setelah anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debuggingF5” setelah hasilnya keluar maka akan tampil seperti ini. Jangan lupa ketika anda ingin melanjutkan untuk memasukkan koding/rumus maka stop dulu “RUN”nya dengan menekan icon “X” berwarna merah pada form1/”Latihanku” pada gambar diatas. Atau bisa dilakukan dengan menekan “stop debuggingCtrl+Alt+Break”. Jangan Lupa. Mengisi koding harus seperti pada teks diatas, tanpa harus perlu menggunakan “spasi” karena apabila koding/rumusnya memang benar maka secara otomatis koding tersebut mempunyai jarak atau spasi. Apabila anda memasukkan koding/rumus kemudian ada garis bawah pada koding tersebut maka anda memasukkan koding dengan cara yang salah. Contoh koding yang benar dan setelah di “RUN” seperti gambar dibawah ini Baiklah setelah semuanya beres langsung saja kita praktikkan bagaimana cara membuat “tabel menu makanan dan minuman” pada VB 2010. BAHAN-BAHAN Aturlah menu form1/”Latihanku” seperti gambar di bawah ini Setelah anda mengaturnya seperti ini silahkan anda masuk ke dalam koding pada menu form1/”Latihanku” dengan cara mengklik 2 kali. Dan masukkanlah koding seperti ini Private Sub Form1_LoadByVal sender As ByVal e As Handles = "LATIHANKU" = "MENU MAKANAN" = "MENU MINUMAN" = "MAKANAN" = "HARGA" = "MINUMAN" = "HARGA" = "Nasi Goreng" = "Pecel Lele" = "Ayam Bakar" = "Sate Pusut" = "Es Teler" = "Es Alpukat" = "Kopi" = "Teh Manis" End Sub Setelah anda memasukkan semua koding di atas kemudian kliklah 2 kali pada radio button untuk memasukkan kodingnya agar bisa menampilkan makanan dan harga yang anda pilih. Contoh Private Sub RadioButton1_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Nasi Goreng" = " Else = "" = "" End If End Sub Private Sub RadioButton2_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Pecel Lele" = " Else = "" = "" End If End Sub Private Sub RadioButton3_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Ayam Bakar" = " Else = "" = "" End If End Sub Private Sub RadioButton4_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Sate Pusut" = " Else = "" = "" End If End Sub Jangan Lupa Masukkanlah koding diatas secara satu persatu pada setiap “Radiobutton” anda bisa copy paste untuk lebih mempertmudah anda, dan mengganti nomer dari setiap radiobutton tersebut beserta nama menu makanan dan harganya. Setlah anda menjalankannya atau “RUN” maka hasilnnya seperti ini. Setelah seperti ini sekarang adalah langkah terakhir anda yaitu memasukkan koding pada “Checkbox” secara satu persatu seperti peraturan pada “Radiobutton” diatas. Contoh Private Sub CheckBox1_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Es Teler" = " Else = "" = "" End If End Sub Private Sub CheckBox2_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Es Alpukat" = " Else = "" = "" End If End Sub Private Sub CheckBox3_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Kopi" = " Else = "" = "" End If End Sub Private Sub CheckBox4_CheckedChangedByVal sender As ByVal e As Handles If = True Then = "Teh Manis" = " Else = "" = "" End If End Sub End Class Setelah anda “RUN” maka hasilnya seperti ini. Simpan Program Dengan Mengklik Save All. Sekian tutorial dari saya, semoga bermanfaat bagi kita semua. Terima Kasih,Wassalamualaikum “SELAMAT MENCOBA” GOOD LUCK MASUJAM
1 Buat lah Folder Khusus. Hal yang pertama kali perlu Anda lakukan untuk belajar macro excel adalah dengan membuat folder khusus yang berfungsi menyimpan hasil pembelajaran macro serta VBA. Anda bisa meletakkan folder dimana saja. Termasuk untuk menyimpannya pada folder Drive D dengan nama “Kelas Macro Excel”. 2.Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ?? Yang akan kita coba buat hari ini adalah membuat Program menu makanan menggunakan visual basic, programnya cukup sederhana dan codingnya juga sedikit jadi saya yakin kalian cepat bisa lah, saya juga akan coba jelaskan sedetail mungkin. Dalam program menu makanan ini akan ada nama restoran, daftar menu makanan dan minuman, bagian untuk menghitung harga makanan dan minuman dan total keseluruhan, setiap kita memasukan jenis pesanan dan porsi harga akan otomatis tertera dan diinputkan sesuai dengan yang ada di daftar menu oke kita langsung lihat gambarannya dibawah untuk lebih jelasnya. Ini adalah tampilan programnya Untuk background, jenis font, dan posisi bisa disesuaikan lah ya sesuai selera saja. Dan ini adalah bagian-bagian yang harus ada dan harus kalian masukan, untuk membuat tampilan seperti diatas dan agar programnya berjalan sukses tentunya. Jenis Name Text Item Label Label1 Nama Restoran kalian GroupBox Groupbox1 Makanan Label Label2 Pesanan Label Label3 Porsi Label Label4 Harga Label Label5 Total Harga ComboBox mak1 Mie Ayam Mie Goreng Mie Aceh Mie Tek Tek Pasta Bihun Goreng ComboBox mak2 Mie Ayam Mie Goreng Mie Aceh Mie Tek Tek Pasta Bihun Goreng TextBox jmak1 TextBox jmak2 TextBox hrgmak1 TextBox hrgmak2 TextBox totmak GroupBox Groupbox2 Minuman Label Label6 Pesanan Label Label7 Porsi Label Label8 Harga Label Label9 Total Harga ComboBox min1 Es Teh Jus Buah Es Kelapa ComboBox min2 Es Teh Jus Buah Es Kelapa TextBox jmin1 TextBox jmin2 TextBox hrgmin1 TextBox hrgmin2 TextBox totmin Panel Panel1 Label Label10 Total Label Label11 Bayar Label Label12 Kembali TextBox total TextBox bayar TextBox kembali Button kliktotal Total Button klikhitung HITUNG Button klikreset Reset Button klikkeluar Keluar Groupbox Daftar Menu Label Label13 Mie Ayam Rp. Label Label14 Mie Goreng Rp. 8000 Label Label15 Mie Aceh Rp. Label Label16 Mie Tek Tek Rp. Label Label17 Pasta Rp. Label Label18 Bihun Goreng Rp. Label Label19 Es Teh Rp. 5000 Label Label20 Jus Buah Rp. 8000 Label Label21 Es Kelapa Rp. 5000 Untuk jenis-jenisnya seperti label, textbox, groupbox dll bisa dilihat di toolbox sebelah kiri dan untuk name, text dan item ada di properties sebelah kanan, setelah semua lengkap ada dan sesuai seperti gambar pertama. Kita lanjut kebagian codingnya, double klik di textbox jmak1 Add caption Lalu masukan code seperti dibawah If = "Mie Ayam" Then = Val * 10000 ElseIf = "Mie Goreng" Then = Val * 8000 ElseIf = "Mie Aceh" Then = Val * 15000 ElseIf = "Mie Tek Tek" Then = Val * 12000 ElseIf = "Pasta" Then = Val * 25000 ElseIf = "Bihun Goreng" Then = Val * 10000 End If Lalu double klik textbox mak2 masukan juga code diatas, seperti yang tadi. Kodingan diatas berfungsi untuk menyesuaikan menu, porsi dan harganya, jadi saat kita memilih menu dan memasukan jumlah porsi textbox harga akan terisi secara otomatis. Lanjut double klik textbox jmin1, lalu masukan code dibawah ini If = "Es Teh" Then = Val * 5000 ElseIf = "Jus Buah" Then = Val * 8000 ElseIf = "Es Kelapa" Then = Val * 5000 End If Masukan juga code diatas di textbox jmin2. Seperti bagian menu makanan, kodingan memiliki fungsi yang sama hanya kali ini untuk di bagian menu minuman. Selanjutnya double klik di button/tombol Total, masukan code berikut. = Val + Val = Val + Val = Val + Val Kode diatas memiliki fungsi untuk menghitung total harga dari semua menu yang telah dipilih dan menampilkannya di textbox ketika kita menekan tombol Total. double klik di button/tombol HITUNG, masukan code dibawah ini = Val - Val If > Then If MsgBox"Uangnya Kurang", vbCritical + vbOKOnly + vbDefaultButton1, "Perhatian" = vbOK Then = "" = "" End If End If Koding diatas berfungsi untuk menghitung total harga dan uang yang dibayarkan, jika uang yang dibayarkan kurang maka akan muncul notifikasi seperti gambar dibawah, dan textbox Bayar dan textbox Kembali akan kembali kosong untuk mengulang kembali. Double klik di button/tombol Reset, masukan kode berikut Koding ini untuk mereset semua proses, mengkosongkan kembali textbox dll untuk mengulang kembali. Yang terakhir double klik di button/tombol Keluar masukan codenya If MsgBox"Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar" = vbYes Then End If Kodingan ini berfungsi jika user mengklik tombol keluar akan muncul notifikasi untuk menanyakan kembali apakah user benar-benar akan keluar, seperti gambar dibawah Oke Form desain sudah kodingannya juga sudah tinggal kalian coba jalankan programnya, gambar dibawah ini adalah screenshot ketika program dijalankan. Dan ini adalah source code lengkapnya. Public Class Form1 Private Sub jmak1_TextChangedsender As e As Handles If = "Mie Ayam" Then = Val * 10000 ElseIf = "Mie Goreng" Then = Val * 8000 ElseIf = "Mie Aceh" Then = Val * 15000 ElseIf = "Mie Tek Tek" Then = Val * 12000 ElseIf = "Pasta" Then = Val * 25000 ElseIf = "Bihun Goreng" Then = Val * 10000 End If End Sub Private Sub jmak2_TextChangedsender As e As Handles If = "Mie Ayam" Then = Val * 10000 ElseIf = "Mie Goreng" Then = Val * 8000 ElseIf = "Mie Aceh" Then = Val * 15000 ElseIf = "Mie Tek Tek" Then = Val * 12000 ElseIf = "Pasta" Then = Val * 25000 ElseIf = "Bihun Goreng" Then = Val * 10000 End If End Sub Private Sub jmin1_TextChangedsender As e As Handles If = "Es Teh" Then = Val * 5000 ElseIf = "Jus Buah" Then = Val * 8000 ElseIf = "Es Kelapa" Then = Val * 5000 End If End Sub Private Sub jmin2_TextChangedsender As e As Handles If = "Es Teh" Then = Val * 5000 ElseIf = "Jus Buah" Then = Val * 8000 ElseIf = "Es Kelapa" Then = Val * 5000 End If End Sub Private Sub kliktotal_Clicksender As e As Handles = Val + Val = Val + Val = Val + Val End Sub Private Sub klikhitung_Clicksender As e As Handles = Val - Val If > Then If MsgBox"Uangnya Kurang", vbCritical + vbOKOnly + vbDefaultButton1, "Perhatian" = vbOK Then = "" = "" End If End If End Sub Private Sub klikreset_Clicksender As e As Handles End Sub Private Sub klikkeluar_Clicksender As e As Handles If MsgBox"Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar" = vbYes Then End If End Sub End Class Semoga postingan kali ini juga bermanfaat, silahkan tuliskan komentar dan pertanyaannya dibawah jika ada yang salah atau ada yang kurang jelas, kita disini sama-sama belajar. “Dari Newbie oleh newbie dan untuk newbie”.