PROGRAM APLIKASI
- 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
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