Project UAS


Dalam Project UAS ini saya membuat program aplikasi "Kantin Stiki Indonesia" berupa program pembayaran disebuah kantin kampus/sekolah.

Program ini bertujuan untuk membantu kita untuk memproses pembayaran dengan cepat dan mudah, Program aplikasi ini tentu sangat berguna untuk usaha seperti warung makan, restoran dan kantin sekolah/kampus.

Dan langsung saja saya memberikan tahapan proses pembuatannya :

Gambar 1.1 Flowchart

Yang pertama adalah membuat flowchart, Flowchart adalah suatu bagan dengan simbol-simbol tertentu yang menggambarkan urutan proses secara mendetail dan hubungan antara suatu proses (instruksi) dengan proses lainnya dalam suatu program.


Gambar 1.2 Design Form

Dan berikutnya ada Design Form, disini kita harus men-Design terlebih dahulu program aplikasi yang akan kita buat agar lebih sesuai dengan keiinginan kita.



Gambar 2.1 Design Form (Belum RUN)

Setelah membuat sketch secara tulis, dan gambar diatas adalah hasil Design Forn yang di buat pada aplikasi Visual Basic 2010.


Gambar 3.1  Koding 1

Berikut adalah Proses Koding awal dalam membuat program aplikasi ini.

If menu1.Text = "Nasi Goreng" Then
            hrg1.Text = Val(jml1.Text) * 13000
        ElseIf menu1.Text = "Mie Goreng" Then
            hrg1.Text = Val(jml1.Text) * 12000
        ElseIf menu1.Text = "Gado - Gado" Then
            hrg1.Text = Val(jml1.Text) * 8000
        ElseIf menu1.Text = "Siomay" Then
            hrg1.Text = Val(jml1.Text) * 7000
        ElseIf menu1.Text = "Ayam Bakar" Then
            hrg1.Text = Val(jml1.Text) * 15000
        ElseIf menu1.Text = "Ikan Bakar" Then
            hrg1.Text = Val(jml1.Text) * 25000
        End If

Masukan Koding diatas pada TextBox1 (jml1)
dan lakukan hal yang sama pada TextBox selanjutnya :
TextBox2 (jml2)
TextBox3 (jml3)
TextBox4 (jml4)
TextBox5 (jml5)
TextBox6 (jml6)


Gambar 3.2 Koding 2

 If menu2.Text = "Nasi Goreng" Then
            hrg2.Text = Val(jml2.Text) * 13000
        ElseIf menu2.Text = "Mie Goreng" Then
            hrg2.Text = Val(jml2.Text) * 12000
        ElseIf menu2.Text = "Gado - Gado" Then
            hrg2.Text = Val(jml2.Text) * 8000
        ElseIf menu2.Text = "Siomay" Then
            hrg2.Text = Val(jml2.Text) * 7000
        ElseIf menu2.Text = "Ayam Bakar" Then
            hrg2.Text = Val(jml2.Text) * 15000
        ElseIf menu2.Text = "Ikan Bakar" Then
            hrg2.Text = Val(jml2.Text) * 25000
        End If


Gambar 3.3 Koding 3

If menu3.Text = "Nasi Goreng" Then
            hrg3.Text = Val(jml3.Text) * 13000
        ElseIf menu3.Text = "Mie Goreng" Then
            hrg3.Text = Val(jml3.Text) * 12000
        ElseIf menu3.Text = "Gado - Gado" Then
            hrg3.Text = Val(jml3.Text) * 8000
        ElseIf menu3.Text = "Siomay" Then
            hrg3.Text = Val(jml3.Text) * 7000
        ElseIf menu3.Text = "Ayam Bakar" Then
            hrg3.Text = Val(jml3.Text) * 15000
        ElseIf menu3.Text = "Ikan Bakar" Then
            hrg3.Text = Val(jml3.Text) * 25000
        End If

