E-FAKTUR SERVICE Visual Studio 2012

Assalamualaikum…berjumpa lagi dengan saya. Pada kesempatan kali ini saya akan mempersembahkan sebuah aplikasi yang saya buat untuk memenuhi nilai Ujian Tengah Semester mata kuliah Pemrograman Semester 4.  Alhamdulilah pada akhir nya project saya bisa selesai pada waktunya, dan sesuai dengan harapan. Terimakasih untuk semua pihak yang sudah terlibat dalam pembuatan project ini…
Oke langsung saja kita ke TKP ...hehehe

1. Judul Project & Penjelasan

APLIKASI FAKTUR JASA SERVIS KENDARAAN

Aplikasi ini ditujukan untuk mempermudah pembuatan  sebuah faktur yang yang dikhususkan untuk faktur jasa service kendaraan. Yang didalam nya terdapat beberapa fitur yaitu tombol diskon 
bagi yang sudah member, kemudian fitur report dengan akses ke microsoft word dan microsoft excel. Serta ditambah dengan tampilan Kalender dan Jam digital pada saat aplikasi digunakan.

2. Flow Chart

3. Desain Aplikasi

a. Tampilan Utama Aplikasi

Berikut ini source code dari tombol-tombol yang ada pada  aplikasi
1. Source code tombol TOTAL BIAYA :
Fungsi tombol ini yaitu untuk menampilkan total biaya dari biaya servis ditambah biaya spare part

 Private Sub btntotal_Click(sender As Object, e As EventArgs) Handles btntotal.Click
        Dim a, b, c As Integer
        a = txtservis.Text
        b = txtsp.Text
        c = cbxdiskon.Checked

        txttotal.Text = a + b - c


    End Sub

2. Check Box diskon member
Fungsi check box ini yaitu untuk memberikan diskon sebesar 20% kepada customer yang sudah menjadi member. Dengan menggunakan kondisi If, Else untuk mendeklarasikan dari fungsi diskon tersebut.

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxdiskon.CheckedChanged
        If cbxdiskon.Checked = True Then
            txtdiskon.Text = (txttotal.Text * 20 / 100)
        Else
            txtdiskon.Text = 0

        End If
    End Sub

3.Tombol Total Tagihan
Fungsi tombol ini yaitu untuk menghitung total tagihan yang harus dibayar oleh customer baik itu yang mendapatkan diskon member atau pun tidak.

Source Code :

Private Sub btnakhir_Click(sender As Object, e As EventArgs) Handles btnakhir.Click

        Dim a, b, c As Integer

        a = txttotal.Text

        b = txtdiskon.Text

        txtakhir.Text = a - b

    End Sub

4. Tombol Report to word

Fungsi tombol ini yaitu untuk meng eksport data dari apliaksi ke ms.office word, baik itu untuk di simpan atau pun di print out.

Dim aplikasi As New word.Application
        Dim dokumen As New word.Document

     
        dokumen = aplikasi.Documents.Open("D:\UTS\NOTA.docx")

        dokumen.Bookmarks("TGL").Select()
        aplikasi.Selection.TypeText(cmbtanggal.SelectedItem)
        aplikasi.Selection.TypeText(cmbbulan.SelectedItem)
        aplikasi.Selection.TypeText(cmbtahun.SelectedItem)

        dokumen.Bookmarks("NAMA").Select()
        aplikasi.Selection.TypeText(txtnama.Text)

        dokumen.Bookmarks("ALAMAT").Select()
        aplikasi.Selection.TypeText(txtalamat.Text)

        dokumen.Bookmarks("TELP").Select()
        aplikasi.Selection.TypeText(txttlp.Text)

        dokumen.Bookmarks("KELUHAN").Select()
        aplikasi.Selection.TypeText(txtket.Text)

        dokumen.Bookmarks("NOPOL").Select()
        aplikasi.Selection.TypeText(txtnopol.Text)

        dokumen.Bookmarks("MERK").Select()
        aplikasi.Selection.TypeText(txtmerk.Text)

        dokumen.Bookmarks("TYPE").Select()
        aplikasi.Selection.TypeText(txttype.Text)

        dokumen.Bookmarks("WARNA").Select()
        aplikasi.Selection.TypeText(txtwarna.Text)

        dokumen.Bookmarks("KM").Select()
        aplikasi.Selection.TypeText(txtkm.Text)

        dokumen.Bookmarks("BS").Select()
        aplikasi.Selection.TypeText(txtservis.Text)

        dokumen.Bookmarks("BSP").Select()
        aplikasi.Selection.TypeText(txtsp.Text)

        dokumen.Bookmarks("TB").Select()
        aplikasi.Selection.TypeText(txttotal.Text)

        dokumen.Bookmarks("DM").Select()
        aplikasi.Selection.TypeText(txtdiskon.Text)

        dokumen.Bookmarks("TA").Select()
        aplikasi.Selection.TypeText(txtakhir.Text)


        dokumen.SaveAs2("D:\UTS\NOTA.docx")
        MsgBox("TERHUBUNG")
        aplikasi.Visible = True
           End Sub

