Program Pencetak Invoice Laundry Menggunakan Visual Stuido 2012
1. Deskripsi Program
Assalamu'alaikum, hari ini saya akan mem-posting sebuah program pencetak invoice/tagihan laundry dengan menggunakan MS.Word atau MS.Excel.
Program yang saya buat kali ini bertujuan untuk mempermudah anda yang ingin membuka usaha laundry kecil - kecilan untuk meminimalisir kesalahan saat akan mengantar barang customer anda.
Macam - macam komponen yang dipakai pada program ini :
Program yang saya buat kali ini bertujuan untuk mempermudah anda yang ingin membuka usaha laundry kecil - kecilan untuk meminimalisir kesalahan saat akan mengantar barang customer anda.
Macam - macam komponen yang dipakai pada program ini :
- 9 Label
- 5 TextBox
- 1 ComboBox
- 4 RadioButton
- 1 DateTimePicker
- 5 Buah Button
- Tanggal
- Nama
- Jenis Cucian
- Harga/Kg
- Berat Cucian
- Total
- Bayar
- Kembali
- Cetak Word
- Cetak Excel
- Clear
- Keluar
2. Screenshoot
1. Screenshoot Interface Program
2. Screenshoot Output MS.Word dan MS.Excel
3. Source Code Program
Berikut ini adalah Source Code dari program di atas :
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class UTS_Muhammad_Rizqi_Nadjima_161021450141
Public harga, nama, keluar As String
Public aplikasiword As New word.Application
Public dokumenword As word.Document
Public aplikasiexcel As New excel.Application
Public dokumenexcel As excel.Workbook
Public Sub clear()
txtnama.Text = ""
rbaju.Checked = False
rjaket.Checked = False
rkarpet.Checked = False
rbedcover.Checked = False
txtharga.Text = ""
comboberat.Text = ""
txttotal.Text = ""
txtbayar.Text = ""
txtkembali.Text = ""
End Sub
Public Sub r1()
harga = txtharga.Text
If rbaju.Checked Then
txtharga.Text = 7000
End If
End Sub
Public Sub r2()
harga = txtharga.Text
If rjaket.Checked Then
txtharga.Text = 8000
End If
End Sub
Public Sub r3()
harga = txtharga.Text
If rkarpet.Checked Then
txtharga.Text = 20000
End If
End Sub
Public Sub r4()
harga = txtharga.Text
If rbedcover.Checked Then
txtharga.Text = 15000
End If
End Sub
Private Sub comboberat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboberat.SelectedIndexChanged
harga = txtharga.Text
Select Case comboberat.Text
Case "1 Kg"
txttotal.Text = harga
Case "2 Kg"
txttotal.Text = harga * 2
Case "3 Kg"
txttotal.Text = harga * 3
Case "4 Kg"
txttotal.Text = harga * 4
Case "5 Kg"
txttotal.Text = harga * 5
Case "6 Kg"
txttotal.Text = harga * 6
Case "7 Kg"
txttotal.Text = harga * 7
Case "8 Kg"
txttotal.Text = harga * 8
Case "9 Kg"
txttotal.Text = harga * 9
Case "10 Kg"
txttotal.Text = harga * 10
End Select
End Sub
Private Sub rbaju_CheckedChanged(sender As Object, e As EventArgs) Handles rbaju.CheckedChanged
r1()
End Sub
Private Sub rjaket_CheckedChanged(sender As Object, e As EventArgs) Handles rjaket.CheckedChanged
r2()
End Sub
Private Sub rkarpet_CheckedChanged(sender As Object, e As EventArgs) Handles rkarpet.CheckedChanged
r3()
End Sub
Private Sub rbedcover_CheckedChanged(sender As Object, e As EventArgs) Handles rbedcover.CheckedChanged
r4()
End Sub
Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click
If txtnama.Text = "" Then
MsgBox("Kolom Nama Belum Di Isi!", vbCritical, "Salah!")
txtnama.Focus()
End If
txtkembali.Text = txtbayar.Text - txttotal.Text
End Sub
Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
clear()
End Sub
Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click
keluar = MsgBox("Anda Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Konfirmasi")
If keluar = vbYes Then
Close()
End If
End Sub
Private Sub btnword_Click(sender As Object, e As EventArgs) Handles btnword.Click
nama = (boxtgl.Text + " " + txtnama.Text)
dokumenword = aplikasiword.Documents.Open("C:\Users\Muhammad Rizqi Nadji\Documents\invoice_laundry\template_word.docx")
dokumenword.Bookmarks("BD").Select()
aplikasiword.Selection.TypeText(boxtgl.Value)
dokumenword.Bookmarks("BN").Select()
aplikasiword.Selection.TypeText(txtnama.Text)
If rbaju.Checked Then
dokumenword.Bookmarks("BJC").Select()
aplikasiword.Selection.TypeText("Baju")
ElseIf rjaket.Checked Then
dokumenword.Bookmarks("BJC").Select()
aplikasiword.Selection.TypeText("Jaket")
ElseIf rkarpet.Checked Then
dokumenword.Bookmarks("BJC").Select()
aplikasiword.Selection.TypeText("Karpet")
ElseIf rbedcover.Checked Then
dokumenword.Bookmarks("BJC").Select()
aplikasiword.Selection.TypeText("Bedcover")
End If
dokumenword.Bookmarks("BH").Select()
aplikasiword.Selection.TypeText(txtharga.Text)
dokumenword.Bookmarks("BBC").Select()
aplikasiword.Selection.TypeText(comboberat.Text)
dokumenword.Bookmarks("BT").Select()
aplikasiword.Selection.TypeText(txttotal.Text)
dokumenword.Bookmarks("BB").Select()
aplikasiword.Selection.TypeText(txtbayar.Text)
dokumenword.Bookmarks("BK").Select()
aplikasiword.Selection.TypeText(txtkembali.Text)
dokumenword.SaveAs("C:\Users\Muhammad Rizqi Nadji\Documents\invoice_laundry\word\" + nama + ".docx")
MsgBox("Sukses!")
aplikasiword.Visible = True
End Sub
Private Sub btnexcel_Click(sender As Object, e As EventArgs) Handles btnexcel.Click
nama = (boxtgl.Text + " " + txtnama.Text)
dokumenexcel = aplikasiexcel.Workbooks.Open("C:\Users\Muhammad Rizqi Nadji\Documents\invoice_laundry\template_excel.xlsx")
aplikasiexcel.Range("A3").Value = boxtgl.Value
aplikasiexcel.Range("B3").Value = txtnama.Text
If rbaju.Checked Then
aplikasiexcel.Range("C3").Value = "Baju"
ElseIf rjaket.Checked Then
aplikasiexcel.Range("C3").Value = "Jaket"
ElseIf rkarpet.Checked Then
aplikasiexcel.Range("C3").Value = "Karpet"
ElseIf rbedcover.Checked Then
aplikasiexcel.Range("C3").Value = "Bedcover"
End If
aplikasiexcel.Range("D3").Value = txtharga.Text
aplikasiexcel.Range("E3").Value = comboberat.Text
aplikasiexcel.Range("F3").Value = txttotal.Text
aplikasiexcel.Range("G3").Value = txtbayar.Text
aplikasiexcel.Range("H3").Value = txtkembali.Text
dokumenexcel.SaveAs("C:\Users\Muhammad Rizqi Nadji\Documents\invoice_laundry\excel\" + nama + ".xlsx")
MsgBox("Sukses!")
aplikasiexcel.Visible = True
End Sub
End Class
