Latihan_11_36110038

Deskripsi Latihan_11_36110038

Form Latihan_11 terdapat dua object yaitu Label dan Textbox:

Object Label

Terdapat empat belas label (yang bertuliskan Indeks Prestasi Komulatif; Stambuk; Nama; Mata Kuliah; Nilai Mutu (N); SKS (S); N X S; Pengantar Akuntansi; Akuntansi Intermediete; Akuntansi Advance; Akuntansi Biaya; Sistem Akuntansi; Total dan IPK)

Object Text Box

Terdapat dua puluh textbox (dua belas status input dan delapan status read only). Status input digunakan untuk memasukkan nilai/text Stambuk; Nama; Mata Kuliah; nilai mutu dan SKS Pengantar Akuntansi; nilai mutu dan SKS Akuntansi Intermediete; nilai mutu dan SKS Akuntansi Advance; nilai mutu dan SKS Akuntansi Biaya; nilai mutu dan SKS Sistem Akuntansi. Status Read Only digunakan untuk menampilkan hasil perhitungan N X S; Total N X S; total SKS dan IPK. Dengan menggunakan rumus IPK = total (n x s) / total sks.

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_11_36110038 sesuai form dibawah ini.

4.      Ganti nama textbox dan button menggunakan "Properties Window" sesuai dengan yang diinginkan.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_11

Public Class Latihan_11_36110038

    Private Sub widhe1(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)

        If N.Text = "A" Then

            NS.Text = 4 * Val(S.Text)

        ElseIf N.Text = "B" Then

            NS.Text = 3 * Val(S.Text)

        ElseIf N.Text = "C" Then

            NS.Text = 2 * Val(S.Text)

        ElseIf N.Text = "D" Then

            NS.Text = 1 * Val(S.Text)

        End If

    End Sub

    Private Sub widhe2(ByVal S As TextBox)

        TS_36110038.Text = Val(S1_36110038.Text) + Val(S2_36110038.Text) + Val(S3_36110038.Text) + Val(S4_36110038.Text) + Val(S5_36110038.Text)

        TNS_36110038.Text = Val(NS1_36110038.Text) + Val(NS2_36110038.Text) + Val(NS3_36110038.Text) + Val(NS4_36110038.Text) + Val(NS5_36110038.Text)

        IPK_36110038.Text = Val(TNS_36110038.Text) / Val(TS_36110038.Text)

    End Sub

    Private Sub N1_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N1_36110038.TextChanged, S1_36110038.TextChanged

        widhe1(N1_36110038, S1_36110038, NS1_36110038)

        widhe2(S1_36110038)

    End Sub

    Private Sub N2_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N2_36110038.TextChanged, S2_36110038.TextChanged

        widhe1(N2_36110038, S2_36110038, NS2_36110038)

        widhe2(S2_36110038)

    End Sub

    Private Sub N3_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N3_36110038.TextChanged, S3_36110038.TextChanged

        widhe1(N3_36110038, S3_36110038, NS3_36110038)

        widhe2(S3_36110038)

    End Sub

    Private Sub N4_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N4_36110038.TextChanged, S4_36110038.TextChanged

        widhe1(N4_36110038, S4_36110038, NS4_36110038)

        widhe2(S4_36110038)

    End Sub

    Private Sub N5_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N5_36110038.TextChanged, S5_36110038.TextChanged

        widhe1(N5_36110038, S5_36110038, NS5_36110038)

        widhe2(S5_36110038)

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.