projek aplikasi nilai mahasiswa

NAMA : MAKLUFATUN AULA
NIM : 161011700405

Analisa kebutuhan

- aplikasi ini berfungsi untuk menyimpaan nilai mahasiswa
- merangkum nilai mahasiswa
- mempermudah dalam memasukan daata
  - data nilai mahasiswa
  - data laporan mahasiswa


interface login 

Private Sub Command1_Click()
User = Text1.Text
Password = Text2.Text
If User = "edwin" And Password = "123" Then
MsgBox "Selamat Datang"
Form2.Show
Form1.Hide
Else
login = login + 1
MsgBox "Anda salah memasukkan PassWord " & login & " kali"
If login = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation
End If
If login = 3 Then
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka program ini akan kami tutup!", vbCritical
End
End If
End If
End Sub

interface rekap nilai

 hasil

source code nya


Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
Dim absen, tugas, keaktifan, uts, uas As Integer
Dim nilaiakhir As Integer
absen = txtabsen.Text * 20 / 100
tugas = txttugas.Text * 15 / 100
keaktifan = txtkeaktifan.Text * 10 / 100
uts = txtuts.Text * 25 / 100
uas = txtuas.Text * 30 / 100
nilaiakhir = absen + tugas + keaktifan + uts + uas
txtnilaiakhir.Text = nilaiakhir
If nilaiakhir > 85 Then
MsgBox(“Nilai A”)
ElseIf nilaiakhir > 70 Then
MsgBox(“Nilai B”)
ElseIf nilaiakhir > 60 Then
MsgBox(“Nilai C”)
ElseIf nilaiakhir > 50 Then
MsgBox(“Nilai D”)
ElseIf nilaiakhir > 0 Then
MsgBox(“Nilai E”)
End If
End Sub
Function Grade(ByRef nilairatarata As Integer)
Dim hasil As Boolean
If nilairatarata <= 40 Then
hasil = True
Else
hasil = False
End If
Return hasil
End Function

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtnama.Clear()
txtabsen.Clear()
txttugas.Clear()
txtkeaktifan.Clear()
txtuts.Clear()
txtuas.Clear()
txtnilaiakhir.Clear()
End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Close()
End Sub