UTS Lab. Pengantar Pemrograman Bisnis 2

Membuat Form Dengan Automation Ms.Excel
Assalamu’alaikum wr.wb

Selamat datang kembali di blog saya.  Postingan berikut merupakan UTS Lab.Pemrograman Bisnis 2 saya dalam mata kuliah Lab Pengantar Pemrograman Bisnis 2.  Kali ini saya akan membuat program mengenai form penjualan tiket online Stand Up Festival dengan Automation  Ms.Excel 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.
  
  
  
• ·           Tambahkan Reference untuk mendukung metode Automation ke Excel. Caranya, klik Project -> add References -> Pilih pada bagian COM -> centang Microsoft Excel Object Library, klik OK.
  
  
  
• ·           Kemudian kita buat kodingnya, Ini source code pada Form1
  Imports Microsoft.Office.Interop.Excel
  Public Class Form1
      Dim myExcelApp As New Microsoft.Office.Interop.Excel.Application
      Dim myexcelBook As Microsoft.Office.Interop.Excel.Workbooks
      Dim i As Double
  
  
  
  
  
  
      Private Sub InitExcel()
          myExcelApp.Visible = True
          myexcelBook = myExcelApp.Workbooks.Open("D:\UTS VB 2\Data Penjualan Tiket.xlsx")
  
  
          myExcelApp.Range("A" + CStr(i + 3)).Value = CStr(i)
          myExcelApp.Range("B" + CStr(i + 3)).Value = Me.TextBox1.Text
          myExcelApp.Range("C" + CStr(i + 3)).Value = Me.TextBox2.Text
          myExcelApp.Range("D" + CStr(i + 3)).Value = Me.RadioButton1.Text
          myExcelApp.Range("E" + CStr(i + 3)).Value = Me.RadioButton2.Text
          myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton3.Text
          myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton4.Text
          myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton5.Text
          myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton6.Text
          myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton7.Text
          myExcelApp.Range("G" + CStr(i + 3)).Value = Me.TextBox3.Text
          i = i + 1
      End Sub
  
  
  
  
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          If i = 3 Then
              InitExcel()
          Else
              myexcelBook = myExcelApp.Workbooks.Open("D:\UTS VB 2\Data Penjualan Tiket.xlsx")
              myExcelApp.Range("A" + CStr(i + 3)).Value = CStr(i)
              myExcelApp.Range("B" + CStr(i + 3)).Value = Me.TextBox1.Text
              myExcelApp.Range("C" + CStr(i + 3)).Value = Me.TextBox2.Text
              myExcelApp.Range("D" + CStr(i + 3)).Value = Me.RadioButton1.Text
              myExcelApp.Range("E" + CStr(i + 3)).Value = Me.RadioButton2.Text
              myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton3.Text
              myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton4.Text
              myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton5.Text
              myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton6.Text
              myExcelApp.Range("F" + CStr(i + 3)).Value = Me.RadioButton7.Text
              myExcelApp.Range("G" + CStr(i + 3)).Value = Me.TextBox3.Text
              i = i + 1
          End If
          Me.TextBox1.Text = ""
          Me.TextBox2.Text = ""
          Me.RadioButton1.Text = ""
          Me.RadioButton2.Text = ""
          Me.RadioButton3.Text = ""
          Me.RadioButton4.Text = ""
          Me.RadioButton5.Text = ""
          Me.RadioButton6.Text = ""
          Me.RadioButton7.Text = ""
          Me.TextBox3.Text = ""
          Me.TextBox3.Focus()
  
  
          myexcelBook.Save()
          myExcelApp.Quit()
  
  
      End Sub
  
  
  
  
  
  
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          myExcelApp.Quit()
      End Sub
  
  
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
          Dim totalharga As Integer
          Dim jumlahtiket As Integer
  
  
          If (RadioButton1.Checked) Then
              If (RadioButton3.Checked) Then
                  jumlahtiket = 1
                  totalharga = jumlahtiket * 50000
              End If
          End If
          If (RadioButton1.Checked) Then
              If (RadioButton4.Checked) Then
                  jumlahtiket = 2
                  totalharga = jumlahtiket * 50000
              End If
          End If
          If (RadioButton1.Checked) Then
              If (RadioButton5.Checked) Then
                  jumlahtiket = 3
                  totalharga = jumlahtiket * 50000
              End If
          End If
          If (RadioButton1.Checked) Then
              If (RadioButton6.Checked) Then
                  jumlahtiket = 4
                  totalharga = jumlahtiket * 50000
              End If
          End If
          If (RadioButton1.Checked) Then
              If (RadioButton7.Checked) Then
                  jumlahtiket = 5
                  totalharga = jumlahtiket * 50000
              End If
          End If
  
  
          If (RadioButton2.Checked) Then
              If (RadioButton3.Checked) Then
                  jumlahtiket = 1
                  totalharga = jumlahtiket * 750000
              End If
          End If
          If (RadioButton2.Checked) Then
              If (RadioButton4.Checked) Then
                  jumlahtiket = 2
                  totalharga = jumlahtiket * 75000
              End If
          End If
          If (RadioButton2.Checked) Then
              If (RadioButton5.Checked) Then
                  jumlahtiket = 3
                  totalharga = jumlahtiket * 75000
              End If
          End If
          If (RadioButton2.Checked) Then
              If (RadioButton6.Checked) Then
                  jumlahtiket = 4
                  totalharga = jumlahtiket * 75000
              End If
          End If
          If (RadioButton2.Checked) Then
              If (RadioButton7.Checked) Then
                  jumlahtiket = 5
                  totalharga = jumlahtiket * 75000
              End If
          End If
  
  
          TextBox3.Text = System.Convert.ToString(totalharga)
      End Sub
  End Class
  
  
  
  ·          
• ·           Nah dicobain deh sekarang aplikasinya
  Pertama akan muncul form 1, kemudian isi data seperti gambar dibawah ini, klik ok.
  
• Kemudian Klik Save, setelah itu akan muncul data Ms.Excel seperti ini
  
  
  
• Sekian penjelasan saya mengenai progam ini, mohon maaf bila ada kekurangan dalam penjelasan dan semoga berguna bagi pembaca.Wassalamualaikum Wr.Wb.