Program Penjualan Toko Sepatu

Assalamu’alaikum. Wr. Wb..

Oke teman-teman, bagi kalian yang ingin belajar membuat program aplikasi kasir sederhana dengan menggunakan aplikasi Visual Studio 2012 disinilah tempatnya J

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.

Alur dari aplikasi ini :

Ø  Kita pilih barang yang akan kita beli pada ToolBox ComboBox, lalu otomatis akan keluar harga dan gambarnya.

Ø  Lalu masukan jumlah barang yang akan kita beli, klik bayar maka akan muncul total jumlah harga dari barang tersebut.

Ø  Masukan nominal uang konsumen, dan klik button total lalu akan muncul jumlah kembalian uang tersebut.

Ø  Disitu ada button cetak Word dan cetak Excel untuk mencetak struk keword atau excel

Ø  Button Keluar untuk keluar dari aplikasi tersebut.

Nah, sekarang alurnya udah tau, mari kita mulai membuat.. Ikuti langkah berikut :

ü  Langkah yang pertama kalian harus punya dulu aplikasi Visual Studianya, jika belum punya silahkan download, lalu Instal

ü  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 ini codingannya

If ComboBox1.Text = "Nike" Then

            txtharga.Text = "500000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\Nike.jpg")

        End If

        If ComboBox1.Text = "Adidas" Then

            txtharga.Text = "400000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\adidas.jpg")

        End If

        If ComboBox1.Text = "Puma" Then

            txtharga.Text = "200000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\puma.jpg")

        End If

        If ComboBox1.Text = "Eiger" Then

            txtharga.Text = "600000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\eiger.jpg")

        End If

        If ComboBox1.Text = "Coverse" Then

            txtharga.Text = "500000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\convers.jpg")

        End If

        If ComboBox1.Text = "Vans" Then

            txtharga.Text = "300000"

            PictureBox1.Image = Image.FromFile("C:\Users\test\Pictures\vans.jpg")

      

Perhatilkan gambar berikut :

2. Button Bayar

      txttotal.Text = txtharga.Text * txtjmlh.Text

Gambar :

3. Button Total

txtkembali.Text = txtbayar.Text - txttotal.Text

Gambar:

4. Button Refresh

      ComboBox1.ResetText()

        txtharga.ResetText()

        txtjmlh.ResetText()

        txtkembali.ResetText()

        txtbayar.ResetText()

        txttotal.ResetText()

        PictureBox1.Image = Nothing

Gambar :

6. Button Back

Close()

Gambar :

Selesai..tekan f5 untuk menjalankan.

Ini hasilnya :

Jika ingin memasukan ke Microsoft Word atau Excel  kita 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 :

Visual Studionya minimize aja dulu bos.

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 :

INGAT… JANGAN PAKAI SPASI, kemudian klik Add lalu save filenya, jika ingin lebih mudah, buat folder terlebih dahulu pada drive C, lalu save filenya di folder itu.

v  Langkah selanjutnya kita masuk pada Microsoft Excel lalu buat seperti seperti gambar berikut :

Kemudian save pada folder yang sama dengan Microsoft Word yang tadi.

v  Next bos dikit lagi.. :-D 

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

Perhatikan gambar agar tidak salah menepatkan kodingan :

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("C:\paris\toko.docx")

        Dokumennya.Bookmarks("Barang").Select()

        Appnya.Selection.TypeText(ComboBox1.Text)

        Dokumennya.Bookmarks("Bayar").Select()

        Appnya.Selection.TypeText(txtbayar.Text)

        Dokumennya.Bookmarks("Harga").Select()

        Appnya.Selection.TypeText(txtharga.Text)

        Dokumennya.Bookmarks("Jumlah").Select()

        Appnya.Selection.TypeText(txtjmlh.Text)

        Dokumennya.Bookmarks("Kembali").Select()

        Appnya.Selection.TypeText(txtkembali.Text)

        Dokumennya.Bookmarks("Total").Select()

        Appnya.Selection.TypeText(txttotal.Text)

        Dokumennya.SaveAs("C:\paris\tokoNew.docx")

        Appnya.Visible = True

Gambar  :

v  Next…klik 2 kali pada Button Cetak Excel lalu masukan kodingan seperti berikut :

Dim AppExcelnya As New excel.Application

Dim AppExcelnya As New Excel.Application

              Dim ExcelWB As Excel.Workbook

               ExcelWB = AppExcelnya.Workbooks.Open("C:\paris\Sepatu.xlsx")

               AppExcelnya.Range("A2").Value = ComboBox1.Text

               AppExcelnya.Range("B2").Value = txtharga.Text

               AppExcelnya.Range("C2").Value = txtjmlh.Text

               AppExcelnya.Range("D2").Value = txttotal.Text

               AppExcelnya.Range("E2").Value = txtbayar.Text

               AppExcelnya.Range("F2").Value = txtkembali.Text

               ExcelWB.SaveAs("C:\paris\SepatuNew.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 :

Yeeee sukseeees.. Untuk ke Excel lakukan sama seperti yang di Word tadi, jika keluar peringatan klik yes :

Ini hasilnya :

ALHAMDULILLAH SELESAI KAWAN…

Sekian cara membuat program aplikasi kasir sederhana dengan menggunakan aplikasi Visual Studio  dari saya, kurang dan lebihnya mohon maaf.. Semoga Bermanfaat ya kawan, dan semoga kita semua sukses.. aamiin

Wassalamu’alaikum. Wr. Wb..