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
Posting Komentar