Form Penjualan Tiket Kereta Api menggunakan Visual Studio

1.Deskripsi

Aplikasi ini betujuan memudahkan menyimpan data pembeli tiket Kereta Api.
Dengan menggunakan tools TextBox, Label, ComboBox, Button.

2. ScreenShot

3. Source Code

Imports Word = Microsoft.Office.Interop.Word
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub cmbkrl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbkrl.SelectedIndexChanged
        If (cmbkrl.SelectedIndex.Equals(0)) Then
            txtharga.Text = 50000
        ElseIf (cmbkrl.SelectedIndex.Equals(1)) Then
            txtharga.Text = 100000
        Else
            txtharga.Text = 150000
        End If
    End Sub

    Private Sub txtjumlah_LostFocus(sender As Object, e As EventArgs) Handles txtjumlah.LostFocus
        Dim Total As Integer
        Total = txtharga.Text * txtjumlah.Text
        txttotal.Text = Total
    End Sub

    Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click
        Dim Kembalian As Integer
        Kembalian = txtbayar.Text - Txttotal.Text
        Txtkembalian.Text = Kembalian
    End Sub

    Private Sub btnword_Click(sender As Object, e As EventArgs) Handles btnword.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document
        Dim gabungan As String
        gabungan = (txtnama.Text + " " + cmbkrl.Text)

        dokumen = aplikasi.Documents.Open("D:\aplikasi it\catatan kuliah\UTS pemograman semester 4\pemograman 1 semester 4.docx")

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

        dokumen.Bookmarks("BGERBONG").Select()
        aplikasi.Selection.TypeText(cmbkrl.Text)

        dokumen.Bookmarks("BJUMLAH").Select()
        aplikasi.Selection.TypeText(txtjumlah.Text)

        dokumen.Bookmarks("BTOTAL").Select()
        aplikasi.Selection.TypeText(Txttotal.Text)

        dokumen.Bookmarks("BBAYAR").Select()
        aplikasi.Selection.TypeText(txtbayar.Text)

        dokumen.Bookmarks("BHARGA").Select()
        aplikasi.Selection.TypeText(txtharga.Text)

        dokumen.Bookmarks("BKEMBALIAN").Select()
        aplikasi.Selection.TypeText(txtkembalian.Text)

        dokumen.SaveAs2("D:\aplikasi it\catatan kuliah\UTS pemograman semester 4\" + gabungan + ".docx")
        aplikasi.Visible = True

    End Sub

    Private Sub btnexcel_Click(sender As Object, e As EventArgs) Handles btnexcel.Click
        Dim aplikasiExcel As New excel.Application
        Dim fileExcelnya As excel.Workbook
        Dim gabungan As String
        gabungan = (txtnama.Text + " " + cmbkrl.Text)

        fileExcelnya = aplikasiExcel.Workbooks.Open("D:\aplikasi it\catatan kuliah\UTS pemograman semester 4\FormKereta.xlsx")

        aplikasiExcel.Range("A3").Value = txtnama.Text
        aplikasiExcel.Range("B3").Value = cmbkrl.Text
        aplikasiExcel.Range("C3").Value = txtharga.Text
        aplikasiExcel.Range("D3").Value = txtjumlah.Text
        aplikasiExcel.Range("E3").Value = Txttotal.Text
        aplikasiExcel.Range("F3").Value = txtbayar.Text
        aplikasiExcel.Range("G3").Value = Txtkembalian.Text

        fileExcelnya.SaveAs("D:\aplikasi it\catatan kuliah\UTS pemograman semester 4\" + gabungan + ".xlsx")

        MsgBox("Berhasil menyimpan")
        aplikasiExcel.Visible = True

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cmbkrl.Items.Add(" Bisnis - Rp.50.000 ")
        cmbkrl.Items.Add(" Ekonomi - Rp. 100.000 ")
        cmbkrl.Items.Add(" Eksekutif - Rp. 150.000 ")

    End Sub
End Class