LATIHAN_11_36110042

Deskripsi Latihan_11_36110042

A.   Object-object dalam Latihan_11_36110042 :

1.   Object Label

Terdapat empat belas label yang bertuliskan:

a.    indeks prestasi komulatif

b.    stambuk

c.     nama

d.    mata kuliah

e.    nilai mutu

f.     sks

g.     NxS

h.     pengantar akuntansi

i.     akuntansi intermediate

j.     akuntansi advance

k.     akuntansi biaya

l.     sistem akuntansi

m.    total

n.    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 Kosong:

KOSONG_36110042_Click

C.   Even

KOSONG_36110048_Click

RARA(ByVal X As TextBox, ByVal Y As TextBox, ByVal Z As TextBox)

SPA_36110042_TextChanged

STOTAL_36110042_TextChanged

D.   Property

Property TextBox è ReadOnly = True

Langkah-Langkah Latihan_11-36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_11_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_11_36110042

    Private Sub RARA(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 SPA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SPA_36110042.TextChanged

        RARA(NPA_36110042, SPA_36110042, NSPA_36110042)

        STOTAL_36110042.Text = Val(SPA_36110042.Text) + Val(SAI_36110042.Text) + Val(SSA_36110042.Text) + Val(SAB_36110042.Text) + Val(SAA_36110042.Text)

    End Sub

    Private Sub SAI_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAI_36110042.TextChanged

        RARA(NAI_36110042, SAI_36110042, NSAI_36110042)

        STOTAL_36110042.Text = Val(SPA_36110042.Text) + Val(SAI_36110042.Text) + Val(SSA_36110042.Text) + Val(SAB_36110042.Text) + Val(SAA_36110042.Text)

    End Sub

    Private Sub SAA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAA_36110042.TextChanged

        RARA(NAA_36110042, SAA_36110042, NSAA_36110042)

        STOTAL_36110042.Text = Val(SPA_36110042.Text) + Val(SAI_36110042.Text) + Val(SSA_36110042.Text) + Val(SAB_36110042.Text) + Val(SAA_36110042.Text)

    End Sub

    Private Sub SAB_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAB_36110042.TextChanged

        RARA(NAB_36110042, SAB_36110042, NSAB_36110042)

        STOTAL_36110042.Text = Val(SPA_36110042.Text) + Val(SAI_36110042.Text) + Val(SSA_36110042.Text) + Val(SAB_36110042.Text) + Val(SAA_36110042.Text)

    End Sub

    Private Sub SSA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SSA_36110042.TextChanged

        RARA(NSA_36110042, SSA_36110042, NSSA_36110042)

        STOTAL_36110042.Text = Val(SPA_36110042.Text) + Val(SAI_36110042.Text) + Val(SSA_36110042.Text) + Val(SAB_36110042.Text) + Val(SAA_36110042.Text)

    End Sub

    Private Sub NSPA_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NSPA_36110042.TextChanged, NSAI_36110042.TextChanged, NSAA_36110042.TextChanged, NSAB_36110042.TextChanged, NSSA_36110042.TextChanged

        NSTOTAL_36110042.Text = Val(NSPA_36110042.Text) + Val(NSAI_36110042.Text) + Val(NSAA_36110042.Text) + Val(NSAB_36110042.Text) + Val(NSSA_36110042.Text)

    End Sub

    Private Sub STOTAL_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STOTAL_36110042.TextChanged, NSTOTAL_36110042.TextChanged

        IPK_36110042.Text = Val(NSTOTAL_36110042.Text) / Val(STOTAL_36110042.Text)

    End Sub

    Private Sub KOSONG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG_36110042.Click

        STAMBUK_36110042.Text = ""

        NAMA_36110042.Text = ""

        NPA_36110042.Text = ""

        NAI_36110042.Text = ""

        NAA_36110042.Text = ""

        NAB_36110042.Text = ""

        NSA_36110042.Text = ""

        SPA_36110042.Text = ""

        SAI_36110042.Text = ""

        SAA_36110042.Text = ""

        SAB_36110042.Text = ""

        SSA_36110042.Text = ""

        NSAI_36110042.Text = ""

        NSPA_36110042.Text = ""

        NSAA_36110042.Text = ""

        NSAB_36110042.Text = ""

        NSSA_36110042.Text = ""

        STOTAL_36110042.Text = ""

        NSTOTAL_36110042.Text = ""

        IPK_36110042.Text = ""

    End Sub

End Class

   

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 11.