Tugas Lab.Pemrograman Bisnis 2

Membuat  Aplikasi From Menggunakan MDI

Assalamu’alaikum wr.wb

Selamat datang kembali di blog saya.  Postingan berikut merupakan Tugas Lab.Pemrograman Bisnis 2 saya dalam mata kuliah Lab Pengantar Pemrograman Bisnis 2.  Kali ini saya akan membuat program mengenai form pendaftaran  sebuah kompetisi Liga Stand Up Komunitas  menggunakan MDI dengan Automation  Ms.Word dengan bahasa pemrograman Visual Basic.  Silakan  disimak langkah pembuatannya :D

Langkah langkahnya :

• Create New Project dengan Visual Basic, kemudian pilih Windows Form Application
• Setelah itu, kita buat Form 1 sehingga tampilannya menjadi seperti ini

  

  Label ->Username, Password

  Textbox -> TextBox1(isian username), TextBox2(isian password),

  Button -> Ok, Cancel

  PictureBox1  -> Gambar

  
  
• ·           Kemudian buat Form MDI dengan cara Add Windows Form -> Pilih MDIParentForm , sehingga tampilannya akan seperti ini
  
• ·           Buat lagi form pendaftarannya , sehingga tampilannya seperti ini
  
• ·           Setelah semua form dibuat , tambahkan Reference untuk mendukung metode Automation ke Word. Caranya, klik Project -> add References -> Pilih pada bagian COM -> centang Microsoft Word Object Library, klik OK.
  
• ·           Sebelum kita mulai ngoding, sebaiknya kita pilih form yang akan dimunculkan terlebih dahulu, dengan cara klik Project -> pilih windows application properties -> pilih startup form menjadi Form1.Sebelum kita lanjut ke langkah berikutnya, kita buat dulu nih file word yang bakal dijadiin objek output dari aplikasi kita nanti. Pertama buat file word baru seperti ini: 
  
  
  
  
  
  
  
  
  
  Lalu berikan bookmark pada masing-masing isi dari nama komunitas, asal komunitas, dan nama koordinator dengan cara letakkan kursor pada tempat yang ingin kita berikan bookmark -> pilih insert -> bookmark -> isi nama bookmark (di sini saya menggunakan bookmark dengan nama bookmark1,bookmark2,bookmark3 -> klik ok
  Save file word yang telah kita buat dengan nama “Konfirmasi Pendaftaran” di data D.
  
  
  ·           Kemudian kita buat kodingnya, Ini source code pada Form1
  Public Class Form1
  
  
      Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
          If UsernameTextBox.Text = "stand up comedy" And PasswordTextBox.Text = "123456" Then
              MDIParent1.Show()
              Me.Hide()
          Else
              MsgBox("Username atau Password salah!", MsgBoxStyle.Critical)
          End If
      End Sub
  
  
      Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
          Me.Close()
      End Sub
  End Class
  
  
  
  
  ·           Selanjutnya , ini adalah source code pada MDIParent1
  Imports System.Windows.Forms
  
  
  Public Class MDIParent1
  
  
      Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
          ' Create a new instance of the child form.
          Dim ChildForm As New System.Windows.Forms.Form
          ' Make it a child of this MDI form before showing it.
          ChildForm.MdiParent = Me
  
  
          m_ChildFormNumber += 1
          ChildForm.Text = "Window " & m_ChildFormNumber
  
  
          ChildForm.Show()
      End Sub
  
  
      Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
          Dim OpenFileDialog As New OpenFileDialog
          OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
          OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
          If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
              Dim FileName As String = OpenFileDialog.FileName
              ' TODO: Add code here to open the file.
          End If
      End Sub
  
  
      Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
          Dim SaveFileDialog As New SaveFileDialog
          SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
          SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
  
  
          If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
              Dim FileName As String = SaveFileDialog.FileName
              ' TODO: Add code here to save the current contents of the form to a file.
          End If
      End Sub
  
  
  
  
      Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
          MsgBox("Yakin mau keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question)
          If vbOK Then
              Me.Close()
          End If
      End Sub
  
  
      Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
          ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
      End Sub
  
  
      Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
          ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
      End Sub
  
  
      Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
          'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
      End Sub
  
  
      Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
          Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
      End Sub
  
  
      Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
          Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
      End Sub
  
  
      Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
          Me.LayoutMdi(MdiLayout.Cascade)
      End Sub
  
  
      Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
          Me.LayoutMdi(MdiLayout.TileVertical)
      End Sub
  
  
      Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
          Me.LayoutMdi(MdiLayout.TileHorizontal)
      End Sub
  
  
      Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
          Me.LayoutMdi(MdiLayout.ArrangeIcons)
      End Sub
  
  
      Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
          ' Close all child forms of the parent.
          For Each ChildForm As Form In Me.MdiChildren
              ChildForm.Close()
          Next
      End Sub
  
  
      Private m_ChildFormNumber As Integer
  
  
      Private Sub FormPendaftaanLigaKomunitasStandUpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormPendaftaanLigaKomunitasStandUpToolStripMenuItem.Click
          ' Create a new instance of the child form.
          Dim ChildForm As New FormPendaftaran
          ' Make it a child of this MDI form before showing it.
  
  
          m_ChildFormNumber += 1
          ChildForm.Text = "Window " & m_ChildFormNumber
  
  
          ChildForm.Show()
      End Sub
  End Class
  
  
  ·           Dan ini adalah source code pada form pendaftarannya:
  Public Class FormPendaftaran
  
  
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim appword As New Microsoft.Office.Interop.Word.Application
          Dim filedoc As New Microsoft.Office.Interop.Word.Document
  
  
          filedoc = appword.Documents.Open("D:\Tugas 6 VB2\Konfirmasi Pendaftaran.docx")
  
  
          filedoc.Bookmarks("bookmark1").Select()
          appword.Selection.Font.Name = "Arial"
          appword.Selection.Font.Size = 12
          appword.Selection.TypeText(TextBox1.Text)
  
  
          filedoc.Bookmarks("bookmark2").Select()
          appword.Selection.Font.Name = "Arial"
          appword.Selection.Font.Size = 12
          appword.Selection.TypeText(TextBox7.Text)
  
  
          filedoc.Bookmarks("bookmark3").Select()
          appword.Selection.Font.Name = "Arial"
          appword.Selection.Font.Size = 12
          appword.Selection.TypeText(TextBox6.Text)
  
  
          MessageBox.Show("Success!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
  
  
          filedoc.Save()
          appword.Visible = True
          'appword.Quit()
      End Sub
  
  
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          Me.Close()
      End Sub
  End Class
  
  
  ·           Nah dicobain deh sekarang aplikasinya
  Pertama akan muncul form 1, kemudian isi data seperti gambar dibawah ini, klik ok
   
  
  
  
  
  
   
  Kemudian akan muncul MDIParent1 seperti gambar di bawah
  
  Lalu kita pilih File->New->Form Pendaftaran Liga Komunitas Stand Up
  
  
  
  
  
  Kemudian akan muncul form pendaftaran seperti dibawah ini, lalu isi form tersebut->klik submit
  
  Maka akan muncul Ms.Word yang telah kita bookmark tadi dan akan ada informasi data yang diisi sukses
  
  
  
  
  Ini adalah tampilan Ms.Word lebih jelasnya.
  
  
  
  Sekian penjelasan saya mengenai progam ini, mohon maaf bila ada kekurangan dalam penjelasan dan semoga berguna bagi pembaca.
  Wassalamualaikum Wr.Wb.