Latihan_06_36110046

Deskripsi & Prosedur Form Latihan_06_36110046

Deskripsi Form Latihan_06_36110046

Gambar (1)

Form Latihan 06 terdapat empat object, yaitu label, textbox, checkbox, dan radiobutton.

Object Label

Terdapat 7 objek label (seperti yang terlihat pada gambar di atas)

Object Textbox

Terdapat 21 objek textbox

Object Checkbox

Terdapat 6 objek checkbox

Object Radiobutton

Terdapat 2 objek radiobutton

Script Unique

Membuat dua objek berhubungan dengan fungsi IF

If COTO_36110046.Checked = True Then

HCOTO_36110046.ReadOnly = False

Menutup jendela aplikasi

Close ()

Event

Objek checked

Property

Readonly

Prosedur Form Latihan_06_36110046

Gambar (2)

Langkah-langkah mengerjakan Latihan 6, sbb:

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 sesuai gambar (2)

7.    Buat kolom sesuai dengan design pada gambar (2) dengan textbox

8.    Buat  kolom cek sesuai dengan design pada gambar (2) dengan checkbox

9.    Buat  tombol bulat sesuai dengan design pada gambar (2) dengan radiobutton

10. Setelah design sudah bagus, saatnya untuk membuat script

             11.  Isi script pada latihan_06_36110046, sbb:

 

