Form Latihan_11_36110037 terdapat tiga object yaitu Label, textbox, dan button.

Object Label

Terdapat empat belas label .

Object Textbox

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

Object Button

Terdapat satu object button yang  bernama "Bersih" yang digunakan untuk menghapus semua isi textbox.

Script Unique
Saat membuat call prosedur
Public Class Latihan_11_36110037
    Private Sub rhepoet(ByVal a As TextBox, ByVal b As TextBox, ByVal c As TextBox)
        If a.Text = "A" Then
            c.Text = (4 * Val(b.Text))
       ElseIf a.Text = "E" Then
            c.Text = 0 * Val(b.Text)
        End If

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

       rhepoet(sian_36110037, sias_36110037, sians_36110037)

Saat button click
Private Sub Button1_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_36110037.Click
        nama_36110037.Text = ""
        Stb_36110037.Text = ""        Dst.

Event

1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.



4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.



5. buat form seperti di bawah ini dengan menggunakan toolbox.



6. setelah form selesai, ubah nama textbox dan button menggunakan properties window.



7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_11_36110037
    Private Sub rhepoet(ByVal a As TextBox, ByVal b As TextBox, ByVal c As TextBox)
        If a.Text = "A" Then
            c.Text = (4 * Val(b.Text))
        ElseIf a.Text = "B" Then
            c.Text = 3 * Val(b.Text)
        ElseIf a.Text = "C" Then
            c.Text = 2 * Val(b.Text)
        ElseIf a.Text = "D" Then
            c.Text = 1 * Val(b.Text)
        ElseIf a.Text = "E" Then
            c.Text = 0 * Val(b.Text)
        End If
    End Sub

    Private Sub sias_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pas_36110037.TextChanged, ais_36110037.TextChanged, aas_36110037.TextChanged, abs_36110037.TextChanged, sias_36110037.TextChanged
        rhepoet(pan_36110037, pas_36110037, pans_36110037)
        rhepoet(ain_36110037, ais_36110037, ains_36110037)
        rhepoet(aan_36110037, aas_36110037, aans_36110037)
        rhepoet(abn_36110037, abs_36110037, abns_36110037)
        rhepoet(sian_36110037, sias_36110037, sians_36110037)
        ts_36110037.Text = (Val(pas_36110037.Text) + Val(ais_36110037.Text) + Val(aas_36110037.Text) + Val(abs_36110037.Text) + Val(sias_36110037.Text))
        tns_36110037.Text = (Val(pans_36110037.Text) + Val(ains_36110037.Text) + Val(aans_36110037.Text) + Val(abns_36110037.Text) + Val(sians_36110037.Text))
        ipk_36110037.Text = (Val(tns_36110037.Text) / Val(ts_36110037.Text))
    End Sub

    Private Sub Button1_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_36110037.Click
        nama_36110037.Text = ""
        Stb_36110037.Text = ""
        pan_36110037.Text = ""
        pas_36110037.Text = ""

        ain_36110037.Text = ""
        ais_36110037.Text = ""
        ains_36110037.Text = ""
        aan_36110037.Text = ""
        aas_36110037.Text = ""
        aans_36110037.Text = ""
        abn_36110037.Text = ""
        abs_36110037.Text = ""
        abns_36110037.Text = ""
        sian_36110037.Text = ""
        sias_36110037.Text = ""
        sians_36110037.Text = ""
        ts_36110037.Text = ""
        tns_36110037.Text = ""
        ipk_36110037.Text = ""
    End Sub
End Class

8. Uji program dengan mengklik "Start Debugging".



9. Save program dengan mengklik icon "save".



10. Selesai.