Aplikasi Tiket Kereta Api dengan Ms. Studio 2010 Java

-

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 .. :)

Komentar

Posting Komentar

Postingan populer dari blog ini

Sistem Perpustakaan Elektronik (E-Library) Menggunakan PHP

-
Gambar
Sistem Perpustakaan Elektronik (E-Library)                   Hallo semuanya kali ini saya posting tugas kuliah, yang dimaksud untuk dokumentasi dan referensi. E-Library berbasis web  ini bertujuan untuk mengelola data perpustakaan yang belum terorganisir dengan baik, manajemen buku elektronik/ e-book (jika sekolah memiliki file) dan memberikan informasi seputar perpustakaan sekolah mengenai info data ketersediaan buku, peminjam, pengembalian serta kartu anggota. Sistem ini menurut saya masih sangat sederhana dan masih bisa berkembangkan lebih jauh.  🔀 Hak Akses Sistem: - Admin (Login, Kelola Data Master User, Buku, E-Book, Jurusan, Transaksi, Pengumuman) - Petugas (Login, Kelola Transaksi, Posting Pengumuman) - Anggota (Login, Lihat & Cetak Kartu Anggota, Edit Profile, Lihat Pengumuman, Lihat Data Buku, Download E-Book, Lihat Riwayat Transaksi) Sistem ini dibangun menggunakan bahasa PHP Native dengan koneksi databa...
Baca selengkapnya

Aplikasi Sederhana Menghitung Bangun Datar Javascript & PHP

-
Gambar
 Aplikasi Sederhana Menghitung Bangun Datar Javascript & PHP              Hallo semua, disini saya akan menampilkan aplikasi sederhana untuk menghitung bangun datar. Perhitungan meliputi: 1. Luas Persegi 2. Luas Persegi Panjang 3. Luas Lingkaran  Aplikasi sederhana ini menggunakan: 1. PHP & Javascript 2. Bootstrap versi 5.0.0-beta3 (tampilan) bisa download di https://getbootstrap.com/ Untuk langkah pertama buat folder di htdocs dan file bootstrap diubah dengan nama _assets   kemudian buat index.php sebagai tampilan default, dan buat folder img untuk menampung gambar yang disimpan. Jangan lupa untuk koneksikan bootstrap css yang telah di download.   dan extension min.js juga jangan lupa ditulis dibagian bawah body.   Berikut tampilan di web browser: 1. Tampilan Persegi   Hasil setelah dimasukan nilai       2. Tampilan Persegi Panjang   Hasil setelah dimasukan nilai    ...
Baca selengkapnya

Audit Penjualan Alat Tulis Kantor dengan Microsoft Access

-
Gambar
Audit Penjualan Alat Tulis Kantor dengan Microsoft Access Data Penjualan ATK memiliki 4 Table dan memiliki 60 record data pembelian. Audit data penjualan meliputi menampilkan data transaksi tgl 2 sampai 6 januari 2020, menampilkan semua masing-masing transaksi dan memberikan bonus sesuai dengan total belanja pelanggan, menampilkan total transaksi pembelian dari yang tinggal dikota Tangsel, menampilkan data pembelian yang awalan kota B dan J serta bukan produk pulpen, dan menampilkan produk pulpen dan gunting antara tgl 1 sampai 15. Dwi Pangestu (161011700050) Ujian Akhir Semester 7 Mata Kuliah Audit IT 07SIFP001 - REG A - Sistem Informasi A. Penjelasan Database terdiri dari 4 Table 1. Tabel Customer Yang memiliki Field Name dan Tipe Data Dan Memiliki record data sebanyak 25 Customer 2. Tabel Produk Yang memiliki Field Name dan Tipe Data Dan Memiliki record data sebanyak 15 Produk 3. Tabel Sales Order Yang memiliki Field Name d...
Baca selengkapnya