PROGRAM PENJUALAN TIKET KERETA API DENGAN APLIKASI VISUAL STUDIO 2012

TUTORIAL MEMBUAT APLIKASI FORUM PENJUALAN TIKET KERETA API DENGAN VISUAL STUDIO 2012

Assalamualaikum Wr.wb

Ketemu dengan saya lagi setelah sekian lama vakum,  disini saya akan menjelaskan bagaimana cara membuat Program Penjualan Tiket  Kereta Api dengan menggunakan aplikasi Visual Studio 2012.

Oke langsung aja....

Pertama-pertama sediakan komponen-komponen yang dibutuhkannya :

·        Pc/laptop

·        Aplikasi Visual Studio 2012

·        Kopi cemilan dan lain-lainnya

Selanjutnya, kalian jalankan aplikasi nya

Lalu kita akan muncul seperti gambar dibawah ini

Lalu kita klik file > NewProject, lalu akan muncul gambar dibawah ini

kita pilih Windows Form Aplication > ok

selanjutnya kita akan buat design formnya terlebih dahulu, disini saya buat 3 form yang pertama untuk sampul/cover, lalu kedua buat gambar list tiket, dan ketiga saya buat untuk proses pembeliannya.

Form pertama (cover/sampul)

Form kedua (list tiket)

Form ketiga ( proses )

Disini saya akan merangkumm apa saja yang dibutuhkan dalam pembuatan Form-form

FORM1 NAMA ITEM Nama Variabel FUNGSI AGEN PENJUALAN KERETA API LABEL LABEL1 Judul IMAGE.JPEG PICTURE BOX PICTURE BOX1 Simbol Agen BELI BUTTON BTN1 Untuk memanggil Form3(Beli) LIST/TIKET BUTTON BTN3 Untuk memanggil Form2(Llist) KELUAR BUTTON BTN2 Keluar / membattalkan pembelian

FORM2 NAMA ITEM NAMA VARIABEL FUNGSI LIST HARGA DAN TUJUAN LABEL LABEL1 Judul LIST1.JPEG PICTURE BOX PICTUREBOX1 Daftar Harga Tiket dan Tujuan LANJUT BUTTON BTNLANJUT Memanggil Form3(BELI) BATAL BUTTON BTNBATAL Kembali keawal Form

FORM  3 NAMA ITEM NAMA VARIABEL FUNGSI Form pengisian pembelian LABEL LABEL1 JUDUL Tiket kereta api LABEL LABEL2 JUDUL Nama LABEL LABEL3 - Kode kereta LABEL LABEL4 - Nama kereta LABEL LABEL5 - Harga LABEL LABEL6 - Jurusan LABEL LABEL7 - Jumlah LABEL LABEL8 - Total bayar LABEL LABEL9 - - TEXTBOX TXT1 Untuk memasukan nama pembeli - TEXTBOX TXT3 Untuk menampilkan nama kereta apabila sudah dipilih kode nya - TEXTBOX TXTHARGA Untuk menampilkan harga tiket kereta apabila sudah dipilih kode nya - TEXTBOX TXT4 Untuk menmpilkan jurusan - TEXTBOX TXT5 Untuk memasukan jumlah pembelian - TEXTBOX TXT6 Untuk menampilkan harga total untuk dibayar KODE KERETA COMBOBOX cmdkode Untuk memilih melalui Kode BELI BUTTON Btnbeli Untuk melakukan transaksi BATAL BUTTON Btnbatal Untuk membatalkaan pembelian/kembali ke awal halaman SIMPAN BUTTON Btnsimpan Untuk melakukan penyimpanan di MS.Excel CETAK BUTTON Btncetak Untuk melakukan pencetakan melalui MS.Word

Setelah kalian membuat seperti yang saya contohkan diatas, lalu kita harus ubah dahulun terlebih dahulu masing masing nama variabelnya supaya bisa mempermudah kita dalam proses peng-codingannya.

Oke kita mulai saja memasukan masing-masing codingan pada setiap Toolbox yang sudah ditaruh di masing-masing Form..kuy

Form1(WELCOME)

Masukan code dibawah untuk BTN3(LIST)

 Private Sub BTN3_Click(sender As Object, e As EventArgs) Handles BTN3.Click

        LIST.Visible = True

    End Sub

