Skip to main content

Inheritance and Property Procedure in VB.NET

Write a program to create class Person. Make at least five properties and one method “show detail” of this class. Now inherit class Student and Faculty from class Person and override method “show detail”. Create objects of Student and Faculty class and call show detail function for both objects to show details in appropriate text boxes.  
Person.vb
Public Class Person
    Dim fname, lname, address As String
    Dim id, age As Integer
    Public Overloads Sub showdetails()
        MsgBox("Faculty Name :" & fname & " " & lname & vbNewLine & "ID :" & id & vbNewLine & "Age :" & age & vbNewLine & "Address" & address)
    End Sub
    Public Overloads Sub showdetails(ByVal s As String)
        MsgBox(s & " Name :" & fname & " " & lname & vbNewLine & "ID :" & id & vbNewLine & "Age :" & age & vbNewLine & "Address" & address)
    End Sub
    Public Property FN As String
        Set(ByVal value As String)
            fname = value
        End Set
        Get
            Return fname
        End Get
    End Property
    Public Property LN As String
        Set(ByVal value As String)
            lname = value
        End Set
        Get
            Return lname
        End Get
    End Property
    Public Property ADD As String
        Set(ByVal value As String)
            address = value
        End Set
        Get
            Return address
        End Get
    End Property
    Public Property IDN As Integer
        Set(ByVal value As Integer)
            id = value
        End Set
        Get
            Return ID
        End Get
    End Property
    Public Property AG As Integer
        Set(ByVal value As Integer)
            age = value
        End Set
        Get
            Return age
        End Get
    End Property
End Class
Student.vb
Public Class Student
    Inherits Person
End Class
Faculty.vb
Public Class faculty : Inherits Person
    'also use Inherits Person
End Class

Form1.vb
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim s1 As New Student
        s1.FN = TextBox1.Text
        s1.LN = TextBox2.Text
        s1.IDN = Val(TextBox3.Text)
        s1.AG = Val(TextBox4.Text)
        s1.ADD = TextBox5.Text
        s1.showdetails("Student")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim f1 As New faculty
        f1.FN = TextBox1.Text
        f1.LN = TextBox2.Text
        f1.IDN = Val(TextBox3.Text)
        f1.AG = Val(TextBox4.Text)
        f1.ADD = TextBox5.Text
        f1.showdetails()
    End Sub
End Class
DESIGNING

  

Comments

Post a Comment

Popular posts from this blog

BCA SEM 5 SHELL SCRIPT PROGRAM

1  Write a shell script to execute following commands 1. Sort file abc.txt and save this sorted file in xyz.txt 2. Give an example of : To execute commands together without affecting result of each other. 3. How to print “this is a three –line 1. Text message” 4. Which command display version of the UNIX? 5. How would u get online help of cat command? echo “sorting the file” sort abc.txt > xyz.txt echo “executing two commands” who ; ls echo “this is \n a three-line \n Text message” # use -e option if required echo “The version is `uname -a`” echo “Help of cat command” man cat 2  Write a shell script to execute following commands 1. How would u display the hidden files? 2. How delete directory with files? 3. How would user can do interactive copying? 4. How would user can do interactive deletion of files? 5. Explain two functionality of “mv” command with example? echo “1. How would u display the hidden files” echo “2. How delete directory with files” echo...
Post a Comment
Read more

C++

I NTRODUCTION TO OOP,CLASSES & OBJECTS 1. Use of scope Resolution of Operators. 2. Define a function outside a using scope resolution operators. 3. Write a program to calculate the area of circle, rectangle and square using function overloading. 4. Write a program to calculate the area of circle, rectangle and square using with class & object. 5. Write a program to demonstrate the use of returning a reference variable. 6. Create a class student,stores the details about name,roll no,marks of 5 subject,1.get function accept value of data members,2. display function to display,3.total function to return total of 5 subjects marks. 7. Create function power() in c++. & Create function power() in c++ and default argument. 8. Write a C++ program to swap the value of private data members from 2 different classes. 9. Write a program to illustrate the use of this pointer. 10. An election is contested by five candidates. The candidates are numbered 1 to 5 and the voting is do...
Post a Comment
Read more

Advanced Controls in VB.NET

1. Create a windows application as a word finder, which finds & replace the occurrence of that word with another word in VB.NET. 2. Create an application in which a user can enter a numeric value using one scroll bar between 0 to 100 and displays conversion of the value into Fahrenheit in VB.NET. 3. There are 3 Track Bars on the Form. The first Track Bar is stands for Red, second for Green and third for Blue, depends on the position of indicator the background color of label is display on Mouse Move in VB.NET. 4. Write a program to create a Treeview dynamically with buttons Add To Root, Add To Selected Node, Remove and Scan buttons.On click of Scan button all the nodes of the Treeview should be listed in the Listbox placed in side by. 5. Write a Program to Implement a MDI application. It should have File menu with option New, Close, Close All and Exit. It should also have window menu to arrange the child forms like Tile Horizontal, Tile Vertical, Cascade and Arrange Icons in VB...
Post a Comment
Read more