Membuat Program Daftar Menu Makanan Pada Visual Basic 6.0

LAPORAN 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 6.0, salah satu contoh program yang akan dibuat adalah  Daftar Menu Makanan.

Berikut adalah cara membuat Project Daftar Menu Makanan :

      Buka aplikasi Visual Basic 6.0

      Setelah Aplikasi di buka, pilih menu Standard.EXE 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 CommandButton1(Tambah Pesanan), Masukan codingan sebagai berikut :

Private Sub Command1_Click()

If Combo1 = "Paket Pecel Ayam" Then

Text1.Text = "Paket Pecel Ayam"

Text2.Text = 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 Rp.15,000-,)

If Combo1 = "Paket Pecel Lele" Then

Text1.Text = "Paket Pecel Lele"

Text2.Text = 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 Rp.13,000-,)

If Combo1 = "Sate Ayam" Then

Text1.Text = "Sate Ayam"

Text2.Text = 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 Rp.15,000-,)

If Combo1 = "Sate Kambing" Then

Text1.Text = "Sate Kambing"

Text2.Text = 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 Rp.20,000-,)

If Combo1 = "Teh Manis" Then

Text1.Text = "Teh Manis"

Text2.Text = 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 Rp.3,000-,)

If Combo1 = "Jeruk Manis" Then

Text1.Text = "Jeruk Manis"

Text2.Text = 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 Rp.5,000-,)

If Combo1 = "Es/Hangat" Then

Text1.Text = "Es/Hangat"

Text2.Text = 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 Rp.500-,)

If Combo1 = "Paket Pecel Ayam" Then List1.AddItem "Paket Pecel Ayam"

If Combo1 = "Paket Pecel Lele" Then List1.AddItem "Paket Pecel Lele"

If Combo1 = "Sate Ayam" Then List1.AddItem "Sate Ayam"

If Combo1 = "Sate Kambing" Then List1.AddItem "Sate Kambing"

If Combo1 = "Teh Manis" Then List1.AddItem "Teh Manis"

If Combo1 = "Jeruk Manis" Then List1.AddItem "Jeruk Manis"

If Combo1 = "Es/Hangat" Then List1.AddItem "Es/Hangat"

If Combo1 = "Paket Pecel Ayam" Then List2.AddItem " 15000"

If Combo1 = "Paket Pecel Lele" Then List2.AddItem " 13000"

If Combo1 = "Sate Ayam" Then List2.AddItem " 15000"

If Combo1 = "Sate Kambing" Then List2.AddItem " 20000"

If Combo1 = "Teh Manis" Then List2.AddItem " 3000"

If Combo1 = "Jeruk Manis" Then List2.AddItem " 5000"

If Combo1 = "Es/Hangat" Then List2.AddItem " 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 List2.ListCount - 1

      totalbelanja = totalbelanja + Val(List2.List(t))

   Next

      Text3.Text = totalbelanja

     

End Sub

      Setelah itu double klik pada form, masukan perintah sebagai berikut :

Private Sub Form_Load()

Combo1.AddItem "Paket Pecel Ayam"

Combo1.AddItem "Paket Pecel Lele"

Combo1.AddItem "Sate Ayam"

Combo1.AddItem "Sate Kambing"

Combo1.AddItem "Teh Manis"

Combo1.AddItem "Jeruk Manis"

Combo1.AddItem "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 Project.exe.. >Pilih tujuan penyimpanan program dan Beri nama Daftar Menu Makanan  pada kolom isian nama yang tersedia > Klik OK.

      Selesai