Gambar 3.4 Koding 4

 If min1.Text = "Es Jeruk" Then
            hrg4.Text = Val(jml4.Text) * 5000
        ElseIf min1.Text = "Es Teh" Then
            hrg4.Text = Val(jml4.Text) * 3000
        ElseIf min1.Text = "Es kelapa Muda" Then
            hrg4.Text = Val(jml4.Text) * 7000
        ElseIf min1.Text = "Es Gula" Then
            hrg4.Text = Val(jml4.Text) * 3000
        ElseIf min1.Text = "Soda Gembira" Then
            hrg4.Text = Val(jml4.Text) * 10000
        ElseIf min1.Text = "Soft Drink" Then
            hrg4.Text = Val(jml4.Text) * 4000
        End If

Gambar 3.5 Koding 5

If min2.Text = "Es Jeruk" Then
            hrg5.Text = Val(jml5.Text) * 5000
        ElseIf min2.Text = "Es Teh" Then
            hrg5.Text = Val(jml5.Text) * 3000
        ElseIf min2.Text = "Es kelapa Muda" Then
            hrg5.Text = Val(jml5.Text) * 7000
        ElseIf min2.Text = "Es Gula" Then
            hrg5.Text = Val(jml5.Text) * 3000
        ElseIf min2.Text = "Soda Gembira" Then
            hrg5.Text = Val(jml5.Text) * 10000
        ElseIf min2.Text = "Soft Drink" Then
            hrg5.Text = Val(jml5.Text) * 4000
        End If

Gambar 3.6 Koding 6

If min3.Text = "Es Jeruk" Then
            hrg6.Text = Val(jml6.Text) * 5000
        ElseIf min3.Text = "Es Teh" Then
            hrg6.Text =Val(jml6.Text) * 3000
        ElseIf min3.Text = "Es kelapa Muda" Then
            hrg6.Text = Val(jml6.Text) * 7000
        ElseIf min3.Text = "Es Gula" Then
            hrg6.Text = Val(jml6.Text) * 3000
        ElseIf min3.Text = "Soda Gembira" Then
            hrg6.Text = Val(jml6.Text) * 10000
        ElseIf min3.Text = "Soft Drink" Then
            hrg6.Text = Val(jml6.Text) * 4000
        End If

Gambar 4.1 Koding 7

Dan pada Koding ini kita masukan scriptnya pada ComboBox

menu1.Items.Add("Nasi Goreng")
        menu1.Items.Add("Mie Goreng")
        menu1.Items.Add("Siomay")
        menu1.Items.Add("Ayam Bakar")
        menu1.Items.Add("Ikan Bakar")

diatas adalah script untuk ComboBox dan berfungsi untuk menampilkan beragam pilihan menu makanan yang tersedia

Gambar 4.2 Koding 8

Pade gambar terakhir ini berisi tentang script pada TextBox : ttlhrg & kmbl

Script pada Textbox (ttlhrg)

ttlhrg.Text = Val(total1.Text) + Val(total2.Text)
Dan hasil dari script ini adalah mendapatkan hasil dari penjumlahan keseluruhan pesanan customer yang selanjutnya akan di proses oleh tombol TextBox (kmbl)

Script pada TextBox (kmbl)

kmbl.Text = Val(byr.Text) - Val(ttlhrg.Text)
Pada script terakhir ini mempunyai fungsi untuk mengetahui kembalian dari uang customer yang membayar dengan uang (misalnya lebih). Contoh : Total pesanan : 45000 dan customer memberikan uang senilai 50000 maka Kembaliannya : 5000


Gambar 5.1 Hasil Design Form (RUN)

Dan gambar diatas adalah hasil dari tahapan script koding diatas setelah di running
dan aplikasi sudah siap untuk digunakan.

Demikian aplikasi ini saya buat untuk membantu masyarakat secara luas dalam bidang pembayaran semoga aplikasi ini bisa diterima oleh masyarakat sekalian.

Sekian blog ini saya buat dan semoga memiliki banyak manfaat

TERIMA KASIH

Komentar

Postingan populer dari blog ini

Project Quis