Latihan Program Nilai Dari VB. NET

Asslamaualaikum,,,
wah sepertinya hari ini adalah hari yang melelah kan walaupun harus ini hari libur,,,
hari ini adalah hari dimana saya dan teman-teman sekelasnya manghadapi ujian online,,,
Latihan Program Nilai Dari VB. NET
ok langsung aja ya,,,

ini dia,,,,
Taraaaa,,,

langkah pertama sekali buka VB Net 2008 dan desain form berikut ini,,,

dan perhatikan dengan benar listing program berikut ini,,

1. Public Class Form1
2.     Dim w As Byte
3.  
4.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5.         hidupmati(False, False, False, False, False, False, False, False, False, False, False, False, False,False, False, False)
6.         w = 1
7.         rubahbutton(True, False, False, False, False, True)
8.         buattabel()
9.         NPM.Items.Add("12110057")
10.         NPM.Items.Add("12120147")
11.         NPM.Items.Add("12130289")
12.         NPM.Items.Add("12120344")
13.         NPM.Items.Add("12110490")
14.  
15.         kddosen.Items.Add("lab01")
16.         kddosen.Items.Add("lab02")
17.         kddosen.Items.Add("lab03")
18.  
19.         kdmakul.Items.Add("K01")
20.         kdmakul.Items.Add("K02")
21.         kdmakul.Items.Add("K03")
22.  
23.         Dim x As Integer
24.         For x = 100 To 1 Step -3
25.             nkehadiran.Items.Add(x)
26.             ntugas.Items.Add(x)
27.             nUTS.Items.Add(x)
28.             nUAS.Items.Add(x)
29.         Next
30.  
31.         nakhir.Enabled = False
32.         nhuruf.Enabled = False
33.         keterangan.Enabled = False
34.  
35.     End Sub
36.  
37.     Sub jurjen()
38.         Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
39.         Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
40.         If jen = "11" Then
41.             jenjang.Text = "S1"
42.         ElseIf jen = "12" Then
43.             jenjang.Text = "D3"
44.         ElseIf jen = "13" Then
45.             jenjang.Text = "D1"
46.         End If
47.         If jur = "00" Then
48.             jurusan.Text = "Tehnik Informatika"
49.         ElseIf jur = "01" Then
50.             jurusan.Text = "Sistem Informatika"
51.         ElseIf jur = "02" Then
52.             jurusan.Text = "Manajemen Informatika"
53.         ElseIf jur = "03" Then
54.             jurusan.Text = "Komputerisasi Akuntansi"
55.         ElseIf jur = "04" Then
56.             jurusan.Text = "Desain Grafis"
57.         End If
58.     End Sub
59.  
60.     Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesNPM.SelectedIndexChanged
61.  
62.  
63.         If NPM.Text = "12110057" Then
64.             nama.Text = "Andre Ibo"
65.             Call jurjen()
66.         ElseIf NPM.Text = "12120147" Then
67.             nama.Text = "Partrick Wanggai"
68.             Call jurjen()
69.         ElseIf NPM.Text = "12130289" Then
70.             nama.Text = "Evan Dimas"
71.             Call jurjen()
72.         ElseIf NPM.Text = "12120344" Then
73.             nama.Text = "Putu Gede"
74.             Call jurjen()
75.         ElseIf NPM.Text = "12110490" Then
76.             nama.Text = "Firman Utina"
77.             Call jurjen()
78.         End If
79.     End Sub
80.  
81.     Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handleskddosen.SelectedIndexChanged
82.         If kddosen.Text = "lab01" Then
83.             namadosen.Text = "Mesran, M.Kom"
84.         ElseIf kddosen.Text = "lab02" Then
85.             namadosen.Text = "Nelly Astuti Hsb, M.Kom"
86.         ElseIf kddosen.Text = "lab03" Then
87.             namadosen.Text = "Surya Darma Nst, M.Kom"
88.  
89.         End If
90.  
91.     End Sub
92.  
93.     Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handleskdmakul.SelectedIndexChanged
94.  
95.         If kdmakul.Text = "K01" Then
96.             namamakul.Text = "Pemrograman Visual I"
97.         ElseIf kdmakul.Text = "K02" Then
98.             namamakul.Text = "Sistem Basis Data"
99.         ElseIf kdmakul.Text = "K03" Then
100.             namamakul.Text = "Arsitektur Data"
101.         End If
102.  
103.     End Sub
104.  
105.     Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bproses.Click
106.  
107.         nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text
108.         If nakhir.Text >= 90 Then
109.             nhuruf.Text = "A"
110.             keterangan.Text = "LULUS"
111.         ElseIf nakhir.Text >= 80 Then
112.             nhuruf.Text = "B"
113.             keterangan.Text = "LULUS"
114.         ElseIf nakhir.Text >= 70 Then
115.             nhuruf.Text = "C"
116.             keterangan.Text = "LULUS"
117.         ElseIf nakhir.Text >= 60 Then
118.             nhuruf.Text = "D"
119.             keterangan.Text = "LULUS"
120.         ElseIf nakhir.Text <= 50 Then
121.             nhuruf.Text = "E"
122.             keterangan.Text = "GAGAL"
123.         End If
124.  
125.     End Sub
126.  
127.     Sub bersih()
128.         NPM.Text = ""
129.         nama.Text = ""
130.         jenjang.Text = ""
131.         jurusan.Text = ""
132.         kddosen.Text = ""
133.         namadosen.Text = ""
134.         kdmakul.Text = ""
135.         namamakul.Text = ""
136.         nkehadiran.Text = ""
137.         ntugas.Text = ""
138.         nUTS.Text = ""
139.         nUAS.Text = ""
140.         nakhir.Text = ""
141.         nhuruf.Text = ""
142.         keterangan.Text = ""
143.         NPM.Focus()
144.  
145.     End Sub
146.  
147.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click
148.  
149.         bersih()
150.     End Sub
151.  
152.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click
153.         Me.Close()
154.     End Sub
155.  
156.     Sub buattabel()
157.         Lv.Columns.Add("No", 20, HorizontalAlignment.Center)
158.         Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
159.         Lv.Columns.Add("Jumlah", 50, HorizontalAlignment.Left)
160.         Lv.Columns.Add("Jenjang", 70, HorizontalAlignment.Left)
161.         Lv.Columns.Add("Jurusan", 70, HorizontalAlignment.Left)
162.         Lv.Columns.Add("Kode Dosen", 70, HorizontalAlignment.Left)
163.         Lv.Columns.Add("Nama Dosen", 70, HorizontalAlignment.Left)
164.         Lv.Columns.Add("Kode Mata Kuliah", 70, HorizontalAlignment.Left)
165.         Lv.Columns.Add("Nama Mata Kuliah", 70, HorizontalAlignment.Left)
166.         Lv.Columns.Add("Nilai Kehadiran", 70, HorizontalAlignment.Left)
167.         Lv.Columns.Add("Nilai Tugas", 70, HorizontalAlignment.Left)
168.         Lv.Columns.Add("Nilai UTS", 70, HorizontalAlignment.Left)
169.         Lv.Columns.Add("Nilai UAS", 70, HorizontalAlignment.Left)
170.         Lv.Columns.Add("Nilai Akhir", 70, HorizontalAlignment.Left)
171.         Lv.Columns.Add("Nilai Huruf", 70, HorizontalAlignment.Left)
172.         Lv.Columns.Add("Keterangan", 70, HorizontalAlignment.Left)
173.         Lv.View = View.Details
174.         Lv.GridLines = True
175.         Lv.FullRowSelect = True
176.     End Sub
177.  
178.     Sub isitabel()
179.         Dim Isi As New ListViewItem
180.         Isi.Text = w
181.         Isi.SubItems.Add(NPM.Text)
182.         Isi.SubItems.Add(nama.Text)
183.         Isi.SubItems.Add(jenjang.Text)
184.         Isi.SubItems.Add(jurusan.Text)
185.         Isi.SubItems.Add(kddosen.Text)
186.         Isi.SubItems.Add(namadosen.Text)
187.         Isi.SubItems.Add(kdmakul.Text)
188.         Isi.SubItems.Add(namamakul.Text)
189.         Isi.SubItems.Add(nkehadiran.Text)
190.         Isi.SubItems.Add(ntugas.Text)
191.         Isi.SubItems.Add(nUTS.Text)
192.         Isi.SubItems.Add(nUAS.Text)
193.         Isi.SubItems.Add(nakhir.Text)
194.         Isi.SubItems.Add(nhuruf.Text)
195.         Isi.SubItems.Add(keterangan.Text)
196.         Lv.Items.Add(Isi)
197.         w = w + 1
198.     End Sub
199.  
200.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click
201.         isitabel()
202.     End Sub
203.  
204.     Sub hidupmati(ByVal q1 As Boolean, ByVal q2 As Boolean, ByVal q3 As Boolean, ByVal q4 As Boolean, ByVal q5 AsBoolean, ByVal q6 As Boolean, ByVal q7 As Boolean, ByVal q8 As Boolean, ByVal q9 As Boolean, ByVal q10 As Boolean,ByVal q11 As Boolean, ByVal q12 As Boolean, ByVal q13 As Boolean, ByVal q14 As Boolean, ByVal q15 As Boolean,ByVal q16 As Boolean)
205.         NPM.Enabled = q1
206.         nama.Enabled = q2
207.         jenjang.Enabled = q3
208.         jurusan.Enabled = q4
209.         kddosen.Enabled = q5
210.         namadosen.Enabled = q6
211.         kdmakul.Enabled = q7
212.         namamakul.Enabled = q8
213.         nkehadiran.Enabled = q9
214.         ntugas.Enabled = q10
215.         nUTS.Enabled = q11
216.         nUAS.Enabled = q12
217.         nakhir.Enabled = q13
218.         nhuruf.Enabled = q14
219.         keterangan.Enabled = q15
220.         Lv.Enabled = q16
221.     End Sub
222.  
223.     Private Sub bbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbaru.Click
224.         hidupmati(True, True, True, True, True, True, True, True, True, True, True, True, False, False, False,True)
225.         rubahbutton(True, True, True, True, True, True)
226.         NPM.Focus()
227.         bersih()
228.     End Sub
229.  
230.     Private Sub HapusItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbhapusitem.Click
231.         Lv.Items.Remove(Lv.SelectedItems(0))
232.     End Sub
233.  
234.     Sub rubahbutton(ByVal e1 As Boolean, ByVal e2 As Boolean, ByVal e3 As Boolean, ByVal e4 As Boolean, ByVal e5As Boolean, ByVal e6 As Boolean)
235.         bbaru.Enabled = e1
236.         bsimpan.Enabled = e2
237.         bproses.Enabled = e3
238.         bhapus.Enabled = e4
239.         bhapusitem.Enabled = e5
240.         bkeluar.Enabled = e6
241.     End Sub
242.  
243. End Class

Nah Itulah Contoh Program VB.NET 2008 saya,,,,
semoga bermanfaat dan Salam Sukses Bagi Kita semua,,, :D

Diposting oleh Unknown 13.23 0 komentar