Automation Menggunakan aplikasi VB.net

November 03, 2018

Automation Menggunakan aplikasi VB.net

Penerapan Automation Sederhana Aplikasi Indihome Menggunakan Aplikasi VB.net

assalamu 'alaikum wr.wb.

pada postingan kali ini saya akan memberikan tutorial atau cara membuat sebuah aplikasi automation sederhana dengan menggunakan aplikasi vb,net. aplikasi ini diperuntukkan untuk pelanggan yang ingin mendaftar sebagai pengguna layanan indihome. kegunaan dari aplikasi ini adalah untuk memberikan efesiensi waktu dan biaya, serta agar mampu langsung memproses dan menyimpan data yang sudah pelanggan masukan. berikut penjelasannya :

1penjelasan program aplikasi

deskripsi dan analisa kebutuhan

- aplikasi ini berfungsi untuk memudahkan manajemen dalam mendata pelanggan

- memudahkan pelanggan dalam melakukan registrasi layanan.

- memberikan efisiensi waktu bagi pelanggan dalam meregistrasi layanan.

alat yang digunakan:

- visual studio

- microsoft word

- microsoft excel

langkah pembuatan

1. buat sebuah project baru di visual studio

2. tambahkan form baru didalam project sehingga memiliki 2 form didalam 1 project. form 1 sebagai form data pelanggan dan form 2 sebagai form registrasi layanan

3. kemudian buat design pada form 1 dan form 2 dengan menggunakan toolbox: label, textbox, button, checkbox, radiobutton, message box, combo box, dsb. serta berikan keterangan pada masing-masing toolbox contoh : textbox nama menjadi txtNama, button keluar menjadi txtKeluar, dsb. serta tambahkan " add reference " pada tab project => add reference. kemudian pada tab com tambahkan microsoft word object library dan microsoft excel object library yang berfungsi untuk membuat dokumen word dan dokumen excel baru menggunakan otomatisasi.

4. Kemudian buat Database pada Microsoft word dan excel seperti berikut.

5. Tambahkan bookmark pada microsoft word. dan letakkan cursor di depan setiap label yang tertera.

2. Source Code

1. Source Code Form 1

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

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

MsgBox("Isi Form Registrasi Layanan", vbInformation, " Indihome ")
Form3.ShowDialog()

End Sub

Private Sub txtWord_Click(sender As Object, e As EventArgs) Handles txtWord.Click

Dim Appnya As New word.Application
Dim Dokumennya As word.Document
Dokumennya = Appnya.Documents.Open("D:\REGISTRASI PEMASANGAN INDIHOME.docx")

Dokumennya.Bookmarks("NOKTP").Select()
Appnya.Selection.TypeText(txtKtp.Text)
Dokumennya.Bookmarks("NAMA").Select()
Appnya.Selection.TypeText(TxtNama.Text)
Dokumennya.Bookmarks("Alamat").Select()
Appnya.Selection.TypeText(TxtAlamat.Text)
Dokumennya.Bookmarks("NOTELP").Select()
Appnya.Selection.TypeText(txtNomor.Text)
Dokumennya.Bookmarks("EMAIL").Select()
Appnya.Selection.TypeText(txtMail.Text)
Dokumennya.SaveAs("D:\REGISTRASI PEMASANGAN INDIHOME1.docx")
MsgBox("DATA DIRI DISIMPAN", vbInformation, " Indihome ")

Appnya.Visible = True

End Sub

Private Sub txtExcel_Click(sender As Object, e As EventArgs) Handles txtExcel.Click

Dim AppExcelnya As New excel.Application
Dim ExcelWB As excel.Workbook
ExcelWB = AppExcelnya.Workbooks.Open("D:\Registrasi Pemasangan Indihome.xlsx")

AppExcelnya.Range("B9").Value = txtKtp.Text
AppExcelnya.Range("C9").Value = txtNama.Text
AppExcelnya.Range("D9").Value = txtAlamat.Text
AppExcelnya.Range("E9").Value = TxtNomor.Text
AppExcelnya.Range("F9").Value = txtMail.Text
ExcelWB.SaveAs("D:\Registrasi Pemasangan Indihome1.xlsx")
MsgBox("DATA DIRI DISIMPAN", vbInformation, " Indihome ")

AppExcelnya.Visible = True
End Sub
End Class

2. Source Code Form 2

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form3

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

For i = 1 To 31
ComboTanggal.Items.Add(i)
Next i

For a = 1 To 12
ComboBulan.Items.Add(a)
Next a

For b = 2020 To 2018 Step -1
ComboTahun.Items.Add(b)
Next b

End Sub

Private Sub txtBayar_Click(sender As Object, e As EventArgs) Handles txtBayar.Click

Dim v, w, x, y As Integer

If CBNomor.Checked = True Then
v = 100000
ElseIf CBNomor.Checked = False Then
v = 0
End If

If CB10.Checked Then
w = 250000
ElseIf CB20.Checked Then
w = 350000
ElseIf CB30.Checked Then
w = 510000
ElseIf CB40.Checked Then
w = 610000

End If

