1506715936
AKUNTANSI TEKNOLOGI SISTEM INFORMASI
VOKASI UI
MATA KULIAH LAB. PEMROGRAMAN BISNIS 2
PROGRAM AUTOMASI FORM PENDAFTARAN
1. Penjelasan
Program ini merupakan program automasi dari VB ke MS. Word dan MS. Excel. Pertama-tama hanya menginput data pada form VB, kemudian data-data tersebut akan terbaca di Excel dan Word.
Dalam hal ini, saya membuat form pada VB dengan judul Form Pendaftar. Pendaftar yang dimaksudkan di sini adalah pendaftar yang akan mengisikan data diri untuk mengikuti suatu acara Kuis yaitu Kuis Siapa Takut. Data-data yang harus diinput pada Form Pendaftar adalah:
- Nama Lengkap
- Nama Panggilan
- Asal Kota
- Umur
-No Telepon
Data-data tersebut akan diinputkan dalam sebuah text box. Kemudian, setelah data yang terakhir diinputkan akan terisi pada file Excel dan data tersebut akan disimpan ke Excel dengan meng-klik button "Save". Ketika sudah menginput suaru data, anda bisa langsung memulai entry baru lagi setelahnya, data akan tetap tersimpan dan data yang sebelumnya tidak hilang, melainkan akan tersimpan dalam bentuk tabel dan akan mengupdate dengan sendirinya jika ditambah entry baru. Lalu, data juga dapat dicetak ke bentuk kertas, melalui Ms. Word dengan meng-klik button "Cetak Form". Jika, ingin mengisikan entry baru anda dapat meng-klik button "Mulai Baru". Dan terakhir, untuk menutup program anda dapat meng-klik button "Close". Untuk melihat data yang tersimpan di Excel anda dapat menuju library lalu membuka file yang dimaksud, atau membuka Excel terlebih dahulu lalu meng-klik file yang berada pada recent dengan nama file yang sudah ada / sudah anda buat.
2. Source Code
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnclose.Click
Me.Close()
End Sub
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
Dim app As New Excel.Application
Dim book As Excel.Workbook
Dim row As Long
Dim sheet As Excel.Worksheet
book = app.Workbooks.Open("D:\prvb2nure.xlsx")
sheet = book.Sheets("Sheet1")
row = sheet.Range("A" & sheet.Rows.Count).End(Excel.XlDirection.xlUp).Row
app.Range("A1").Value = "No."
app.Range("B1").Value = "Nama Lengkap"
app.Range("C1").Value = "Nama Panggilan"
app.Range("D1").Value = "Asal Kota"
app.Range("E1").Value = "Umur"
app.Range("F1").Value = "No. Telp"
app.Range("A" & row + 1).Value = CStr(row)
app.Range("B" & row + 1).Value = txtnamalengkap.Text
app.Range("C" & row + 1).Value = txtnamapanggilan.Text
app.Range("D" & row + 1).Value = txtasalkota.Text
app.Range("E" & row + 1).Value = txtumur.Text
app.Range("F" & row + 1).Value = txtnotelp.Text
book.Save()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btncetak.Click
Dim mywordapp As New Word.Application
Dim myworddoc As New Word.Document
myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
myworddoc.Bookmarks("bknamalengkap").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtnamalengkap.Text)
myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
myworddoc.Bookmarks("bknamapanggilan").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtnamapanggilan.Text)
myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
myworddoc.Bookmarks("bkasalkota").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtasalkota.Text)
myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
myworddoc.Bookmarks("bkumur").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtumur.Text)
myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
myworddoc.Bookmarks("bknotelp").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtnotelp.Text)
myworddoc.SaveAs("D:\Biodata Pendaftar Baru.docx")
mywordapp.Visible = True
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnMulai.Click
Me.txtnamalengkap.Text = ""
Me.txtnamapanggilan.Text = ""
Me.txtasalkota.Text = ""
Me.txtumur.Text = ""
Me.txtnotelp.Text = ""
Me.txtnamalengkap.Focus()
End Sub
End Class
3. Screen Shoot Program
Ketika ingin memulai suatu entry baru dengan mengklik button "Mulai Baru"
Ketika sudah mengisikan seluruh data ke text box dan ingin menyimpannya ke Excel dengan meng-klik button "Save"
Ketika sudah meg-klik save dan ingin membuka file excel tersebut dengan menuju ke Ms. Excel dan mencari file pada Recent
Ketika file sudah ditemukan dan melihat file tersebut dengan dalam keadaan data terakhir yang diinput sudah tersimpan
Ketika ingin mencetak form atau membaca form pada Ms. Word dengan cara meng-klik button "Cetak Form"
Ketika data yang diinput terbaca di Ms. Word dan siap untuk dicetak
-Sebelum data yang diinput terbaca di Ms. Word
-Sesudah data yang diiput terbaca di Ms. Word
Tidak ada komentar:
Posting Komentar