MEMBUAT PROGRAM DAFTAR NILAI MAHASISWA DI VB.NET 2008

Public Class Form1
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Sub buattabel()
lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Center)
lv.Columns.Add("Mata Kuliah", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UTS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UAS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Angka", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 150, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(makul.Text)
lst.SubItems.Add(uts.Text)
lst.SubItems.Add(uas.Text)
lst.SubItems.Add(angka.Text)
lst.SubItems.Add(huruf.Text)
lv.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
makul.Items.Add("C Sharp")
makul.Items.Add("VB.NET")
makul.Items.Add("Basis Data")
For i = 100 To 50 Step -5
uts.Items.Add(i)
uas.Items.Add(i)
Next i
npm.Items.Add("13110126")
npm.Items.Add("13110127")
npm.Items.Add("13110128")
makul.Items.Add("Konsep Pemograman")
makul.Items.Add("Teknik Digital")
makul.Items.Add("Visual Basic")
makul.Items.Add("Komunikasi Data")
End Sub
Private Sub isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isilist.Click
Call isitable()
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
End Sub
Private Sub hapusnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusnpm.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub hapuslis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuslis.Click
lv.Items.Clear()
End Sub
Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Ucok"
ElseIf npm.Text = "13110127" Then
nama.Text = "Butet"
Else
nama.Text = " Rahayu"
End If
End Sub
Private Sub uts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uts.SelectedIndexChanged
uts.Text = uts.Text * "0.30"
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
angka.Text = 0.4 * uts.Text + 0.6 * uas.Text
If angka.Text >= 80 Then
huruf.Text = "A"
ElseIf angka.Text >= 70 Then
huruf.Text = "B"
ElseIf angka.Text >= 60 Then
huruf.Text = "C"
ElseIf angka.Text >= 50 Then
huruf.Text = "D"
ElseIf angka.Text >= 40 Then
huruf.Text = "E"
End If
End Sub
End Class
Oke terimakasih atas kunjungannya, Semoga Postingan MEMBUAT PROGRAM DAFTAR NILAI MAHASISWA DI VB.NET 2008 ini bermanfaat.
Selamat mencoba!!!
0 Response to "MEMBUAT PROGRAM DAFTAR NILAI MAHASISWA DI VB.NET 2008"
Post a Comment