Latihan 11

Deskripsi Form

1. objek label
terdapat empat belas label (bertuliskan indeks prestasi kumulatif, nama, stambuk, mata kuliah, pengantar akuntansi, akuntansi intermedite, akuntansi advance, akuntansi biaya, sistem akuntansi, total, ipk, nilai, sks, nilai x sks)

2. objek textbox
terdapat 20 textbox di dalam form ini. dimana 8 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil kali dari nilai mutu dan SKS yang anda input pada textbox input, total SKS dan total perkalian antar SKS dengan nilai mutu  yang anda input pada textbox input.

even :
TextChanged

property :
property textbox ==> ReadOnly = True


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. sama pada latihan sebelumnya. masukkan dulu fungsi Private Sub pada script code anda contohnya seperti di bawah ini :

Private Sub sulhi(ByVal n As TextBox, ByVal s As TextBox, ByVal ns As TextBox)
        If n.Text = "A" Or n.Text = "a" Then
            ns.Text = 4 * Val(s.Text)
        ElseIf n.Text = "B" Or n.Text = "b" Then
            ns.Text = 3 * Val(s.Text)
        ElseIf n.Text = "C" Or n.Text = "c" Then
            ns.Text = 2 * Val(s.Text)
        ElseIf n.Text = "D" Or n.Text = "d" Then
            ns.Text = 1 * Val(s.Text)
        ElseIf n.Text = "E" Or n.Text = "e" Then
            ns.Text = 0

        End If
End Sub

6. lalu, seperti pada latihan sebelumnya, masukkan script kode pada textbox yang digunakan untuk menginput SKS.
7. jika sudah selesai, and tinggal menekan debug untuk menjalankan.