DESKRIPSI LATIHAN 11
Form Latihan_11 terdapat tiga object yaitu Label,Textbox,
Button:
Object Label
Terdapat empat belas object Label (yang bernama Indeks Prestasi Komulatif, Stambuk,
Nama, Mata Kuliah, Pengantar Akuntansi,Akuntansi Intermediete, Akuntansi
Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK, Nilai Mutu (N), SKS
(S), N x S )
Object
Textbox
Terdapat dua puluh object textbox (dua belas status input;
delapan status read only). Status input digunakan untuk memasukkan data/angka.
Status Read Only digunakan untuk menampilkan hasil perhitungan dari
data-data yang telah diinput.
RUMUS PERHITUNGAN :
·
NILAI MUTU = ”A”=4, ”B”=3, ”C”=2,
”D”= dan ”E”=0
·
SKS merupakan nilai yang diinput
berdasarkan jumlah SKS pada setiap mata kuliah
·
TOTAL SKS merupakan jumlah
keseluruhan nilai SKS mata kuliah yang diikuti
·
NXS merupakan perkalian nilai mutu
dengan nilai SKS
·
TOTAL NXS merupakan jumlah NXS
·
IPK merupakan pembagian TOTAL NXS
dengan TOTAL SKS
Object
Button
Terdapat satu object button yaitu
“Close”
Object button ini digunakan untuk
mengosongkan kembali object TextBox.
Script
Unique
TOTALS_36110043.Text = Val(S1_36110043.Text) + Val(S2_36110043.Text) +
Val(S3_36110043.Text) + Val(S4_36110043.Text) + Val(S5_36110043.Text)
Even
N1_36110043.TextChanged
Property
Property TextBox ==> ReadOnly=True
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"
3.
pilih Windows Form,
lalu isi Name dengan Nama Latihan 11 dan click add.
4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan
ini.}
5.
Ganti nama setiap object kecuali
Label menggunakan "Properties Window"
6.
Klik 2x pada design form yang telah
dibuat untuk membuka lembar Scripnya.
7.
Masukkkan Scrip di bawah ini.
SCRIPT LATIHAN 11
Public Class latihan_11_36110043
Private Sub adi(ByVal N As TextBox, ByVal S As TextBox, ByVal NXS
As TextBox)
If
N.Text = "A" Then
NXS.Text = Val(S.Text) * 4
ElseIf
N.Text = "B" Then
NXS.Text = Val(S.Text) * 3
ElseIf
N.Text = "C" Then
NXS.Text = Val(S.Text) * 2
ElseIf
N.Text = "D" Then
NXS.Text = Val(S.Text) * 1
ElseIf
N.Text = "E" Then
NXS.Text = Val(S.Text) * 0
End If
End Sub
Private Sub N1_36110043_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N1_36110043.TextChanged, N2_36110043.TextChanged, N3_36110043.TextChanged, N4_36110043.TextChanged,
N5_36110043.TextChanged
adi(N1_36110043, S1_36110043,
NXS1_36110043)
adi(N2_36110043, S2_36110043,
NXS2_36110043)
adi(N3_36110043, S3_36110043,
NXS3_36110043)
adi(N4_36110043, S4_36110043,
NXS4_36110043)
adi(N5_36110043, S5_36110043,
NXS5_36110043)
TOTALS_36110043.Text =
Val(S1_36110043.Text) + Val(S2_36110043.Text) + Val(S3_36110043.Text) +
Val(S4_36110043.Text) + Val(S5_36110043.Text)
TOTALNXS_36110043.Text =
Val(NXS1_36110043.Text) + Val(NXS2_36110043.Text) + Val(NXS3_36110043.Text) +
Val(NXS4_36110043.Text) + Val(NXS5_36110043.Text)
IPK_36110043.Text =
Val(TOTALNXS_36110043.Text) / Val(TOTALS_36110043.Text)
End Sub
Private Sub S1_36110043_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
S1_36110043.TextChanged, S2_36110043.TextChanged, S3_36110043.TextChanged,
S4_36110043.TextChanged, S5_36110043.TextChanged
adi(N1_36110043, S1_36110043,
NXS1_36110043)
adi(N2_36110043, S2_36110043,
NXS2_36110043)
adi(N3_36110043, S3_36110043,
NXS3_36110043)
adi(N4_36110043, S4_36110043,
NXS4_36110043)
adi(N5_36110043, S5_36110043,
NXS5_36110043)
TOTALS_36110043.Text =
Val(S1_36110043.Text) + Val(S2_36110043.Text) + Val(S3_36110043.Text) +
Val(S4_36110043.Text) + Val(S5_36110043.Text)
TOTALNXS_36110043.Text =
Val(NXS1_36110043.Text) + Val(NXS2_36110043.Text) + Val(NXS3_36110043.Text) +
Val(NXS4_36110043.Text) + Val(NXS5_36110043.Text)
IPK_36110043.Text =
Val(TOTALNXS_36110043.Text) / Val(TOTALS_36110043.Text)
End Sub
End Class
TERAKHIR,,,SAVE
DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING
yeahhh.....
Tidak ada komentar:
Posting Komentar