Jika pengisisan pulsa berhasil, akan keluar text yang memberikan laporan bahwa pengiriman pulsa berhasil dilakukan, seperti gambar diatas.
Jika anda ingin megisi lagi, klik saja tombol Isi Lgi, maka program akan otomatis bersih seperti awal. Data data yang tadi juga langsung tercatat di dokumen word yang sudah saya buat sebelum nya..
Yang saya lakukan ini dinamakan AUTO MATION pada Asp.net.
Berikut coding coding nya..
Imports word = Microsoft.Office.Interop.Word
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = "Nomor : "
Label2.Text = "Nominal : "
Label3.Text = "Provider : "
Label4.Text = "No. Resi : "
Label5.Text = "Pembayaran Via : "
Label6.Text = "No. Rekening : "
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
TextBox2.Text = "Pengisian pulsa untuk nomor " + TextBox1.Text + " sebesar " + DropDownList1.SelectedValue + " dengan provider " + DropDownList2.SelectedValue + " telah berhasil, silahkan cek saldo pulsa anda."
Dim myWordApp As New word.Application
Dim myworddoc As New word.Document
myworddoc = myWordApp.Documents.Open("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
myworddoc.Bookmarks("Nomor").Select()
myWordApp.Selection.TypeText(TextBox1.Text)
myworddoc.Bookmarks("Nominal").Select()
myWordApp.Selection.TypeText(DropDownList1.SelectedValue)
myworddoc.Bookmarks("Provider").Select()
myWordApp.Selection.TypeText(DropDownList2.SelectedValue)
myworddoc.Bookmarks("Via").Select()
myWordApp.Selection.TypeText(RadioButtonList1.SelectedValue)
myworddoc.SaveAs("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
myWordApp.Visible = True
myWordApp.Quit()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = ""
DropDownList1.SelectedValue = "Pilih Nominal"
DropDownList2.SelectedValue = "Pilih Provider"
End Sub
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles DropDownList1.SelectedIndexChanged
End Sub
Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButtonList1.SelectedIndexChanged
End Sub
End Class
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = "Nomor : "
Label2.Text = "Nominal : "
Label3.Text = "Provider : "
Label4.Text = "No. Resi : "
Label5.Text = "Pembayaran Via : "
Label6.Text = "No. Rekening : "
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
TextBox2.Text = "Pengisian pulsa untuk nomor " + TextBox1.Text + " sebesar " + DropDownList1.SelectedValue + " dengan provider " + DropDownList2.SelectedValue + " telah berhasil, silahkan cek saldo pulsa anda."
Dim myWordApp As New word.Application
Dim myworddoc As New word.Document
myworddoc = myWordApp.Documents.Open("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
myworddoc.Bookmarks("Nomor").Select()
myWordApp.Selection.TypeText(TextBox1.Text)
myworddoc.Bookmarks("Nominal").Select()
myWordApp.Selection.TypeText(DropDownList1.SelectedValue)
myworddoc.Bookmarks("Provider").Select()
myWordApp.Selection.TypeText(DropDownList2.SelectedValue)
myworddoc.Bookmarks("Via").Select()
myWordApp.Selection.TypeText(RadioButtonList1.SelectedValue)
myworddoc.SaveAs("C:\Users\Febry Lawrencius\Desktop\kelompok vb\haha.doc")
myWordApp.Visible = True
myWordApp.Quit()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = ""
DropDownList1.SelectedValue = "Pilih Nominal"
DropDownList2.SelectedValue = "Pilih Provider"
End Sub
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles DropDownList1.SelectedIndexChanged
End Sub
Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadioButtonList1.SelectedIndexChanged
End Sub
End Class
Terimakasih sudah mampir
Tidak ada komentar:
Posting Komentar