Assalamu’alaikum. Wr. Wb..
Oke kawan-kawan, bagi kalian yang ingin belajar membuat
program APLIKASI RESTORAN sederhana
dengan menggunakan aplikasi Visual Studio 2012 disinilah tempatnya.
Kali ini saya akan membuat program aplikasi kasir sederhan
dengan menggunakan aplikasi Visual Studio, sebelum mulali membuat mari kita
ketahui dulu apa itu Visual Studio?.
Jadi Visual Studio adalah Sebuah perangkat lunak lengkap
(suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik itu
aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam bentuk
aplikasi console, aplikasi Windows, ataupun aplikasi Web.
Naah, sekarang udah tau kan apa itu Visual Studio.. yu
langsung aja guys kita mulai.
Disini saya membuat program aplikasi kasir yang mana
fungsinya itu untuk mempermudah penghitungan sebuah kasir.
Disini saya menggunakan toolbox Label, ComboBox, TextBox, PictureBox, Button.
DESIGN UTAMA
“APLIKASI RESTORAN”
Alur dari aplikasi ini :
Ø
Kita pilih barang yang akan kita beli pada
ToolBox ComboBox, lalu otomatis akan keluar harga dan gambarnya.
Ø
Lalu masukan jumlah makanan yang akan kita beli,
klik “Hitung” maka akan muncul total jumlah harga dari barang tersebut.
Ø
Disitu ada button “CETAK” untuk Word dan
“SIMPAN” untuk Excel.
Langkah selanjutnya.
ü
Langkah yang pertama kalian harus punya dulu
aplikasi Visual Studianya, jika belum punya silahkan download, lalu Install.
ü
Jika anda sudah punya, langsung saja buka
aplikasinya.
ü
Klik new project, pilih Windows Forms
Application, masukan nama projek yang akan kita bikin, lalu Ok seperti gambar
dibawah :
ü
Langkah awal yaitu mendesain aplikasi yang akan
kita buat.
ü
Setelah desain jadi, mari kita mulai codingannya
:
ü
Klik 2 kali pada toolbox yang akan kita coding
Disini yang akan saya coding pertama ialah pada ToolBox :
1.ComboBox
Masukan menu makanan di
Edit Text, seperti gambar dibawah:
Codingan:
If ComboBoxNama.Text = "Nasi Pecel" Then
TextBoxHarga.Text = "20000"
PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\nasi
pecel.jpg")
End If
If ComboBoxNama.Text = "Nasi Timbel" Then
TextBoxHarga.Text = "20000"
PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\nasi
timbel.jpg")
End If
If ComboBoxNama.Text = "Soto Kuning" Then
TextBoxHarga.Text = "15000"
PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\soto
kuning.jpg")
End If
If ComboBoxNama.Text = "Mie Kocok" Then
TextBoxHarga.Text = "15000"
PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\mie
kocok.jpg")
End If
If ComboBoxNama.Text = "Empal Gentong" Then
TextBoxHarga.Text = "25000"
PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\empal.jpg")
End If
Perhatilkan gambar berikut :
Jika ingin memasukan ke Ms. Word
atau Ms. Exel, kita aktifkan dulu dari projeknya, berikut langkahnya :
v Klik
menu PROJECT lalu pilih Add reference kemudian
pilih COM lalu cari Microsoft Word atau Excelnya kemudian ceklis, perhatikan
gambar berikut :
v Tahap
selanjutnya kita buka Microsoft Word, lalu buat seperti gambar berikut :
Kemudian klik menu Insert pada Microsoft Word, klik Bookmark, lalu buat seperti gambar
berikut :
v Buka
kembali Visual Studionya lalu scrol pada kodingan paling atas, masukan kodingan
seperti berikut :
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
v Kemudian
klik 2 kali pada Button Cetak Word untuk mengkoding, ini kodingannya :
Dim Appnya As New Word.Application
Dim Dokumennya As Word.Document
Dokumennya = Appnya.Documents.Open("D:\Semester 4\uts\bill.docx")
Dokumennya.Bookmarks("namamakanan").Select()
Appnya.Selection.TypeText(ComboBoxNama.Text)
Dokumennya.Bookmarks("hargamakanan").Select()
Appnya.Selection.TypeText(TextBoxHarga.Text)
Dokumennya.Bookmarks("jumlahmakanan").Select()
Appnya.Selection.TypeText(TextBoxJumlah.Text)
Dokumennya.Bookmarks("bayar").Select()
Appnya.Selection.TypeText(TextBoxBayar.Text)
Dokumennya.SaveAs("D:\Semester 4\uts]billNew.docx")
Appnya.Visible = True
v Next…klik
2 kali pada Button Cetak Excel lalu masukan kodingan seperti berikut :
Private Sub ButtonExcel_Click(sender As Object, e As EventArgs) Handles ButtonExcel.Click
Dim AppExcelnya As New Excel.Application
Dim ExcelWB As Excel.Workbook
ExcelWB = AppExcelnya.Workbooks.Open("D:\Semester 4\uts\billing.xlsx")
AppExcelnya.Range("A2").Value
= ComboBoxNama.Text
AppExcelnya.Range("B2").Value = TextBoxHarga.Text
AppExcelnya.Range("C2").Value
= TextBoxJumlah.Text
AppExcelnya.Range("D2").Value
= TextBoxHarga.Text
ExcelWB.SaveAs("D:\Semester 4\uts\billingNew.xlsx")
AppExcelnya.Visible = True
Gambar :
v Yeaaah..
selesai kawan, mari kita coba.. tekan f5, lakukan proses pembayaran lalu klik
Cetak Word maka akan muncul message sukses, lalu klik Ok, maka akan Keluar
seperti berikut :
Ini hasilnya :
Wassalamu’alaikum. Wr. Wb.