Tugas II Pemrograman Bisnis - Jasa Pengiriman Barang

Project kedua ini saya buat untuk menyelesaikan tugas pemrograman bisnis. Project sederhana ini terdiri dari tiga form.

Form pertama dirancang untuk memasukkan identitas pengirim barang, form kedua untuk mengidentifikasi barang yang akan dikirim dan tujuan kemana barang akan dikirim serta biaya yang harus ditanggung oleh pengirim. Form ketiga dibuat untuk memberikan bonus kepada pengirim dan menggunakan fungsi timer.

Form 1

•  Design Form 1

• kode program form 1

Public Class Form1

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

        Select Case ComboBox1.Text

            Case "uang"

                TextBox1.Text = 15000

            Case "baju"

                TextBox1.Text = 10000

            Case "barang pecah belah"

                TextBox1.Text = 20000

            Case "barang lain"

                TextBox1.Text = 7000

        End Select

    End Sub

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

        Form2.Show()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = ""

    End Sub

End Class

• Penjelasan Form1  

Form 1 dibuat untuk memasukkan data pengirim barang, didalam form 1 terdapat combo box untuk barang apa yang akan pengirim kirimkan. dengan ketentuan :

 Apabila barang yang dikirimkan adalah uang maka biaya pengiriman minimal   15000, apabila barang yang dikirimkan adalah barang pecah belah maka biaya pengiriman minimal 20000, apabola pengiriman baju biaya minimal yang dikenakan adalah 10000 dan untuk barang-barang lain diluar klasifikasi sebelumnya dikenakan biaya minimal 7000.

• Apabila di debug, tampilan form 1 sebagai berikut

• Form 2
• Design Form 2

• Kode Program Form 2

Public Class Form2

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

        Select Case ComboBox1.Text

            Case "< 1 kg"

                TextBox1.Text = 10000

            Case "1 kg - 5 kg"

                TextBox1.Text = 20000

            Case "5-10 kg"

                TextBox1.Text = 30000

            Case "> 10 kg"

                TextBox1.Text = 45000

        End Select

    End Sub

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

        Select Case ComboBox2.Text

            Case "jakarta"

                TextBox2.Text = 10000

            Case "luar jakarta"

                TextBox2.Text = 25000

            Case "luar pulau jawa"

                TextBox2.Text = 50000

        End Select

    End Sub

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

        TextBox3.Text = (TextBox1.Text * 0.5) + (TextBox2.Text * 0.5)

    End Sub

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

        Form3.Show()

    End Sub

End Class

• Penjelasan Kode Program Form 2

Form 2 dibuat untuk klasifikasi barang yang akan dikirim, mengenai berapa beratnya dan tujuan pengiriman barangnya sehingga dapat mengetahui total biaya pengiriman.

Dengan ketentuan :

1. berat barang < 1 kg maka biaya pengiriman = 10000
2. berat barang 1 kg - 5 kg maka biaya pengiriman = 20000
3. berat barang 5 kg - 10 kg maka biaya pengiriman = 30000
4. berat barang >10 kg maka biaya pengiriman = 45000

ketentuan yang kedua :

1. tujuan pengiriman jakarta, biaya pengiriman = 10000
2. tujuan pengiriman luar jakarta, biaya pengiriman = 25000
3. tujuan pengiriman luar pulau jawa, biaya pengiriman = 50000

menghitung total biaya pengiriman adalah dengan persentase 50% dari biaya karena berat barang dan 50% untuk jauhnya barang yang akan dikirim.

• Form  3
• Design Form 3

• Kode Program Form 3

Kode Program Form 3

Public Class Form3

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim a As Integer

        For a = 1 To 10

            TextBox1.Text = Rnd(a)

            Label2.Text = Strings.Mid(TextBox1.Text, 3, 1)

        Next

    End Sub

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

        If Button1.Text = "&START" Then

            Timer1.Enabled = True

            Button1.Text = "&STOP"

        Else

            Timer1.Enabled = False

            Button1.Text = "&START"

            Select Case Label2.Text

                Case 1, 4, 5

                    Label3.Text = "pulpen"

                Case 2, 7

                    Label3.Text = "buku saku"

                Case 3, 6, 8

                    Label3.Text = "hand bag"

                Case 0, 9, 10

                    Label3.Text = "jam"

            End Select

        End If

    End Sub

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

        Dim X As Integer

        X = MsgBox("bener mau keluar nih?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)

        If X = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

• Penjelasan Form 3

Form tiga dibuat menggunakan fungsi timer, untuk memberikan bonus kepada pengirim apabila memasukkan nomor kirim barang. apabila nomor yang terpilih satu atau empat atau lima maka bonusnya adalah pulpen. kalo nomor yang keluar ialah dua atau tujuh maka bonusnya adalah buku saku. apabila nomor yang keluar tiga atau enam atau delapan bonusnya ialah hand bag. dan apabila nomor yang keluar 0 atau 9 atau 10 bonusnya ialah jam.

sekian terima kasih

nama : irfana fadya

npm : 1006724412