UTS Semester 4, kelas 04TPLP001. PROGRAM APLIKASI FORMULIR PENDAFTARAN LOMBA

PROGRAM APLIKASI

FORMULIR PENDAFTARAN PERLOMBAAN
DENGAN VISUAL STUDIO 2012

• NAMA  : JIKRI FIRDAUS

• NIM   : 161021450160

• KELAS : 04TPLP001 / RUANG 515

• KAMPUS: STMIK ERESHA

Tugas UTS Project kali ini saya akan Membuat Program Aplikasi "Formulir Pendaftaran Perlombaan".

1. Deskripsi dan Tujuan Pembuatan Project.

Sesuai pembahasan saya di lembar jawaban UTS kemarin, saya akan membuat program "Formulir Pendaftaran Perlombaan"

Program ini saya buat untuk mempermudah panitia perlombaan dalam melakukan Pendaftaran para peserta lomba.

Semua termasuk Jenis-Jenis Perlombaannya, Jenis Kelamin, Perlombaan kalangan usia dari anak-anak sampai Dewasa.

Dan juga mempermudah untuk pendataan dari setiap peserta lomba dari RT / RW.

Program ini saya buat juga untuk Export to Ms.Word dan Ms.Excell, jadi panitia perlombaan dapat lebih mudah untuk pendataan para setiap peserta lomba dan mengecek pendataan peserta lomba.


Komponen-komponen yang digunakan :

• Label
• Text Box
• Combo Box
• Button
• Connect to Ms.Word & Ms.Excell

2. Screenshoot Project dan Penjelasannya.

Tampilan pada saat input Data Para Peserta Lomba

Tampilan pada saat Menyimpan Data ke dalam Ms.Excell

Tampilan setelah berhasil Menyimpan Data ke dalam Ms.Word

3. Source Code

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

Public Class UTSjikri

    Private Sub UTSjikri_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CmbJenis.Items.Add("LAKI-LAKI")
        CmbJenis.Items.Add("PEREMPUAN")

        Cmbusia.Items.Add("Anak-anak")
        Cmbusia.Items.Add("Remaja")
        Cmbusia.Items.Add("Dewasa")

        Cmblomba.Items.Add("Makan Kerupuk")
        Cmblomba.Items.Add("Balap Karung")
        Cmblomba.Items.Add("Tarik Tambang")
        Cmblomba.Items.Add("Memindahkan Belut")
        Cmblomba.Items.Add("Sepak Bola")
    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 + " - " + Cmbusia.Text)
        dokumen = aplikasi.Documents.Open("Z:\UTS jikri\BasisForm\Formulir Pendaftaran Lomba.docx")


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

        dokumen.Bookmarks("BKELAMIN").Select()
        aplikasi.Selection.TypeText(CmbJenis.Text)

        dokumen.Bookmarks("BUSIA").Select()
        aplikasi.Selection.TypeText(Cmbusia.Text)

        dokumen.Bookmarks("BTELFON").Select()
        aplikasi.Selection.TypeText(Txttelfon.Text)

        dokumen.Bookmarks("BWARGA").Select()
        aplikasi.Selection.TypeText(Txtwarga.Text)


        dokumen.Bookmarks("BLOMBA").Select()
        aplikasi.Selection.TypeText(Cmblomba.Text)

        dokumen.SaveAs("Z:\UTS jikri\" + 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 + " - " + Cmbusia.Text)

        fileExcelnya = aplikasiExcel.Workbooks.Open("Z:\UTS jikri\BasisForm\formulirExcel.xlsx")
        aplikasiExcel.Range("A3").Value = Txtnama.Text
        aplikasiExcel.Range("B3").Value = CmbJenis.Text
        aplikasiExcel.Range("C3").Value = Cmbusia.Text
        aplikasiExcel.Range("D3").Value = Txttelfon.Text
        aplikasiExcel.Range("E3").Value = Txtwarga.Text
        aplikasiExcel.Range("F3").Value = Cmblomba.Text
        fileExcelnya.SaveAs("Z:\UTS jikri\" + gabungan + ".xlsx")

        MsgBox("Sukses!")
        aplikasiExcel.Visible = True
    End Sub

    Private Sub BtnMulai_Click(sender As Object, e As EventArgs) Handles BtnMulai.Click
        Txtnama.Text = ""
        CmbJenis.Text = ""
        Cmbusia.Text = ""
        Txttelfon.Text = ""
        Txtwarga.Text = ""
        Cmblomba.Text = ""
    End Sub

    Private Sub BtnSelesai_Click(sender As Object, e As EventArgs) Handles BtnSelesai.Click
        Me.Close()
    End Sub
End Class





Demikian Hasil Project yang telah saya buat.



Thanks & Regards,


JIKRI FIRDAUS