1506760952
Akuntansi TSI
Penghitung Nilai Mahasiswa
Design:
Disini kita akan menjumlahkan nilai dan menentukan mahasiswa tersebut lulus atau tidak
Sebagai contoh dalam program ini, keseluruhan nilai tugas akan ditambah dan dikali 25% (2.5/10), dan Absensi dikali 5% (0.5?10) .Nilai Uts dan Nilai Uas masing-masing diberi nilai 30% (3/10) dan 40%(4/10)
Lalu total nilai akan dihitung , bila nilai tersebut kurang dari 65 ,maka mahasiswa tersebut tidak lulus.
File Excel untuk data - datanya:
Source Code:
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click
TextTotal.Text = ((TextAbsen.Text) * 0.5 / 10 + ((TextTugas.Text) * 2.5 / 10) + ((TextUTS.Text) * 3 / 10) + ((TextUAS.Text) * 4 / 10)
If TextTotal.Text >= 65 Then
TextKeterangan.Text = "Lulus"
Else TextKeterangan.Text = "Tidak Lulus"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click
Dim nilai8 As Object
Dim nilai7 As Object
Dim nilai6 As Object
Dim nilai5 As Object
Dim nilai4 As Object
Dim nilai3 As Object
Dim nilai2 As Object
Dim nilai1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D: \MHS.csv", OpenMode.Append)
nilai1 = TextMahasiswa.Text
nilai2 = TextNPM.Text
nilai3 = TextAbsen.Text
nilai4 = TextTugas.Text
nilai5 = TextUTS.Text
nilai6 = TextUAS.Text
nilai7 = TextTotal.Text
nilai8 = TextKeterangan.Text
ListBox1.Items.Add(nilai1 & "---" & nilai2 & "---" & nilai3 & "---" & nilai4 & "--" & nilai5 & "---" & nilai6 & "---" & nilai7 & "---" & nilai8 & "---")
WriteLine(1, nilai1, nilai2, nilai3, nilai4, nilai5, nilai 6)
FileClose(1)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) HandlesButton3.Click
Dim x = MsgBox("Anda Mau Keluar?", MsgBoxStyle.YesNo +MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub
End Class