Program Sederhana Visual Basic

LAPORAN PROGRAM SOFTSKILL TENTANG VISUAL BASIC

“MENU MAKANAN DI WARUNG MAKAN PAK JOJO”

NAMA KELOMPOK :

·         KEMAL BAGUS LAKSONO                      (13118617)

·         MUHAMMAD RIZQI                                  (14118941)     

·         RAMADHIKA GUMILANG                                   (15118882)

·         SANDY RAHMAN                                       (16118517)

KELAS : 2KA26

                                                                                                                            

UNIVERSITAS GUNADARMA
2018/2019

Form 1.

                                                 

Jadi pada form 1 ini kita memakai

  ini untuk memasukan variable tulisan denga tipe data string dan I,j dengan tipe data integer

memakai 10 label

·         lable 1 “jangan lupa senyum”

·         label 2 “username”

·         label 3 “password”

·         label 4, 5 “ : “

·         label 6 “warung pak jojo”

berikut adalah codingannya

Ini fungsinya untuk memasukkan rumus agar teks berjalan

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = True

Timer2.Enabled = True nah ini untuk menyalakan fungsi dari time

Me.Text = "WARUNG PAK JOJO"  

tulisan(0) = " WARUNG PAK JOJO  "   jadi output dari tulisan itu warung pak jojo

Label6.Text = tulisan(j) nah didalem label 6 isinya tulisan dan hasil outputnya nnti yaitu warung pak jojo

End Sub

·         label 7 “tanggal” ,label 8 “jam”

berikut adalah codingannya

label7.text = format(now, “dd/mm/yyy”) itu untuk menyatakan tanggal,bulan,tahun sekarang label8.text=format(now,”HH:mm:ss”)itu untuk menyatakan jam,menit,detik sekarang

·         label 10,9 “selamat datang ,di”

kemudian memakai 3 button dengan 2 textbox

·         button 1 “masuk”

berikut merupakan codingannya

Massagebox.show merupakan mengeluarkan pesan/peringatan

Me.show untuk menampilkan

Disini textbox1”username” dan textbox2”password” disini kita memakai 3 data sebagai login untuk staff adminnya jika pada saat mengisi password atau usernamenya salah maka akan muncul peringatan dan tidak akan bisa masuk apabila bisa masuk akan muncul pesan “anda berhasil masuk sebagai admin”

nah klo yang ini jika kita ingin masuk langsung saja enter tanpa harus mengklik tombol masuk angka 13 itu merupakan asci atau kode ,dan akan menuju ke form 2 untuk memilih menu makanannya

·         button 2 “reset”

berikut merupakan codingannya

Maka dia akan otomatis menghapusnya dari textbox1 dan 2 dengan menggunakan perintah tersebut

·         button 3 “keluar”

berikut merupakan codingannya

Jika kita ingin keluar maka nanti akan menampilkan pilihan  jika yes maka keluar jika tidak maka akan kembali ke halaman tersebut

Form 2

pada form 2 menggunakan    

·         86 label

·         3 grup box

·         4 button                                  

Pada grupbox 1 dengan button 4       dengan menyajikan menu minuman segar

Pada bagian ini yang hanya di beri kodingannya hanya button agar supaya dia masuk ke dalam perhitungan minuman apa saja yang di beli serta berapa jumlah hingga total yang harus di bayar oleh costumer

Pada grupbox 2 dengan button 2  dengan menyajikan menu makanan penutup/deseert

Pada grupbox 3 dengan button 3 dengan menyajikan menu makanan utama

Form 3

Form 3 menggunakan :

·         Groupbox 1 : 6 list box ,14 text box ,5 label (nasi goreng)

·         Groupbox 2 : 6 list box ,14 text box ,5 label (ayam geprek)

·         Groupbox 3 : 6 list box ,14 text box ,5 label (mie ayam bakso)

·         Groupbox 4 : 6 list box ,14 text box ,5 label (tambahan dan paket)

