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

Tugas Lab Pemrograman Bisnis

Program ini dibuat dengan tujuan untuk menyelesaikan tugas mata kuliah lab pemrograman bisnis. Program sederhana yang saya buat ini, terdiri dari fungsi string, variabel, memasukkan message box. Contohnya, dalam program ini saya mengambil kasus jual beli tanah. Program sederhana ini dibuat untuk memasukkan data pembeli, menghitung luas tanah, menghitung harga jual tanah serta apabila harganya diberi potongan harga, mengubah input nama pembeli ke dalam huruf besar semua. Program ini terdiri dari empat form.

• Form 1

Design Form 1

Kode Programnya

Kode Program Form 1:

Public Class Form1

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        CheckBox1.Checked = False

        CheckBox2.Checked = False

    End Sub

    Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            PictureBox1.Visible = True

        Else

            PictureBox1.Visible = False

        End If

    End Sub

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

        If CheckBox2.Checked = True Then

            PictureBox2.Visible = True

        Else

            PictureBox2.Visible = False

        End If

    End Sub

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

        MessageBox.Show("data pembeli telah kami simpan", "data pembeli", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

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

        End

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        form2.show()

    End Sub

End Class

Penjelasan Kode Program Form1:

Terdapat empat label yang digunakan yaitu nama, alamat, no telp dan jenis kelamin. label ini berfungsi hanya sebagai memperlihatkan teks yang kita ingin munculkan dalam form. meskipun teks juga dapat dimunculkan dari tools yang lain selain label.

Kemudian, terdapat tiga text box, dua check box dan empat button. empat button tersebut adalah mulai, okay, close dan next.

fungsi dari setiap button tersebut adalah:

1. Button mulai digunakan dengan asumsi bahwa sebelumnya program ini telah digunakan dan telah berisi input an data. Button mulai ini digunakan untuk mengosongkan data-data yang telah di input sebelumnya pada text box dan check box. Oleh karena itu kode program pada button mulai, saya tuliskan "" , dengan tujuan agar ketika button mulai di klik textbox1, textbox2 dan textbox3 kosong seperti semula. kemudian checkbox1, checkbox2 dan picturebox1, picturebox2 saya kondisikan false pada button ini agar ketika button ini di klik checkbox dan pictureboxnya kosong seperti semula.
2. Button okay digunakan untuk memunculkan message box yang berisi tulisan bahwa "data pembeli telah kami simpan".
3. Button close, digunakan apabila kita ingin keluar dari aplikasi ini.
4. Button next digunakan untuk maju ke form selanjutnya. yaitu form2 dengan menuliskan form2.show pada kode program.
5. Checkbox1 berfungsi apabila, jenis kelamin pembeli tanah adalah pria maka jika di klik pria, akan muncul gambar berwarna biru (picturebox1) dan apabila di klik wanita maka akan muncul gambar berwarna merah (picturebox2). Sebelumnya diatur terlebih dahulu visible pada jendela properties picturebox bernilai false sehingga ketika checkbox1 di klik maka akan bernilai true dan mengeluarkan picturebox1, begitupun pada picturebox2. Maka saya menggunakan fungsi if.

 Apabila form ini di debug dan di run maka hasil keluarannya sebagai berikut :

Form 2

Design Form 2

Kode Program Form 2

Kode Program Form 2:

Public Class Form2

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

        TextBox3.Text = TextBox1.Text * TextBox2.Text

        TextBox5.Text = TextBox3.Text * TextBox4.Text

    End Sub

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

    End Sub

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

        MessageBox.Show("pembayaran lunas", "lunas", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

   

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

        If CheckBox1.Checked = True Then

            TextBox6.Text = TextBox5.Text * 0.25

        Else

            TextBox6.Text = ""

        End If

    End Sub

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

        If CheckBox1.Checked = True Then

            TextBox7.Text = TextBox5.Text - TextBox6.Text

        Else

            TextBox7.Text = TextBox5.Text

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ke3.Show()

    End Sub

End Class

Penjelasan Kode Program Form 2: 

Form 2 ini memiliki fungsi untuk menghitung luas tanah, apabila diketahui atau di input kan panjang dan lebar nya. kemudian dapat mengetahui harga nya jika sudah ditentukan kesepakatan antara pihak penjual dan pembeli berapa harga per meter nya. kemudian apabila disepakati mendapat potongan harga 25% maka dapat diketahui total yang harus dibayar berapa jika mendapat potongan harga.

Form 2 menggunakan fungsi if. yaitu If checkbox1.checked = true maksudnya adalah apabila checkbox1 bernilai benar dengan checked pada properties awalnya false, kemudian ketika kita klik checkbox1 maka bernilai benar maka TextBox7.Text = TextBox5.Text - TextBox6.Text. artinya ketika checkbox1 bernilai benar textbox 7 akan berisikan nilai dari hasil pengurangan textbox5 dikurangi textbox6.

Jika di debug dan di run maka keluaran aplikasinya:

Hasil jika di run dan keluar message box nya:

Form 3

Design Form 3

Kode Program Form 3:

 Kode Program Form 3:

Public Class ke3

    Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click

        TextBox1.Text = RadioButton1.Text

    End Sub

    Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click

        TextBox1.Text = RadioButton2.Text

    End Sub

    Private Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click

        TextBox2.Text = RadioButton3.Text

    End Sub

    Private Sub RadioButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.Click

        TextBox2.Text = RadioButton4.Text

    End Sub

    Private Sub RadioButton5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton5.Click

        TextBox2.Text = RadioButton5.Text

    End Sub

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

        End

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub

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

        Form4.Show()

    End Sub

End Class

Penjelasan Kode Program Form 3:

Form 3 ini memiliki fungsi, agar pengguna aplikasi bias menentukan apakah dia akan membayar kan tanah secara tunai atau dengan men transfer nya. Apabila ia mentransfer nya ia dapat memilih bank mana yang akan digunakannya untuk men transfer uang tersebut.

Form 3 terdiri dari radiobutton, text box dan button. Button 1, apabila di klik maka akan keluar dari program aplikasi. Dengan cara menuliskan end pada kode program button1. Button2 memiliki fungsi untuk meneruskan program aplikasi ke form selanjutnya yaitu form 4.

jika di debug dan di run hasilnya:

Form 4

Design Form 4:

Kode Program Form 4:

 Kode Program Form 4:

Public Class Form4

    Dim huruf As String

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

        huruf = InputBox("Masukkan nama")

        TextBox1.Text = UCase(huruf)

       

    End Sub

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

    End Sub

End Class

Penjelasan Kode Program Form 4:

Form 4 dibuat dengan tujuan untuk mengeluarkan bukti pembayaran dan menggunakan fungsi string agar nama yang di inputkan kedalam program, akan mengeluarkan ouput nama dengan huruf besar semua. Maka saya mencoba mengunakan fungsi Ucase.

Langkah-langkah:

1.     Mendeklarasikan huruf sebagai string. Dengan menuliskan Dim huruf as string.

2.     Menuliskan kode program di button1 dengan event klik yaitu apabila di klik button1 maka keluar input box dengan perintah masukkan nama dan setelah nama di inputkan, maka di textbox1 akan keluar nama dengan huruf besar semua, karena menggunakan fungsi Ucase.

Form 4 apabila di debug dan di run