Aplikasi Kasir/Penjualan Pakaian Dengan Menggunakan Visual Basic/Visual Studio 2012

Hay, Assalamualaikum kali ini saya akan membuat aplikasi menggunakan Visual Basic/Visual Studio 2012, Aplikasi yang akan saya buat adalah Aplikasi kasir atau Penjualan Pakaian dan bisa di Save di Word atau di Excel. Aplikasi ini saya buat sebagai kebajiban saya sebagai Mahasiswi Di STMIK ERESHA dan untuk memenuhi tugas dari Dosen.

Tampilannya design Sepert ini ya

Dan Hasil Run Nya Seperti ini

Ini Hasil Save di Word nya

Ini Hasil Save di Excel nya

Sekarang saya akan membuat aplikasinya

Langkah 1

Buka Aplikasi Visual Basic/Visual Studio dan Klik File, lalu Klik New lalu pilih Project seperti gambar dibawah ini

Langkah 2
yaitu memberi nama Project yang akan dibuat, pilih Windows Form Applications dan beri nama sesuai aplikasi yang akan dipilih, seperti gambar dibawah ini

Langkah 3
Membuat design seperti dan ganti tulisan seperti gambar dibawah ini

Label               : Jenis Pakaian, Harga, Jumlah, Total Bayar
RadioButton   : Baju, Celana, Jaket
TextBox           : Kotak Putih yang digunakan until menampilkan Harga, Jumlah, dan Total Bayar 

Button             : Hasil, Bersihkan, Save To Word, dan Save To Excel karna saya akan menyimpannya di word dan excel juga
PictureBox      : Kotak Besar Untuk menampilkan Gambar

 

Langkah 4
Selanjutnya Ganti RadioButton menjadi Nama RBBaju, dan RBCelana, RBJaket seperti Gambar dibawah ini

Langkah 5
Selanjutnya ganti nama TextBox menjadi TxtHarga, TxtJumlah, dan TxtTotalBayar, seperti di gambar

Langkah 6
Ganti menjadi Bhasil, Bbersihkan, Button 3 dan 4 tidak usah diganti seperi gambar

 Langkah 7
Ganti nama Form menjadi Penjualan Pakaian/Kasir dengan cara klik kanan lalu pilih propertis seperti digambar

  Langkah 8
Sekarang lanjut untuk membuat SourceCode nya

Klik 2x di RadioButton Baju lalu ketik SourceCode nya, lalu di RadioButton Celana, dan RadioButton Jaket seperti di bawah ini.

Untuk nama file yang ada di SourceCode nya, itu nama file gambar yang saya simpan seperti gambar dibawah ini 

    Private Sub RBBaju_CheckedChanged(sender As Object, e As EventArgs) Handles RBBaju.CheckedChanged

        If RBBaju.Checked = True Then

            PictureBox1.Image = System.Drawing.Image.FromFile("E:\Tugas VS\Baju.jpg")

            TxtHarga.Text = "200.000"

        End If

    End Sub

    Private Sub RBCelana_CheckedChanged(sender As Object, e As EventArgs) Handles RBCelana.CheckedChanged

        If RBCelana.Checked = True Then

            PictureBox1.Image = System.Drawing.Image.FromFile("E:\Tugas VS\Celana.jpg")

            TxtHarga.Text = "250.000"

        End If

    End Sub

    Private Sub RBJaket_CheckedChanged(sender As Object, e As EventArgs) Handles RBJaket.CheckedChanged

        If RBJaket.Checked = True Then

            PictureBox1.Image = System.Drawing.Image.FromFile("E:\Tugas VS\Jaket.jpg")

            TxtHarga.Text = "300.000"

        End If

    End Sub

 Langkah 9
Lanjut SourceCode yang di Button1

Dengan cara klik 2x di Button1/Hasil

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BHasil.Click

        TxtTotalBayar.Text = CInt(TxtHarga.Text) * CInt(TxtJumlah.Text)

    End Sub

langkag 10
Lanjut dengan Sourcode Button2/Bersihkan