·         80 textbox ,22 label ,2 button

Jmak dan hrgmak pada group box 1,2,3,4

·         If mak1.Text = "Nasi Goreng B aja" Then

hrgmak1.Text = Val(jmak1.Text) * 15000

“jika kita input nasi goreng maka yang keluar adalah harga nasi goreng yaitu 15k ,jika kita menginput nasi goreng 2 porsi maka haraga nasi goreng tersebut dikalikan 2”

                        dan seterusnya seperti itu

·         button 1 untuk memilih menu pilihan yang lain

 

Jika kita klik  yang lain maka kita akan menampilkan ke dalam form4

·         Button 2 untuk kembali

Jika kita klik  kembali maka kita akan

·         Pada label total porsi  

·         If Asc(e.KeyChar) = 13 Then

              totpor.Focus()

              End If ”nah ini untuk langsung enter pakai asci”

·         totpor.Text = Val(jmak1.Text) + Val(jmak2.Text) + Val(jmak3.Text) + Val(jmak4.Text) + Val(jmak5.Text) + Val(jmak6.Text)

“jika kita mau menghitung total porsi maka dia akan mneghitung/ditambah  dari textbox 1 sampai 6 dengan caption “jmak” jumlah makanan”

·         Pada label total harga

·         If Asc(e.KeyChar) = 13 Then

              totmak.Focus()

              End If ”nah ini untuk langsung enter pakai asci”

·         totmak4.Text = Val(hrgmak19.Text) + Val(hrgmak20.Text) + Val(hrgmak21.Text) + Val(hrgmak22.Text) + Val(hrgmak23.Text) + Val(hrgmak24.Text)

“jika kita mau menghitung total harga maka dia akan mneghitung/ditambah  dari textbox 1 sampai 6 dengan caption “jmak” jumlah makanan”

Form 4

sama seperti kodingan pada form 3

Form 5

sama seperti kodingan pada form 3

Form 6

Pada form 6 menggunakan :

·         31 Label

·         9 Grupbox

·         5 Textbox

·         5 Button

·         2 Panel

Kodingan dan penjelasan

·         Pada Button Cek

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

·         dafbel1.Text = Form3.mak1.Text + vbNewLine + Form3.mak2.Text + vbNewLine + Form3.mak3.Text + vbNewLine + Form3.mak4.Text + vbNewLine + Form3.mak5.Text + vbNewLine + Form3.mak6.Text

·         dafbel2.Text = Form3.mak7.Text + vbNewLine + Form3.mak8.Text + vbNewLine + Form3.mak9.Text + vbNewLine + Form3.mak10.Text + vbNewLine + Form3.mak11.Text + vbNewLine + Form3.mak12.Text

·         dafbel3.Text = Form3.mak13.Text + vbNewLine + Form3.mak14.Text + vbNewLine + Form3.mak15.Text + vbNewLine + Form3.mak16.Text + vbNewLine + Form3.mak17.Text + vbNewLine + Form3.mak18.Text

·         dafbel4.Text = Form3.mak19.Text + vbNewLine + Form3.mak20.Text + vbNewLine + Form3.mak21.Text + vbNewLine + Form3.mak22.Text + vbNewLine + Form3.mak23.Text + vbNewLine + Form3.mak24.Text

·         dafbel5.Text = Form4.min1.Text + vbNewLine + Form4.min2.Text + vbNewLine + Form4.min3.Text + vbNewLine + Form4.min4.Text + vbNewLine + Form4.min5.Text + vbNewLine + Form4.min6.Text

·         dafbel6.Text = Form4.min7.Text + vbNewLine + Form4.min8.Text + vbNewLine + Form4.min9.Text + vbNewLine + Form4.min10.Text + vbNewLine + Form4.min11.Text + vbNewLine + Form4.min12.Text

