Latihan_11_46110020

Form Pada Latihan 11

Deskripsi Form Latihan 11

Form latihan 11 terdapat dua object yaitu Label, dan TextBox.

Object Label :

Dalam form ini terdapat 14 item  Label yang bertuliskan (pada judul “Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu, SKS, N x S, Pengantar Kuliah, Akuntansi Intermadiete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, Dan IPK).

Object Textbox :

Dalam form ini  terdapat 20 item Textbox yang digunakan untuk (12  status input dan 8 untuk status ReadOnly). Status input ini digunakan untuk menginput  data/nilai, sedangkan untuk status ReadOnly digunakan untuk menampilkan hasil fungsi yang telah di kerjakan. Yang dimana fungsi ini akan berjalan dan menghasilkan nilai di text box yang berstatus ReadOnly:.

a.       N x S = Nilai Mutu (N) x SKS (S)

b.       Total = Penjumlahan semua SKS, Pejumlahan semua nilai N x S

c.        IPK= Total NxS / Total SKS

Cara Untuk Membuat Form Latihan 11 :

1.     Pertama Bukalah Project yang telah anda buat sebelumnya.

2.     Pilih dan  Buka Project dalam visual basic.

3.     Kemudian pilih Add Windows form

 

4.       Lalu add new item dan rename file “form.vb menjadi Latihan_11_46110020”

 

5.     Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6.     Kemudian mulailah membuat form 11 dengan menggunakan Label, danTextBox.

 

7.     Lalu buatlah sesuai contoh latihan 10 dengan menggunkan Label sebanyak 14, TextBox sebanyak 20 maka akan menjadi seperti ini :

 

-          Biru     = Label

-          Merah = TextBox

8.     Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_11_46110020

    Private Sub Yuni(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()

        TOTAL_46110020.Text = Val(S1_46110020.Text) + Val(S2_46110020.Text) + Val(S3_46110020.Text) + Val(S4_46110020.Text) + Val(S5_46110020.Text)

        TOTAL2_46110020.Text = Val(NS1_46110020.Text) + Val(NS2_46110020.Text) + Val(NS3_46110020.Text) + Val(NS4_46110020.Text) + Val(NS5_46110020.Text)

        IPK_46110020.Text = TOTAL2_46110020.Text / TOTAL_46110020.Text

    End Sub

    Private Sub S1_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1_46110020.TextChanged

        Yuni(NM1_46110020, S1_46110020, NS1_46110020)

        TOTAL()

    End Sub

    Private Sub S2_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S2_46110020.TextChanged

        Yuni(NM2_46110020, S2_46110020, NS2_46110020)

        TOTAL()

    End Sub

    Private Sub S3_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S3_46110020.TextChanged

        Yuni(NM3_46110020, S3_46110020, NS3_46110020)

        TOTAL()

    End Sub

    Private Sub S4_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S4_46110020.TextChanged

        Yuni(NM4_46110020, S4_46110020, NS4_46110020)

        TOTAL()

    End Sub

    Private Sub S5_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S5_46110020.TextChanged

        Yuni(NM5_46110020, S5_46110020, NS5_46110020)

        TOTAL()

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 11:

1.    Pertama, Klik start debugging.

2.   Isi textbox yang berstatus input yaitu Nilai Mutu dan SKS.

3.   Setelah itu secara otomatis N x S akan terisi beserta Total dan akan menampilkan hasil nilai IPK.

Script unik

            Dalam latihan 11 ini terdapat script unik yaitu dengan Membuat call prosedur dengan menggunakan huruf, angka,  dan SKS. Dengan Menggunkan Kriteria sebagai berikut :

-A = 4

-B = 3

-C = 2

-D = 1

-E = 0  

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

     Kemudian untuk menjalankan call prosedur yang anda telah buat :

            Private Sub S1_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1_46110020.TextChanged

        Yuni(NM1_46110020, S1_46110020, NS1_46110020)

        TOTAL()

    End Sub

Even

Textchanged