Deskripsi dan Prosedur Latihan_11_36110039

    Deskripsi Form Latihan_11_36110039

Terdapat dua object yaitu label dan textbox:

1.    Object Label
Terdapat empat belas object label yang bertuliskan indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu, SKS, NxS, pengantar akuntansi, akuntansi intermediete, 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 menginput data. Status Read Only digunakan untuk menampilkan hasil dari nilai mutu kali sks, total sks, dan IPK.

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

     Script Unique
Untuk Button Close
stambuk_36110039.Text = ""

     Even
close_36110039_Click
PAS_36110039_TextChanged
PAX_36110039_TextChanged
TOTS_36110039_TextChanged
hilda1(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_11_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
      

2.    Klik menu file dan pilih New Project.
       

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
       

4.    Klik menu view dan pilih toolbox.
       

5.    Kemudian pilih object Label dan buat sebanyak sembilan. Pada properti text masing-masing label, isilah kalimat berikut: indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu, SKS, NxS, pengantar akuntansi, akuntansi intermediete, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK.
   
6.    Kemudian pilih object textbox dan buat sebanyak 11. Isi properti name masing-masing textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


7.    Kemudian pilih object button dan buat sebanyak 1. Isi properti name textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

8.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


9.    Berikut ini adalah rumus untuk menjalankan form di atas:

Private Sub hilda1(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)
        If N.Text = "A" Then
            NS.Text = 4 * Val(S.Text)
        ElseIf N.Text = "B" Then
            NS.Text = 3 * Val(S.Text)
        ElseIf N.Text = "C" Then
            NS.Text = 2 * Val(S.Text)
        ElseIf N.Text = "D" Then
            NS.Text = 1 * Val(S.Text)
        Else
            NS.Text = ""
        End If
    End Sub

    Private Sub PAS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAS_36110039.TextChanged
        hilda1(PAN_36110039, PAS_36110039, PAX_36110039)
        PAX_36110039.Text = Val(PAN_36110039.Text) * Val(PAS_36110039.Text)
        TOTS_36110039.Text = Val(PAS_36110039.Text) + Val(AIS_36110039.Text) + Val(AAS_36110039.Text) + Val(ABS_36110039.Text) + Val(SAS_36110039.Text)
    End Sub


    Private Sub AIS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AIS_36110039.TextChanged
        hilda1(AIN_36110039, AIS_36110039, AIX_36110039)
        AIX_36110039.Text = Val(AIN_36110039.Text) * Val(AIS_36110039.Text)
        TOTS_36110039.Text = Val(PAS_36110039.Text) + Val(AIS_36110039.Text) + Val(AAS_36110039.Text) + Val(ABS_36110039.Text) + Val(SAS_36110039.Text)
    End Sub

    Private Sub AAS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AAS_36110039.TextChanged
        hilda1(AAN_36110039, AAS_36110039, AAX_36110039)
        AAX_36110039.Text = Val(AAN_36110039.Text) * Val(AAS_36110039.Text)
        TOTS_36110039.Text = Val(PAS_36110039.Text) + Val(AIS_36110039.Text) + Val(AAS_36110039.Text) + Val(ABS_36110039.Text) + Val(SAS_36110039.Text)
    End Sub

    Private Sub ABS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABS_36110039.TextChanged
        hilda1(ABN_36110039, ABS_36110039, ABX_36110039)
        ABX_36110039.Text = Val(ABN_36110039.Text) * Val(ABS_36110039.Text)
        TOTS_36110039.Text = Val(PAS_36110039.Text) + Val(AIS_36110039.Text) + Val(AAS_36110039.Text) + Val(ABS_36110039.Text) + Val(SAS_36110039.Text)
    End Sub

    Private Sub SAS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAS_36110039.TextChanged
        hilda1(SAN_36110039, SAS_36110039, SAX_36110039)
        SAX_36110039.Text = Val(SAN_36110039.Text) * Val(SAS_36110039.Text)
        TOTS_36110039.Text = Val(PAS_36110039.Text) + Val(AIS_36110039.Text) + Val(AAS_36110039.Text) + Val(ABS_36110039.Text) + Val(SAS_36110039.Text)
    End Sub

    Private Sub PAX_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAX_36110039.TextChanged, AIX_36110039.TextChanged, AAX_36110039.TextChanged, ABX_36110039.TextChanged, SAX_36110039.TextChanged
        TOTX_36110039.Text = Val(PAX_36110039.Text) + Val(AIX_36110039.Text) + Val(AAX_36110039.Text) + Val(ABX_36110039.Text) + Val(SAX_36110039.Text)
    End Sub

    Private Sub TOTS_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TOTS_36110039.TextChanged
        IPK_36110039.Text = Val(TOTX_36110039.Text) / Val(TOTS_36110039.Text)
    End Sub

    Private Sub close_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_36110039.Click
        stambuk_36110039.Text = ""
        nama_36110039.Text = ""
        PAN_36110039.Text = ""
        AIN_36110039.Text = ""
        AAN_36110039.Text = ""
        ABN_36110039.Text = ""
        SAN_36110039.Text = ""
        PAS_36110039.Text = ""
        AIS_36110039.Text = ""
        AAS_36110039.Text = ""
        ABS_36110039.Text = ""
        SAS_36110039.Text = ""
        PAX_36110039.Text = ""
        AIX_36110039.Text = ""
        AAX_36110039.Text = ""
        ABX_36110039.Text = ""
        SAX_36110039.Text = ""
        TOTS_36110039.Text = ""
        TOTX_36110039.Text = ""
        IPK_36110039.Text = ""
   End Sub

10.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging.