Aplikasi Penjualan Pulsa

Assalamu'alaikum Wr. Wb.

Pada kesempatan kali ini, saya telah membuat project menggunakan Visual Studio. Aplikasi ini dibuat untuk mempermudah pembelian pulsa sehingga penjual tidak perlu untuk menulis secara manual di kertas.

Komponen yang diperlukan, yaitu:

• Label
• Button
• TextBox
• ComboBox

Setelah data pembeli disimpan ke dalam Microsoft Excel & Microsoft Word.

Bookmark di Microsoft Word

Source Code:

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tanggal, tahun, jumlah As Integer

        For tanggal = 1 To 31
            ComboTanggal.Items.Add(tanggal)
        Next
        For tahun = 2030 To 2000 Step -1
            ComboTahun.Items.Add(tahun)
        Next
        For jumlah = 1 To 10
            ComboJumlah.Items.Add(jumlah)
        Next

        ComboBulan.Items.Add("Januari")
        ComboBulan.Items.Add("Februari")
        ComboBulan.Items.Add("Maret")
        ComboBulan.Items.Add("April")
        ComboBulan.Items.Add("Mei")
        ComboBulan.Items.Add("Juni")
        ComboBulan.Items.Add("Juli")
        ComboBulan.Items.Add("Agustus")
        ComboBulan.Items.Add("September")
        ComboBulan.Items.Add("Oktober")
        ComboBulan.Items.Add("November")
        ComboBulan.Items.Add("Desember")

        ComboProvider.Items.Add("Telkomsel")
        ComboProvider.Items.Add("Indosat")
        ComboProvider.Items.Add("XL")
        ComboProvider.Items.Add("Axis")
        ComboProvider.Items.Add("3")

        ComboNominal.Items.Add("5000")
        ComboNominal.Items.Add("10000")
        ComboNominal.Items.Add("20000")
        ComboNominal.Items.Add("50000")
        ComboNominal.Items.Add("100000")
    End Sub

    Private Sub ComboNominal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboNominal.SelectedIndexChanged
        Select Case ComboNominal.Text
            Case "5000"
                TextHarga.Text = "6000"
            Case "10000"
                TextHarga.Text = "11000"
            Case "20000"
                TextHarga.Text = "21000"
            Case "50000"
                TextHarga.Text = "51000"
            Case "100000"
                TextHarga.Text = "101000"
        End Select
    End Sub

Source Code Button untuk hapus

    Private Sub ButtonHapus_Click(sender As Object, e As EventArgs) Handles ButtonHapus.Click
        ComboTanggal.Text = ""
        ComboBulan.Text = ""
        ComboTahun.Text = ""
        TextNomor.Text = ""
        ComboProvider.Text = ""
        ComboNominal.Text = ""
        TextHarga.Text = ""
        ComboJumlah.Text = ""
        TextTotalBayar.Text = ""
    End Sub

Source Code Button untuk proses hitung
    Private Sub ButtonProses_Click(sender As Object, e As EventArgs) Handles ButtonProses.Click
        TextTotalBayar.Text = TextHarga.Text * ComboJumlah.Text
    End Sub

Source Code Button untuk keluar

    Private Sub ButtonKeluar_Click(sender As Object, e As EventArgs) Handles ButtonKeluar.Click
        End
    End Sub

Source Code Button untuk simpan ke Microsoft Excel

    Private Sub ButtonExcel_Click(sender As Object, e As EventArgs) Handles ButtonExcel.Click
        Dim app As New excel.Application
        Dim file As excel.Workbook

        file = app.Workbooks.Open("C:\Users\ASUS\Documents\Pulsa.xlsx")

        app.Range("C6").Value = ComboTanggal.Text
        app.Range("D6").Value = ComboBulan.Text
        app.Range("E6").Value = ComboTahun.Text
        app.Range("B10").Value = TextNomor.Text
        app.Range("C10").Value = ComboProvider.Text
        app.Range("D10").Value = ComboNominal.Text
        app.Range("E10").Value = TextHarga.Text
        app.Range("F10").Value = ComboJumlah.Text
        app.Range("D14").Value = TextTotalBayar.Text

        file.SaveAs("C:\Users\ASUS\Documents\" + TextNomor.Text + "_" + ComboNominal.Text + "_" + "Pulsa.xlsx")
        MsgBox("S U K S E S")
        app.Visible = True
    End Sub

Source Code Button untuk simpan ke Microsoft Word

    Private Sub ButtonWord_Click(sender As Object, e As EventArgs) Handles ButtonWord.Click
        Dim app As New word.Application
        Dim file As word.Document

        file = app.Documents.Open("C:\Users\ASUS\Documents\Pulsa.docx")

        file.Bookmarks("BTANGGAL").Select()
        app.Selection.TypeText(ComboTanggal.Text)
        file.Bookmarks("BBULAN").Select()
        app.Selection.TypeText(ComboBulan.Text)
        file.Bookmarks("BTAHUN").Select()
        app.Selection.TypeText(ComboTahun.Text)
        file.Bookmarks("BNOMOR").Select()
        app.Selection.TypeText(TextNomor.Text)
        file.Bookmarks("BPROVIDER").Select()
        app.Selection.TypeText(ComboProvider.Text)
        file.Bookmarks("BNOMINAL").Select()
        app.Selection.TypeText(ComboNominal.Text)
        file.Bookmarks("BHARGA").Select()
        app.Selection.TypeText(TextHarga.Text)
        file.Bookmarks("BJUMLAH").Select()
        app.Selection.TypeText(ComboJumlah.Text)
        file.Bookmarks("BTOTAL").Select()
        app.Selection.TypeText(TextTotalBayar.Text)

        file.SaveAs("C:\Users\ASUS\Documents\" + TextNomor.Text + "_" + ComboNominal.Text + "_" + "Pulsa.docx")
        MsgBox("S U K S E S")
        app.Visible = True
    End Sub
End Class

Wassalamu'alaikum Wr. Wb.