diskripsi dan prosedur latihan 11

DISKRIPSI LATIHAN 11

Latihan_11_36110030

Terdapat empat belas 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).

Terdapat dua puluh textbox (dua belas status input; delapan status read only). Status input digunakan untuk memasukkan stambuk, nama, nilai mutu dan sks dari setiap matakuliah yang telah dituliskan pada label. Status Read Only digunakan untuk menampilkan hasil dari perkalian nilai mutu dan sks, total sks, dan IPK.

Terdapat satu object button (Kosongkan). Button Kosongkan digunakan untuk mengosongkan kembali semua TextBox.

Untuk button Kosongkan:

STAMBUK_36110030.Text = ""

Property TextBox ==> ReadOnly=True

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class LATIHAN_11_36110030

    Private Sub YHUYA(ByVal X As TextBox, ByVal Y As TextBox, ByVal Z As TextBox)
        If X.Text = "A" Then
            Z.Text = 4 * Val(Y.Text)
        ElseIf X.Text = "B" Then
            Z.Text = 3 * Val(Y.Text)
        ElseIf X.Text = "C" Then
            Z.Text = 2 * Val(Y.Text)
        ElseIf X.Text = "D" Then
            Z.Text = 1 * Val(Y.Text)
        Else
            Z.Text = ""
        End If
    End Sub

    Private Sub SPA_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SPA_36110030.TextChanged
        YHUYA(NPA_36110030, SPA_36110030, HPA_36110030)
        TOTAL_36110030.Text = Val(SPA_36110030.Text) + Val(SAI_36110030.Text) + Val(SAD_36110030.Text) + Val(SAB_36110030.Text) + Val(SSA_36110030.Text)
    End Sub

    Private Sub SAI_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAI_36110030.TextChanged
        YHUYA(NAI_36110030, SAI_36110030, HAI_36110030)
        TOTAL_36110030.Text = Val(SPA_36110030.Text) + Val(SAI_36110030.Text) + Val(SSA_36110030.Text) + Val(SAB_36110030.Text) + Val(SSA_36110030.Text)
    End Sub

    Private Sub SAD_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAD_36110030.TextChanged
        YHUYA(NAD_36110030, SAD_36110030, HAD_36110030)
        TOTAL_36110030.Text = Val(SAD_36110030.Text) + Val(SAI_36110030.Text) + Val(SAD_36110030.Text) + Val(SAB_36110030.Text) + Val(SSA_36110030.Text)
    End Sub

    Private Sub SAB_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SAB_36110030.TextChanged
        YHUYA(NAB_36110030, SAB_36110030, HAB_36110030)
        TOTAL_36110030.Text = Val(SPA_36110030.Text) + Val(SAI_36110030.Text) + Val(SAD_36110030.Text) + Val(SAB_36110030.Text) + Val(SSA_36110030.Text)
    End Sub

    Private Sub SSA_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SSA_36110030.TextChanged
        YHUYA(NSA_36110030, SSA_36110030, HSA_36110030)
        TOTAL_36110030.Text = Val(SPA_36110030.Text) + Val(SAI_36110030.Text) + Val(SAD_36110030.Text) + Val(SAB_36110030.Text) + Val(SSA_36110030.Text)
        BH_36110030.Text = Val(HPA_36110030.Text) + Val(HAB_36110030.Text) + Val(HAD_36110030.Text) + Val(HAI_36110030.Text) + Val(HSA_36110030.Text)
    End Sub

    Private Sub HPA_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HPA_36110030.TextChanged, HAI_36110030.TextChanged
        TOTAL_36110030.Text = Val(HPA_36110030.Text) + Val(HAI_36110030.Text) + Val(HAD_36110030.Text) + Val(HAB_36110030.Text) + Val(HSA_36110030.Text)
    End Sub

    Private Sub BH_36110030_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BH_36110030.TextChanged
        IPK_36110030.Text = Val(BH_36110030.Text) / Val(TOTAL_36110030.Text)
    End Sub

    Private Sub LATIHAN_11_36110030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

6. KEMUDIAN UJI PROGRAM 

7. JIKA SUDAH BERHASIL Save program anda

8. selesai