UTS Rekayasa perangkat Lunak aplikasi kasir (Visual Studio)

Senin, 05 November 2018

Aplikasi Penjualan Alat ukur

Pada postingan kali ini saya akan membuat aplikasi kasir penjualan alat ukur dengan menggunakan aplikasi Visual Studio 2015, pada aplikasi ini sudah dapat terhubung dengan Microsoft Word dan Microsoft Excel, yang nantinya dapat membantu pegawai agar tidak mencatat secara manual lagi, kegunaan dari terhubungnya aplikasi ini dengan Microsoft Word dan Microsoft Excel adalah dapat mencetak bukti pembelian Alat ukur yang diberikan kepada pelanggan secara otomatis, serta menyimpan data penjualan ke file word ataupun excel.

Tampilan awal aplikasi ini menujukan pilihan alat ukur yang ada pada jenis alat ( Combo Box) yang nantinya akan langsung terlihat berapa harga alat tersebut setelah dikalikan dengan jumlah alat yang dibeli. aplikasi ini juga mencantumkan nama kasir dan nama pembeli agar suatu saat nanti jika alat mengalami kerusakan yang masih bisa ditangggung garansi maka akan diperbaiki atau diganti dengan alat baru sesuai garansi yang tertera untuk alat tersebut. 

Berikut adalah komponen pendukung dari aplikasi ini :

• Button
• Label
• ComboBox
• TextBox
• DateTimePicker

i     1. Tampilan Awal Aplikasi

f

2. Tampilan Aplikasi setelah diinput data 

3. Tampilan output Penjualan ke Microsoft Excel

4.Tampilan output Penjualan ke Microsoft Word 

 Cara Menghubungkan Aplikasi Pembelian dan Pemesanan Kacamata dengan Microsoft Word dan Microsoft Excel 

• Klik Project à pilih Add Reference
• Pilih COM à cari Microsoft Word à ceklis Microdoft Word sesuai versi kalian à OK
• Kemudian buat Microsoft Word à tulis apa saja yang mau diinputkan dari aplikasi ke Ms. Word
• Pilih Bookmark
• Bookmark tulisan yang mau diinputkan dari aplikasi ke Ms. Word à Add à Close
• Save Microsoft Wordnya

                             
      Untuk Ms. Excel

• Klik Project à pilih Add Reference
• Pilih COM à cari Microsoft Excel à ceklis Microdoft Excel sesuai versi kalian à OK
• Buat Microsoft Excel à dasain dan tulis apa saja yang mau diinputkan dari aplikasi ke Ms. Excel

               

• Source Code di Form

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        cmbAlat.Items.Add("TOPCON")

        cmbAlat.Items.Add("LEICA")

        cmbAlat.Items.Add("NIKKON")

        cmbAlat.Items.Add("SOKKIA")

        cmbAlat.Items.Add("GOWIN")

    End Sub

• Source Code ComboBox

 Private Sub cmbAlat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAlat.SelectedIndexChanged

        If cmbAlat.Text = "TOPCON" Then

            harga.Text = 40000000

            garansi.Text = "6 Bulan"

        ElseIf cmbAlat.Text = "LEICA" Then

            harga.Text = 45000000

            garansi.Text = "1 Tahun"

        ElseIf cmbAlat.Text = "NIKKON" Then

            harga.Text = 75000000

            garansi.Text = "2 Tahun"

        ElseIf cmbAlat.Text = "SOKKIA" Then

            harga.Text = 55000000

            garansi.Text = "1 Tahun"

        ElseIf cmbAlat.Text = "GOWIN" Then

            harga.Text = 65000000

            garansi.Text = "1 Tahun"

        End If

    End Sub

Source Code Hitung

Private Sub hitung_Click(sender As Object, e As EventArgs) Handles hitung.Click

        Dim a, b, c

        a = harga.Text

        b = jumlah.Text

        c = a * b

        total.Text = c

    End Sub

• Source Code Hapus

  Private Sub hapus_Click(sender As Object, e As EventArgs) Handles hapus.Click

        cmbAlat.Text = ""

        harga.Text = ""

        garansi.Text = ""

        jumlah.Text = ""

        total.Text = ""

        t1.Text = ""

        t2.Text = ""

    End Sub

• Code Import ke Ms. Word

Private Sub word_Click(sender As Object, e As EventArgs) Handles word.Click

        Dim app As New word.Application

        Dim file As word.Document

        file = app.Documents.Open("C:\Users\Acer\Documents\Visual Studio 2012\Projects\uts\Penjualan Alat Ukur.docx")

        file.Bookmarks("Bjenis").Select()

        app.Selection.TypeText(cmbAlat.Text)

        file.Bookmarks("BHarga").Select()

        app.Selection.TypeText(harga.Text)

        file.Bookmarks("BGaransi").Select()

        app.Selection.TypeText(garansi.Text)

        file.Bookmarks("Btotal").Select()

        app.Selection.TypeText(total.Text)

        file.Bookmarks("Btanggal").Select()

        app.Selection.TypeText(DateTimePicker1.Text)

        file.Bookmarks("Bkasir").Select()

        app.Selection.TypeText(t1.Text)

        file.Bookmarks("Bpembeli").Select()

        app.Selection.TypeText(t2.Text)

        file.Bookmarks("Bjumlah").Select()

        app.Selection.TypeText(jumlah.Text)

        file.SaveAs2("C:\Users\Acer\Documents\Visual Studio 2012\Projects\uts" + cmbAlat.Text + " " + t2.Text + " " + "Penjualan Alata Ukur.docx")

        MsgBox(" S U K S E S ")

        app.Visible = True

    End Sub

• Code Import ke Ms. Excel

Private Sub excel_Click(sender As Object, e As EventArgs) Handles excel.Click

        Dim app As New excel.Application

        Dim file As excel.Workbook

        file = app.Workbooks.Open("C:\Users\Acer\Documents\Visual Studio 2012\Projects\uts\Book1.xlsx")

        app.Range("F4").Value = cmbAlat.Text

        app.Range("F5").Value = harga.Text

        app.Range("F6").Value = garansi.Text

        app.Range("F7").Value = jumlah.Text

        app.Range("F8").Value = total.Text

        app.Range("F9").Value = DateTimePicker1.Text

        app.Range("F10").Value = t1.Text

        app.Range("F11").Value = t2.Text

        file.SaveAs("C:\Users\Acer\Documents\Visual Studio 2012\Projects\uts" + cmbAlat.Text + " " + " " + "Book1.xlsx")

        MsgBox(" S U K S E S ")

        app.Visible = True

    End Sub

End Class