uts pemrograman

Nama : M Irwan
NIM   : 171021450040
Kelas  : 04 TPLP 001

1. Diskripsi : Disini saya akan membuat project tentang "Penjualan Makanan Berbasis Online" alasan saya ingin membut project ini agar memudahkan masyarakat membeli makanan tampa harus keluar ruamah.

Komponen yang dipakai :
- Label
- Combo Box
- Text Box
- Button

2. Berikut Source Coding

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim bokdoc As word.Document
        Dim judul As String

        bokdoc = aplikasi.Documents.Open("C:\Users\ACER\Desktop\RESTORAN.docx")
        judul = tbnama.Text

        bokdoc.Bookmarks("nama").Select()
        aplikasi.Selection.TypeText(tbnama.Text)

        bokdoc.Bookmarks("jenis").Select()
        aplikasi.Selection.TypeText(tbjenis.Text)

        bokdoc.Bookmarks("Harga").Select()
        aplikasi.Selection.TypeText(tbharga.Text)

        bokdoc.Bookmarks("Jumlah").Select()
        aplikasi.Selection.TypeText(tbjumlah.Text)

        bokdoc.Bookmarks("total").Select()
        aplikasi.Selection.TypeText(tbtotal.Text)

        bokdoc.SaveAs2("C:\Users\ACER\Desktop\" + judul + ".docx")
        aplikasi.Visible = True

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim jumlah As Integer
        Dim jenis() As String = New String() {"bakso", "mie ayam", "soto", "nasi", "ayam bakar"}

        For jumlah = 1 To 10
            tbjumlah.Items.Add(jumlah)
        Next

        Me.tbjenis.Items.AddRange(jenis)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim applikasi As New excel.Application
        Dim bokexcel As excel.Workbook
        Dim label As String

        bokexcel = applikasi.Workbooks.Open("C:\Users\ACER\Desktop\RESTORAN.xlsx")
        label = "Rumah Makan Online"

        applikasi.Range("A3").Value = tbnama.Text
        applikasi.Range("B3").Value = tbalamat.Text
        applikasi.Range("C3").Value = tbjenis.Text
        applikasi.Range("D3").Value = tbharga.Text
        applikasi.Range("E3").Value = tbjumlah.Text
        applikasi.Range("F3").Value = tbtotal.Text

        bokexcel.SaveAs("C:\Users\ACER\Desktop\" + label + ".xlsx")
        applikasi.Visible = True
    End Sub
End Class

3. Berikut Desain dan Hasilnya