Deskripsi Penyelesaian Latihan_11_36110041

Deskripsi Penyelesaian

Latihan_11_36110041

A.     Form Latihan_11  terdapat tiga object yaitu Label, Textbox, dan Button:

Ø  Object Label

Terdapat  empat belas  label (yang bertuliskan; Indeks Prestasi Kumulatif, Stambuk, Nama, Nilai (n), SKS (s), NxS, Mata Kuliah, Pengantar Akuntansi, Akuntansi Intermediete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

Ø  Object Text Box

Terdapat dua puluh textbox (dua belas status input dan delapan status read only). Status input digunakan untuk memasukkan data Nama, Stambuk, Nilai dan SKS Dari setiap Mata Kuliah (Pengantar Akuntansi, Akuntansi Intermediete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi). Status Read Only digunakan untuk menampilkan hasil perhitungan Total SKS, Total NxS dan IPK.

B.     Even

RIZKA(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)

N1_36110041_TextChanged

N2_36110041_TextChanged

N3_36110041_TextChanged

N4_36110041_TextChanged

N5_36110041_TextChanged

C.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

 

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_11_36110041

    Private Sub RIZKA(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 RIZKA2(ByVal S As TextBox)

        STOT_36110041.Text = Val(S1_36110041.Text) + Val(S2_36110041.Text) + Val(S3_36110041.Text) + Val(S4_36110041.Text) + Val(S5_36110041.Text)

        NSTOT_36110041.Text = Val(NS1_36110041.Text) + Val(NS2_36110041.Text) + Val(NS3_36110041.Text) + Val(NS4_36110041.Text) + Val(NS5_36110041.Text)

        IPK_36110041.Text = Val(NSTOT_36110041.Text) / Val(STOT_36110041.Text)

    End Sub

    Private Sub N1_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N1_36110041.TextChanged

        RIZKA(N1_36110041, S1_36110041, NS1_36110041)

        RIZKA2(S2_36110041)

    End Sub

   

    Private Sub N2_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N2_36110041.TextChanged

        RIZKA(N2_36110041, S2_36110041, NS2_36110041)

        RIZKA2(S2_36110041)

    End Sub

    Private Sub N3_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N3_36110041.TextChanged

        RIZKA(N3_36110041, S3_36110041, NS3_36110041)

        RIZKA2(S3_36110041)

    End Sub

    Private Sub N4_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N4_36110041.TextChanged

        RIZKA(N4_36110041, S4_36110041, NS4_36110041)

        RIZKA2(S4_36110041)

    End Sub

    Private Sub N5_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N5_36110041.TextChanged

        RIZKA(N5_36110041, S5_36110041, NS5_36110041)

        RIZKA2(S5_36110041)

    End Sub

End Class