latihan_11_36110036

Deskripsi latihan_11_36110036

A.         Object label

          Terdapat 14 label (yang bertuliskan indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu(N), SKS(S), N*S, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK).

B.         Object textbox

      Terdapat 20 textbox (12 status input, delapan status read only). Status input digunakan untuk memasukkan stambuk, nama, nilai mutu (N), SKS(S).

    Sedangkan Status Read Only digunakan untuk menampilkan hasil N*S, TOTAL, DAN IPK.

C.         Script unique

                   Membuat call prosedur:

            Private Sub anna(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)

        If nilai.Text = "A" Then

            hasil.Text = 4 * Val(sks.Text) 

Untuk textchanged:

Private Sub sks1_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_36110036.TextChanged

        anna(nm1_36110036, sks1_36110036, ns1_36110036)

        rumus()

D.  Even

   sks1_36110036_TextChanged

E.        Property

Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_11_36110036

        1.        Buka Ms. Visual Studio

2.          Buka project yang telah dibuat, dan buka solution explorer

3.          Klik  kanan nama project ==> add ==> new item

     
    4.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

    5.         Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio

      6.         Desaign form dengan menggunakan tools pada toolbox
      7.         Buat text pada form dengan menggunakan label:

a.       indeks prestasi komulatif

b.      stambuk

c.       nama

d.      mata kuliah

e.      nilai mutu(N)

f.        SKS(S)

g.       N*S

h.      pengantar akuntansi

i.         akuntansi intermediate

j.        akuntansi advance

k.       akuntansi biaya

l.         sistem akuntansi

m.    total

n.      IPK

 8.          Buat kolom pada form dengan menggunakan textbox, sebanyak 20 kolom:

a.       Kolom 1 diberi nama stambuk_36110036

b.      Kolom 2 diberi nama nama_36110036

c.       Kolom 3 diberi nama nm1_36110036

d.      Kolom 4 diberi nama nm2_36110036

e.      Kolom 5 diberi nama nm3_36110036

f.        Kolom 6 diberi nama nm4_36110036

g.       Kolom 7 diberi nama nm5_36110036

h.      Kolom 8 diberi nama sks1_36110036

i.         Kolom 9 diberi nama sks2_36110036

j.        Kolom 10 diberi nama sks3_36110036

k.       Kolom 11 diberi nama sks4_36110036

l.         Kolom 12 diberi nama sks5_36110036

m.    Kolom 13 diberi nama ns1_36110036

n.      Kolom 14 diberi nama ns2_36110036

o.      Kolom 15 diberi nama ns3_36110036

p.      Kolom 16 diberi nama ns4_36110036

q.      Kolom 17 diberi nama ns5_36110036

r.        Kolom 18 diberi nama total1_36110036

s.       Kolom 19 diberi nama total2_36110036

t.        Kolom 20 diberi nama ipk_36110036

      9.      Setelah desaign selesai  dibuatlah rumusnya

      
     10.    Berikut adalah rumus untuk menjalankan latihan_11_36110036

     

Public Class latihan_11_36110036

    Private Sub anna(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)

        If nilai.Text = "A" Then

            hasil.Text = 4 * Val(sks.Text)

        ElseIf nilai.Text = "B" Then

            hasil.Text = 3 * Val(sks.Text)

        ElseIf nilai.Text = "C" Then

            hasil.Text = 2 * Val(sks.Text)

        ElseIf nilai.Text = "D" Then

            hasil.Text = 1 * Val(sks.Text)

        Else

            hasil.Text = 0

        End If

    End Sub

    Private Sub rumus()

        total1_36110036.Text = Val(sks1_36110036.Text) + Val(sks2_36110036.Text) + Val(sks3_36110036.Text) + Val(sks4_36110036.Text) + Val(sks5_36110036.Text)

        total2_36110036.Text = Val(ns1_36110036.Text) + Val(ns2_36110036.Text) + Val(ns3_36110036.Text) + Val(ns4_36110036.Text) + Val(ns5_36110036.Text)

        ipk_36110036.Text = Val(total2_36110036.Text) / Val(total1_36110036.Text)

    End Sub

    Private Sub sks1_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_36110036.TextChanged

        anna(nm1_36110036, sks1_36110036, ns1_36110036)

        rumus()

    End Sub

    Private Sub sks2_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks2_36110036.TextChanged

        anna(nm2_36110036, sks2_36110036, ns2_36110036)

        rumus()

    End Sub

    Private Sub sks3_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks3_36110036.TextChanged

        anna(nm3_36110036, sks3_36110036, ns3_36110036)

        rumus()

    End Sub

    Private Sub sks4_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks4_36110036.TextChanged

        anna(nm4_36110036, sks4_36110036, ns4_36110036)

        rumus()

    End Sub

    Private Sub sks5_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks5_36110036.TextChanged

        anna(nm5_36110036, sks5_36110036, ns5_36110036)

        rumus()

    End Sub

    Private Sub ns1_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ns1_36110036.TextChanged

    End Sub

    Private Sub total2_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total2_36110036.TextChanged

    End Sub

End Class

11.    setelah rumus selesai, program dijalankan dengan menggunakan start debugging

12.      setelah program jalan maka file disave.