Membuat Aplikasi Sederhana ASP/Web Tugas UTS Pemrograman WEB 2

Assalamualaikum :

Nama : Aris Setiawan
Nim : 161021450487
Kelas : 06-TPLE-004
Tugas : UTS Bpk Agus


1. Penjelasan Program Aplikasi

saya membuat desain web data input pegawai yang dimana data tersebut link/konek ke program aplikasi microsoft word dan microsoft excel, program ini  mempermudah user/pemakai untuk menginput data data karyawan in maupun out serta yg belum terdaftar sehingga bisa membantu meringankan tugas jika sedang mencari karyawan yg di cari, jika user memnginput/save as ke word maka data yg di tampilkan hanya berupa tulisan di dalem lembar word sehingga jika kita mncari karyawan harus satu persatu tp jika user memnginput/save as ke excel maka data yg di tampilkan akan mudah mencari nya jika kita mencari karyawan dengan cara memfilternya atau dengan program find..

2. Screenshoot Lembar Jawaban

2. XML Desain
berikut desain nya

3. Source Coding

berikut source coding aplikasi web membuat data input pegawai

Imports System.Net.Mime.MediaTypeNames
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

Public Class WebFormInputPegawai
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\Pribadi\backup aris\Pemrograman Web\uts\input pegawai.docx")

        dokumen.Bookmarks("nik").Select()
        aplikasi.Selection.TypeText(txtnik.Text)

        dokumen.Bookmarks("nama").Select()
        aplikasi.Selection.TypeText(txtnama.Text)

        dokumen.Bookmarks("ttl").Select()
        aplikasi.Selection.TypeText(txtttl.Text)

        dokumen.Bookmarks("alamat").Select()
        aplikasi.Selection.TypeText(txtalamat.Text)

        dokumen.Bookmarks("agama").Select()
        aplikasi.Selection.TypeText(txtagama.Text)

        dokumen.Bookmarks("jk").Select()
        aplikasi.Selection.TypeText(txtjk.Text)

        dokumen.Bookmarks("pt").Select()
        aplikasi.Selection.TypeText(txtpendidikan.Text)

        dokumen.Bookmarks("email").Select()
        aplikasi.Selection.TypeText(txtemail.Text)

        dokumen.Bookmarks("telp").Select()
        aplikasi.Selection.TypeText(txttelp.Text)

        dokumen.Bookmarks("jabatan").Select()
        aplikasi.Selection.TypeText(txtjabatan.Text)

        dokumen.SaveAs2("D:\Pribadi\backup aris\Pemrograman Web\uts\input pegawai.docx")
        MsgBox("sukses")
        aplikasi.Visible = False
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim aplikasiExcel As New excel.Application
        Dim fileExcelnya As excel.Workbook

        fileExcelnya = aplikasiExcel.Workbooks.Open("D:\Pribadi\backup aris\Pemrograman Web\uts\input pegawai.xlsx")
        aplikasiExcel.Range("A2").Value = txtnik.Text
        aplikasiExcel.Range("B2").Value = txtnama.Text
        aplikasiExcel.Range("C2").Value = txtttl.Text
        aplikasiExcel.Range("D2").Value = txtalamat.Text
        aplikasiExcel.Range("E2").Value = txtagama.Text
        aplikasiExcel.Range("F2").Value = txtjk.Text
        aplikasiExcel.Range("G2").Value = txtpendidikan.Text
        aplikasiExcel.Range("H2").Value = txtemail.Text
        aplikasiExcel.Range("I2").Value = txttelp.Text
        aplikasiExcel.Range("J2").Value = txtjabatan.Text

        fileExcelnya.SaveAs("D:\Pribadi\backup aris\Pemrograman Web\uts\input pegawai.xlsx")
        MsgBox("Sukses")
        aplikasiExcel.Visible = True

    End Sub
End Class

5. Screen Run Browser

Berikut tampilan Screen Shoot Program Aplikasi yg Sudah saya buat

berikut tugas yang saya buat mohon maaf Bpk Agus Suharto, jika dalam penulisan atau laporan kurang berkenan, jika teman teman ingin mengorksi mohon di bantu,
terima kasih

Wassalamualaikum wr,wb