If CBInternasional.Checked = True Then
x = 200000
ElseIf CBInternasional.Checked = False Then
x = 0
End If

If CBNasional.Checked = True Then
y = 100000
ElseIf CBNasional.Checked = False Then
y = 0
End If

txtTotal.Text = v + w + x + y + 105000

End Sub

Private Sub txtRegistrasi_Click(sender As Object, e As EventArgs) Handles txtRegistrasi.Click

MsgBox("Metode Pembayaran dan Proses Registrasi Akan Dikirimkan Melalui E-Mail anda", vbInformation, " Indihome ")

End Sub

Private Sub txtWord1_Click(sender As Object, e As EventArgs) Handles txtWord1.Click

Dim Appnya As New word.Application
Dim Dokumennya As word.Document
Dokumennya = Appnya.Documents.Open("D:\REGISTRASI PEMASANGAN INDIHOME1.docx")

Dim tipe As String

If CBNomor.Checked Then
tipe = "YA"
Dokumennya.Bookmarks("TELEPON").Select()
Appnya.Selection.TypeText(tipe)
End If

Dim a, b, c, d As String

If RB10.Checked = True Then
a = "10 Mbps"
Dokumennya.Bookmarks("INTERNET").Select()
Appnya.Selection.TypeText(a)
Else
a = ""
End If

If RB20.Checked = True Then
b = "20 Mbps"
Dokumennya.Bookmarks("INTERNET").Select()
Appnya.Selection.TypeText(b)
Else
b = ""
End If

If RB30.Checked = True Then
c = "10 Mbps"
Dokumennya.Bookmarks("INTERNET").Select()
Appnya.Selection.TypeText(c)
Else
c = ""
End If

If RB40.Checked = True Then
d = "40 Mbps"
Dokumennya.Bookmarks("INTERNET").Select()
Appnya.Selection.TypeText(d)
Else
d = ""
End If

Dim m, n As String
If CBInternasional.Checked = True Then
m = "+Internasional Channel"
Dokumennya.Bookmarks("TVKABEL").Select()
Appnya.Selection.TypeText(m)
Else
m = ""
End If

If CBNasional.Checked = True Then
n = " Nasional Channel"
Dokumennya.Bookmarks("TVKABEL").Select()
Appnya.Selection.TypeText(n)
Else
n = ""
End If

Dim x, y, z As Integer

x = ComboTanggal.Text
y = ComboBulan.Text
z = ComboTahun.Text

Dokumennya.Bookmarks("Tanggal").Select()
Appnya.Selection.TypeText(x)
Dokumennya.Bookmarks("Bulan").Select()
Appnya.Selection.TypeText(y)
Dokumennya.Bookmarks("Tahun").Select()
Appnya.Selection.TypeText(z)

Dokumennya.Bookmarks("Total").Select()
Appnya.Selection.TypeText(txtTotal.Text)

Dokumennya.SaveAs("D:\Data Registrasi Pemasangan Indihome .docx")
MsgBox("DATA DISIMPAN", vbInformation, " Indihome ")

Appnya.Visible = True
End Sub

Private Sub txtExcel1_Click(sender As Object, e As EventArgs) Handles txtExcel1.Click

Dim x, y, z As Integer

x = ComboTanggal.Text
y = ComboBulan.Text
z = ComboTahun.Text

Dim AppExcelnya As New excel.Application
Dim ExcelWB As excel.Workbook
ExcelWB = AppExcelnya.Workbooks.Open("D:\Registrasi Pemasangan Indihome1.xlsx")

Dim tipeX As String

If CBNomor.Checked Then
tipeX = "YA"
Else
tipeX = "TIDAK"
End If
AppExcelnya.Range("H9").Value = tipeX

Dim aX, bX, cX, dX As String

If RB10.Checked = True Then
aX = "10 Mbps"
AppExcelnya.Range("I9").Value = aX
Else
aX = ""
End If

If RB20.Checked = True Then
bX = "20 Mbps"
AppExcelnya.Range("I9").Value = bX
Else
bX = ""
End If

If RB30.Checked = True Then
cX = "30 Mbps"
AppExcelnya.Range("I9").Value = cX
Else
cX = ""
End If

If RB40.Checked = True Then
dX = "40 Mbps"
AppExcelnya.Range("I9").Value = dX
Else
dX = ""

End If

Dim mX, nX As String

If CBInternasional.Checked = True Then
mX = "YA"
Else
mX = "TIDAK"
End If
AppExcelnya.Range("J9").Value = mX

If CBNasional.Checked = True Then
nX = "YA"
Else
nX = "TIDAK"
End If
AppExcelnya.Range("K9").Value = nX

AppExcelnya.Range("L9").Value = x
AppExcelnya.Range("M9").Value = y
AppExcelnya.Range("N9").Value = z
AppExcelnya.Range("O9").Value = txtTotal.Text

ExcelWB.SaveAs("D:\Data Registrasi Pemasangan Indihome .xlsx")
MsgBox("DATA DISIMPAN", vbInformation, " Indihome ")

AppExcelnya.Visible = True

End Sub
End Class