Sama dengan cara yang diatas

Private Sub BBersihkan_Click(sender As Object, e As EventArgs) Handles BBersihkan.Click

        RBBaju.Checked = False

        RBCelana.Checked = False

        RBJaket.Checked = False

        PictureBox1.Image = Nothing

        TxtHarga.Text = ""

        TxtJumlah.Text = ""

        TxtTotalBayar.Text = ""

    End Sub

Langkah 11
Sekarang membuat Word nya karena saya akan menyimpannya juga di word juga

Buat seperti digambar, lalu klik di Jenis Pakaian

 Langkah 12
Lalu klik Insert pilih bookmark

Langkah Ke 13
Selanjutnya buat seperti digambar dengan nama depannya huruf B, tetapi kursor harus ditempat sesuai nama bokmarknya

Langkah 14
Setelah dibuat semua Bookmark nya , coba satu-satu dengan klik lalu pilih Go to seperti digambar

Jika kursor bisa berpindah tempat sesuai nama bookmark yang di pilih berarti sukses membuat Bookmark dan lalu di Save

Langkah 15
Setelah itu membuat yang di Excelnya seperti gambar lalu Save

Berbeda dengan Word, di Excel tidak usah membuat BookMark

Langkah 16
Selanjutnya membuat SourceCode nya, untuk nama File nya, sama seperti tadi

Nama File yang disimpan tadi. Jadikan 1 File saja agar tidak bingung mencari-cari filenya

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim aplikasi As New word.Application

        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("E:\Tugas VS\Penjulan Pakaian.docx")

        dokumen.Bookmarks("BJenisPakaian").Select()

        aplikasi.Selection.TypeText(RBBaju.Text)

        dokumen.Bookmarks("BHarga").Select()

        aplikasi.Selection.TypeText(TxtHarga.Text)

        dokumen.Bookmarks("BJumlah").Select()

        aplikasi.Selection.TypeText(TxtJumlah.Text)

        dokumen.Bookmarks("BTotalBayar").Select()

        aplikasi.Selection.TypeText(TxtTotalBayar.Text)

        dokumen.SaveAs2("E:\Tugas VS\Penjulan Pakaian.docx")

        MsgBox("Sukses")

        aplikasi.Visible = True

    End Sub

Langkah 17
Dan ketik SourceCode nya untuk Word Dan Excel paling atas dilembar kerja SourceCode

Seperti digambar

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel
 

Langlah 18
Selanjutnya Source Code untuk Excel

Nama File nya seperti tadi

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim AplikasiExcel As New excel.Application

        Dim FileExcel As excel.Workbook

        FileExcel = AplikasiExcel.Workbooks.Open("E:\Tugas VS\Konfirmasi Pemesanan.xlsx")

        AplikasiExcel.Range("A4").Value = RBBaju.Text

        AplikasiExcel.Range("B4").Value = TxtHarga.Text

        AplikasiExcel.Range("C4").Value = TxtJumlah.Text

        AplikasiExcel.Range("D4").Value = TxtTotalBayar.Text

        FileExcel.SaveAs("E:\Tugas VS\Konfirmasi Pemesanan.xlsx")

        MsgBox("Sukses")

        AplikasiExcel.Visible = True

    End Sub

End Class

Langkah 19
Selanjutnya untuk mengkonekannya klik Project , lalu pilih Add Reference

seperti digambar

langkah 20
Lalu ketik Word lalu centang dan OK

Seperti digambar

Langkah 21
Dan Excelnya seperti itu juga

Langkah 22
Dan coba Start

Dan Hasilnya Seperti ini

Langkah 23
Jika di Save di Word akan tampil seperti ini
 

Langkah 24
Dan Excel nya seperti ini

Langkah 25
Sukses
Dan Selesai

Selamat Mencoba.....

Terimakasih sudah mampir di Blog saya

Kurang lebihnya saya mohon maaf, karena saya disini juga masih belajar dan ini hasil pembelajaran saya sebagai Mahasiswi di STMIK ERESHA.