Latihan_11_36110052

Latihan_11_36110052

A.    Object-object dalam Latihan_11_36110052 :

1.    Object Label

Terdapat empat belas label (yang bertuliskan indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu, sks, NxS, pengantar akuntansi, akuntansi intermedit, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK).

2.     Object Textbox

Terdapat dua puluh textbox (dua belas status input; delapan status read only). Status input digunakan untuk memasukkan stambuk, nama, nilai mutu dan sks dari setiap matakuliah yang telah dituliskan pada label. Status Read Only digunakan untuk menampilkan hasil dari perkalian nilai mutu dan sks, total sks, dan IPK.

B.     Script Unique

C.     Even

   VIA(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)

NM1_36110052­_TextChanged

NS1_36110052_TextChanged

Private Sub TOTAL2_36110052_TextChanged

D.    Property

Property TextBox ==> ReadOnly=True

Langkah-langkah kerja  latihan_11_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_11_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat 14 label yang dapat diambil pada toolbox dan ubah  teksnya menjadi  (indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu, sks, NxS, pengantar akuntansi, akuntansi intermedit, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK).

4.      Buat 12 textbox  dan ubah nama masing-masing textbox, contoh saya berikan nama

STAMBUK_36110052,NAMA_36110052,NM1_36110052,NM2_36110052,NM3_36110052,NM4_36110052,NM5_36110052,SKS1_36110052,SKS2_36110052,SK3_36110052,SK4_36110052,SKS5_36110052

5.      Buat 8 textbox dan ubah status  textbox menjadi read only di atas dengan cara klik kanan àpropertiesàcari kalimat read onlyàubah statusnya menjadi true  dan berikan nama setiap textbox tersebut contoh: NS1_36110052,NS2_36110052,NS3_36110052,NS4_36110052,NS5_36110052,TOTAL1_36110052,TOTAL2_36110052 dan IPK_36110052

6.      Setelah selesai form, masuk ke lembar Vb dan masukkan scipt

  Private Sub VIA(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)

   Else

      C.Text = 0

End If

      TOTAL_36110052.Text = Val(SKS1_36110052.Text) + Val(SKS1_36110052.Text) + Val(SKS3_36110052.Text) + Val(SKS4_36110052.Text) + Val(SKS5_36110052.Text)

   End  Sub

Private Sub NM1_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM1_36110052.TextChanged, SKS1_36110052.TextChanged

VIA(NM1_36110052, SKS1_36110052, NS1_36110052)

End Sub

Private Sub NM2_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM2_36110052.TextChanged, SKS2_36110052.TextChanged

VIA(NM2_36110052, SKS2_36110052, NS2_36110052)

End Sub

Private Sub NM3_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM3_36110052.TextChanged, SKS3_36110052.TextChanged

  

VIA(NM3_36110052, SKS3_36110052, NS3_36110052)

End Sub

Private Sub NM4_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM4_36110052.TextChanged, SKS4_36110052.TextChanged

VIA(NM4_36110052, SKS4_36110052, NS4_36110052)

End Sub

Private Sub NM5_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM5_36110052.TextChanged, SKS5_36110052.TextChanged

VIA(NM5_36110052, SKS5_36110052, NS5_36110052)

End Sub

Private Sub NS1_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NS1_36110052.TextChanged, NS2_36110052.TextChanged, NS3_36110052.TextChanged, NS4_36110052.TextChanged, NS5_36110052.TextChanged

TOTAL2_36110052.Text = Val(NS1_36110052.Text) + Val(NS2_36110052.Text) + Val(NS3_36110052.Text) + Val(NS4_36110052.Text) + Val(NS5_36110052.Text)

End Sub

Private Sub TOTAL2_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TOTAL2_36110052.TextChanged, TOTAL_36110052.TextChanged

IPK_36110052.Text = Val(TOTAL2_36110052.Text) / Val(TOTAL_36110052.Text)

End Sub

End Class

7.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

8.      SELESAI