Latihan_11_46110038

Deskripsi Form Latihan_11_46110038:

Form Latihan_11_46110038 terdapat dua object yaitu label dan textbox.

Object Label

Di Latihan_11_46110038 ada 14 label yang berisi teks Indeks Prestasi Kumulatif, Stambuk, Nama, Mata Kuliah, Pengantar Akuntansi, Akuntansi Intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK, Nilai Mutu(N), SKS(S), dan N*S.

Object Text Box

Di Latihan_11_46110038 ada 20 textbox, 12 status input, 8 berstatus read only. Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil  dari fungsi yang telah di kerjakan.

Script Unique

Private Sub aku(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox) digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Akan tetapi kali ini menggunakan prosedure yg dilengkapi dgn parameter. A, B, dan C nama variabel yg bukan objeck dalam form.

Even

Textchanged

Property

Property TextBox =>ReadOnly=True

Cara Membuat Form Latihan_11_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_11_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_11_46110038

    Private Sub aku(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)

        If A.Text = "A" Then

            C.Text = Val(B.Text) * 4

        ElseIf A.Text = "B" Then

            C.Text = Val(B.Text) * 3

        ElseIf A.Text = "C" Then

            C.Text = Val(B.Text) * 2

        ElseIf A.Text = "D" Then

            C.Text = Val(B.Text) * 1

        ElseIf A.Text = "E" Then

            C.Text = Val(B.Text) * 0

        Else : MsgBox("NILAI MUTU TIDAK ADA")

        End If

    End Sub

    Private Sub TOTAL()

        s646110038.Text = Val(s146110038.Text) + Val(s246110038.Text) + Val(s346110038.Text) + Val(s446110038.Text) + Val(s546110038.Text)

        e646110038.Text = Val(e146110038.Text) + Val(e246110038.Text) + Val(e346110038.Text) + Val(e446110038.Text) + Val(e546110038.Text)

        e746110038.Text = e646110038.Text / s646110038.Text

    End Sub

    Private Sub s146110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s146110038.TextChanged

        aku(n146110038, s146110038, e146110038)

        TOTAL()

    End Sub

    Private Sub s446110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s446110038.TextChanged

        aku(n246110038, s246110038, e246110038)

        TOTAL()

    End Sub

    Private Sub s346110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s346110038.TextChanged

        aku(n346110038, s346110038, e346110038)

        TOTAL()

    End Sub

    Private Sub s246110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s246110038.TextChanged

        aku(n446110038, s446110038, e446110038)

        TOTAL()

    End Sub

    Private Sub s546110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s546110038.TextChanged

        aku(n546110038, s546110038, e546110038)

    End Sub

End Class

Langkah untuk menjalankan Latihan_11_46110038:

1.    Klik start debugging.

2.    Isi text box yang berstatus input.

3.  Hasil akan muncul secara otomatis pada total, IPK, dan N*S setelah menginput.