Android Practical 19
Android Practical 19
Imports System.console
Module Module1
Public Class faculty
Dim id As Integer
Dim name As String
Dim destination As String
Dim domain As String
Public Function faculty_get()
Console.WriteLine("Enter The Informatopn of the faculty")
Console.WriteLine()
Console.WriteLine("Enter the faculty Id")
id = Console.ReadLine()
Console.WriteLine("Enter The Faculty Name")
name = Console.ReadLine()
Console.WriteLine("Enter The Faculty Destinatiopn")
destination = Console.ReadLine()
Console.WriteLine("Enter The Faculty Domain")
domain = Console.ReadLine()
Return 0
End Function
Public Function faculty_put()
Console.WriteLine("Faculty Data")
Console.WriteLine("Faculty: id " & id)
Console.WriteLine("Faculty Name " & name)
Console.WriteLine("Faculty Destination " & destination)
Console.WriteLine("Faculty Domain " & domain)
Return 0
End Function
End Class
Public Class Student
Inherits faculty
Dim enroll As Integer
Dim name As String
Dim course As String
Public Function Student_get()
Console.WriteLine("Enter The Informatopn of the Student")
Console.WriteLine()
Console.WriteLine("Enter the Student Enroll")
enroll = Console.ReadLine()
Console.WriteLine("Enter The Student Name")
name = Console.ReadLine()
Console.WriteLine("Enter The Student Course")
course = Console.ReadLine()
Return 0
End Function
Public Function Student_put()
Console.WriteLine("Faculty Data")
Console.WriteLine("Student: Enroll " & enroll)
Console.WriteLine("Student Name " & name)
Console.WriteLine("Student Course " & course)
Return 0
End Function
End Class
Sub Main()
Dim s As Student = New Student()
s.faculty_get()
s.Student_get()
s.faculty_put()
s.Student_put()
Console.ReadKey()
End Sub
End Module
Imports System.console
Module Module1
Class emplyee
Dim name, Projet As String
Public Overridable Function get_show()