Latihan_11_46110024

DESKRIPSI FORM LATIHAN 11

Form latihan 11 terdapat dua object yaitu label dan textbox

Object Label

Terdapat  empat belas label ( yang bertuliskan Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu (N), SKS (S), N x S, Pengantar Akuntansi, Akuntansi Intermediete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, dan IPK)

Object  Textbox

Terdapat dua puluh textbox (tujuh belas berstatus input digunakan untuk memasukkan stambuk, nama, nilai & sks pengantar akuntansi, nilai & sks akuntansi intermediate, nilai & sks akuntansi advance, nilai & sks akuntansi biaya, nilai & sks system akuntansi sedangkan delapan berstatus readonly digunakan untuk  ,menampilkan hasil perhitungan dari nilai dikali sks untuk setiap mata kuliah, total dan IPK dengan rumus sbb:

·         N x S merupakan hasil perkalian dari Nilai Mutu dan SKS

·         Total Merupakan hasil penjumlahan dari keselurahan SKS dan hasil penjumlahan dari N x S

·         IPK merupakan hasil dari total N x S dibagi dengan total SKS

Script Unique

Scrift yang digunakan sama dengan scrift pada form latihan sebelumnya

Even

TextChanged

Property

Property Textbox --> Readonly = True

Langkah- Langkah Membuat Form Latihan 11

 

1.      Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

 

2.   Ganti nama sesuai dengan nama yang anda ingingkan

 

          3.   Lalu pilih object yang ada di latihan 11  yaitu label dan textbox

          4.  Buat form sampai menghasilkan form seperti di bawah ini

          5.  Pilih menu view, click code

 

          6.  Masukkan scrift sebagai berikut :

           Public Class Latihan_11_46110024
    Private Sub parameter(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal ns As TextBox)
        If nilai.Text = "A" Then
            ns.Text = 4 * Val(sks.Text)
        ElseIf nilai.Text = "B" Then
            ns.Text = 3 * Val(sks.Text)
        ElseIf nilai.Text = "C" Then
            ns.Text = 2 * Val(sks.Text)
        ElseIf nilai.Text = "D" Then
            ns.Text = 1 * Val(sks.Text)
        ElseIf nilai.Text = "E" Then
            ns.Text = 0
        End If
    End Sub
    Private Sub waty()
        ts_46110024.Text = Val(pas_46110024.Text) + Val(ais_46110024.Text) + Val(aas_46110024.Text) + Val(abs_46110024.Text) + Val(sas_46110024.Text)
        th_46110024.Text = Val(pah_46110024.Text) + Val(aih_46110024.Text) + Val(aah_46110024.Text) + Val(abh_46110024.Text) + Val(sah_46110024.Text)
        ipk_46110024.Text = Val(th_46110024.Text) / Val(ts_46110024.Text)
    End Sub
    Private Sub pas_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pas_46110024.TextChanged
        parameter(pan_46110024, pas_46110024, pah_46110024)
        waty()
    End Sub

    Private Sub ais_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ais_46110024.TextChanged
        parameter(ain_46110024, ais_46110024, aih_46110024)
        waty()
    End Sub

    Private Sub aas_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aas_46110024.TextChanged
        parameter(aan_46110024, aas_46110024, aah_46110024)
        waty()
    End Sub

    Private Sub abs_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abs_46110024.TextChanged
        parameter(abn_46110024, abs_46110024, abh_46110024)
        waty()
    End Sub

    Private Sub sas_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sas_46110024.TextChanged
        parameter(san_46110024, sas_46110024, sah_46110024)
        waty()
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 11

1.      Input nama,  stambuk anda, nilai mata kuliah dan  sks pada textbox yang berstatus input

2.      Setelah anda mengisi nilai mata kuliah dan sksnya maka secara otomatis akan menampilkan N x S, Total dan IPK