·         dafbel7.Text = Form4.min13.Text + vbNewLine + Form4.min14.Text + vbNewLine + Form4.min15.Text + vbNewLine + Form4.min16.Text + vbNewLine + Form4.min17.Text + vbNewLine + Form4.min18.Text

·         dafbel8.Text = Form4.min19.Text + vbNewLine + Form4.min20.Text + vbNewLine + Form4.min21.Text + vbNewLine + Form4.min22.Text

·         dafbel9.Text = Form5.des1.Text + vbNewLine + Form5.des2.Text + vbNewLine + Form5.des3.Text + vbNewLine + Form5.des4.Text + vbNewLine + Form5.des5.Text + vbNewLine + Form5.des6.Text

·         dafpor1.Text = Form3.jmak1.Text + vbNewLine + Form3.jmak2.Text + vbNewLine + Form3.jmak3.Text + vbNewLine + Form3.jmak4.Text + vbNewLine + Form3.jmak5.Text + vbNewLine + Form3.jmak6.Text

·         dafpor2.Text = Form3.jmak7.Text + vbNewLine + Form3.jmak8.Text + vbNewLine + Form3.jmak9.Text + vbNewLine + Form3.jmak10.Text + vbNewLine + Form3.jmak11.Text + vbNewLine + Form3.jmak12.Text

·         dafpor3.Text = Form3.jmak13.Text + vbNewLine + Form3.jmak14.Text + vbNewLine + Form3.jmak15.Text + vbNewLine + Form3.jmak16.Text + vbNewLine + Form3.jmak17.Text + vbNewLine + Form3.jmak18.Text

·         dafpor4.Text = Form3.jmak19.Text + vbNewLine + Form3.jmak20.Text + vbNewLine + Form3.jmak21.Text + vbNewLine + Form3.jmak22.Text + vbNewLine + Form3.jmak23.Text + vbNewLine + Form3.jmak24.Text

·         dafpor5.Text = Form4.jmin1.Text + vbNewLine + Form4.jmin2.Text + vbNewLine + Form4.jmin3.Text + vbNewLine + Form4.jmin4.Text + vbNewLine + Form4.jmin5.Text + vbNewLine + Form4.jmin6.Text

·         dafpor6.Text = Form4.jmin7.Text + vbNewLine + Form4.jmin8.Text + vbNewLine + Form4.jmin9.Text + vbNewLine + Form4.jmin10.Text + vbNewLine + Form4.jmin11.Text + vbNewLine + Form4.jmin12.Text

·         dafpor7.Text = Form4.jmin13.Text + vbNewLine + Form4.jmin14.Text + vbNewLine + Form4.jmin15.Text + vbNewLine + Form4.jmin16.Text + vbNewLine + Form4.jmin17.Text + vbNewLine + Form4.jmin18.Text

·         dafpor8.Text = Form4.jmin19.Text + vbNewLine + Form4.jmin20.Text + vbNewLine + Form4.jmin21.Text + vbNewLine + Form4.jmin22.Text

·         dafpor9.Text = Form5.jdes1.Text + vbNewLine + Form5.jdes2.Text + vbNewLine + Form5.jdes3.Text + vbNewLine + Form5.jdes4.Text + vbNewLine + Form5.jdes5.Text + vbNewLine + Form5.jdes6.Text

·         totmak.Text = Val(dafbel1.Text) + Val(dafbel2.Text) + Val(dafbel3.Text) + Val(dafbel4.Text) + Val(dafbel5.Text) + Val(dafbel6.Text) + Val(dafbel7.Text) + Val(dafbel8.Text) + Val(dafbel9.Text)

·         totpor.Text = Val(Form3.totpor.Text) + Val(Form3.totpor2.Text) + Val(Form3.totpor3.Text) + Val(Form3.totpor4.Text) + Val(Form4.totpor.Text) + Val(Form4.totpor2.Text) + Val(Form4.totpor3.Text) + Val(Form4.totpor4.Text) + Val(Form5.totpor.Text)