Masukan code dibawah untuk BTN1(BELI)

    Private Sub BTN1_Click(sender As Object, e As EventArgs) Handles BTN1.Click

        BELI.Visible = True

    End Sub

Masukan code dibawah untuk BTN2(KELUAR)

    Private Sub BTN2_Click(sender As Object, e As EventArgs) Handles BTN2.Click

        Dim pesan = MsgBox("SERIUS INGIN KELUAR ?", vbQuestion + vbYesNo, "PESAN")

        If pesan = vbYes Then

        Me.Close()

        End If

    End Sub

Form2 (LIST)

Sebelum memasukan masing-masing codenya kita masukan atau impor  dulu gambar listnya ter lebih dahulu

Pertama kita klik dulu gambar segitiga itu(seperti digambar)

Lalu lakukan seperti gambar dibawah ini supay apabila gambar yang diimport itu sesuai ukuran gambar yg asli tidak terpotong.

Selanjutnya masukkan code-codenya

Masukan code dibawah untuk BTNLANJUT(LANJUT)

Private Sub BTNLANJUT_Click(sender As Object, e As EventArgs) Handles BTNLANJUT.Click

        BELI.Visible = True

    End Sub

Masukan code dibawah untuk BTNBATAL(BATAL)

    Private Sub BTNBATAL_Click(sender As Object, e As EventArgs) Handles BTNBATAL.Click

        Dim pesan = MsgBox("YAKIN GA BELI ?", vbQuestion + vbYesNo, "PESAN")

        If pesan = vbYes Then

            Me.Close()

        End If

    End Sub

Form3 (BELI)

Disini kita terlebih dahulu mengimport untuk Ms.word dan Ms.excelnnya

Imports Word = Microsoft.Office.Interop.Word

Imports Excel = Microsoft.Office.Interop.Excel

Public Class BELI

Masukkan code yang dibawah untuk Toolbox COMBOBOX(cmbkode)

    Private Sub cmbkode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbkode.SelectedIndexChanged

        If cmbkode.Text = "252525" Then

            Txt3.Text = "ARGO BROMO ANGGREK"

            Txt4.Text = "SURABAYA - GAMBIR"

            TXTHARGA.Text = "200000"

        End If

        If cmbkode.Text = "262626" Then

            Txt3.Text = "ARGO WILIS"

            Txt4.Text = "SURABAYA - BANDUNG"

            TXTHARGA.Text = "150000"

        End If

        If cmbkode.Text = "272727" Then

            Txt3.Text = "ARGO LAWU"

            Txt4.Text = "SOLO - GAMBIR"

            TXTHARGA.Text = "250000"

        End If

        If cmbkode.Text = "282828" Then

            Txt3.Text = "ARGO SINDORO "

            Txt4.Text = "SEMARANG - GAMBIR"

            TXTHARGA.Text = "275000"

        End If

        If cmbkode.Text = "292929" Then

            Txt3.Text = "ARGO JATI"

            Txt4.Text = "CIREBON - GAMBIR"

            TXTHARGA.Text = "125000"

        End If

    End Sub

Masukkan code yang dibawah untuk Toolbox BUTTON (btnbeli)

    Private Sub btnbeli_Click(sender As Object, e As EventArgs) Handles btnbeli.Click

        Txt6.Text = TXTHARGA.Text * Txt5.Text

    End Sub

Masukkan code yang dibawah untuk Toolbox BUTTON (btnbatal)

    Private Sub btnbatal_Click(sender As Object, e As EventArgs) Handles btnbatal.Click

        Dim pesan = MsgBox("YAKIN GAK JADI BELI ?", vbQuestion + vbYesNo, "PESAN")

        If pesan = vbYes Then

            Me.Close()

        End If

    End Sub

Sebelum kita masukkan codinggan untuk button simpan dan cetak kita harus terlebih dahulu membuat file wordnya untuk mengkoneksikan nya

 

Buat tampilan wordnya seperti ini

 

Cara Add/Menambahkan Bookmark mudah ko tinggal buka option Insert->Bookmark seperti ini

Lalu akan muncul tampilan seperti ini (Ini tampilan jendela Bookmark yg sudah ada item Bookmarknya).

Kita focus ke Button wordnya terlebih dahulu, Sebelum kita coding Buttonnya kita harus Add Referense dan deklarasi (ada 2 deklarasi) agar ga terjadi error nantinya, saya kasih tau cara Add Referensenya (Add Referense ini agar visual studionya bisa berhubungan dengan word dan excelnya)

