Latihan_11_46110006

1.      Deskripsi from

Object Label

Terdapat 13 label (yang bertuliskan stambuk, Nama, Mata Kuliah, Nila Mutu (N), SKA (S), NxS)

                                                                                     

Object TexBox

Terdapat 25 textbox (12 status input, 8 berstatus read only. Status input digunakan untuk memasukkan nilai Sedangkan Status Read Only digunakan untuk menampilkan hasil pada fungsi yang telah di kerjakan.

Script Unique

Script Unique yang terdapat pada latihan 11 ini adalah Private Sub ABC().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Event :

      Textchanged

Property :

Property TextBox ==> ReadOnly=True

2.      Cara Membuat From Latihan 11 :

      1.  Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

           

      2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_09_46110006”.

    3. Buatlah desain dibawah ini dengan menggunakan toolbox, TextBox dan Label.

                                   

                          4.  Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_11_46110006

    Private Sub fitry(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_46110006.Text = Val(s1_46110006.Text) + Val(s2_46110006.Text) + Val(s3_46110006.Text) + Val(s4_46110006.Text) + Val(s5_46110006.Text)

        total2_46110006.Text = Val(ns1_46110006.Text) + Val(ns2_46110006.Text) + Val(ns3_46110006.Text) + Val(ns4_46110006.Text) + Val(ns5_46110006.Text)

        ipk_46110006.Text = total2_46110006.Text / total_46110006.Text

    End Sub

    Private Sub s1_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s1_46110006.TextChanged

        fitry(n1_46110006, s1_46110006, ns1_46110006)

        TOTAL()

    End Sub

    Private Sub s2_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s2_46110006.TextChanged

        fitry(n2_46110006, s2_46110006, ns2_46110006)

        TOTAL()

    End Sub

    Private Sub s3_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s3_46110006.TextChanged

        fitry(n3_46110006, s3_46110006, ns3_46110006)

        TOTAL()

    End Sub

    Private Sub s4_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s4_46110006.TextChanged

        fitry(n4_46110006, s4_46110006, ns4_46110006)

        TOTAL()

    End Sub

    Private Sub s5_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s5_46110006.TextChanged

        fitry(n5_46110006, s5_46110006, ns5_46110006)

        TOTAL()

    End Sub

End Class

3. Langkah untuk menjalankan from 11 :

1.    Klik start debugging.

2.    Isi TextBox yang berstatus input, sesuai dengan keinginan anda.

3.  Setelah anda menginput textbox yang tersedia, hasilnya akan muncul sendiri pada form.