latihan_11_46110004

Deskripsi form latihan 11
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 sbb:

Public Class latihan_11_46110004
    Private Sub sulhi(ByVal n As TextBox, ByVal s As TextBox, ByVal ns As TextBox)
        If n.Text = "A" Or n.Text = "a" Then
            ns.Text = 4 * Val(s.Text)
        ElseIf n.Text = "B" Or n.Text = "b" Then
            ns.Text = 3 * Val(s.Text)
        ElseIf n.Text = "C" Or n.Text = "c" Then
            ns.Text = 2 * Val(s.Text)
        ElseIf n.Text = "D" Or n.Text = "d" Then
            ns.Text = 1 * Val(s.Text)
        ElseIf n.Text = "E" Or n.Text = "e" Then
            ns.Text = 0

        End If
    End Sub

    Private Sub yuhu()
        ts_46110004.Text = Val(pas_46110004.Text) + Val(ais_46110004.Text) + Val(aas_46110004.Text) + Val(abs_46110004.Text) + Val(sas_46110004.Text)
        toj_46110004.Text = Val(paj_46110004.Text) + Val(aij_46110004.Text) + Val(aaj_46110004.Text) + Val(abj_46110004.Text) + Val(saj_46110004.Text)
        ipk_46110004.Text = Val(toj_46110004.Text) / Val(ts_46110004.Text)
    End Sub


    Private Sub pas_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pas_46110004.TextChanged
        sulhi(pan_46110004, pas_46110004, paj_46110004)
        yuhu()

    End Sub

    Private Sub aas_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles aas_46110004.TextChanged
        sulhi(aan_46110004, aas_46110004, aaj_46110004)
        yuhu()

    End Sub

    Private Sub ais_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ais_46110004.TextChanged
        sulhi(ain_46110004, ais_46110004, aij_46110004)
        yuhu()

    End Sub

    Private Sub abs_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles abs_46110004.TextChanged
        sulhi(abn_46110004, abs_46110004, abj_46110004)
        yuhu()
    End Sub

    Private Sub sas_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles sas_46110004.TextChanged
        sulhi(san_46110004, sas_46110004, saj_46110004)
        yuhu()
    End Sub

    Private Sub pan_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pan_46110004.TextChanged
        sulhi(pan_46110004, pas_46110004, paj_46110004)
        yuhu()
    End Sub

    Private Sub aan_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles aan_46110004.TextChanged
        sulhi(aan_46110004, aas_46110004, aaj_46110004)
        yuhu()
    End Sub

    Private Sub ain_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ain_46110004.TextChanged
        sulhi(ain_46110004, ais_46110004, aij_46110004)
        yuhu()
    End Sub

    Private Sub abn_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles abn_46110004.TextChanged
        sulhi(abn_46110004, abs_46110004, abj_46110004)
        yuhu()
    End Sub

    Private Sub san_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles san_46110004.TextChanged
        sulhi(san_46110004, sas_46110004, saj_46110004)
        yuhu()
    End Sub
End Class

3.Untuk menjalankan script di atas klik kanan pada nama project  anda lalu klik properties, setelah itu pilih form latihan 11 pada startup form. kemudian klik tombol play. Setelah itu 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.