Latihan_06_36110044 Aplikasi Komputer 4

Form Latihan_06 terdapat empat object yaitu Label, Textbox, CheckBox, dan RadioButton:

Object Label

Terdapat tujuh  object Label (yang bertuliskan makanan khas Makassar,makanan, harga, qty, harga, total, dan jumlah bersih)

Object Textbox

Terdapat dua puluh satu object textbox yang berstatus ReadOnly namun dua belas diantaranya akan berubah status menjadi status input jika checkbox dicek. Status input digunakan untuk memasukkan nilai dari harga dan quantity. Status ReadOnly digunakan untuk menampilkan hasil perkalian dari harga dan quantity, total, potongan member (jika ad) dan jumlah bersih.

Object CheckBox

Terdapat enam object CheckBox (coto, pallubasa, sop kondro, sop saudara, kondro bakar, ulu juku’). Jika CheckBox coto dicek maka textbox harga dan quantity coto ReadOnly-nya menjadi false. Begitupun dengan pallubasa, sop kondro, sop saudara, kondro bakar, ulu juku’.

Object RadioButton

Terdapat dua object RadioButton (yang bertuliskan 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.

Script Unique

CheckBox  Coto

If coto_36110044.Checked Then

            hcoto_36110044.ReadOnly = False

            qcoto_36110044.ReadOnly = False

        Else

            hcoto_36110044.ReadOnly = True

            qcoto_36110044.ReadOnly = True

        End If

RadioButton Pot. member 10%

If potmem_36110044.Checked Then

            pot_36110044.Text = Val(tot_36110044.Text) * (10 / 100)

            jber_36110044.Text = Val(tot_36110044.Text) - Val(pot_36110044.Text)

        End If

RadioButton Non-member

If nonmem_36110044.Checked Then

            pot_36110044.Text = 0

            jber_36110044.Text = Val(tot_36110044.Text) - Val(pot_36110044.Text)

        End If

Even

coto_36110044_CheckedChanged

qcoto_36110044_TextChanged

Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN:

1. Klik star lalu pilih Microsoft Visual Studio 2008

2. Pilih file => New => Project

3. Isi Name dan Location pada kolom yang disiapkan lalu OK

4. Buat form dengan menggunakan Label, Textbox, Button,CheckBox, dan RadioButton  yang ada dalam "Toolbox”

5. Ganti nama Textbox dan Button menggunakan "Properties Window"

6. Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_06

Public Class Latihan_06_36110044

    Private Sub coto_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles coto_36110044.CheckedChanged

        If coto_36110044.Checked Then

            hcoto_36110044.ReadOnly = False

            qcoto_36110044.ReadOnly = False

        Else

            hcoto_36110044.ReadOnly = True

            qcoto_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub qcoto_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qcoto_36110044.TextChanged

        jcoto_36110044.Text = Val(hcoto_36110044.Text) * Val(qcoto_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

    Private Sub potmem_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles potmem_36110044.CheckedChanged

        If potmem_36110044.Checked Then

            pot_36110044.Text = Val(tot_36110044.Text) * (10 / 100)

            jber_36110044.Text = Val(tot_36110044.Text) - Val(pot_36110044.Text)

        End If

    End Sub

    Private Sub nonmem_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nonmem_36110044.CheckedChanged

        If nonmem_36110044.Checked Then

            pot_36110044.Text = 0

            jber_36110044.Text = Val(tot_36110044.Text) - Val(pot_36110044.Text)

        End If

    End Sub

    Private Sub pallu_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pallu_36110044.CheckedChanged

        If pallu_36110044.Checked Then

            hpallu_36110044.ReadOnly = False

            qpallu_36110044.ReadOnly = False

        Else

            hpallu_36110044.ReadOnly = True

            qpallu_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub kondro_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kondro_36110044.CheckedChanged

        If kondro_36110044.Checked Then

            hkondro_36110044.ReadOnly = False

            qkondro_36110044.ReadOnly = False

        Else

            hkondro_36110044.ReadOnly = True

            qkondro_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub saudara_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles saudara_36110044.CheckedChanged

        If saudara_36110044.Checked Then

            hsaudara_36110044.ReadOnly = False

            qsaudara_36110044.ReadOnly = False

        Else

            hsaudara_36110044.ReadOnly = True

            qsaudara_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub bakar_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bakar_36110044.CheckedChanged

        If bakar_36110044.Checked Then

            hbakar_36110044.ReadOnly = False

            qbakar_36110044.ReadOnly = False

        Else

            hbakar_36110044.ReadOnly = True

            qbakar_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub ulu_36110044_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ulu_36110044.CheckedChanged

        If ulu_36110044.Checked Then

            hulu_36110044.ReadOnly = False

            qulu_36110044.ReadOnly = False

        Else

            hulu_36110044.ReadOnly = True

            qulu_36110044.ReadOnly = True

        End If

    End Sub

    Private Sub qpallu_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qpallu_36110044.TextChanged

        jpallu_36110044.Text = Val(hpallu_36110044.Text) * Val(qpallu_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

    Private Sub qkondro_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qkondro_36110044.TextChanged

        jkondro_36110044.Text = Val(hkondro_36110044.Text) * Val(qkondro_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

    Private Sub qsaudara_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qsaudara_36110044.TextChanged

        jsaudara_36110044.Text = Val(hsaudara_36110044.Text) * Val(qsaudara_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

    Private Sub qbakar_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qbakar_36110044.TextChanged

        jbakar_36110044.Text = Val(hbakar_36110044.Text) * Val(qbakar_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

    Private Sub qulu_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles qulu_36110044.TextChanged

        julu_36110044.Text = Val(hulu_36110044.Text) * Val(qulu_36110044.Text)

        tot_36110044.Text = Val(jcoto_36110044.Text) + Val(jpallu_36110044.Text) + Val(jkondro_36110044.Text) + Val(jsaudara_36110044.Text) + Val(jbakar_36110044.Text) + Val(julu_36110044.Text)

    End Sub

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

    End Sub

End Class

7. Jalankan program dengan menggunakan  “start debugging”