Latihan_11_36110029

v Deskripsi Latihan_11_36110029

Object Label

Terdapat 14 Label (yang bertuliskan Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu, SKS, NxS, Pengantar Akuntansi, Akuntansi Intermedit, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK).

Object TextBox

Terdapat 20 Textbox  (yang terdiri dari 12 textbox berstatus input, 8 textbox berstatus read only).

Object Button

Tidak terdapat object Button.

 

Script Unique

Private Sub S1_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S1_36110029.TextChanged

        Hana(N1_36110029, S1_36110029, NS1_36110029)

        NS1_36110029.Text = Val(N1_36110029.Text) * Val(S1_36110029.Text)

        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)

End Sub

Event

S1_36110029_TextChanged

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_11_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_11_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_11_36110029
    Private Sub Hana(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 S1_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S1_36110029.TextChanged
        Hana(N1_36110029, S1_36110029, NS1_36110029)
        NS1_36110029.Text = Val(N1_36110029.Text) * Val(S1_36110029.Text)
        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)
    End Sub

    Private Sub S2_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S2_36110029.TextChanged
        Hana(N2_36110029, S2_36110029, NS2_36110029)
        NS2_36110029.Text = Val(N2_36110029.Text) * Val(S2_36110029.Text)
        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)
    End Sub

    Private Sub S3_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S3_36110029.TextChanged
        Hana(N3_36110029, S3_36110029, NS3_36110029)
        NS3_36110029.Text = Val(N3_36110029.Text) * Val(S3_36110029.Text)
        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)
    End Sub

    Private Sub S4_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S4_36110029.TextChanged
        Hana(N4_36110029, S4_36110029, NS4_36110029)
        NS4_36110029.Text = Val(N4_36110029.Text) * Val(S4_36110029.Text)
        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)
    End Sub

    Private Sub S5_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S5_36110029.TextChanged
        Hana(N5_36110029, S5_36110029, NS5_36110029)
        NS5_36110029.Text = Val(N5_36110029.Text) * Val(S5_36110029.Text)
        TOTS_36110029.Text = Val(S1_36110029.Text) + Val(S2_36110029.Text) + Val(S3_36110029.Text) + Val(S4_36110029.Text) + Val(S5_36110029.Text)
    End Sub

    Private Sub NS1_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NS1_36110029.TextChanged, NS2_36110029.TextChanged, NS3_36110029.TextChanged, NS4_36110029.TextChanged, NS5_36110029.TextChanged
        TOTNS_36110029.Text = Val(NS1_36110029.Text) + Val(NS2_36110029.Text) + Val(NS3_36110029.Text) + Val(NS4_36110029.Text) + Val(NS5_36110029.Text)
    End Sub

    Private Sub TOTS_36110029_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TOTS_36110029.TextChanged, TOTNS_36110029.TextChanged
        IPK_36110029.Text = Val(TOTNS_36110029.Text) / Val(TOTS_36110029.Text)
    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.