Latihan_11_36110031

Tahap Penyelesaian Latihan_11_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_11 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_11 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_11_36110031

Private Sub audry(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

   Else : c.Text = 0

     End If

     End Sub

    Private Sub Nakuntnsi_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nakuntnsi_36110031.TextChanged, Nintermedit_36110031.TextChanged, Nadvance_36110031.TextChanged, Nbiaya_36110031.TextChanged, Nsistem_36110031.TextChanged, Sakuntansi_36110031.TextChanged, Sintermedit_36110031.TextChanged, Sadvance_36110031.TextChanged, Sbiaya_36110031.TextChanged, Ssistem_36110031.TextChanged, NSakntansi_36110031.TextChanged, NSintermedit_36110031.TextChanged, Nadvance_36110031.TextChanged, NSbiaya_36110031.TextChanged, NSsistem_36110031.TextChanged

      audry(Nakuntnsi_36110031, Sakuntansi_36110031, NSakntansi_36110031)

      audry(Nintermedit_36110031, Sintermedit_36110031, NSintermedit_36110031)

      audry(Nadvance_36110031, Sadvance_36110031, NSadvance_36110031)

      audry(Nbiaya_36110031, Sbiaya_36110031, NSbiaya_36110031)

      audry(Nsistem_36110031, Ssistem_36110031, NSsistem_36110031)

      Stotal_36110031.Text = Val(Sakuntansi_36110031.Text) + Val(Sintermedit_36110031.Text) + Val(Sadvance_36110031.Text) + Val(Sbiaya_36110031.Text) + Val(Ssistem_36110031.Text)

      NStotal_36110031.Text = Val(NSakntansi_36110031.Text) + Val(NSintermedit_36110031.Text) + Val(NSadvance_36110031.Text) + Val(NSbiaya_36110031.Text) + Val(NSsistem_36110031.Text)

      IPK_36110031.Text = Val(NStotal_36110031.Text) / Val(Stotal_36110031.Text)

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

 Deskripsi Latihan_11_36110031

Form Latihan 11 Terdapat dua object yaitu label dan textbox

-    Object Label

Terdapat empat belas label (yang bertuliskan Indeks prestasi kumulatif, Stambuk, Nama, Mata kuliah, Nilai mutu(N), SKS(S), NxS Pengantar akuntansi, Akuntansi Intermedit, Akuntansi Advance, Akuntansi Biaya, Sistem akuntansi)

-    Object TextBox

Terdapat dua puluh textbox (dua belas status input; delapan status readonly). Status input digunakan untuk memasukkan stambuk, nama, nilai mutu dsn sks dari setiap mata kuliah. Sedangkan status ReadOnly digunakan untuk menampilkan hasil perkalian dari nilai mutu dan sks, total sks, ipk.

Script Unique

Textchanged

Even

Nakuntnsi_36110031_TextChanged

Property

Property TextBox  ==> ReadOnly = True