4. Tombol Report to excel
Fungsi tombol ini yaitu untuk meng eksport data dari apliaksi ke ms.office excel, baik itu untuk di simpan atau pun di print out.

    Dim aplikasiExcel As New Excel.Application
        Dim fileExcelnya As Excel.Workbook
        fileExcelnya = aplikasiExcel.Workbooks.Open("D:\UTS\BENGKEL.xlsx")
        aplikasiExcel.Range("C2").Value = cmbtanggal.SelectedItem
        aplikasiExcel.Range("D2").Value = cmbbulan.SelectedItem
        aplikasiExcel.Range("E2").Value = cmbtahun.SelectedItem
        aplikasiExcel.Range("B4").Value = txtnama.Text
        aplikasiExcel.Range("B5").Value = txtalamat.Text
        aplikasiExcel.Range("B6").Value = txttlp.Text
        aplikasiExcel.Range("B7").Value = txtket.Text
        aplikasiExcel.Range("D4").Value = txtnopol.Text
        aplikasiExcel.Range("D5").Value = txtmerk.Text
        aplikasiExcel.Range("D6").Value = txttype.Text
        aplikasiExcel.Range("D7").Value = txtwarna.Text
        aplikasiExcel.Range("D8").Value = txtkm.Text
        aplikasiExcel.Range("B10").Value = txtservis.Text
        aplikasiExcel.Range("B11").Value = txtsp.Text
        aplikasiExcel.Range("B12").Value = txttotal.Text
        aplikasiExcel.Range("B13").Value = txtdiskon.Text
        aplikasiExcel.Range("B14").Value = txtakhir.Text

        fileExcelnya.SaveAs("D:\UTS\BENGKEL.xlsx")
        MsgBox("TERHUBUNG")
        aplikasiExcel.Visible = True

5. Tombol Exit
Fungsi dari tombol Exit ini yaitu untuk keluar dan menutup aplikasi dengan memberikan pesan konfirmasi YES atau NO

 

Source code :

Dim keluar As String

        keluar = MsgBox("Anda yakin ingin keluar..?", vbQuestion + vbYesNo, "Konfirmasi")

        If keluar = vbYes Then

            Close()

        End If

6. Tombol Clear

Fungsi tombol ini yaitu untuk menghapus data yang ada pada kolom aplikasi, pada saat apliaksi sedang dipakai.

txtalamat.Text = ""
        txtket.Text = ""
        txtkm.Text = ""
        txtmerk.Text = ""
        txtnama.Text = ""
        txtnopol.Text = ""
        txttlp.Text = ""
        txttype.Text = ""
        txtwarna.Text = ""
        txttotal.Text = ""
        txtservis.Text = ""
        txtakhir.Text = ""
        txtdiskon.Text = ""
        txtsp.Text = ""
        cbxdiskon.Checked = False
        cmbtanggal.SelectedIndex = -1
        cmbbulan.SelectedIndex = -1
        cmbtahun.SelectedIndex = -1

7. Source code Combo Box Tanggal
Fungsi Combo box ini yaitu untuk memilih tanggal, bulan, tahun secara otomatis, tanpa harus mengetk manual.

Cara mengaktifkan nya yaitu :
-double klik para form (diluar label dan text box), setelah muncul menu source code nya masukan source code berikut ini,

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 31
            cmbtanggal.Items.Add(i)
        Next
        Dim b As Integer
        For b = 1 To 12
            Dim a As String
            a = MonthName(b)
            cmbbulan.Items.Add(a)
        Next
        Dim c As Integer
        For c = 2000 To Year(Now)
            cmbtahun.Items.Add(c)

        Next
    End Sub

Sampailah diakhir tutorial ini, semoga tutorial ini bisa bermanfaat. dan jika ada yg ingin mengoreksi atau menambahkan dipersilahkan.

Wassalamualaikum wr.wb

Read More