Deskripsi_Latihan_11_36110054

Cara Membuat Progam/Apliaksi Latihan 11

Dengan Software Microsoft Visual Basic 2008

Langkah 1 :
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 : 

Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

      Langkah 3 : Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_11_36110054
Label	Text : INDEKS PRESTASI KOMULATIF
Label	Text : Stambuk
Label	Text : Nama
Label	Text : Mata Kuliah
Label	Text : Pengantar Akuntansi
Label	Text : Akuntansi Intermediate
Label	Text : Akuntansi Advance
Label	Text : Akuntansi Biaya
Label	Text : Sistem Akuntansi
Label	Text : Total
Label	Text : IPK
Label	Text : Nilai Mutu (N)
Label	Text : SKS (S)
Label	Text : N x S
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

 

   Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_11_36110054

    Private Sub CULLANK(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)
        If N.Text = "A" Or N.Text = "a" Then
            NS.Text = 4 * Val(S.Text)
        ElseIf N.Text = "B" Or N.Text = "b" Then
            NS.Text = 3 * Val(S.Text)
        ElseIf N.Text = "C" Or N.Text = "c" Then
            NS.Text = 2 * Val(S.Text)
        ElseIf N.Text = "D" Or N.Text = "d" Then
            NS.Text = 1 * Val(S.Text)
        Else
            NS.Text = 0
        End If

    End Sub

    Private Sub S1_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S1_36110054.TextChanged, N1_36110054.TextChanged
        CULLANK(N1_36110054, S1_36110054, NS1_36110054)
        TS_36110054.Text = Val(S1_36110054.Text) + Val(S2_36110054.Text) + Val(S3_36110054.Text) + Val(S4_36110054.Text) + Val(S5_36110054.Text)
        TNS_36110054.Text = Val(NS1_36110054.Text) + Val(NS2_36110054.Text) + Val(NS3_36110054.Text) + Val(NS4_36110054.Text) + Val(NS5_36110054.Text)
    End Sub


    Private Sub S2_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S2_36110054.TextChanged, N2_36110054.TextChanged
        CULLANK(N2_36110054, S2_36110054, NS2_36110054)
        TS_36110054.Text = Val(S1_36110054.Text) + Val(S2_36110054.Text) + Val(S3_36110054.Text) + Val(S4_36110054.Text) + Val(S5_36110054.Text)
        TNS_36110054.Text = Val(NS1_36110054.Text) + Val(NS2_36110054.Text) + Val(NS3_36110054.Text) + Val(NS4_36110054.Text) + Val(NS5_36110054.Text)
    End Sub


    Private Sub S3_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S3_36110054.TextChanged, N3_36110054.TextChanged
        CULLANK(N3_36110054, S3_36110054, NS3_36110054)
        TS_36110054.Text = Val(S1_36110054.Text) + Val(S2_36110054.Text) + Val(S3_36110054.Text) + Val(S4_36110054.Text) + Val(S5_36110054.Text)
        TNS_36110054.Text = Val(NS1_36110054.Text) + Val(NS2_36110054.Text) + Val(NS3_36110054.Text) + Val(NS4_36110054.Text) + Val(NS5_36110054.Text)
    End Sub

    Private Sub S4_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S4_36110054.TextChanged, N4_36110054.TextChanged
        CULLANK(N4_36110054, S4_36110054, NS4_36110054)
        TS_36110054.Text = Val(S1_36110054.Text) + Val(S2_36110054.Text) + Val(S3_36110054.Text) + Val(S4_36110054.Text) + Val(S5_36110054.Text)
        TNS_36110054.Text = Val(NS1_36110054.Text) + Val(NS2_36110054.Text) + Val(NS3_36110054.Text) + Val(NS4_36110054.Text) + Val(NS5_36110054.Text)
    End Sub

    Private Sub S5_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles S5_36110054.TextChanged, N5_36110054.TextChanged
        CULLANK(N5_36110054, S5_36110054, NS5_36110054)
        TS_36110054.Text = Val(S1_36110054.Text) + Val(S2_36110054.Text) + Val(S3_36110054.Text) + Val(S4_36110054.Text) + Val(S5_36110054.Text)
        TNS_36110054.Text = Val(NS1_36110054.Text) + Val(NS2_36110054.Text) + Val(NS3_36110054.Text) + Val(NS4_36110054.Text) + Val(NS5_36110054.Text)
    End Sub

    Private Sub TNS_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TNS_36110054.TextChanged
        IPK_36110054.Text = FormatNumber(Val(TNS_36110054.Text) / Val(TS_36110054.Text), 2)
    End Sub
End Class