Aplikasi Tiket Kereta Api dengan Ms. Studio 2010 Java

Aplikasi Tiket Kereta Api dengan Ms. Studio 2010 Java

Aplikasi ini dibuat menggunakan Microsoft Visual Studio dengan bahasa pemrograman Java, yang bertujuan untuk memudahkan pemesanan tiket Kereta Api, tujuan dan keberangkatan hanya dari Jakarta - Surabaya. Yang membedakan tipe kelas kereta yang akan dipilih, apakah memilih eksekutif atau ekonomi. Berikut tampilan aplikasinya :

Komponen Yang Dibutuhkan :

• Label
• CheckBox
• ComboBox
• Button
• RadioButton dan GroupBox
• TextBox

Isi identitas pemesan, tanggal berangkat pilih tipe Kereta Api yang akan dipilih apakah Eksekutif atau Ekonomi. Setelah dipilih kita bisa lihat fasilitas yang akan didapat. 

 Contoh tipe kelas Ekonomi, fasilitas dan harga akan berbeda

Setelah itu, pilih metode pembayaran dan uang yang akan dibayarkan. Jika mendapat kita pilih CheckBox akan mendapat diskon 10% .

 Tampilan di MS. Word

Source Code

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
---------------------------------------------------------
Code ComboBox
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        For a = 1 To 31
            CMBTanggal.Items.Add(a)
        Next
        For b = 1 To 12
            CMBBulan.Items.Add(b)
        Next
        For c = 2020 To 2017 Step -1
            CMBTahun.Items.Add(c)
        Next

    End Sub

Private Sub TxtKe_LostFocus(sender As Object, e As EventArgs) Handles TxtKe.LostFocus
        TxtJURUSAN.Text = TxtDari.Text + " - " + TxtKe.Text

    End Sub
-------------------------------------------------------
Code Button Hapus
 Private Sub BTNCLEAR_Click(sender As Object, e As EventArgs) Handles BTNCLEAR.Click
        TxtNIK.Text = ""
        TxtMetode.Text = ""
        TxtNAMA.Text = ""
        TxtJENISKELAMIN.Text = ""
        TxtALAMAT.Text = ""
        TxtNOTELP.Text = ""
        TxtTANGGAL.Text = ""
        TxtDari.Text = ""
        TxtKe.Text = ""
        TxtKelas.Text = ""
        TxtNAMAKERETA1.Text = ""
        TxtBERANGKAT.Text = ""
        TextBox1.Text = ""
        TxtNAMAKERETA2.Text = ""
        TxtJURUSAN.Text = ""
        TxtAC.Text = ""
        TxtTV.Text = ""
        TxtWIFI.Text = ""
        TxtTOILET.Text = ""
        TxtDISKON.Text = ""
        TxtHARGA2.Text = ""
        TxtBAYAR.Text = ""
        TxtKEMBALI.Text = ""

    End Sub
