NIM : 161021450532
Kelas : 04TPLP001
- Deskripsi :
Saya akan membuat project tentang Perhitungan Penjualan Handphone untuk memudahkan konsumen dengan menggunakan Visual Studio
- Komponen Toolbox yang dipakai :
- Label
- ComboBox
- TextBox
- Button
- Berikut Source Coding
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub CmbNB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbNB.SelectedIndexChanged
Select Case CmbNB.Text
Case "SAMSUNG"
TxtHarga.Text = "2000000"
Case "XIAOMI"
TxtHarga.Text = "1500000"
Case "OPPO"
TxtHarga.Text = "3000000"
Case "VIVO"
TxtHarga.Text = "2500000"
Case "IPHONE"
TxtHarga.Text = "6500000"
Case "NOKIA"
TxtHarga.Text = "2300000"
End Select
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CmbNB.Items.Add("SAMSUNG")
CmbNB.Items.Add("XIAOMI")
CmbNB.Items.Add("OPPO")
CmbNB.Items.Add("VIVO")
CmbNB.Items.Add("IPHONE")
CmbNB.Items.Add("NOKIA")
Dim i As Integer
For i = 1 To 10
CmbJB.Items.Add(i)
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TxtTH.Text Then
TxtDiscount.Text = (TxtTH.Text * 10 / 100)
TxtTP.Text = TxtTH.Text - TxtDiscount.Text
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Harga, Jumlah, Total
Harga = TxtHarga.Text
Jumlah = CmbJB.Text
Total = TxtTH.Text
Total = Harga * Jumlah
TxtTH.Text = Total
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim Aplikasi As New word.Application
Dim Dokumen As word.Document
Dokumen = Aplikasi.Documents.Open("C:\Users\URDAL\Downloads\Eresha\Tugas UTS Word.docx")
Dokumen.Bookmarks("NAMABARANG").Select()
Aplikasi.Selection.TypeText(CmbNB.Text)
Dokumen.Bookmarks("Harga").Select()
Aplikasi.Selection.TypeText(TxtHarga.Text)
Dokumen.Bookmarks("JumlahBarang").Select()
Aplikasi.Selection.TypeText(CmbJB.Text)
Dokumen.Bookmarks("TotalHarga").Select()
Aplikasi.Selection.TypeText(TxtTH.Text)
Dokumen.Bookmarks("Discount").Select()
Aplikasi.Selection.TypeText(TxtDiscount.Text)
Dokumen.Bookmarks("TotalPembayaran").Select()
Aplikasi.Selection.TypeText(TxtTP.Text)
Dokumen.SaveAs("C:\Users\URDAL\Downloads\Eresha\Hasil Tugas UTS Word.docx")
MsgBox("Success")
Aplikasi.Visible = True
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim AplikasiExcel As New excel.Application
Dim FileExcel As excel.Workbook
FileExcel = AplikasiExcel.Workbooks.Open("C:\Users\URDAL\Downloads\Eresha\Tugas UTS Excel.xlsx")
AplikasiExcel.Range("A5").Value = CmbNB.Text
AplikasiExcel.Range("B5").Value = TxtHarga.Text
AplikasiExcel.Range("C5").Value = CmbJB.Text
AplikasiExcel.Range("D5").Value = TxtTH.Text
AplikasiExcel.Range("E5").Value = TxtDiscount.Text
AplikasiExcel.Range("F5").Value = TxtTP.Text
FileExcel.SaveAs("C:\Users\URDAL\Downloads\Eresha\Hasil Tugas UTS Excel.xlsx")
MsgBox("Success")
AplikasiExcel.Visible = True
End Sub
End Class
- Berikut Desain dan Hasilnya