DATA INPUT WARGA MICROSOFT WORD TUGAS UTS

TUGAS UTS
REKAYASA PERANGKAT LUNAK

TUGAS UTS

M.RIZKI PRATAMA
REKAYASA PRANGKAT LUNAK
161011700001
“APLIKASI CEK DATA INPUT WARGA”

DATA BASE WORD DAN EXCEL INPUT DATA WARGA

Desain from 1 menjadi input data warga1

·        Label 5 buah , Textbook 5 buah , dan Button 2 buah

PERTAMA KITA MEMBUAT DESAIGN DI FROM INPUT DATA WARGA1

KEDUA UDAH SELESAI DESAIGN FROM INPUT DATA WARGA1 KITA MULAI MENCODING SESUAI APA YANG KITA INGINKAN

SETELAH SELESAI CODINGAN KITA RUUN TERKONEKSI VB NET DENGAN MICROSOFT WORD 

HASILNYA CUKUP BAGUS DAN TERBACA OLEH MICROSOFT WORD 

ADAPUN CODINGAN NYA DATA BASE INPUT DATA WARGA1 SEBAGAI BERIKUT...?

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Private 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("C:\Users\RIZKI PRATAMA\Documents\INPUT DATA WARGA1.docx")

        dokumen.Bookmarks("NIK").Select()

        aplikasi.Selection.TypeText(Textnik.Text)

        dokumen.Bookmarks("NAMA").Select()

        aplikasi.Selection.TypeText(Textnama.Text)

        dokumen.Bookmarks("ALAMAT").Select()

        aplikasi.Selection.TypeText(Textalamat.Text)

        dokumen.Bookmarks("STATUS").Select()

        aplikasi.Selection.TypeText(Textstatus.Text)

        dokumen.Bookmarks("PEKERJAAN").Select()

        aplikasi.Selection.TypeText(Textpekerjaan.Text)

        dokumen.SaveAs("C:\Users\RIZKI PRATAMA\Documents\LAPORAN\INPUT DATA WARGA1.docx")

        aplikasi.Visible = True

        End

    End Sub

End Class

SELAMAT BELAJAR CODINGAN DAN SELAMAT MENCOBA PROGRAMMER IT CYBER VB. NET SEMANGAT.....