Latihan_11_46110001

A.    Object-object dalam Latihan_11_46110001 :

• 1.                          Object Label

Pada latihan ini Terdapat 14 label yang terdiri dari 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

pada form ini Terdapat 20  textbox yang terdiri dari dua belas status input dan delapan berstatus read only. form yang berstatus input digunakan untuk memasukkan stambuk, nama, nilai mutu dan sks dari setiap matakuliah yang telah dituliskan pada label. dan form yang berstatus Read Only digunakan untuk menampilkan hasil dari perkalian nilai mutu dan sks, total sks, dan IPK.

• 3.                         Object Button

                 Terdapat satu object button yaitu close. Button close digunakan untuk mengosongkan kembali semua TextBox. 

B.     Script Unique

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

 C.     Even

SKPA_46110001.TextChanged
  
    End Sub

D.    Property

Property TextBox ==> ReadOnly=True

 

LANGKAH-LANGKAH PENYELESAIAN:

1. Langkah pertama dalam membuat form/ latihan 09 ialah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini
2. Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini
3. Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan   
4. atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 
5. Buatlah form seperti gambar dibawah ini, dengan cara, pilih toolbox kemudian pada toolbox tersebut pilih dan buat label sebanyak 14 label,(kotak yang berwarna abu-abu adalah label) dan texbox sebanyak 20(kotak yang pinggirannya berwarna HITAM adalah texbox). 8 diantaranya berstatus readonly, yaitu

6.    Setelah itu buatlah rumus untuk menjalankan form tersebut. Sperti rumus dibawah ini.(rumus dibawah ini merupakan rumus untuk menjalankan form diatas)   

Public Class Latihan_11_46110001
    Private Sub konfersi(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 total()
        TOTSKS_46110001.Text = Val(SKPA_46110001.Text) + Val(SKAI_46110001.Text) + Val(SKAA_46110001.Text) + Val(SKAB_46110001.Text) + Val(SKSA_46110001.Text)
        TOTNxS_46110001.Text = Val(NxS1_46110001.Text) + Val(NxS2_46110001.Text) + Val(NxS3_46110001.Text) + Val(NxS4_46110001.Text) + Val(NxS5_46110001.Text)
        IPKNxS_46110001.Text = Val(TOTNxS_46110001.Text) / Val(TOTSKS_46110001.Text)
    End Sub

    Private Sub SKPA_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKPA_46110001.TextChanged
        konfersi(PANM_46110001, SKPA_46110001, NxS1_46110001)
        total()
       
    End Sub

    Private Sub SKAI_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKAI_46110001.TextChanged
        konfersi(AINM_46110001, SKAI_46110001, NxS2_46110001)
        total()
    End Sub

    Private Sub SKAA_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKAA_46110001.TextChanged
        konfersi(AANM_46110001, SKAA_46110001, NxS3_46110001)
         total()
    End Sub

    Private Sub SKAB_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKAB_46110001.TextChanged
        konfersi(ABNM_46110001, SKAB_46110001, NxS4_46110001)
         total()
    End Sub

    Private Sub SKSA_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKSA_46110001.TextChanged
        konfersi(SANM_46110001, SKSA_46110001, NxS5_46110001)
         total()
    End Sub
   
End Class

7. jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini
8. langkah selanjutnya adalah Isi text box yang berstatus input, sesuai dengan  yang anda inginkan,maka akan muncul hasil dari angka yang diketik pada texbox input.  
9.  Untuk menutup klik close.