Latihan 11_36110055

PROSEDUR LATIHAN 11:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat text dengan menggunakan label pada toolbox

Ø  Buat textbox sebanyak 20 dengan nama :

v  “STAMBUK_36001155”

v  “Nama_36001155”

v  “NPA_36001155”

v  “NAI_36001155”

v  “NAA_336001155”

v  “NAB_336001155”

v  “NSA_36001155”

v  “SPA_36001155”

v  “SAI_36001155”

v  “SAA_36001155”

v  “SAB_36001155”

v  “SSA_36001155”

v  “TOTALS_36001155” ( property ReadOnly textbox di atur jadi true)

v  “NXSPA_36001155” ( property ReadOnly textbox di atur jadi true)

v  “NXSAI_36001155” ( property ReadOnly textbox di atur jadi true)

v  “NXSAA_36001155” ( property ReadOnly textbox di atur jadi true)

v  “NXSAB_336001155” ( property ReadOnly textbox di atur jadi true)

v  “NXSSA_36001155” ( property ReadOnly textbox di atur jadi true)

v  “TOTALNXS_36001155” ( property ReadOnly textbox di atur jadi true)

v  “IPK_36001155” ( property ReadOnly textbox di atur jadi true)

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini.

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

 

Public Class Latihan_11_36001155

    Private Sub Masnur(ByVal X As TextBox, ByVal Y As TextBox, ByVal Z As TextBox)

        If X.Text = "A" Then

            Z.Text = 4 * Val(Y.Text)

        ElseIf X.Text = "B" Then

            Z.Text = 3 * Val(Y.Text)

        ElseIf X.Text = "C" Then

            Z.Text = 2 * Val(Y.Text)

        ElseIf X.Text = "D" Then

            Z.Text = 1 * Val(Y.Text)

        Else

            Z.Text = ""

        End If

    End Sub

    Private Sub SPA_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SPA_36001155.TextChanged

        Masnur(NPA_36001155, SPA_36001155, NXSPA_36001155)

        NXSPA_36001155.Text = Val(NPA_36001155.Text) * Val(SPA_36001155.Text)

        TOTALS_36001155.Text = Val(SPA_36001155.Text) + Val(SAI_36001155.Text) + Val(SAA_36001155.Text) + Val(SAB_36001155.Text) + Val(SSA_36001155.Text)

    End Sub

    Private Sub SAI_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAI_36001155.TextChanged

        Masnur(NAI_36001155, SAI_36001155, NXSAI_36001155)

        NXSAI_36001155.Text = Val(NAI_36001155.Text) * Val(SAI_36001155.Text)

        TOTALS_36001155.Text = Val(SPA_36001155.Text) + Val(SAI_36001155.Text) + Val(SAA_36001155.Text) + Val(SAB_36001155.Text) + Val(SSA_36001155.Text)

    End Sub

    Private Sub SAA_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAA_36001155.TextChanged

        Masnur(NAA_336001155, SAA_36001155, NXSAA_36001155)

        NXSAA_36001155.Text = Val(NAA_336001155.Text) * Val(SAA_36001155.Text)

        TOTALS_36001155.Text = Val(SPA_36001155.Text) + Val(SAI_36001155.Text) + Val(SAA_36001155.Text) + Val(SAB_36001155.Text) + Val(SSA_36001155.Text)

    End Sub

    Private Sub SAB_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAB_36001155.TextChanged

        Masnur(NAB_336001155, SAB_36001155, NXSAB_336001155)

        NXSAB_336001155.Text = Val(NAB_336001155.Text) * Val(SAB_36001155.Text)

        TOTALS_36001155.Text = Val(SPA_36001155.Text) + Val(SAI_36001155.Text) + Val(SAA_36001155.Text) + Val(SAB_36001155.Text) + Val(SSA_36001155.Text)

    End Sub

    Private Sub SSA_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SSA_36001155.TextChanged

        Masnur(NSA_36001155, SSA_36001155, NXSSA_36001155)

        NXSSA_36001155.Text = Val(NSA_36001155.Text) * Val(SSA_36001155.Text)

        TOTALS_36001155.Text = Val(SPA_36001155.Text) + Val(SAI_36001155.Text) + Val(SAA_36001155.Text) + Val(SAB_36001155.Text) + Val(SSA_36001155.Text)

    End Sub

    Private Sub NXSPA_360011155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NXSPA_36001155.TextChanged, NXSAI_36001155.TextChanged, NXSAA_36001155.TextChanged, NXSAB_336001155.TextChanged, NXSSA_36001155.TextChanged

        TOTALNXS_36001155.Text = Val(NXSPA_36001155.Text) + Val(NXSAI_36001155.Text) + Val(NXSAA_36001155.Text) + Val(NXSAB_336001155.Text) + Val(NXSSA_36001155.Text)

    End Sub

    Private Sub TOTALS_36001155_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TOTALS_36001155.TextChanged, TOTALNXS_36001155.TextChanged

        IPK_36001155.Text = Val(TOTALNXS_36001155.Text) / Val(TOTALS_36001155.Text)

    End Sub

End Class