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.ObjectByVal e As System.EventArgs) Handles MyBase.Load
  5.         hidupmati(FalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalse,FalseFalseFalse)
  6.         w = 1
  7.         rubahbutton(TrueFalseFalseFalseFalseTrue)
  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.Text32)
  39.         Dim jur = Microsoft.VisualBasic.Mid(NPM.Text52)
  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.ObjectByVal 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.ObjectByVal 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.ObjectByVal 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.ObjectByVal 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.ObjectByVal e As System.EventArgs) Handles bhapus.Click
  148.  
  149.         bersih()
  150.     End Sub
  151.  
  152.     Private Sub Button3_Click(ByVal sender As System.ObjectByVal 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.ObjectByVal e As System.EventArgs) Handles bsimpan.Click
  201.         isitabel()
  202.     End Sub
  203.  
  204.     Sub hidupmati(ByVal q1 As BooleanByVal q2 As BooleanByVal q3 As BooleanByVal q4 As BooleanByVal q5 AsBooleanByVal q6 As BooleanByVal q7 As BooleanByVal q8 As BooleanByVal q9 As BooleanByVal q10 As Boolean,ByVal q11 As BooleanByVal q12 As BooleanByVal q13 As BooleanByVal q14 As BooleanByVal 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.ObjectByVal e As System.EventArgs) Handles bbaru.Click
  224.         hidupmati(TrueTrueTrueTrueTrueTrueTrueTrueTrueTrueTrueTrueFalseFalseFalse,True)
  225.         rubahbutton(TrueTrueTrueTrueTrueTrue)
  226.         NPM.Focus()
  227.         bersih()
  228.     End Sub
  229.  
  230.     Private Sub HapusItem_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handlesbhapusitem.Click
  231.         Lv.Items.Remove(Lv.SelectedItems(0))
  232.     End Sub
  233.  
  234.     Sub rubahbutton(ByVal e1 As BooleanByVal e2 As BooleanByVal e3 As BooleanByVal e4 As BooleanByVal e5As BooleanByVal 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
Share this article :

Posting Komentar

 
Support : Creating Website | Igaph Sinaga | Mas Template
Copyright © 2013. Blognya Igaph - All Rights Reserved
Template Created by Creating Website Published by Igaph Sinaga
Proudly powered by Blogger