Form Latihan_01_36110040 Terdapat
tiga object yaitu label, textbox, dan button:
Object Label
Terdapat
empat belas label (yang bertuliskan indeks prestasi kumulatif; stambuk; nama;
mata kuliah; nilai mutu; sks; nxs; pengantar akuntansi; akuntansi intermediate;
akuntansi advance; akuntansi biaya; system akuntansi; total ipk)
Object Text Box
Terdapat dua
puluh textbox ( dua belas status input; delapan status readonly). Status input
digunakan untuk memasukkan nilai stambuk; nama; nilai mutu pengantar akuntansi;
akuntansi intermediate; akuntansi advance; akuntansi biaya; system akuntansi;
sks pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi
biaya; system akuntans. Status readonly digunakan untuk menampilkan hasil
perhitungan.
Script Unique
Membaca nilai TextBox Lain dan
Menempatkan nilai pada TextBox tertentu
Private Sub RAHMI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
If
A.Text = "A" Then
NS1_36110040.Text = 4 *
Val(SKS1_36110040.Text)
ElseIf
A.Text = "B" Then
NS2_36110040.Text = 3 *
Val(SKS1_36110040.Text)
ElseIf
A.Text = "C" Then
NS1_36110040.Text = 2 *
Val(NM1_36110040.Text)
ElseIf
A.Text = "D" Then
NS1_36110040.Text = 1 * Val(NM1_36110040.Text)
ElseIf
A.Text = 0 Then
End If
End Sub
End Sub
Even
TextChanged
Property
Property TextBox
==> ReadOnly=True
Tahap
Penyelesaian Latihan_11_36110040
1.
Buka Project yang telah dibuat, lalu
buka solution Explorer
2.
Setelah itu klik kanan nama project,
pilih add dan klik “new item”
3.
Click Add New Item terbuka, pilih
Windows Form, lalu isi Name dengan Nama Latihan_10 dan add.
4.
Buat Form Latihan_10 dibawah ini:
5. Berikut ini Rumus untuk menjalankan Form diatas:
Public Class LATIHAN_11_36110040
Private Sub RAHMI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
If
A.Text = "A" Then
NS1_36110040.Text = 4 *
Val(SKS1_36110040.Text)
ElseIf
A.Text = "B" Then
NS2_36110040.Text = 3 *
Val(SKS1_36110040.Text)
ElseIf
A.Text = "C" Then
NS1_36110040.Text = 2 *
Val(NM1_36110040.Text)
ElseIf
A.Text = "D" Then
NS1_36110040.Text = 1 *
Val(NM1_36110040.Text)
ElseIf
A.Text = 0 Then
End If
End Sub
Private Sub SKS1_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
SKS1_36110040.TextChanged
RAHMI(NM1_36110040, SKS1_36110040,
NS1_36110040)
NS1_36110040.Text =
Val(NM1_36110040.Text * SKS1_36110040.Text)
TOTAL1_36110040.Text =
Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) +
Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)
End Sub
Private Sub SKS2_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
SKS2_36110040.TextChanged
RAHMI(NM2_36110040, SKS2_36110040,
NS2_36110040)
NS2_36110040.Text =
Val(NM2_36110040.Text * SKS2_36110040.Text)
TOTAL1_36110040.Text =
Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) +
Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)
End Sub
Private Sub SKS3_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
SKS3_36110040.TextChanged
RAHMI(NM3_36110040, SKS3_36110040,
NS3_36110040)
NS3_36110040.Text =
Val(NM3_36110040.Text * SKS3_36110040.Text)
TOTAL1_36110040.Text =
Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) +
Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)
End Sub
Private Sub SKS4_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
SKS4_36110040.TextChanged
RAHMI(NM4_36110040, SKS4_36110040,
NS4_36110040)
NS4_36110040.Text =
Val(NM4_36110040.Text * SKS4_36110040.Text)
TOTAL1_36110040.Text =
Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) +
Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)
End Sub
Private Sub SKS5_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
SKS5_36110040.TextChanged
RAHMI(NM5_36110040, SKS5_36110040,
NS5_36110040)
NS5_36110040.Text =
Val(NM5_36110040.Text * SKS5_36110040.Text)
TOTAL1_36110040.Text =
Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) +
Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)
End Sub
Private Sub NS1_36110040_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
NS1_36110040.TextChanged, NS2_36110040.TextChanged, NS3_36110040.TextChanged,
NS4_36110040.TextChanged, NS5_36110040.TextChanged
TOTAL2_36110040.Text =
Val(NS1_36110040.Text) + Val(NS2_36110040.Text) + Val(NS3_36110040.Text) +
Val(NS4_36110040.Text) + Val(NS5_36110040.Text)
End Sub
Private Sub TOTAL1_36110047_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
TOTAL1_36110040.TextChanged, TOTAL2_36110040.TextChanged
IPK_36110040.Text =
Val(TOTAL2_36110040.Text) / Val(TOTAL1_36110040.Text)
End Sub
End Class
6. Setelah itu jalankan Programnya dengan
menekan “start debugging”
7. Kemudian simpan file tersebut dengan
menekan icon “Save”
8. Selesai.
Tidak ada komentar:
Posting Komentar