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