Latihan_11_46110045

Deskripsi :

Form 11 ada 2 object yaitu label, dan textbox.

 

Object label :

Ada 14 label yang bertuliskan indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu (N), SKS (S), NxS, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK).

Object Textbox :

       Ada 20 textbox. Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only.

 

        Cara membuat form 11 :

        Masukkan rumus seperti ini

         Public Class Latihan_11_46110045
    Private Sub dina(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()
        total46110045.Text = Val(s146110045.Text) + Val(s246110045.Text) + Val(s346110045.Text) + Val(s446110045Text) + Val(s546110045.Text)
        total246110045.Text = Val(ns146110045.Text) + Val(ns246110045.Text) + Val(ns346110045.Text) + Val(ns446110045.Text) + Val(ns546110045.Text)
        ipk46110045.Text = total246110045.Text / total46110045.Text
    End Sub

    Private Sub s146110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s146110045.TextChanged
        dina(n146110045, s146110045, ns146110045)
        TOTAL()
    End Sub

    Private Sub s246110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s246110045.TextChanged
        dina(n246110045, s246110045, ns246110045)
        TOTAL()
    End Sub

    Private Sub s346110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s346110045.TextChanged
        dina(n346110045, s346110045, ns346110045)
        TOTAL()
    End Sub

    Private Sub s446110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s446110045.TextChanged
        dina(n446110045, s446110045, ns446110045)
        TOTAL()
    End Sub

    Private Sub s546110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s546110045.TextChanged
        dina(n546110045, s546110045, ns546110045)
        TOTAL()
    End Sub
End Class

         Even :

         Textchanged.

         Script unique :

         Private Sub dina(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 => maksudnya adalah script yang digunakan sebagai procedure yang memiliki syarat.

         Langkah-langkah mengerjakan form 11 :

         1. Isilah textbox-textbox yang telah anda buat tadi.

         2. Hasilnya akan muncul dengan sendirinya jika anda telah mengisi textbox tersebut.