Latihan_11_46110043

Deskripsi Form

Pada form Latihan_11 ini kita dapat menemukan 2 object, yaitu:

Object Label dan Object TextBox

1. Object Label

    Pada form terdapat 14 label yang masing-masing bertuliskan à Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Pengantar Akuntansi, Akuntansi Intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK, Nilai Mutu [N], SKS [S], N X S)

2. Object Textbox

    Pada form terdapat 20 textbox 12 merupakan status input dan 8 diantaranya merupakan status ReadOnly. Status input pada form ini digunakan untuk menginput stambuk, nama, dan nilai mutu serta sks dari masing-masing mata kuliah. Status ReadOnly untuk menampilkan hasil analisa nilai mutu dikali sks, serta total dan IPK akhir. Rumus hasil konversi nilai mutu menjadi angka yang dikalikan SKS:

Misalkan:

A = "A" Then C = B * 4

A = "B" Then C = B * 3

A = "C" Then C = B * 2

A = "D" Then C = B * 1

A = "E" Then C = B * 0

Rumus perhitungan IPK :

IPK = (TOTAL N X S) / TOTAL SKS

Langkah-langkah menjalankan Form:

1. Masukkan data stambuk, nama, nilai mutu dan sks dari masing-masing mata kuliah pada form.

2. Setelah itu, secara otomatis akan ditampilkan hasil konversi nilai mutu dikali sks, total, dan IPK akhir.

Langkah-langkah Penyelesaian :

1. Pada Solution Explorer, klik kanan Kumpulan Latihan, pilih Add, New Item.

2. Pilih Windows Form, lalu ubah nama form menjadi Latihan_11_46110043 tanpa mengubah ekstension file (vb)

3. Gunakan toolbox untuk membuat Label dan Textbox, kemudian buat object sesuai dengan deskripsi form diatas.

4. Ubah object name textbox menjadi singkatan sesuai dengan keinginan dan disertai Nim pada akhit nama.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai. Pada Latihan 11 scriptnya seperti dibawah ini:

Public Class Latihan_11_46110043

    Private Sub NILAI(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
            C.Text = Val(B.Text) * 0
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub
    Private Sub TOTAL()
        total46110043.Text = Val(SPA46110043.Text) + Val(SAI46110043.Text) + Val(saa46110043.Text) + Val(sab46110043.Text) + Val(ssa46110043.Text)
        totalns46110043.Text = Val(nspa46110043.Text) + Val(nsai46110043.Text) + Val(nsaa46110043.Text) + Val(nsab46110043.Text) + Val(nssa46110043.Text)
        ipk46110043.Text = totalns46110043.Text / total46110043.Text
    End Sub

    Private Sub spa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spa46110043.TextChanged
        NILAI(npa46110043, spa46110043, nspa46110043)
        total()
    End Sub

    Private Sub sai46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sai46110043.TextChanged
        NILAI(nai46110043, sai46110043, nsai46110043)
        total()
    End Sub

    Private Sub saa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saa46110043.TextChanged
        hani(naa46110043, saa46110043, nsaa46110043)
        total()
    End Sub

    Private Sub sab46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sab46110043.TextChanged
        NILAI(NAB46110044, sab46110043, nsab46110043)
        total()
    End Sub

    Private Sub ssa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ssa46110043.TextChanged
        NILAI(nsa46110043, ssa46110043, nssa46110043)
        total()
    End Sub
End Class

6. Klik simbol 'Start Debugging' untuk mulai menjalankan form.

Script Unique

 Private Sub NILAI()
        hasil346110043.Text = angka1_46110043.Text * angka2_46110043.Text

Private Sub hitung1_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_46110043.Click
        hasil1_46110043.Text = Val(angka1_46110043.Text) + Val(angka2_46110043.Text)
        hasil2_46110043.Text = Val(angka2_46110043.Text) + Val(angka3_46110043.Text)
        hasil4_46110043.Text = Val(angka3_46110043.Text) + Val(angka4_46110043.Text)
        hasil5_46110043.Text = Val(angka4_46110043.Text) + Val(angka5_46110043.Text)
        NILAI()
    End Sub

Script Unique

Private Sub NILAI(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
            C.Text = Val(B.Text) * 0
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub

script tersebut merupakan fungsi prosedur yang menggunakan rumus untuk meng-konversi nilai mutu menjadi angka berdasarkan kriteria penilaian untuk mendapatkan hasil perkalian nilai dengan sks.

Even

TextChanged

Property

Property TextBox --> ReadOnly = True