UAS Pemrograman Bisnis

Muhammad Dhany Arrozie
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