UTS LAB PEMROGRAMAN BISNIS 2

Program yang ingin saya jelaskan adalah bagaimana mencetak tiket yang isinya diisi dengan aplikasi visual basic (VB), namun ingin mencetaknya dalam bentuk word, ikuti cara- cara berikut ini: 

     1. Buatlah project baru pada visual studio

     2. Buatlah Form seperti dibawah ini:

    3. Ubah nama 

         RadioButton1 menjadi Film1 dst

         TextBox1 menjadi TeaterBox

         Textbox2 menjadi TiketBox

         Textbox3 menjadi TotalBox

    4. Buat juga dokumen word seperti dibawah ini:

    

   5. Tambahkan Bookmark pada masing-masing kolom, (Film,Teater,Total) Bookmark

   6. Simpan dan tutup dokumen word

   7. Add reference pada Visual Studio, dengan cara

    Klik Project lalu Add Reference, Pilih COM dan cari Microsoft Word ..... Object Library, Klik OK

   8. Klik 2 pada Film1,2,3, secara bergantian masukkan source code

          //untuk menghubungkan dengan TeaterBox

     Private Sub Film1_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Film1.CheckedChanged

        TeaterBox.Text = "1"

     End Sub

     Private Sub Film2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Film2.CheckedChanged

        TeaterBox.Text = "2"

     End Sub

    Private Sub Film3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Film3.CheckedChanged

        TeaterBox.Text = "3"

    End Sub

   9. Klik 2 kali pada Button1 atau Button OK dan masukkan source code

      

      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 CinemaApps As New Microsoft.Office.Interop.Word.Application

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

      //untuk membuka dokumen yang sudah dibuat      

      TiketDoc = CinemaApps.Documents.Open("D:\TIKET CINEMA.docx")

     

//untuk menghubungkan bookmark di word dengan vb sehingga apa yang     ditulis di vb akan tertulis juga di bookmark word

        If Film1.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film1.Text)

        End If

        If Film2.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film2.Text)

        End If

        If Film3.Checked Then

            TiketDoc.Bookmarks("Film").Select()

            CinemaApps.Selection.TypeText(Film3.Text)

        End If

        TiketDoc.Bookmarks("Teater").Select()

        CinemaApps.Selection.TypeText(TeaterBox.Text)

        TotalBox.Text = TiketBox.Text * 30000

        TiketDoc.Bookmarks("Total").Select()

        CinemaApps.Selection.TypeText(TotalBox.Text)

     

        // untuk menyimpan data ke dokumen yang sudah dibuat

        TiketDoc.SaveAs("D:\TIKET CINEMA.docx")

        //menampilkan aplikasi word

        CinemaApps.Visible = True

    End Sub

End Class

   10. Program Selesai, simpan project dan jalankan (Debug)

        

      

SELAMAT MENCOBA