Saya membuat project ini untuk mengakses lebih mudah bisnis online, dengan cara ini akan lebih fleksibel dalam pemesanan lewat aplikasi Visual Studio. berikut design yang saya buat di Aplikas Visual Studio

Design yang saya buat, diaplikasi Visual Studio Penjualan secara Online.

setelah sudah distart melalui codingan dalam aplikasi tersebut, dan diedit sedemikian rupa, supaya orang melihat tersebut.

ini setelah melalui codingan yang akan saya cantumkan nanti dibawah ini, codingan import dari apk Visual ke word

dan ini hasil dari excel setelah di import dari Visual Studio dan dicoding.

Berikut ini codingan dari project saya: 

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        Pb1.Image = System.Drawing.Image.FromFile("D:\sasa\adidas.JPEG")

        TxtHarga.Text = "700000"

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

        Pb1.Image = System.Drawing.Image.FromFile("D:\sasa\nike.jpeg")

        TxtHarga.Text = "650000"

    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged

        Pb1.Image = System.Drawing.Image.FromFile("D:\sasa\puma.jpeg")

        TxtHarga.Text = "500000"

    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged

        Pb1.Image = System.Drawing.Image.FromFile("D:\sasa\reebook.jpeg")

        TxtHarga.Text = "750000"

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox3.Text = Val(TextBox2.Text) - Val(TxtHarga.Text)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim aplikasi As New word.Application

        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\ABDUL SEPATU ONLINE.docx")

        dokumen = aplikasi.Documents.Open("D:\ABDUL SEPATU ONLINE.docx")

        dokumen = aplikasi.Documents.Open("D:\ABDUL SEPATU ONLINE.docx")

        dokumen = aplikasi.Documents.Open("D:\ABDUL SEPATU ONLINE.docx")

        dokumen = aplikasi.Documents.Open("D:\ABDUL SEPATU ONLINE.docx")

        dokumen.Bookmarks("Bharga").Select()

        aplikasi.Selection.TypeText(TxtHarga.Text)

        dokumen.Bookmarks("Bkembalian").Select()

        aplikasi.Selection.TypeText(TextBox3.Text)

        dokumen.Bookmarks("Bbayar").Select()

        aplikasi.Selection.TypeText(TextBox2.Text)

        dokumen.Bookmarks("Bjenissepatu").Select()

        aplikasi.Selection.TypeText(CheckBox1.Text)

        dokumen.SaveAs("D:\sasa\TxtHarga.Text+TextBox3.Text+TextBox2.Text+CheckBox1.Text.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim AplikasiExcel As New excel.Application

        Dim FileExcel As excel.Workbook

        FileExcel = AplikasiExcel.Workbooks.Open("D:\sasa\Book1.xlsx")

        AplikasiExcel.Range("A2").Value = TxtHarga.Text

        AplikasiExcel.Range("B2").Value = TextBox3.Text

        AplikasiExcel.Range("C2").Value = TextBox2.Text

        AplikasiExcel.Range("D2").Value = CheckBox1.Text

        FileExcel.SaveAs("D:\sasa\Book1New.xlsx")

        AplikasiExcel.Visible = True

    End Sub

End Class