Latihan_06_36110031

Tahap Penyelesaian Latihan_06_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_06 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_06 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_06_36110031

    Private Sub COTO_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COTO_36110031.CheckedChanged

        If COTO_36110031.Checked = True Then

            HCOTO_36110031.ReadOnly = False

            QCOTO_36110031.ReadOnly = False

            JCOTO_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QCOTO_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QCOTO_36110031.TextChanged

        JCOTO_36110031.Text = Val(HCOTO_36110031.Text) * Val(QCOTO_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub PALLU_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PALLU_36110031.CheckedChanged

        If PALLU_36110031.Checked = True Then

            HPALLU_36110031.ReadOnly = False

            QPALLU_36110031.ReadOnly = False

            JPALLU_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QPALLU_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QPALLU_36110031.TextChanged

        JPALLU_36110031.Text = Val(HPALLU_36110031.Text) * Val(QPALLU_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub SOPKON_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SOPKON_36110031.CheckedChanged

        If SOPKON_36110031.Checked = True Then

            HSOPKON_36110031.ReadOnly = False

            QSOPKON_36110031.ReadOnly = False

            JSOPKON_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QSOPKON_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QSOPKON_36110031.TextChanged

        JSOPKON_36110031.Text = Val(HSOPKON_36110031.Text) * Val(QSOPKON_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub SOPDAR_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SOPDAR_36110031.CheckedChanged

        If SOPDAR_36110031.Checked = True Then

            HSOPDAR_36110031.ReadOnly = False

            QSOPDAR_36110031.ReadOnly = False

            JSOPDAR_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QSOPDAR_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QSOPDAR_36110031.TextChanged

        JSOPDAR_36110031.Text = Val(HSOPDAR_36110031.Text) * Val(QSOPDAR_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub KONBAR_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONBAR_36110031.CheckedChanged

        If KONBAR_36110031.Checked = True Then

            HKONBAR_36110031.ReadOnly = False

            QKONBAR_36110031.ReadOnly = False

            JKONBAR_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QKONBAR_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKONBAR_36110031.TextChanged

        JKONBAR_36110031.Text = Val(HKONBAR_36110031.Text) * Val(QKONBAR_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub ULU_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ULU_36110031.CheckedChanged

        If ULU_36110031.Checked = True Then

            HULU_36110031.ReadOnly = False

            QULU_36110031.ReadOnly = False

            JULU_36110031.ReadOnly = False

            TOTAL_36110031.ReadOnly = False

            POT_36110031.ReadOnly = False

            JUMLAH_36110031.ReadOnly = False

        End If

    End Sub

    Private Sub QULU_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QULU_36110031.TextChanged

        JULU_36110031.Text = Val(HULU_36110031.Text) * Val(QULU_36110031.Text)

        TOTAL_36110031.Text = Val(JCOTO_36110031.Text) + Val(JPALLU_36110031.Text) + Val(JSOPKON_36110031.Text) + Val(JSOPDAR_36110031.Text) + Val(JKONBAR_36110031.Text) + Val(JULU_36110031.Text)

    End Sub

    Private Sub MEMBER_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBER_36110031.CheckedChanged

        If MEMBER_36110031.Checked = True Then

            POT_36110031.ReadOnly = False

            POT_36110031.Text = Val(TOTAL_36110031.Text) * 10 / 100

            JUMLAH_36110031.Text = Val(TOTAL_36110031.Text) - Val(POT_36110031.Text)

        End If

    End Sub

    Private Sub NONMEMBER_36110031_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NONMEMBER_36110031.CheckedChanged

        If NONMEMBER_36110031.Checked = True Then

            POT_36110031.ReadOnly = False

            POT_36110031.Text = 0

            JUMLAH_36110031.Text = Val(TOTAL_36110031.Text) - Val(POT_36110031.Text)

        End If

    End Sub

End Class    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

   

 Deskripsi Latihan_06_36110031

A. Form Latihan_06 Terdapat Empat Object yaitu label, textbox, checkbox dan radiobutton.

-    Object Label

Terdapat Tujuh label (yang bertuliskan Makanan khas Makassar, Makanan, Harga, Qty, Jumlah, Total, Jumlah bersih).

-    Object TextBox

Terdapat Dua puluh satu TextBox (semuanya status ReadOnly tetapi ada dua belas TextBox yang nantinya akan menjadi status input ketika object checkbox di cek). Status input digunakan untuk memasukkan nilai harga dan kuantitas. Sedangkan status ReadOnly digunakan untuk menampilkan hasil perhitungan (Harga dikali kuantitas, Total semua harga dikali kuantitas, Total dikurangi potongan jika ada).

-    Object CheckBox

Terdapat Enam Object CheckBox yaitu Coto, Pallubasa, Sop konro, Sop Saudara, Konro bakar, dan Ulu juku’. Yang dimana ketika checkbox “coto” diclick maka textbox harga dan kuantitas untuk ReadOnly coto akan berubah menjadi False, begitu juga dengan Pallubasa, Sop konro, Sop saudara, Konro bakar, dan Ulu juku’.

-    Object RadioButton

Terdapat Dua object RadioButton yaitu Pot.Member 10% dan Non Member. RadioButton Pot.Member 10% digunakan untuk memberikan 10% dari Total. Sedangkan Non Member untuk tidak memberikan potongan.

B.  Script Unique

Untuk CheckBox Coto:

If COTO_36110031.Checked = True Then

HCOTO_36110031.ReadOnly = False

QCOTO_36110031.ReadOnly = False

JCOTO_36110031.ReadOnly = False

TOTAL_36110031.ReadOnly = False

POT_36110031.ReadOnly = False

JUMLAH_36110031.ReadOnly = False

End If

Untuk RadioButton Pot. Member 10%:

If MEMBER_36110031.Checked = True Then

POT_36110031.ReadOnly = False

POT_36110031.Text = Val(TOTAL_36110031.Text) * 10 / 100

JUMLAH_36110031.Text = Val(TOTAL_36110031.Text) - Val(POT_36110031.Text)

End If

Untuk RadioButton Non Member:

If NONMEMBER_36110031.Checked = True Then

POT_36110031.ReadOnly = False

POT_36110031.Text = 0

JUMLAH_36110031.Text = Val(TOTAL_36110031.Text) - Val(POT_36110031.Text)

End If

C.  Even

COTO_36110031_CheckedChanged

QCOTO_36110031_TextChanged

D. Property

Property TextBox ==> ReadOnly = True