Latihan_11_46110002

Object Label

Terdapat 14 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).

Object Textbox

Terdapat 20 textbox (12 status input; 8 status read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil dari fungsi yang telah dibuat.

Script Unique

Private Sub parameter(ByVal NILAI As TextBox, ByVal SKS As TextBox, ByVal HASIL As TextBox)

        If NILAI.Text = "A" Then

            HASIL.Text = 4 * Val(SKS.Text)

        ElseIf NILAI.Text = "B" Then

            HASIL.Text = 3 * Val(SKS.Text)

        ElseIf NILAI.Text = "C" Then

            HASIL.Text = 2 * Val(SKS.Text)

        ElseIf NILAI.Text = "D" Then

            HASIL.Text = 1 * Val(SKS.Text)

        Else

            HASIL.Text = 0

        End If

    End Sub

Even

TextChanged

Property

Property TextBox ==> ReadOnly=True

2. Cara membuat From

a.       Klik Start lalu pilih Microsoft Visual Studio 2008

b.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

c.       Lalu pilih Project dan pilih add windows from

d.       Kemudian buat form dan add

e.      Buat desain seperti dibawah ini dgn menggunakan toolbox

f.       Berikut ini adalah rumus untuk menjalankan form di atas

 Public Class Latihan_11_46110002
    Private Sub parameter(ByVal NILAI As TextBox, ByVal SKS As TextBox, ByVal HASIL As TextBox)
        If NILAI.Text = "A" Then
            HASIL.Text = 4 * Val(SKS.Text)
        ElseIf NILAI.Text = "B" Then
            HASIL.Text = 3 * Val(SKS.Text)
        ElseIf NILAI.Text = "C" Then
            HASIL.Text = 2 * Val(SKS.Text)
        ElseIf NILAI.Text = "D" Then
            HASIL.Text = 1 * Val(SKS.Text)
        Else
            HASIL.Text = 0
        End If
    End Sub
    Private Sub TOTAL()
        TS_46110002.Text = Val(S1_46110002.Text) + Val(S2_46110002.Text) + Val(S3_46110002.Text) + Val(S4_46110002.Text) + Val(S5_46110002.Text)
        TSNS_46110002.Text = Val(NS1_46110002.Text) + Val(NS2_46110002.Text) + Val(NS3_46110002.Text) + Val(NS4_46110002.Text) + Val(NS5_46110002.Text)
        IPK_46110002.Text = Val(TSNS_46110002.Text) / Val(TS_46110002.Text)
    End Sub
    Private Sub S1_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1_46110002.TextChanged
        parameter(N1_46110002, S1_46110002, NS1_46110002)
        TOTAL()
    End Sub

    Private Sub S2_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S2_46110002.TextChanged
        parameter(N2_46110002, S2_46110002, NS2_46110002)
        TOTAL()
    End Sub

    Private Sub S3_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S3_46110002.TextChanged
        parameter(N3_46110002, S3_46110002, NS3_46110002)
        TOTAL()
    End Sub

    Private Sub S4_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S4_46110002.TextChanged
        parameter(N4_46110002, S4_46110002, NS4_46110002)
        TOTAL()
    End Sub

    Private Sub S5_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S5_46110002.TextChanged
        parameter(N5_46110002, S5_46110002, NS5_46110002)
        TOTAL()
    End Sub

End Class

Langkah untuk menjalankan from

1. Klik start debugging
2. Isi text box yang berstatus input sesuai dengan angka dan data yang dipilih 
3. Klik tombol analisa maka hasil akan muncul