Latihan_11_46110037

Deskripsi Form Latihan 11

Pada latihan 11 terdapat 2 Object yaitu Label dan  TextBox.

Object Label

Terdapat 14 Label yaitu Indeks Prestasi Komulatif; Stanbuk; Nama; Mata Kuliah; Nilai Mutu (N); SKS (S); N x S; Pengantar Akuntansi; Akuntansi Intermedit; Akuntansi Advance; Akuntansi Biaya; Sistem Akuntansi; Total dan IPK.

Object TextBox

Terdapat  20 Textbox, 12 textbox berstatus input (Stambuk; Nama; Nilai Mutu Pengantar Akuntansi; Nilai Mutu Akuntansi Interedit; Nilai Mutu  Akuntansi Advance; Nilai Mutu Akuntansi Biaya; Nilai Mutu Sistem Akuntansi; SKS Pengantar Akuntansi; SKS Akuntansi Intermedit; SKS Akuntansi Advance; SKS  Akuntansi Biaya; SKS  Sistem Akuntansi  ), dan 8 textbox berstatus ReadOnly (N x S Pengantar Akuntansi; N x S Akuntansi Intermedit; N x S  Akuntansi Advance; N x S  Akuntansi Biaya; N x S Sistem Akuntansi; Total dan IPK)

Script Unique

Menambahkan perintah yang sama

Private Sub S146110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S146110037.TextChanged, N146110037.TextChanged

Kita menambahkan TextChanged lagi di belakang Private Sub itu bertujuan supaya ketika Nilai Mutu di ganti textnya maka hasilnya juga akan berpengaruh. Meskipun kita tidak membuat script pada textboxt Nilai Mutu.

Menambahkan koma pada angka.

IPK46110037.Text = FormatNumber(Val(TNS46110037.Text) / Val(Total46110037.Text), 2)

FormatNumber adalah kodenya sedangkan angka 2 menandakan dua angka di belakang koma.

Even

TextChanged

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     Masukkan Stambuk dan Nama Mahasiswa, kemudian isi Nilai Mutu yang ia dapatkan pada masing-masing mata kuliah, kemudian masukkan berapa SKS tiap Mata Kuliah. Maka secara otomatis akan menampilkan perhitungan antara Nilai Mutu dan SKS; Total SKS, Total Nilai Mutu dikalikan SKS dan IPK mahasiswa tersebut.

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label  dan  Textbox.
• Ganti nama Textbox di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True.
• Click Kanan lalu pilih View Code kemudian buatlah Prosedure yang dilengkapi parameter,  serta Nilai Mutu yang ditetapkan di Kampus Anda, Misalnya:

Jika Nilainya A maka maka SKS * 4

Nilainya B maka maka SKS * 3

Nilainya C maka maka SKS * 2

Nilainya D maka maka SKS * 1

Nilainya E maka maka SKS * 0

Jadi scriptnya adalah sebagai berikut:

Private Sub Inna(ByVal pink As TextBox, ByVal biru As TextBox, ByVal kuning As TextBox)

        If pink.Text = "A" Or pink.Text = "a" Then

            kuning.Text = Val(biru.Text) * 4

        ElseIf pink.Text = "B" Or pink.Text = "b" Then

            kuning.Text = Val(biru.Text) * 3

        ElseIf pink.Text = "C" Or pink.Text = "c" Then

            kuning.Text = Val(biru.Text) * 2

        ElseIf pink.Text = "D" Or pink.Text = "d" Then

            kuning.Text = Val(biru.Text) * 1

        ElseIf pink.Text = "E" Or pink.Text = "e" Then

            kuning.Text = Val(biru.Text) * 0

        End If

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Pengantar Akuntansi, kemudian ketik scriptnya:

Private Sub S146110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S146110037.TextChanged, N146110037.TextChanged

        Inna(N146110037, S146110037, NS146110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Akuntansi Intermedit, kemudian ketik scriptnya:

Private Sub S246110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S246110037.TextChanged, N246110037.TextChanged

        Inna(N246110037, S246110037, NS246110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Akuntansi Advance, kemudian ketik scriptnya:

Private Sub S346110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S346110037.TextChanged, N346110037.TextChanged

        Inna(N346110037, S346110037, NS346110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox  SKS Akuntansi Biaya, kemudian ketik scriptnya:

Private Sub S446110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S446110037.TextChanged, N446110037.TextChanged

        Inna(N446110037, S446110037, NS446110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Sistem Akuntansi, kemudian ketik scriptnya:

Private Sub S546110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S546110037.TextChanged, N546110037.TextChanged

        Inna(N546110037, S546110037, NS546110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox Total SKS, kemudian ketik scriptnya:

Private Sub S546110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S546110037.TextChanged, N546110037.TextChanged

        Inna(N546110037, S546110037, NS546110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox Total N x S , kemudian ketik scriptnya:

Private Sub TNS46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TNS46110037.TextChanged

        IPK46110037.Text = FormatNumber(Val(TNS46110037.Text) / Val(Total46110037.Text), 2)

    End Sub