UTS Pemrograman Bisnis 2

Form Pembelian

Design:























 buatlah variable harga barang dan harga kirim terlebih dahulu

Public Class Form1
    Public hrgbarang, hrgkirim As Integer

Lalu mulailah kodingnya:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text
            Case "Kipas Angin"

                TextBox1.Text = "Rp. 50000"

                hrgbarang = 50000
            Case "Mesin Cuci"

                TextBox1.Text = "Rp. 80000"

                hrgbarang = 80000
            Case "Televisi"

                TextBox1.Text = "Rp. 120000"

                hrgbarang = 120000
        End Select
    End Sub

lalu untuk pengirimannya:

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text
            Case "Jabodetabek"

                TextBox2.Text = "Rp. 15000"

                hrgkirim = 15000
            Case "Luar Jabodetabek"

                TextBox2.Text = "Rp. 25000"

                hrgkirim = 25000
        End Select
    End Sub

koding tombol "Hitung" :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim banyakbarang, total As Integer

        banyakbarang = TextBox3.Text

        total = (hrgbarang * banyakbarang) + hrgkirim

        TextBox4.Text = hrgbarang * banyakbarang
        TextBox4.Text = hrgkirim
        TextBox4.Text = "Rp" & total.ToString

    End Sub

untuk checkbox :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.Enabled = False Then
            ComboBox2.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            ComboBox2.Visible = True

            Label3.Visible = True

        End If
    End Sub

dan terakhir untuk tombol "Simpan" yang akan menyimpan data ke MS Excel:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MyExcelBook = excelApp.Workbooks.Open("D:\Pemesanan.xlsx")

        excelApp.Range("A2").Value = ComboBox1.Text
        excelApp.Range("B2").Value = ComboBox2.Text
        excelApp.Range("C2").Value = TextBox1.Text
        excelApp.Range("D2").Value = TextBox2.Text
        excelApp.Range("E2").Value = TextBox3.Text
        excelApp.Range("F2").Value = TextBox4.Text

        MyExcelBook.SaveAs("D:\Pemesanan.xlsx")

        excelApp.Visible = True

    End Sub
End Class

yang akan menampilkan seperti ini:








Terima Kasih