Latihan 11 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_11_36110051 :

1.                          Object Label

Terdapat empat belas 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).

2.                          Object Textbox

Terdapat dua puluh textbox (dua belas status input; delapan status read only). Status input digunakan untuk memasukkan stambuk, nama, nilai mutu dan sks dari setiap matakuliah yang telah dituliskan pada label. Status Read Only digunakan untuk menampilkan hasil dari perkalian nilai mutu dan sks, total sks, dan IPK.

3.                         Object Button

Terdapat satu object button (Kosongkan). Button Kosongkan digunakan untuk mengosongkan kembali semua TextBox.

B.     Script Unique

Untuk button Kosongkan:

      KOSONG_36110051_Click

C.     Even

KOSONG_36110051_Click

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

MELISSA2(ByVal S As TextBox)

N136110051_TextChanged

D.    Property

Property TextBox ==> ReadOnly=True

PROSEDUR :

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan object label dengan menggunakan nama:

a.         “Stambuk”

b.        “Nama”

c.         “N x S”

d.        “SKS (S)”

e.         “Nilai Mutu (N)”

f.         “Mata Kuliah”

g.        “Pengantar Akuntansi”

h.        “Akuntansi Intermediete”

i.          “Akuntansi Advance”

j.          “Akuntansi Biaya”

k.        “Sistem Akuntansi”

l.          “Total”

m.      “IPK”

n.        “INDEKS PRESTASI KOMULATIF”

7.       Buat kolom sesuai dengan design pada latihan 11 dengan menggunakan object textbox, kolom sebanyak 20 dengan nama :

1.      S136110051

2.      S236110051

3.      S336110051

4.      S436110051

5.      S536110051

6.      TS36110051

7.      NS136110051

8.      NS236110051

9.      NS336110051

10.        NS436110051

11.        NS536110051

12.        TNS36110051

13.        N136110051

14.        N236110051

15.        N336110051

16.        N436110051

17.        N536110051

18.        IPK336110051

19.        Textbox136110051

20.        Textbox236110051

8.      Buat tombol dengan menggunakan objek Button bernama :

KOSONG_36110051 yang berisikan teks “KOSONG”

9.      Setelah itu masuk ke lembar “Vb”, dan ketik script :

Public Class Latihan_11_36110051

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

        TS36110051.Text = Val(S136110051.Text) + Val(S136110051.Text) + Val(S336110051.Text) + Val(S436110051.Text) + Val(S536110051.Text)

        TNS36110051.Text = Val(NS136110051.Text) + Val(NS236110051.Text) + Val(NS336110051.Text) + Val(NS436110051.Text) + Val(NS536110051.Text)

        IPK36110051.Text = Val(TNS36110051.Text) / Val(TS36110051.Text)

    End Sub

    Private Sub N136110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N136110051.TextChanged, S136110051.TextChanged

        MELISSA1(N136110051, S136110051, NS136110051)

        MELISSA2(S136110051)

    End Sub

    Private Sub N236110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N236110051.TextChanged, S236110051.TextChanged

        MELISSA1(N236110051, S236110051, NS236110051)

        MELISSA2(S236110051)

    End Sub

    Private Sub N336110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N336110051.TextChanged, S336110051.TextChanged

        MELISSA1(N336110051, S336110051, NS336110051)

        MELISSA2(S336110051)

    End Sub

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

        MELISSA1(N436110051, S436110051, NS436110051)

        MELISSA2(S436110051)

    End Sub

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

        MELISSA1(N536110051, S536110051, NS536110051)

        MELISSA2(S536110051)

    End Sub

End Class

Private Sub KOSONG_36110051_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG_36110051.Click

        Textbox136110051.Text = ""

        Textbox236110051.Text = ""

        N136110051.Text = ""

        N236110051.Text = ""

        N336110051.Text = ""

        N436110051.Text = ""

        N536110051.Text = ""

        S1136110051.Text = ""

        S236110051.Text = ""

        S336110051.Text = ""

        S436110051.Text = ""

        S536110051.Text = ""

        NS136110051.Text = ""

        NS236110051.Text = ""

        NS336110051.Text = ""

        NS436110051.Text = ""

        NS536110051.Text = ""

        TS36110051.Text = ""

        TNS36110051.Text = ""

        IPK36110051.Text = ""

10.  Uji program dengan mengklik “Start Debbuging” dan simpan program dengan mengklik “Save”.