Scribd
Upload
7 views2 pages

Library and Marksheet Processing System

The document contains code for two systems - a library processing system that calculates late return penalties and a marksheet processing system that calculates grades based on subject scores. The code handles user input, date calculations, and conditional logic for determining penalties, totals, percentages, results and grades.

Uploaded by

Yovan 2901
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
7 views2 pages

Library and Marksheet Processing System

The document contains code for two systems - a library processing system that calculates late return penalties and a marksheet processing system that calculates grades based on subject scores. The code handles user input, date calculations, and conditional logic for determining penalties, totals, percentages, results and grades.

Uploaded by

Yovan 2901
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

LIBRARY PROCESSING SYSTEM

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


[Link]
Dim submission As DateTime = [Link]
Dim d1 As DateTime = [Link]([Link]).Date
Dim d2 As DateTime = [Link](submission).Date
Dim days As Single = (d2 - d1).TotalDays
If days <= 0 Then
[Link] = 0
ElseIf days > 0 And days <= 10 Then
[Link] = 50
Else
[Link] = 100
End If
End Sub

Private Sub DateTimePicker1_CloseUp(sender As Object, e As EventArgs)


Handles [Link]
[Link] = [Link]("dd MMM yyyy")
End Sub

Private Sub DateTimePicker3_CloseUp(sender As Object, e As EventArgs)


Handles [Link]
[Link] = [Link]("dd MMM yyyy")
End Sub

Private Sub returndate_Click(sender As Object, e As EventArgs) Handles


[Link]
[Link] = [Link](10).ToString("dd MMM
yyyy")
End Sub
End Class
MARKSHEET PROCESSING SYSTEM

Public Class Form1

Private Sub total_GotFocus(sender As Object, e As EventArgs) Handles


[Link]
[Link] = Val([Link]) + Val([Link]) + Val([Link]) +
Val([Link])

End Sub

Private Sub percentage_GotFocus(sender As Object, e As EventArgs) Handles


[Link]
[Link] = [Link] / 4
End Sub

Private Sub result_GotFocus(sender As Object, e As EventArgs) Handles


[Link]
If [Link] >= 30 And [Link] >= 30 And [Link] >= 30 And
[Link] >= 30 Then
[Link] = "PASS"
Else
[Link] = "FAIL"
End If
End Sub

Private Sub clear_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub grade_GotFocus(sender As Object, e As EventArgs) Handles


[Link]
If [Link] >= 75 Then
[Link] = "I CLASS WITH DISTINCTION"
ElseIf [Link] > 60 And [Link] < 75 Then
[Link] = "I CLASS "
End If
End Sub

You might also like