Pilih Project -> Add Referense seperti ini

Lalu akan muncul tampilan seperti ini dan pilih COM -> Cari tulisan Microsoft Word 16.0 Object Library  -> Centang kotak seperti digambar dibawah -> Ok

 

Add Referensenya sudah sekarang kita lanjut ke deklarasi yg pertama

  

Tambahkan deklarasi "Imports word = Microsoft.Office.Interop.Word" diatas tulisan "Public Class BELI" seperti gambar diatas

Add Referensenya sudah deklarasi yg pertama juga sudah sekarang kita lanjut ke deklarasi yg ke dua

Tambahkan deklarasi  "Dim appnya As New word.Application" dan "Dim dokumennya As word.Document" seperti gambar diatas

Kalau file wordnya sudah kedua deklarasinya juga sudah kita lanjut coding Buttonnya deh,

Klik Button wordnya dua kali maka akan muncul tampilan seperti ini

Lalu isikan source code ini di celah yg kosong :

 Dokumennya = Appnya.Documents.Open("D:\uts\buktipembelian.docx")

        Dokumennya.Bookmarks("NamaPembeli").Select()

        Appnya.Selection.TypeText(Txt1.Text)

        Dokumennya.Bookmarks("KodeKereta").Select()

        Appnya.Selection.TypeText(cmbkode.Text)

        Dokumennya.Bookmarks("NamaKereta").Select()

        Appnya.Selection.TypeText(Txt3.Text)

        Dokumennya.Bookmarks("Jurusan").Select()

        Appnya.Selection.TypeText(Txt4.Text)

        Dokumennya.Bookmarks("Harga").Select()

        Appnya.Selection.TypeText(TXTHARGA.Text)

        Dokumennya.Bookmarks("JumlahTiket").Select()

        Appnya.Selection.TypeText(Txt5.Text)

        Dokumennya.Bookmarks("TotalBayar").Select()

        Appnya.Selection.TypeText(Txt6.Text)

        Dokumennya.SaveAs("D:\uts\buktipembelianNew.docx")

        Appnya.Visible = True

Button wordnya sudah kita lanjut ke Button excel.

Buat file excelnya seperti ini

  

Tidak seperti diword menggunakan bookmark  diexcel, excel menggunakan range/dikolom berapa data itu akan keluar (Contoh seperti gambar diatas)

File excel sudah sekarang kita tinggal Add Referense dan deklarasi (ada 2 deklarasi) agar tidak terjadi error nantinya, saya kasih tau caranya > Add Referensenya (Add Referense ini agar visual studionya bisa berhubungan dengan word dan excelnya)

Pilih Project -> Add Referense seperti ini

Lalu akan muncul tampilan seperti ini dan pilih COM -> Cari tulisan Microsoft Excel 16.0 Object Library -> Centang kotak seperti digambar -> Ok

Add Referensenya sudah sekarang kita lanjut ke deklarasinya

Tambahkan deklarasi "Imports excel = Microsoft.Office.Interop.Excel" diatas tulisan "Public Class BELI" seperti gambar diatas

 Karna deklarasi yg satu lagi saya tempatkan di Button jadi kita langsung coding Buttonnya aja ya, Klik dua kali Button excelnya(simpan), Lalu isikan source code ini di celah yg kosong :

Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open("D:\uts\BUKTINYA.xlsx")

        AppExcelnya.Range("B1").Value = Txt1.Text

        AppExcelnya.Range("B2").Value = cmbkode.Text

        AppExcelnya.Range("B3").Value = Txt3.Text

        AppExcelnya.Range("B4").Value = Txt4.Text

        AppExcelnya.Range("B5").Value = TXTHARGA.Text

        AppExcelnya.Range("B6").Value = Txt5.Text

        AppExcelnya.Range("B7").Value = Txt6.Text

        ExcelWB.SaveAs("D:\uts\BUKTINYANew.xlsx")

        AppExcelnya.Visible = True

    End Sub

End Class

Selesai, nah dan dibawah ini gambaran jalannya aplikasi yang saya buat

Sekian tutorial dari saya, mohon maaf apabila ada salah kata

Wassalamualaikum Wr.Wb

Filenya....:https://drive.google.com/file/d/1SxZcqxn6IvbhuAynmY9HxgUKecpKghDd/view?usp=drivesdk