UAS

1. Analisa kebutuhan
    - memasukan data mahasiswa oleh admin.
    - dapat di tampilkan pada web
    - mempermudah dalam menyimpan data,menghapus data,ataupun mengupdate ddata oleh admin
    - tampilan yang tidak rumit dapat di pengerti oleh yang ingin melihat data yang bersangkutan

- tampilan design database microsoft access
 

 

 

Table kedua saya membuat tabeluser yang berisikan: 

 a. nama(txt.50)

 b. absen(txt.30)

 c. tugas(txt.30)

 d. keaktifan(txt.40)

 e. uts(number.30)

 f. uas(number.30)

 g. nilai(number.30)

 

dan hasil tabelnya seperti di bawah ini:

 

 intervace input nilai mahasiswa visual studio:

 codinganya:

   

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

Tampilan design seperti ini:

Codingnya:

 

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

Hasil intervace formnya seperti  di bawah ini: