Tugas Kelompok VB2

Langsung saja ini adalah program ASP.Net yang telah kami buat..

 

Jika ingin mengisi pulsa tinggal diisi saja data data yang diperlukasn seperti nomor hp, nominal, provider yang digunakan, dan cara pembayaran yang dilakukan . Cara pemakaian nya seperti ini:

 

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

Terimakasih sudah mampir