Latihan_11_46110055

Deskripsi Latihan 11

Form Latihan 11 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 11 Terdapat 14 label yang bertuliskan 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 x S.

Object Text Box
pada form ini Terdapat juga Terdapat 20 textbox (12 status input dan 8 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
Private Sub TOTAL() ==> script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 11:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 11”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_11_46110055

    Private Sub feby(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
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub
    Private Sub TOTAL()
        totals46110055.Text = Val(s146110055.Text) + Val(s246110055.Text) + Val(s346110055.Text) + Val(s446110055.Text) + Val(s546110055.Text)
        totalns46110055.Text = Val(ns146110055.Text) + Val(ns246110055.Text) + Val(ns346110055.Text) + Val(ns446110055.Text) + Val(ns546110055.Text)
        ipk46110055.Text = totalns46110055.Text / totals46110055.Text
    End Sub

    Private Sub s146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s146110055.TextChanged
        feby(n146110055, s146110055, ns146110055)
        TOTAL()
    End Sub

    Private Sub s246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s246110055.TextChanged
        feby(n246110055, s246110055, ns246110055)
        TOTAL()
    End Sub

    Private Sub s346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s346110055.TextChanged
        feby(n346110055, s346110055, ns346110055)
        TOTAL()
    End Sub

    Private Sub s446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s446110055.TextChanged
        feby(n446110055, s446110055, ns446110055)
        TOTAL()

    End Sub

    Private Sub s546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s546110055.TextChanged
        feby(n546110055, s546110055, ns546110055)
        TOTAL()
    End Sub
End Class


Langkah - langkah menjalankan Latihan 11:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.