Aplikasi Visual Studio
Membuat Projek Aplikasi Penjualan Produk Sepatu menggunakan Visual studio 2012
Tujian aplikasi ini saya buat untuk memenuhi tugas mata kuliah Pemograman web 2
Tujuan Aplikasi Penjualan Produk Sepatu.
Tujuan saya membuat Aplikasi ini agar penjual dapat menghitung Harga sepatu dengan mudah tampa harus menggunakan Kalkulator untuk menghitung berapa Yang harus di bayar sama konsumen terhadap penjual setelah mendapatkan diskon atau belum dan agar penjual mudah menghitung secara otomatis berapa kembalian dari beberapa produk sepatu yang konsumen beli, dan juga penjual dapat mengprint struk pembelian berupa Word dan Excel
Cara membuat aplikasi Tersebut

  • Langkah pertama buka Aplikasi Visual Studio 2012


  1. Buatlah projek Baru Terlebih DahuluK
  2. Kliknew pada fileK
  3. lik new projectP
  4. ilih Windows Form Application dan berikan projectnya lalu kilk OK

Jika sudah maka akan muncul form kosong,maka dari itu kita harus mengisi form yang kosong tersebut dengan beberapa item sebagai berikut.

  • Membutuhkan 7 lebel yang terdiri dari sebagai berikut:


  1. Ukuran sepatu
  2. arga
  3. Jumlah beli
  4. Diskon
  5. Total
  6. Bayar
  7. Kembalian
  • Membutuhkan6 Textbox dan 1 combobox lalu ubah name menjadi:


  1. Tbxsize untuk bagian Ukuran sepatu
  2. Tbxharga untuk bagian Harga
  3. Cbjumlah untuk bagian jumlah beli
  4. Tbxdiskonuntuk bagian diskon
  5. Tbxtotal untuk bagian total
  6. Tbxbayar untuk bagian bayar
  7. Tbxkembalian untuk bagian kembalian


  • Membutuhkan 5 button dan ubah neme menjadi:


  1. Btnhitung untuk bagian hitung 
  2. Btnexcel untuk bagian cetak excel
  3. Btnword untuk bagian cetak word
  4. Btnalertdiskon untuk bagian diskon pada tanda ?
  5. Btntotal untuk bagian hitung total

Gambar aplikasi dengan item di atas

Lalu buat file word dan excel untuk menampung data transaksi seperti dibawah ini:
Hasil cetak ke word
Jika sudah mengetik nama-nama lalu di bookmars.

Hasil cetak ke excel

Langkah selanjutnya buka aplikasi visual studio dan aktifkan dulu koneksi ke word dank e excel dengan cara sebagai berikut:

  1. Klik projek lalu klik add reference lalu ceklis ms word dan excel lalu klik OK.
  2. Masukan Codingan di bawah ini:
  3. Masukan script di bagian atas.di atas public class form 1 untuk mengkoneksikan ke word dan ke excel


Masukan script ini pada button cetak word, untuk mencetak hasil dari inputan word:
Dim file As New word.Document
        file = aplikasi.Documents.Open("C:\Users\asus\Documents\Toko_Fauzi.docx")
        file.Bookmarks("Ukuran_Spatu").Select()
        aplikasi.Selection.TypeText(tbxsize.Text)
        file.Bookmarks("Harga").Select()
        aplikasi.Selection.TypeText(tbxharga.Text)
        file.Bookmarks("Jumlah_Beli").Select()
        aplikasi.Selection.TypeText(cbjumlah.Text)
        file.Bookmarks("Diskon").Select()
        aplikasi.Selection.TypeText(tbxdiskon.Text)
        file.Bookmarks("Harga_Total").Select()
        aplikasi.Selection.TypeText(tbxtotal.Text)
        file.Bookmarks("Bayar").Select()
        aplikasi.Selection.TypeText(tbxbayar.Text)
        file.Bookmarks("Kembalian").Select()
        aplikasi.Selection.TypeText(tbxkembalian.Text)
        file.SaveAs2("C:\Users\asus\Documents\Toko_Fauzi.docx")
        MsgBox("Sukses")
        aplikasi.Visible = True
Hasil Dari Codingan di atas:



masukan script ini pada button cetak excel. untuk mencetak hasil dari inputan ke output pada word
 Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook
        fileexcel = aplikasiexcel.Workbooks.Open("C:\VisStudio_2012\VisStudio_2012\penjualan_sepatu")
        aplikasiexcel.Range("B3").Value = tbxcari.Text
        aplikasiexcel.Range("C3").Value = tbxsize.Text
        aplikasiexcel.Range("D3").Value = tbxharga.Text
        aplikasiexcel.Range("E3").Value = cbjumlah.Text
        aplikasiexcel.Range("F3").Value = tbxdiskon.Text
        aplikasiexcel.Range("G3").Value = tbxtotal.Text
        aplikasiexcel.Range("H3").Value = tbxbayar.Text
        aplikasiexcel.Range("I3").Value = tbxkembalian.Text
        fileexcel.SaveAs("C:\VisStudio_2012\VisStudio_2012\penjualan_sepatu")
        MsgBox("sukses")
        aplikasiexcel.Visible = True
    End Sub
Contoh gambar hasil kodingan di atas:


  • masukan script ini pada button total,untuk menghitung jumlah total harga:
  • ukuran sepatu maksimal 43,jika memasukan lebih dari maksimal ukuran maka akan muncul alert maksimal ukuran sepatu yang tersedia. 

Dim abc As Integer
        abc = tbxharga.Text * cbjumlah.Text

        If cbjumlah.Text > 5 Then
            tbxdiskon.Text = abc * 0.1
        Else
            tbxdiskon.Text = 0
        End If
        tbxtotal.Text = abc - tbxdiskon.Text

        If tbxsize.Text > 43 Then
            MsgBox("Ukuran sepatu yang tersedia hanya sampai 43")
            tbxsize.Text = ""
        End If


  • masukan script inipada button Hitung untuk menghitung total harga di kurang bayar dan menghitung kembalian.

tbxkembalian.Text = tbxbayar.Text - tbxtotal.Text


  • masukan script ini ke dalam button ? diskon.

untuk memberikan informasi bahwa jika membeli lebih dari 5 maka akan mendapat diskon 10%.
 MsgBox("Beli lebih dari 5 dapat diskon 10%"



  • Hasil Run atau klik F5 ketika aplikasi sudah di jalankan akan muncul seperti ini:


Hasil dari cetak Excel dari data di atas:




Hasil dari cetak excel:

Hasil dari cetak word:










Komentar

Posting Komentar