Latihan_11_36110034

Deskripsi penyelesaian

Form Latihan_11_36110034  terdapat tiga object yaitu Label dan Textbox:

Object Label

Terdapat empatbelas label (yang bertuliskan nama; stambuk; mata kuliah; nilai mutu(N); SKS(S); NxS(NS); pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi biaya; sistem akuntansi; total; IPK.)

Object Text Box

Terdapat duapuluh  textbox (duabelas status input; delapan status read only).

Status input digunakan untuk memasukkan data pada textbox (nama; stambuk; mata kuliah; pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi biaya; sistem akuntansi) yang berada di bawah lebel yang bertuliskan “nilai mutu(n); sks(s) .dan status readonly pada textbox yang berada di bawah lebel yang bertuliskan NxS; textbox total; textbox IPK, akan menampilkan hasil dari perkalian antara nilai mutu yang mempunyai kriteria tertentu dengan jumlah sks setiap mata kuliah yang di input.

Dalam penyelesaian program pada latihan ini digunakan prosedur pemanggilan rumus. Dengan perhitungan rumus sebagai berikut :

-           NxS = menampilkan hasil perkalian dari “Nilai mutu(N) & SKS(S)”. Yang mempunyai karakter A = 4; B = 3; C = 2; D = 1

-          Total SKS = penjumlahan nilai SKS pada setiap mata kuliah

-          Total NxS = hasil penjumlahan antara nilai sks dan kriteria nilai mutu yang telah di kali

-          IPK= hasil pembagian  antara total SKS dan total NxS

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_11_36110034.

Public Class latihan_11_36110034

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

        TS_36110034.Text = Val(S1_36110034.Text) + Val(S2_36110034.Text) + Val(S3_36110034.Text) + Val(S4_36110034.Text) + Val(S5_36110034.Text)

        TNS_36110034.Text = Val(NS1_36110034.Text) + Val(NS2_36110034.Text) + Val(NS3_36110034.Text) + Val(NS4_36110034.Text) + Val(NS5_36110034.Text)

        IPK_36110034.Text = Val(TNS_36110034.Text) / Val(TS_36110034.Text)

    End Sub

    Private Sub N1_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles N1_36110034.TextChanged, S1_36110034.TextChanged

        AW1(N1_36110034, S1_36110034, NS1_36110034)

        AW2(S1_36110034)

    End Sub

    Private Sub N2_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles N2_36110034.TextChanged, S2_36110034.TextChanged

        AW1(N2_36110034, S2_36110034, NS2_36110034)

        AW2(S2_36110034)

    End Sub

    Private Sub N3_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles N3_36110034.TextChanged, S3_36110034.TextChanged

        AW1(N3_36110034, S3_36110034, NS3_36110034)

        AW2(S3_36110034)

    End Sub

    Private Sub N4_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles N4_36110034.TextChanged, S4_36110034.TextChanged

        AW1(N4_36110034, S4_36110034, NS4_36110034)

        AW2(S4_36110034)

    End Sub

    Private Sub NS5_36110034_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NS5_36110034.TextChanged, S5_36110034.TextChanged

        AW1(N5_36110034, S5_36110034, NS5_36110034)

        AW2(S5_36110034)

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.