UTS Pemograman Bisnis 2

Program yang ingin saya jelaskan adalah program untuk menyimpan data Pasien dari Visual Studio yang terautomasi dengan Microsoft Word.

1. Buat new project dengan project tipe Visual Basic (VB)

2. Lalu buat form dengan format seperti dibawah ini:

3. Buat juga dokumen word :

4. Tambahkan Bookmark pada masing- masing kolom nama,alamat,kode pasien,dan penyakit

5. Add reference pada Visual Studio, dengan cara
    Klik Project lalu Add Reference, Pilih COM dan cari Microsoft Word ..... Object Library, Klik OK

6. Klik dua kali pada Button Simpan dan masukkan Source Code berikut ini:
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        //Mendeklarasikan object word apps dan word document baru

        Dim daftarApps As New Microsoft.Office.Interop.Word.Application

        Dim daftarDoc As New Microsoft.Office.Interop.Word.Document

        // Untuk membuka document yang sudah ada

        daftarDoc = daftarApps.Documents.Open("D:\PASIEN.doc")

        // Perintah untuk memasukan apa yang ditulis di Vb ke                  Microsoft Word

        daftarDoc.Bookmarks("Nama").Select()

        daftarApps.Selection.TypeText(TextBox1.Text)

        daftarDoc.Bookmarks("Alamat").Select()

        daftarApps.Selection.TypeText(TextBox2.Text)

        daftarDoc.Bookmarks("Kode").Select()

        daftarApps.Selection.TypeText(TextBox3.Text)

        daftarDoc.Bookmarks("Penyakit").Select()

        daftarApps.Selection.TypeText(TextBox4.Text)

       // Untuk Menyimpan data pasien kepada Documen yang telah               disiapkan

        daftarDoc.SaveAs("D:\PASIEN.doc")

       // Menampilkan Aplikasi Word

        daftarApps.Visible = True

7. Project selesai, simpan Project dan coba jalankan (Debug)

Selamat Mencoba