“jadi cek ini adalah untuk mengecek semua item yg sudah di pesan serta keterangan porsi nya”

·         Pada Button Total

  Private Sub kliktotal_Click(sender As Object, e As EventArgs) Handles kliktotal.Click

·         Form3.totmak.Text = Val(Form3.hrgmak1.Text) + Val(Form3.hrgmak2.Text) + Val(Form3.hrgmak3.Text) + Val(Form3.hrgmak4.Text) + Val(Form3.hrgmak5.Text) + Val(Form3.hrgmak6.Text)

·         Form3.totmak2.Text = Val(Form3.hrgmak7.Text) + Val(Form3.hrgmak8.Text) + Val(Form3.hrgmak9.Text) + Val(Form3.hrgmak10.Text) + Val(Form3.hrgmak11.Text) + Val(Form3.hrgmak12.Text)

·         Form3.totmak3.Text = Val(Form3.hrgmak13.Text) + Val(Form3.hrgmak14.Text) + Val(Form3.hrgmak15.Text) + Val(Form3.hrgmak16.Text) + Val(Form3.hrgmak17.Text) + Val(Form3.hrgmak18.Text)

·         Form3.totmak4.Text = Val(Form3.hrgmak19.Text) + Val(Form3.hrgmak20.Text) + Val(Form3.hrgmak21.Text) + Val(Form3.hrgmak22.Text) + Val(Form3.hrgmak23.Text) + Val(Form3.hrgmak24.Text)

·         Form4.totmin.Text = Val(Form4.hrgmin1.Text) + Val(Form4.hrgmin2.Text) + Val(Form4.hrgmin3.Text) + Val(Form4.hrgmin4.Text) + Val(Form4.hrgmin5.Text) + Val(Form4.hrgmin6.Text)

·         Form4.totmin2.Text = Val(Form4.hrgmin7.Text) + Val(Form4.hrgmin8.Text) + Val(Form4.hrgmin9.Text) + Val(Form4.hrgmin10.Text) + Val(Form4.hrgmin11.Text) + Val(Form4.hrgmin12.Text)

·         Form4.totmin3.Text = Val(Form4.hrgmin13.Text) + Val(Form4.hrgmin14.Text) + Val(Form4.hrgmin15.Text) + Val(Form4.hrgmin16.Text) + Val(Form4.hrgmin17.Text) + Val(Form4.hrgmin18.Text)

·         Form4.totmin4.Text = Val(Form4.hrgmin19.Text) + Val(Form4.hrgmin20.Text) + Val(Form4.hrgmin21.Text) + Val(Form4.hrgmin22.Text)

·         Form5.totdes.Text = Val(Form5.hrgdes1.Text) + Val(Form5.hrgdes2.Text) + Val(Form5.hrgdes3.Text) + Val(Form5.hrgdes4.Text) + Val(Form5.hrgdes5.Text) + Val(Form5.hrgdes6.Text)

·         total.Text = Val(Form3.totmak.Text) + Val(Form3.totmak2.Text) + Val(Form3.totmak3.Text) + Val(Form3.totmak4.Text) + Val(Form4.totmin.Text) + Val(Form4.totmin2.Text) + Val(Form4.totmin3.Text) + Val(Form4.totmin4.Text) + Val(Form5.totdes.Text)

 “jadi total ini adalah penggabungan dari semua total makanan, total minuman dan total desert yang ada pada form 3,4,5”

·         Pada Button Hitung

“jadi kita akan menghitung kembalian ,yaitu rumusnya bayar – total lalu jika hasil total lebih besar dari hari bayar akan menghasilkan uangnya kurang ,jika berhasil maka akan keluar hasil kembalian “

·         Pada Button Pesan Kembali

“jadi dia akan kembali ke form 3, dan akan mereset semua yang ada di form 3,4,5,6”

·         Pada Button Keluar

“jadi dia akan menapilkan pesan jika ingin keluar pada halaman tersebut”