Jual berbagai jenis-jenis vespa menggunakan aplikasi visual studio/visual basic

selamat datang di blogger gua guys Disini saya membuat aplikasi Penjualan Berbagai jenis Vespa, aplikasi ini digunakan untuk kasir atau membantu mempermudah pembayaran dalam membeli Berbagai jenis vespa. Ini Hasilnya

Sourcode nya Imports excel = Microsoft.Office.Interop.Excel Imports word = Microsoft.Office.Interop.Word Public Class Form1 Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged PictureBox1.Image = System.Drawing.Image.FromFile("E:\baum\vespa\PX150.jpg") TxtProdik.Text = "PX150" Txtharga.Text = "3.000.000" Txtmesin.Text = "150 CC" TxtProduk.Text = "00001" CheckBox1.Checked = True End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged PictureBox1.Image = System.Drawing.Image.FromFile("E:\baum\vespa\excel.jpg") TxtProdik.Text = "EXCEL" Txtharga.Text = "15.000.000" Txtmesin.Text = "200 CC" TxtProduk.Text = "00010" CheckBox2.Checked = True End Sub Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged PictureBox1.Image = System.Drawing.Image.FromFile("E:\baum\vespa\sprint.jpeg") TxtProdik.Text = "sprint" Txtharga.Text = "8.000.000" Txtmesin.Text = "250 CC" TxtProduk.Text = "00110" CheckBox3.Checked = True End Sub Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged PictureBox1.Image = System.Drawing.Image.FromFile("E:\baum\vespa\lambretta.jpg") TxtProdik.Text = "lambretta" Txtharga.Text = "150.000.000" Txtmesin.Text = "250 CC" TxtProduk.Text = "00900" CheckBox4.Checked = True End Sub Private Sub Bword_Click(sender As Object, e As EventArgs) Handles Bword.Click Dim Filenya As New word.Application Dim dokumen As word.Document dokumen = Filenya.Documents.Open("E:\baum\tugas baum\Hilman Nugraha Piaggio1.docx") dokumen.Bookmarks("Bproduk").Select() Filenya.Selection.TypeText(TxtProdik.Text) dokumen.Bookmarks("Bharga").Select() Filenya.Selection.TypeText(Txtharga.Text) dokumen.Bookmarks("Bnamaproduk").Select() Filenya.Selection.TypeText(TxtProduk.Text) dokumen.Bookmarks("Bmesin").Select() Filenya.Selection.TypeText(Txtmesin.Text) dokumen.SaveAs2("E:\baum\tugas baum\Hilman Nugraha Piaggio1.docx") MsgBox("sukses") Filenya.Visible = True End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TxtProdik.TextChanged End Sub Private Sub Bexcel_Click(sender As Object, e As EventArgs) Handles Bexcel.Click Dim aplikasiExcel As New excel.Application Dim FileExcel As excel.Workbook FileExcel = aplikasiExcel.Workbooks.Open("E:\homenet\baum.xlsx") aplikasiExcel.Range("A3").Value = TxtProdik.Text aplikasiExcel.Range("B3").Value = Txtharga.Text aplikasiExcel.Range("C3").Value = TxtProduk.Text aplikasiExcel.Range("D3").Value = Txtmesin.Text FileExcel.SaveAs("E:\homenet\baumnew.xlsx") aplikasiExcel.Visible = True End Sub End Class