latihan_11_46110023

pada form latihan 11 terdapat dua object yaitu label dan textbox

object label
Dalam form latihan ini terdapat 14 buah label. Label-label tersebut bertuliskan indeks prestasi kumulatif, nama, stambuk, mata kuliah, pengantar akuntansi, akuntansi intermedite, akuntansi advance, akuntansi biaya, sistem akuntansi, total, ipk,nilai mutu, sks, n x s.

object textbox

Selain Object Label, dalam form ini terdapat 20 buah textbox ( 12 status input dan 8 status read only ) status input digunakan untuk memasukkan nilai pada pada textbox yang berada di bawah nilai mutu dan sks.Sedangkan status read only digunakan untuk menampilkan hasil perhitungan nilai mutu dan sks, perhitungan total sks yang diikuti, perhitungan total perkalian nilai mutu dan sks, dan perhitungan ipk.

Script Unique :

Dalam form ini tidak terdapat script unik karena script yang digunakan sama dengan script-script yang ada pada latihan sebelumnya

Even :

TextChanged

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah penyelesaian form latihan 11:

1. Buat design seperti gambar di bawah ini:

2. Textbox yang berwarna putih menunjukkan textbox tresebut berstatus input sedangkan yang berwarna gelap itu berstatus read only. Beri nama setiap object yang ada kecuali object label. Setelah itu buat script seperti dibawah ini:

Public Class LATIHAN_11_46110023
    Private Sub konfersi(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 PAS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAS_46110023.TextChanged
        konfersi(PAN_46110023, PAS_46110023, PAH_46110023)
        TOS()
        TOH()
        IPK()
    End Sub

    Private Sub AIS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AIS_46110023.TextChanged
        konfersi(AIN_46110023, AIS_46110023, AIH_46110023)
        tOS()
        toH()
        ipk()
    End Sub

    Private Sub AAS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AAS_46110023.TextChanged
        konfersi(AAN_46110023, AAS_46110023, AAH_46110023)
        tOS()
        toH()
        ipk()
    End Sub

    Private Sub ABS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABS_46110023.TextChanged
        konfersi(ABN_46110023, ABS_46110023, ABH_46110023)
        tOS()
        toH()
        ipk()
    End Sub

    Private Sub SAS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAS_46110023.TextChanged
        konfersi(SAN_46110023, SAS_46110023, SAH_46110023)
        tOS()
        toH()
        ipk()
    End Sub
    

Private Sub tOS()
        TOS_46110023.Text = Val(PAS_46110023.Text) + Val(AIS_46110023.Text) + Val(AAS_46110023.Text) + Val(ABS_46110023.Text) + Val(SAS_46110023.Text)
    End Sub
    Private Sub tOH()
        TOH_46110023.Text = Val(PAH_46110023.Text) + Val(AIH_46110023.Text) + Val(AAH_46110023.Text) + Val(ABH_46110023.Text) + Val(SAH_46110023.Text)
    End Sub
    Private Sub IPK()
        IPK_46110023.Text = Val(TOH_46110023.Text) / Val(TOS_46110023.Text)

    End Sub
End Class

3.Untuk menjalankan script diatas, masukkan nama dan stambuk anda lalu masukkan nilai mutu dan sks yang diikuti pada setiap mata kuliah maka program akan menghitung secara otomatis indeks prestasi kumulatif anda.