Latihan 06 APKOM 4 D3B Akuntansi PNUP

Latihan_06_36110051

A.    Object-object dalam Latihan_06_36110051 :

1.                         Object Label

Terdapat tujuah label (yang bertuliskan makanan khas makassar, makanan, harga, qty, jumlah, total, jumlah bersih).

2.                         Object Textbox

Terdapat dua puluh satu textbox (semuanya status ReadOnly tetapi ada dua belas textbox yang akan menjadi status input ketika checkbox dicek). Status input tersebut digunakan untuk memasukkan nilai harga dan kuantitas. Status yang tetap ReadOnly digunakan untuk menampilkan hasil perhitungan harga dikali kuantitas, total semua harga dikali kuantitas, kuantitas dikurang potongan jika ada.

3.                         Object CheckBox

Terdapat enam object checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’). Ketika checkbox coto dicek, maka texbox harga dan kuantitas untuk coto ReadOnlya menjadi false. Begitu juga untuk checkbox pallubasa, sop konro, sop saudara, konro bakar, dan ulu juku’.

4.                         Object RadioButton

Terdapat dua object radiobutton (Pot. Member 10% dan Non Member). RadioButton Pot. Member 10% digunakan untuk memberikan potongan 10% dari Total. Sedangkan RadioButton Non Member untuk tidak memberikan potongan.

B.     Script Unique

·         Untuk CheckBox Coto:

If C_36110051.Checked Then

HC_36110051.ReadOnly = False

QC_36110051.ReadOnly = False

Else

HC_36110051.ReadOnly = True

QC_36110051.ReadOnly = True

End If

..dan seterusnya..

·         Untuk RadioButton Pot. Member 10%:

If PM_36110051.Checked Then

POT_36110051.Text = Val(TOTAL_36110051.Text) * (10 / 100)

JB_36110051.Text = Val(TOTAL_36110051.Text) - Val(POT_36110051.Text)

End If

·         Untuk RadioButton Non Member:

If NM_36110051.Checked Then

POT_36110051.Text = 0

JB_36110051.Text = Val(TOTAL_36110051.Text) - Val(POT_36110051.Text)

End If

C.     Even

C_36110051_CheckedChanged

PM_36110051_CheckedChanged

D.    Property

Property TextBox ==> ReadOnly=True

·         Prosedur :

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan label, al:

a.       “MAKANAN KHAS MAKASSAR”

b.      “Makanan”

c.       “Harga”

d.      “Qty”

e.       “Jumlah”

f.       “Total”

g.      “Jumlah bersih”

7.       Buat kolom sesuai dengan design pada latihan 6 dengan menggunakan textbox, kolom sebanyak 21 dengan nama :

1.      HC_36110051

2.      HP_36110051

3.      HSK_36110051

4.      HSS_36110051

5.      HKB_36110051

6.      HUJ_36110051

7.      QC_36110051

8.      QP_36110051

9.      QSK_36110051

10.        QSS_36110051

11.        QKB_36110051

12.        QUJ_36110051

13.        JC_36110051

14.        JP_36110051

15.        JSK_36110051

16.        JSS_36110051

17.        JKB_36110051

18.        JUJ_36110051

19.        TOTAL_36110051

20.        POT_36110051

21.        JB_36110051

8.      Buat kolom sesuai dengan design pada latihan 6 dengan menggunakan checkbox, kolom sebanyak 6 dengan nama :

1.             C_36110051

2.             P_36110051

3.             SK_36110051

4.             SS_36110051

5.             KB_36110051

6.             UJ_36110051

9.       Buat objek radiobutton sebanyak 2 :

1.             Radiobutton1 berisi teks “Pot. Member 10%” dengan nama PM_36110051

2.             Radiobutton2 berisi teks “Non-Member” dengan nama NM-36110051

10.    Setelah itu masuk ke lembar “Vb”, dan ketik script :

Public Class Latihan_06_36110051

    Private Sub Latihan_06_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub C_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_36110051.CheckedChanged

        If C_36110051.Checked Then

            HC_36110051.ReadOnly = False

            QC_36110051.ReadOnly = False

        Else

            HC_36110051.ReadOnly = True

            QC_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub QC_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QC_36110051.TextChanged

        JC_36110051.Text = Val(HC_36110051.Text) * Val(QC_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

    Private Sub PM_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PM_36110051.CheckedChanged

        If PM_36110051.Checked Then

            POT_36110051.Text = Val(TOTAL_36110051.Text) * (10 / 100)

            JB_36110051.Text = Val(TOTAL_36110051.Text) - Val(POT_36110051.Text)

        End If

    End Sub

    Private Sub NM_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NM_36110051.CheckedChanged

        If NM_36110051.Checked Then

            POT_36110051.Text = 0

            JB_36110051.Text = Val(TOTAL_36110051.Text) - Val(POT_36110051.Text)

        End If

    End Sub

    Private Sub P_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles P_36110051.CheckedChanged

        If P_36110051.Checked Then

            HP_36110051.ReadOnly = False

            QP_36110051.ReadOnly = False

        Else

            HP_36110051.ReadOnly = True

            QP_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub SK_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SK_36110051.CheckedChanged

        If SK_36110051.Checked Then

            HSK_36110051.ReadOnly = False

            QSK_36110051.ReadOnly = False

        Else

            HSK_36110051.ReadOnly = True

            QSK_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub SS_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SS_36110051.CheckedChanged

        If SS_36110051.Checked Then

            HSS_36110051.ReadOnly = False

            QSS_36110051.ReadOnly = False

        Else

            HSS_36110051.ReadOnly = True

            QSS_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub KB_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB_36110051.CheckedChanged

        If KB_36110051.Checked Then

            HKB_36110051.ReadOnly = False

            QKB_36110051.ReadOnly = False

        Else

            HKB_36110051.ReadOnly = True

            QKB_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub UJ_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UJ_36110051.CheckedChanged

        If UJ_36110051.Checked Then

            HUJ_36110051.ReadOnly = False

            QUJ_36110051.ReadOnly = False

        Else

            HUJ_36110051.ReadOnly = True

            QUJ_36110051.ReadOnly = True

        End If

    End Sub

    Private Sub QP_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QP_36110051.TextChanged

        JP_36110051.Text = Val(HP_36110051.Text) * Val(QP_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

    Private Sub QSK_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSK_36110051.TextChanged

        JSK_36110051.Text = Val(HSK_36110051.Text) * Val(QSK_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

    Private Sub QSS_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QSS_36110051.TextChanged

        JSS_36110051.Text = Val(HSS_36110051.Text) * Val(QSS_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

    Private Sub QKB_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKB_36110051.TextChanged

        JKB_36110051.Text = Val(HKB_36110051.Text) * Val(QKB_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

    Private Sub QUJ_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QUJ_36110051.TextChanged

        JUJ_36110051.Text = Val(HUJ_36110051.Text) * Val(QUJ_36110051.Text)

        TOTAL_36110051.Text = Val(JC_36110051.Text) + Val(JP_36110051.Text) + Val(JSK_36110051.Text) + Val(JSS_36110051.Text) + Val(JKB_36110051.Text) + Val(JUJ_36110051.Text)

    End Sub

End Class

10.       Uji program untuk mengetahui apakah program ini berjalan dengan mengklik “Start   Debbuging”

11.    Jika program berjalan simpan dengan mengklik “Save”

12.    Selesai