Latihan_11_36110056

Deskripsi Latihan 11:

Form Latihan 11 terdapat dua object yaitu Label dan textbox

Object Label

Terdapat empat belas object label(yang diberi nama indek prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu (N), sks (S), N x S, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, system akuntansi, total, ipk).

Object Text Box

Terdapat dua puluh textbox yang terdiri dari (12 textbox yang berstatus input dan 8 textbox berstatus read only).

Script Unique 

Private Sub NL(ByVal n As TextBox, ByVal s As TextBox, ByVal y As TextBox)

        If n.Text = "A" or n.Text = “a” Then

            y.Text = 4 * Val(s.Text)

       ElseIf n.Text = "B" or n.Text = “b” Then

            y.Text = 3 * Val(s.Text)

        End If

 Textchanged  

Private Sub S1_36110056_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pas_36110037.TextChanged

       NL(N1_36110056, S1_36110037,  NS1_36110056)

      Even

Textchanged

Property

Property TextBox ReadOnly=True

                                                  FORM LATIHAN 11

Langkah-langkah penyelesaian latihan 11 :

• Buka project yang dibuat sebelumnya
• Pilih Add new item
• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add
• Buat form sesuai soal di atas dengan menggunakan Label dan Textbox yang ada dalam Toolbox
• Setelah form selesai, ubah nama textbox yang terdapat dalam properties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :
 Public Class Latihan11_36110056

    Private Sub NL(ByVal n As TextBox, ByVal s As TextBox, ByVal y As TextBox)
        If n.Text = "A" Or n.Text = "a" Then
            y.Text = 4 * Val(s.Text)
        ElseIf n.Text = "B" Or n.Text = "b" Then
            y.Text = 3 * Val(s.Text)
        ElseIf n.Text = "C" Or n.Text = "c" Then
            y.Text = 2 * Val(s.Text)
        ElseIf n.Text = "D" Or n.Text = "d" Then
            y.Text = 1 * Val(s.Text)
        Else
            y.Text = ""
        End If

    End Sub

    Private Sub s1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s1_36110056.TextChanged
        NL(n1_36110056, s1_36110056, ns1_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s2_36110056.TextChanged
        NL(n2_36110056, s2_36110056, ns2_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s3_36110056.TextChanged
        NL(n3_36110056, s3_36110056, ns3_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s4_36110056.TextChanged
        NL(n4_36110056, s4_36110056, ns4_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s5_36110056.TextChanged
        NL(n5_36110056, s5_36110056, ns5_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

 

• Selanjutnya jika ingin menjalankannya pilih Startde bungging atau dapat menekan F5 pada keyboard