Public Class Latihan_06_36110046

    Private Sub COTO_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COTO_36110046.CheckedChanged

        If COTO_36110046.Checked = True Then

            HCOTO_36110046.ReadOnly = False

            QCOTO_36110046.ReadOnly = False

            HCOTO_36110046.Text = ""

            QCOTO_36110046.Text = ""

            TCOTO_36110046.Text = ""

        Else

            HCOTO_36110046.ReadOnly = True

            QCOTO_36110046.ReadOnly = True

            HCOTO_36110046.Text = ""

            QCOTO_36110046.Text = ""

            TCOTO_36110046.Text = ""

        End If

    End Sub

    Private Sub PALUBASA_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PALUBASA_36110046.CheckedChanged

        If PALUBASA_36110046.Checked = True Then

            HPALUBASA_36110046.ReadOnly = False

            QPALUBASA_36110046.ReadOnly = False

            HPALUBASA_36110046.Text = ""

            QPALUBASA_36110046.Text = ""

            TPALUBASA_36110046.Text = ""

        Else

            HPALUBASA_36110046.ReadOnly = True

            QPALUBASA_36110046.ReadOnly = True

            HPALUBASA_36110046.Text = ""

            QPALUBASA_36110046.Text = ""

            TPALUBASA_36110046.Text = ""

        End If

    End Sub

    Private Sub KONRO_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONRO_36110046.CheckedChanged

        If KONRO_36110046.Checked = True Then

            HKONRO_36110046.ReadOnly = False

            QKONRO_36110046.ReadOnly = False

            HKONRO_36110046.Text = ""

            QKONRO_36110046.Text = ""

            TKONRO_36110046.Text = ""

        Else

            HKONRO_36110046.ReadOnly = True

            QKONRO_36110046.ReadOnly = True

            HKONRO_36110046.Text = ""

            QKONRO_36110046.Text = ""

            TKONRO_36110046.Text = ""

        End If

    End Sub

    Private Sub SAUDARA_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAUDARA_36110046.CheckedChanged

        If SAUDARA_36110046.Checked = True Then

            HSAUDARA_36110046.ReadOnly = False

            QSAUDARA_36110046.ReadOnly = False

            HSAUDARA_36110046.Text = ""

            QSAUDARA_36110046.Text = ""

            TSAUDARA_36110046.Text = ""

        Else

            HSAUDARA_36110046.ReadOnly = True

            QSAUDARA_36110046.ReadOnly = True

            HSAUDARA_36110046.Text = ""

            QSAUDARA_36110046.Text = ""

            TSAUDARA_36110046.Text = ""

        End If

    End Sub

    Private Sub KOBAR_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOBAR_36110046.CheckedChanged

        If KOBAR_36110046.Checked = True Then

            HKOBAR_36110046.ReadOnly = False

            QKOBAR_36110046.ReadOnly = False

            HKOBAR_36110046.Text = ""

            QKOBAR_36110046.Text = ""

            TKOBAR_36110046.Text = ""

        Else

            HKOBAR_36110046.ReadOnly = True

            QKOBAR_36110046.ReadOnly = True

            HKOBAR_36110046.Text = ""

            QKOBAR_36110046.Text = ""

            TKOBAR_36110046.Text = ""

        End If

    End Sub

    Private Sub ULU_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ULU_36110046.CheckedChanged

        If ULU_36110046.Checked = True Then

            HULU_36110046.ReadOnly = False

            QULU_36110046.ReadOnly = False

            HULU_36110046.Text = ""

            QULU_36110046.Text = ""

            TULU_36110046.Text = ""

        Else

            HULU_36110046.ReadOnly = True

            QULU_36110046.ReadOnly = True

            HULU_36110046.Text = ""

            QULU_36110046.Text = ""

            TULU_36110046.Text = ""

        End If

    End Sub

    Private Sub QCOTO_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QCOTO_36110046.TextChanged

        TCOTO_36110046.Text = Val(HCOTO_36110046.Text) * Val(QCOTO_36110046.Text)

    End Sub

    Private Sub QPALUBASA_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QPALUBASA_36110046.TextChanged

        TPALUBASA_36110046.Text = Val(HPALUBASA_36110046.Text) * Val(QPALUBASA_36110046.Text)

    End Sub

    Private Sub QKONRO_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKONRO_36110046.TextChanged

        TKONRO_36110046.Text = Val(HKONRO_36110046.Text) * Val(QKONRO_36110046.Text)

    End Sub

    Private Sub QSAUDARA_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QSAUDARA_36110046.TextChanged

        TSAUDARA_36110046.Text = Val(HSAUDARA_36110046.Text) * Val(QSAUDARA_36110046.Text)

    End Sub

    Private Sub QKOBAR_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QKOBAR_36110046.TextChanged

        TKOBAR_36110046.Text = Val(HKOBAR_36110046.Text) * Val(QKOBAR_36110046.Text)

    End Sub

    Private Sub QULU_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QULU_36110046.TextChanged

        TULU_36110046.Text = Val(HULU_36110046.Text) * Val(QULU_36110046.Text)

    End Sub

    Private Sub TCOTO_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TCOTO_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub TPALUBASA_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPALUBASA_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub TKONRO_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKONRO_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub TSAUDARA_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSAUDARA_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub TKOBAR_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKOBAR_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub TULU_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TULU_36110046.TextChanged

        TOTAL_36110046.Text = Val(TCOTO_36110046.Text) + Val(TPALUBASA_36110046.Text) + Val(TKONRO_36110046.Text) + Val(TSAUDARA_36110046.Text) + Val(TKOBAR_36110046.Text) + Val(TULU_36110046.Text)

    End Sub

    Private Sub MEMBER_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBER_36110046.CheckedChanged

        If MEMBER_36110046.Checked = True Then

            POT_36110046.Text = Val(TOTAL_36110046.Text) / 10

        Else : POT_36110046.Text = 0

        End If

    End Sub

    Private Sub NMEMBER_36110046_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NMEMBER_36110046.CheckedChanged

        If NMEMBER_36110046.Checked = True Then

            POT_36110046.Text = 0

        Else : POT_36110046.Text = Val(TOTAL_36110046.Text) / 10

        End If

    End Sub

    Private Sub POT_36110046_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles POT_36110046.TextChanged

        BAYAR_36110046.Text = Val(TOTAL_36110046.Text) - Val(POT_36110046.Text)

    End Sub

End Class

 (Panjang Juga yah...hihihihi) => bukan rumus ^_^

             12.  Silahkan jalankan program anda. Wassalam.