-------------------------------------------------------
Code Button Keluar
Private Sub BTNCLOSE_Click(sender As Object, e As EventArgs) Handles BTNCLOSE.Click
        Dim x = MsgBox("Akan Selesai ? ", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If x = vbYes Then
            Me.Close()
        End If
    End Sub
------------------------------------------------------
Code RadioButton Jenis Kelamin
Private Sub RBLaki_CheckedChanged(sender As Object, e As EventArgs) Handles RBLaki.CheckedChanged
        TxtJENISKELAMIN.Text = "Laki - Laki"
    End Sub

    Private Sub RBPerempuan_CheckedChanged(sender As Object, e As EventArgs) Handles RBPerempuan.CheckedChanged
        TxtJENISKELAMIN.Text = "Perempuan"
    End Sub
------------------------------------------------------
Code RadioButton Kelas Kereta Api
Private Sub RBEKONOMI_CheckedChanged(sender As Object, e As EventArgs) Handles RBEKONOMI.CheckedChanged
        TxtKelas.Text = "Ekonomi"
        TxtNAMAKERETA1.Text = "Kerta Jaya"
        TxtNAMAKERETA2.Text = "Kerta Jaya"
        TxtBERANGKAT.Text = "11.30"
        TextBox1.Text = "165000"
        TxtHARGA2.Text = "165000"
        TxtAC.Text = "Tidak"
        TxtTV.Text = "Tidak"
        TxtWIFI.Text = "Tidak"
        TxtTOILET.Text = "Ya"
    End Sub

Private Sub RBBISNIS_CheckedChanged(sender As Object, e As EventArgs) Handles RBBISNIS.CheckedChanged
        TxtKelas.Text = "Eksekutif"
        TxtNAMAKERETA1.Text = "Argo Bromo Anggrek"
        TxtBERANGKAT.Text = "09.30"
        TxtNAMAKERETA2.Text = "Argo Bromo Anggrek"
        TextBox1.Text = "395000"
        TxtHARGA2.Text = "395000"
        TxtAC.Text = "Ya"
        TxtTV.Text = "Ya"
        TxtWIFI.Text = "Ya"
        TxtTOILET.Text = "Ya"
    End Sub

-------------------------------------------------------
Kode Button Pada Tanggal

Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
        TxtTANGGAL.Text = CMBTanggal.Text + " - " + CMBBulan.Text + " - " + CMBTahun.Text

    End Sub
-------------------------------------------------------
Kode RadioButton Metode

Private Sub RBCASH_CheckedChanged(sender As Object, e As EventArgs) Handles RBCASH.CheckedChanged
        TxtMetode.Text = "Cash"
    End Sub

    Private Sub RBTRANSFER_CheckedChanged(sender As Object, e As EventArgs) Handles RBTRANSFER.CheckedChanged
        TxtMetode.Text = "Transfer"
    End Sub
-----------------------------------------------------
Kode CheckBox

Private Sub ChkDiskon_CheckedChanged(sender As Object, e As EventArgs) Handles ChkDiskon.CheckedChanged
        If ChkDiskon.Checked = True Then
            TxtDISKON.Text = (TxtHARGA2.Text / 10)
        Else
            TxtDISKON.Text = 0
        End If

    End Sub
---------------------------------------------------
Button Hitung

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   TxtKEMBALI.Text = (TxtBAYAR.Text - TxtHARGA2.Text - TxtDISKON.Text)

End Sub
---------------------------------------------------
Button Save to Ms. Word

Private Sub BTNWORD_Click(sender As Object, e As EventArgs) Handles BTNWORD.Click
        Dim aplikasi As New word.Application
        Dim dokument As New word.Document

        dokument = aplikasi.Documents.Open("D:\Kuliah\Materi Sistem Informasi\Semester 5\Pemrograman Visual\Data UTS\TiketKereta.docx")

        dokument.Bookmarks("BNIK").Select()
        aplikasi.Selection.TypeText(TxtNIK.Text)

        dokument.Bookmarks("BNAMA").Select()
        aplikasi.Selection.TypeText(TxtNAMA.Text)

        dokument.Bookmarks("BJENISKELAMIN").Select()
        aplikasi.Selection.TypeText(TxtJENISKELAMIN.Text)

        dokument.Bookmarks("BALAMAT").Select()
        aplikasi.Selection.TypeText(TxtALAMAT.Text)

        dokument.Bookmarks("BNOMORTELPON").Select()
        aplikasi.Selection.TypeText(TxtNOTELP.Text)

        dokument.Bookmarks("BNAMAKERETA").Select()
        aplikasi.Selection.TypeText(TxtNAMAKERETA1.Text)

        dokument.Bookmarks("BJAM").Select()
        aplikasi.Selection.TypeText(TxtBERANGKAT.Text)

        dokument.Bookmarks("BHARGA").Select()
        aplikasi.Selection.TypeText(TextBox1.Text)

        dokument.Bookmarks("BTANGGAL").Select()
        aplikasi.Selection.TypeText(TxtTANGGAL.Text)

        dokument.Bookmarks("BJURUSAN").Select()
        aplikasi.Selection.TypeText(TxtJURUSAN.Text)

        dokument.Bookmarks("BAC").Select()
        aplikasi.Selection.TypeText(TxtAC.Text)

        dokument.Bookmarks("BWIFI").Select()
        aplikasi.Selection.TypeText(TxtWIFI.Text)

        dokument.Bookmarks("BTOILET").Select()
        aplikasi.Selection.TypeText(TxtTOILET.Text)

        dokument.Bookmarks("BMETODE").Select()
        aplikasi.Selection.TypeText(TxtMetode.Text)

        dokument.Bookmarks("BBAYAR").Select()
        aplikasi.Selection.TypeText(TxtBAYAR.Text)

        dokument.Bookmarks("BHARGATIKET").Select()
        aplikasi.Selection.TypeText(TxtHARGA2.Text)

        dokument.Bookmarks("BDISKON").Select()
        aplikasi.Selection.TypeText(TxtDISKON.Text)

        dokument.Bookmarks("BKEMBALI").Select()
        aplikasi.Selection.TypeText(TxtKEMBALI.Text)

        dokument.SaveAs("D:\Kuliah\Materi Sistem Informasi\Semester 5\Pemrograman Visual\Data UTS\" + TxtNAMA.Text + " " + TxtNAMAKERETA1.Text + " " + TxtJURUSAN.Text + ".docx")
        aplikasi.Visible = True

    End Sub
-----------------------------------------------------------
Code Save to Ms. Excel

 Private Sub BTNEXCEL_Click(sender As Object, e As EventArgs) Handles BTNEXCEL.Click
        Dim AplikasiExcel As New excel.Application
        Dim FileExcel As excel.Workbook
        FileExcel = AplikasiExcel.Workbooks.Open("D:\Kuliah\Materi Sistem Informasi\Semester 5\Pemrograman Visual\Data UTS\TiketKereta.xlsx")
        AplikasiExcel.Range("B7").Value = TxtNIK.Text
        AplikasiExcel.Range("C7").Value = TxtNAMA.Text
        AplikasiExcel.Range("D7").Value = TxtJENISKELAMIN.Text
        AplikasiExcel.Range("E7").Value = TxtALAMAT.Text
        AplikasiExcel.Range("F7").Value = TxtNOTELP.Text

        AplikasiExcel.Range("C11").Value = TxtNAMAKERETA1.Text
        AplikasiExcel.Range("C12").Value = TxtKelas.Text
        AplikasiExcel.Range("C13").Value = TxtTANGGAL.Text
        AplikasiExcel.Range("C14").Value = TxtJURUSAN.Text
        AplikasiExcel.Range("C15").Value = TextBox1.Text
        AplikasiExcel.Range("C16").Value = TxtAC.Text
        AplikasiExcel.Range("C17").Value = TxtTV.Text
        AplikasiExcel.Range("C18").Value = TxtWIFI.Text
        AplikasiExcel.Range("C19").Value = TxtTOILET.Text

        AplikasiExcel.Range("F11").Value = TxtMetode.Text
        AplikasiExcel.Range("F12").Value = TxtBAYAR.Text
        AplikasiExcel.Range("F13").Value = TxtHARGA2.Text
        AplikasiExcel.Range("F14").Value = TxtDISKON.Text
        AplikasiExcel.Range("F15").Value = TxtKEMBALI.Text

        FileExcel.SaveAs("D:\Kuliah\Materi Sistem Informasi\Semester 5\Pemrograman Visual\Data UTS\" + TxtNAMA.Text + " " + TxtNAMAKERETA1.Text + " " + TxtJURUSAN.Text + ".xlsx")
        MsgBox("Sukses")
        AplikasiExcel.Visible = True
    End Sub

End Class

Cukup sekian Terima Kasih sudah melihat .. :)