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

Cita-Cita Indonesia Yang Belum Tercapai

          Indonesia merupakan negara yang merdeka pada tanggal 17 Agustus 1945, namun terselip pertanyaan apakah bangsa Indonesia benar-benar sudah merdeka ?

Alinea1

Bahwa sesungguhnya Kemerdekaan itu ialah hak segala bangsa dan oleh sebab itu, maka penjajahan di atas dunia harus dihapuskan, karena tidak sesuai dengan peri-kemanusiaan dan peri-keadilan.

          Saya rasa pada alenia ini Indonesia belum seutuhnya terbebas dari penjajahan, bahkan tanpa kita sadari Indonesia masih di jajah? Mengapa ? Jawabannya Penjajahan politik menjadi kokoh lewat sistem demokrasi. Lewat prinsip utama kedaulatan di tangan rakyat, sistem demokrasi ini secara efektif digunakan untuk menentukan penguasa tertinggi yang dapat dikontrol oleh penjajah.

Alinea 2

Dan perjuangan pergerakan Kemerdekaan Indonesia telah sampailah kepada saat yang berbahagia dengan selamat sentausa mengantarkan rakyat Indonesia kedepan pintu gerbang kemerdekaan Negara Indonesia yang merdeka, bersatu, berdaulat, adil dan makmur.

          Indonesia belum merdeka,belum adil dan makmur. Belum adil karena banyaknya perbedaan antara orang atas dan orang bawah. Belum makmur karena banyaknya korupsi yang terjadi di Indonesia. Banyak Pejabat tanpa sadar telah menyiksa masyarakat kecil dengan korupsi yang mereka lakukan. Tidak bersatu karena masih banyak peperangan,permusuhan antar suku, bangsa bahkan negara. Banyak komplik yang terjadi antar daerah karena banyak faktor salah satunya dendam,salah paham dan kecemburuan sosial.

Alinea 3

Atas berkat rahmat Allah Yang Maha Kuasa dan dengan didorongkan oleh keinginan luhur, supaya berkehidupan kebangsaan yang bebas, maka rakyat Indonesia menyatakan dengan ini kemerdekaannya.

          Bangsa Indonesia dalam hal ini belum sepenuhnya bebas,karena bangsa Indonesia secara tidak langsung masih diikut campuri segala urusan negara oleh negara lain.

Alinea 4

Kemudian daripada itu untuk membentuk suatu Pemerintahan Negara Indonesia yang melindungi segenap bangsa Indonesia dan seluruh tumpah darah Indonesia dan untuk memajukan kesejahteraan umum, mencerdaskan kehidupan bangsa, dan ikut melaksanakan ketertiban dunia yang berdasarkan kemerdekaan, perdamaian abadi dan keadilan sosial, maka disusunlah Kemerdekaan Kebangsaan Indonesia itu dalam suatu Undang-undang Dasar Negara Indonesia, yang terbentuk dalam suatu susunan Negara Republik Indonesia yang berkedaulatan rakyat dengan berdasarkan kepada: Ketuhanan Yang Maha Esa, Kemanusiaan yang adil dan beradab, Persatuan Indonesia, dan Kerakyatan yang dipimpin oleh hikmat kebijaksanaan dalam Permusyawaratan/Pebelum rwakilan, serta dengan mewujudkan suatu Keadilan sosial bagi seluruh rakyat Indonesia.

          Bangsa Indonesia belum bisa mewujudkan sepenuhnya alenia ke-4 ini salah satunya adalah mencerdaskan kehidupan bangsa, masih banyak bahkan lebih dari separuh penduduk Indonesia bisa dibilang buta pendidikan. Hal ini terbukti banyaknya TKI yang semakin banyak, pembantu rumah tangga,pengemis,anak jalanan, dll. Indonesia juga belum membuat penduduknya sejahtera,karena kurangnya ruang kerja bagi para sarjana.

DEMOKRASI

DEMOKRASI

Kita pastinya mengenal bermacam-macam istilah demokrasi. Ada yang dinamakan demokrasi konstitusional, demokrasi parlementer, demokrasi terpimpin,demokrasi pancasila,demokrasi rakyat,demokrasi soviet,demokrasi nasional, dan sebagainnya. Semua konsep ini menggunakan istilah yang menurut asal kata berarti rakyat berkuasa atau government by the people (kata Yunani demos berarti rakyat,ktaros/kratein berarti kekuasaan/berkuasa ).

Cirri khas dari demokrasi konstitusional ialah gagasan bahwa pemerintah yang demokratis adalah pemerintah yang terbatas kekuasannya dan tidak dibenarkan bertindak sewenang-wenang terhadap warga negarannya. Pembatasan-pembatasan atas kekuasaan pemerintah tercantum dalam konstitusi; maka dari itu sering disebut pemerintah berdasarkan konstitusi. Jadi,pemerintahan berdasarkan konstitusi sama dengan limited government.

Pada permulaan pertumbuhannya demokrasi telah mencakup beberapa asas dan nilai yang diwariskan kepadannya dari masa yang lampau, yaitu gagasan mengenai demokrasi dari kebudayaan Yunani Kuno dan gagasan mengenai kebebasan beragama yang dihasilkan oleh aliran reformasi serta perang-perang agama yang menyusulnya.

Sistem demokrasi yang terdapat di negara-kota Yunani Kuno merupakan demokrasi langsung, yaitu suatu bentuk pemerintahan dimana hak untuk membuat keputusan-keputusan politik dijalankan secara langsung oleh seluruh warga negara yang bertindak berdasarkan prosedur mayoritas.

Di Indonesia sendiri, demokrasi yang dianut ialah demokrasi berdasarkan pancasila, masih dalam taraf perkembangan dan mengenai sifat-sifat dan cirri-cirinya terdapat pelbagai tafsiran serta pandangan.

Perkembangan demokrasi di Indonesia telah mengalami pasang surut. Selama bertahun-tahun berdirinya RI ternyata masih saja masalah pokok yang kita hadapi ialah bagaimana meningkatkan kehidupan ekonomi?’

Dipandang dari sudut perkembangan demokrasi sejarah Indonesia dapat dibagi dalam empat masa ,yaitu :

1.      Masa RI 1(1945-1959),yaitu masa demokrasi (konstitusional) yang menonjolkan peranan parlemen serta partai-partai dan yang karena itu dapat dinamakan Demokrasi Parlementer.

2.      Masa RI 2(1959-1965),yaitu masa Demokrasi Terpimpin yang dalam banyak aspek telah menyimpang dari demokrasi konstitusionalyang secara formal merupakan landasannya, dan menunjukan beberapa aspek demokrasi rakyat.

3.      Masa RI 3(1965-1998), yaitu masa Demokrasi Pancasila yang merupakan demokrasi konstitusional yang menonjolkan sisitem presidensial.

4.      Masa RI 4(1998-sekarang), yaitu masa reformasi yang menginginkan tegaknya demokrasi di Indonesia sebagai koreksi terhadap prktik-praktik politik yang terjadi pada masa RI 3.