Students MarkSheet Result Program in VB.NET

Create one class student which stores information of student’s Roll no, Name, Total marks, which can not be used from outside the class. Student class must provide properly methods to read and write this information. Student class should provide one function called percentage. Create the other classes from student class FYBCA, SYBCA, TYBCA, which stores marks of different subjects in array marks having no. of elements equal to no. of subjects respectively. The child class must provide function for calculating the total which should be stored in Total Marks of base class. The child classes must have the correct method for calculating percentage according to no. of subjects. Demonstrate the use of these classes.

FYBCA.VB

Public Class FYBCA
    Inherits student
    Dim i As Integer = 0
    Dim submark(4) As Integer
    Public Property calculatemark As Integer
        Set(ByVal value As Integer)
            submark(i) = value
            i += 1
        End Set
        Get
            Return submark.Sum
        End Get
    End Property
End Class

SYBCA.VB

Public Class SYBCA
    Inherits student
    Dim i As Integer = 0
    Dim submark(4) As Integer
    Public Property calculatemark As Integer
        Set(ByVal value As Integer)
            submark(i) = value
            i += 1
        End Set
        Get
            Return submark.Sum
        End Get
    End Property
End Class

TYBCA.VB

Public Class TYBCA
    Inherits student
    Dim i As Integer = 0
    Dim submark(4) As Integer
    Public Property calculatemark As Integer
        Set(ByVal value As Integer)
            submark(i) = value
            i += 1
        End Set
        Get
            Return submark.Sum
        End Get
    End Property
End Class

student.vb

Public Class student
    Dim RollNo, TotalMarks As Single
    Dim StudentName As String
    Public Property roll As Integer
        Set(ByVal value As Integer)
            RollNo = value
        End Set
        Get
            Return RollNo
        End Get
    End Property
    Public Property mark As Integer
        Set(ByVal value As Integer)
            TotalMarks = value
        End Set
        Get
            Return TotalMarks
        End Get
    End Property
    Public Property name As String
        Set(ByVal value As String)
            StudentName = value
        End Set
        Get
            Return StudentName
        End Get
    End Property
    Public Function percentage(ByVal i As Integer) As Single
        TotalMarks = i
        Return TotalMarks / 4
    End Function
End Class

Form1.vb

Public Class Form1
    Private i As Short
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sub1.Visible = False
        sub2.Visible = False
        sub3.Visible = False
        sub4.Visible = False
    End Sub
    Private Sub fybca_Click(sender As Object, e As EventArgs) Handles fybca.Click
        changeyear()
        fybca.ForeColor = Color.Black
        sub1name.Text = "C Language"
        sub2name.Text = "HTML"
        sub3name.Text = "DHTML & XML"
        sub4name.Text = "DBMS-1"
        i = 1
    End Sub
    Private Sub sybca_Click(sender As Object, e As EventArgs) Handles sybca.Click
        changeyear()
        sybca.ForeColor = Color.Black
        sub1name.Text = "C++ Language"
        sub2name.Text = "VB.NET"
        sub3name.Text = "DBMS-2"
        sub4name.Text = "Fundamental OS"
        i = 2
    End Sub
    Private Sub tybca_Click(sender As Object, e As EventArgs) Handles tybca.Click
        changeyear()
        tybca.ForeColor = Color.Black
        sub1name.Text = "JAVA"
        sub2name.Text = "ASP.NET"
        sub3name.Text = "Advance JAVA"
        sub4name.Text = "Advance VB.NET"
        i = 3
    End Sub
    Sub changeyear()
        sub1.Clear()
        sub2.Clear()
        sub3.Clear()
        sub4.Clear()
        sub1.Visible = True
        sub2.Visible = True
        sub3.Visible = True
        sub4.Visible = True
        totaldisplay.Text = ""
        persdisplay.Text = ""
        fybca.ForeColor = Color.White
        sybca.ForeColor = Color.White
        tybca.ForeColor = Color.White
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles DispResult.Click
        If i = 1 Then
            Dim fystudent As New FYBCA
            fystudent.calculatemark = Val(sub1.Text)
            fystudent.calculatemark = Val(sub2.Text)
            fystudent.calculatemark = Val(sub3.Text)
            fystudent.calculatemark = Val(sub4.Text)
            totaldisplay.Text = "Total Marks : " & fystudent.calculatemark
            persdisplay.Text = "Percentage : " & fystudent.percentage(fystudent.calculatemark)
        ElseIf i = 2 Then
            Dim systudent As New SYBCA
            systudent.calculatemark = Val(sub1.Text)
            systudent.calculatemark = Val(sub2.Text)
            systudent.calculatemark = Val(sub3.Text)
            systudent.calculatemark = Val(sub4.Text)
            totaldisplay.Text = "Total Marks : " & systudent.calculatemark
            persdisplay.Text = "Percentage : " & systudent.percentage(systudent.calculatemark)
        ElseIf i = 3 Then
            Dim tystudent As New TYBCA
            tystudent.calculatemark = Val(sub1.Text)
            tystudent.calculatemark = Val(sub2.Text)
            tystudent.calculatemark = Val(sub3.Text)
            tystudent.calculatemark = Val(sub4.Text)
            totaldisplay.Text = "Total Marks : " & tystudent.calculatemark
            persdisplay.Text = "Percentage : " & tystudent.percentage(tystudent.calculatemark)
        Else
            MsgBox("Select Year of BCA")
        End If
    End Sub
End Class

DESIGNING