Latihan_11_46110027

Deskripsi from

 Object Label

Pada form latihan 11 ini Terdapat 14 label (Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu (N), SKS (S), NxS, Pengantar Akuntansi, Akuntansi intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

Object Textbox

Pada form ini terdapat 20 textbox(12 status input, 8 berstatus read only).Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Pada form ini terdapat 20 textbox(12 status input, 8 berstatus read only).Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Script Unique 

Terdapat Script unik pada form ini yaitu

Private Sub rsty(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

script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Untuk menjalankan call prosedur yang telah dibuat:

Private Sub sks1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_46110027.TextChanged

        rsty(nm1_46110027, sks1_46110027, ns1_46110027)

        totsks()

        totha()

        ipk()

End Sub

Even

TextChanged.

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 11

1.  Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

                                                                                                                                                                      

2.  Ketik nama latihan_11  yang akan dibuat pada kotak “NAME” lalu pilih “add”

3.  Buatlah desain seperti berikut menggunakan toolbox

4.  Pilih menu “view” klik  “code”

                                                                                                                                                                                         

5.  Masukkan rumus berikut:

Public Class Latihan_11_46110027

    Private Sub rsty(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 sks1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_46110027.TextChanged

        rsty(nm1_46110027, sks1_46110027, ns1_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks2_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks2_46110027.TextChanged

        rsty(nm2_46110027, sks2_46110027, ns2_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks3_46110027.TextChanged

        rsty(nm3_46110027, sks3_46110027, ns3_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks4_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks4_46110027.TextChanged

        rsty(nm4_46110027, sks4_46110027, ns4_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks5_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks5_46110027.TextChanged

        rsty(nm5_46110027, sks5_46110027, ns5_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub totsks()

        tot_46110027.Text = Val(sks1_46110027.Text) + Val(sks2_46110027.Text) + Val(sks3_46110027.Text) + Val(sks4_46110027.Text) + Val(sks5_46110027.Text)

    End Sub

    Private Sub totha()

        tot1_46110027.Text = Val(nm1_46110027.Text) + Val(nm2_46110027.Text) + Val(nm3_46110027.Text) + Val(nm4_46110027.Text) + Val(nm5_46110027.Text)

    End Sub

    Private Sub ipk()

        ipk_46110027.Text = Val(tot_46110027.Text) / Val(tot1_46110027.Text)

    End Sub

End Class

Langkah – Langkah Menjalankan Form 11

    1.    Klik start debugging.

2.    Isi text box yang berstatus input

3.     Secara otomatis hasil akan muncul pada textbox yang berstatus read only.