Example : A Class and Object Examples in VB .NET program using Subroutine in Console Application.
Imports System
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
'Private length As Integer
'Private width As Integer
'Private result As Integer
Public Sub Input()
length = 20
width = 30
End Sub
Public Sub Process()
result = length * width
End Sub
Public Sub Display()
Console.WriteLine("Length: {0}", length)
Console.WriteLine("Width: {0}", width)
Console.WriteLine("Area: {0}", result)
End Sub
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input()
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Class
Output:
Length: 20
Width: 30
Area: 600
NB: When sub main function is included inside the class, shared keyword is used with sub main.
----------------- OR -------------------
Imports System
Module Module1
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
'Private length As Integer
'Private width As Integer
'Private result As Integer
Public Sub Input()
length = 20
width = 30
End Sub
Public Sub Process()
result = length * width
End Sub
Public Sub Display()
Console.WriteLine("Length: {0}", length)
Console.WriteLine("Width: {0}", width)
Console.WriteLine("Area: {0}", result)
End Sub
Shared Sub Main()
Dim Obj1 As Rectangle = New Rectangle()
Obj1.Input()
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Class
End Module
Output:
Length: 20
Width: 30
Area: 600
----------------- OR -------------------
Imports System
Module Module1
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
'Private length As Integer
'Private width As Integer
'Private result As Integer
Public Sub Input()
length = 20
width = 30
End Sub
Public Sub Process()
result = length * width
End Sub
Public Sub Display()
Console.WriteLine("Length: {0}", length)
Console.WriteLine("Width: {0}", width)
Console.WriteLine("Area: {0}", result)
End Sub
End Class
Sub Main()
Dim Obj1 As Rectangle = New Rectangle()
Obj1.Input()
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Module
Output:
Length: 20
Width: 30
Area: 600
Example : A VB .Net program to demonstrate Private Methods using a Console application.
Class Example
Private x, y, z As Integer
Private Sub Input()
x = 10
y = 20
End Sub
Private Sub Process()
z = x + y
End Sub
Private Sub Display()
Console.WriteLine("The addition result is = {0}", z)
End Sub
Sub All()
Input()
Process()
Display()
End Sub
End Class
Module Module1
Sub Main()
Dim Obj As New Example()
'Obj.Input() 'Not accessible due to private
'Obj.Process() 'Not accessible due to private
'Obj.Display() 'Not accessible due to private
Obj.All()
End Sub
End Module
Output:
The addition result is = 30
Module Module1
Class Example
Public Shared num As Integer = 100
Sub Display()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
Sub Print()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
Sub Output()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
End Class
Sub Main()
Dim obj1, obj2 As New Example()
obj1.Display()
obj1.Print()
obj1.Output()
Console.WriteLine()
obj2.Display()
obj2.Print()
obj2.Output()
Console.WriteLine("The Value is = {0}", Example.num)
End Sub
End Module
Output:
The Value is = 110
The Value is = 120
The Value is = 130
The Value is = 140
The Value is = 150
The Value is = 160
The Value is = 160
NB: Shared Variables do not need object rather called directly by class name and Shared variables are associated with the class itself, not with any specific instance/object of the class i.e.all instances/objects of the class share the same copy of the shared variable.
Example: A VB .NET program to demonstrate Global Variables in a Console Application.
Module Module1
Class Example
Dim num As Integer = 100
Sub Display()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
Sub Print()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
Sub Output()
num = num + 10
Console.WriteLine("The Value is = {0}", num)
End Sub
End Class
Sub Main()
Dim obj1, obj2 As New Example()
obj1.Display()
obj1.Print()
obj1.Output()
Console.WriteLine()
obj2.Display()
obj2.Print()
obj2.Output()
'Console.WriteLine("The Value is = {0}", Example.num)
End Sub
End Module
Output:
The Value is = 110
The Value is = 120
The Value is = 130
The Value is = 110
The Value is = 120
The Value is = 130
NB: Global variables are accessible throughout an entire module or class, depending on how they are declared.Global variables are specific to each instance of the class. Each instance gets its own copy of the variable.Typically declared using Dim, Private, or Public outside any method, but inside a module or class.
Module Module1
Class Example
Shared Sub Display()
Console.WriteLine("First Function Executed")
End Sub
Shared Sub Output()
Console.WriteLine("Second Function Executed")
End Sub
End Class
Sub Main()
Example.Display()
Example.Output()
End Sub
End Module
Output:
First Function Executed
Second Function Executed
NB: Shared methods do not need object rather called by class name.
Example : A VB .Net program to demonstrate Multiple Objects using a Console application.
Class Example
'Private num1 As Integer
'Private num2 As Integer
Dim num1, num2 As Integer
Sub input(ByVal n1 As Integer, ByVal n2 As Integer)
num1 = n1
num2 = n2
End Sub
Sub output()
Console.WriteLine("First value is = " & num1)
Console.WriteLine("Second value is = " & num2)
End Sub
End Class
Module Module1
Sub Main()
'Dim obj1 As New Example()
'Dim obj2 As New Example()
Dim obj1, obj2 As New Example()
Console.WriteLine("The data of First Objects are = ")
obj1.input(20, 30)
obj1.output()
Console.WriteLine(vbCrLf & "The data of Second Objects are = ")
obj2.input(40, 50)
obj2.output()
End Sub
End Module
Output:
The data of First Objects are =
First value is = 20
Second value is = 30
The data of Second Objects are =
First value is = 40
Second value is = 50
Example : A VB .Net program to demonstrate an Array of Objects using a Console applications
Class Example
'Private num1 As Integer
'Private num2 As Integer
Dim num1, num2 As Integer
Sub input(ByVal n1 As Integer, ByVal n2 As Integer)
num1 = n1
num2 = n2
End Sub
Sub output()
Console.WriteLine("First value is = " & num1)
Console.WriteLine("Second value is = " & num2)
End Sub
End Class
Module Module1
Sub Main()
Dim obj(3) As Example ' Array of Objects
obj(0) = New Example()
obj(1) = New Example()
obj(2) = New Example()
Console.WriteLine("The data of First Objects(0) are = ")
obj(0).input(120, 130)
obj(0).output()
Console.WriteLine(vbCrLf & "The data of Second Objects(1) are = ")
obj(1).input(200, 300)
obj(1).output()
Console.WriteLine(vbCrLf & "The data of Third Objects(2) are = ")
obj(2).input(50, 30)
obj(2).output()
End Sub
End Module
Output:
The data of First Objects(0) are =
First value is = 120
Second value is = 130
The data of Second Objects(1) are =
First value is = 200
Second value is = 300
The data of Third Objects(2) are =
First value is = 50
Second value is = 30
Example : A VB .net program to Count the Total No. of Objects present/created/used in a Program in a Console applications
Module Module1
Class Example
Shared count As Integer = 0
Sub New()
count = count + 1
End Sub
Sub Output()
Console.WriteLine("Total No. of Objects = {0}", count)
End Sub
End Class
Sub Main()
Dim obj1 As New Example()
Dim obj2 As New Example()
Dim obj3 As New Example()
obj3.Output()
End Sub
End Module
Outputs:
Total No. of Objects = 3
Example : A VB .NET program using Function (No Argument No Return) to show the concept of class & object in Console Application.
Imports System
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input() As Integer
length = 20
width = 30
Return 0
End Function
Function Process() As Integer
result = length * width
Return 0
End Function
Function Display() As Integer
Console.WriteLine("Length is : {0}", length)
Console.WriteLine("Width is : {0}", width)
Console.WriteLine("Area of rectangle is: {0}", result)
Return 0
End Function
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input()
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Class
Output:
Length: 20
Width: 30
Area: 600
Example : A VB .NET program using Function (No Argument With Return) to show the concept of class & object in Console Application.
Imports System
Module Program
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input() As Integer
length = 20
width = 30
Return 0
End Function
Function Process() As Integer
result = length * width
Return result
End Function
Function Display() As Integer
Console.WriteLine("Length is : {0}", length)
Console.WriteLine("Width is : {0}", width)
Console.WriteLine("Area of rectangle is: {0}", Process())
Return 0
End Function
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input()
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Class
End Module
Output:
Length is : 20
Width is : 30
Area of rectangle is: 600
------------- OR -------------
Imports System
Module Program
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input() As Integer
length = 20
width = 30
Return 0
End Function
Function Process() As Integer
result = length * width
Return result
End Function
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input()
Console.Write("The output is = ")
Console.Write(Obj1.Process())
Console.ReadLine()
End Sub
End Class
End Module
Output:
The output is = 600
------------- OR -------------
Imports System
Module Program
Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input() As Integer
length = 20
width = 30
Return 0
End Function
Function Process() As Integer
result = length * width
Return result
End Function
End Class
Sub Main()
Dim Obj1 As New Rectangle()
Dim k As Integer
Obj1.Input()
k = Obj1.Process()
Console.Write("The output is = ")
Console.WriteLine(k)
Console.ReadLine()
End Sub
End Module
Output:
The output is = 600
Example : A VB .NET program with Parameterized Function (With Argument and No Return) to show the concept of class & object in Console Application.
Imports System
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input(ByVal len As Integer, ByVal wd As Integer) As Integer
length = len
width = wd
Return 0
End Function
Function Process() As Integer
result = length * width
Return 0
End Function
Function Display() As Integer
Console.WriteLine("Length is : {0}", length)
Console.WriteLine("Width is : {0}", width)
Console.WriteLine("Area of rectangle is: {0}", result)
Return 0
End Function
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input(15, 30)
Obj1.Process()
Obj1.Display()
Console.ReadLine()
End Sub
End Class
Output:
Length is : 15
Width is : 30
Area of rectangle is: 450
Example : A VB .NET program with Parameterized and return type Functions (With Argument and With Return) to show the concept of class & object in a Console Application.
Imports System
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input(ByVal len As Integer, ByVal wd As Integer) As Integer
length = len
width = wd
Return 0
End Function
Function Process() As Integer
result = length * width
Return result
End Function
Shared Sub Main()
Dim store As Integer
Dim Obj1 As New Rectangle()
Obj1.Input(15, 30)
store = Obj1.Process()
Console.WriteLine("The output is = " & store)
Console.ReadLine()
End Sub
End Class
Output:
The output is = 450
Example: A VB .NET program with Parameterized & Return type Nested Function to show the concept of class & object in Console Application.
Imports System
Public Class Rectangle
Dim length As Integer
Dim width As Integer
Dim result As Integer
Function Input(ByVal len As Integer, ByVal wd As Integer) As Integer
length = len
width = wd
Return 0
End Function
Function Process() As Integer
result = length * width
Return result
End Function
Function Output() As Integer
Console.WriteLine("The result is = " & Process())
Return 0
End Function
Shared Sub Main()
Dim Obj1 As New Rectangle()
Obj1.Input(30, 30)
Obj1.Process()
Obj1.Output()
Console.ReadLine()
End Sub
End Class
Output:
The result is = 900
Example: A VB .NET program in Subroutine to use Looping concept using class & object in Console Application.
Imports System
Public Class Example
Dim x As Integer
Dim y As Integer
Dim result As Integer
Dim i As Integer
'Private length As Integer
'Private width As Integer
'Private result As Integer
Public Sub Input()
x = 20
y = 30
End Sub
Public Sub Process()
For Me.i = x To y
Console.Write(i & " ")
Next
End Sub
Shared Sub Main()
Dim Obj1 As New Example()
Obj1.Input()
Obj1.Process()
Console.ReadLine()
End Sub
End Class
Output:
20 21 22 23 24 25 26 27 28 29 30
Example : A VB .NET program to demonstrate the Me (like This ) Keyword using a Console Application.
Module Module1
Class Example
Dim num1 As Integer
Dim num2 As Integer
Sub New(ByVal num1 As Integer, ByVal num2 As Integer)
Me.num1 = num1
Me.num2 = num2
End Sub
Sub Display()
Console.WriteLine("First Accepted Value is = {0}", Me.num1)
Console.WriteLine("Second Accepted Value is = {0}", Me.num2)
Console.WriteLine("First Parameterized Value is = {0}", num1)
Console.WriteLine("Second Parameterized Value is = {0}", num2)
End Sub
End Class
Sub Main()
Dim obj As New Example(40, 50)
obj.Display()
End Sub
End Module
Output:
First Accepted Value is = 40
Second Accepted Value is = 50
First Parameterized Value is = 40
Second Parameterized Value is = 50
NB: In VB .Net, the Me keyword/object is used within the class to access the data members or to a point-current object.
Example : A VB .NET program to demonstrate the MyClass Keyword using a Console Application.
Module Module1
Class Example
Sub Display1()
Console.WriteLine("First Display Function is called")
End Sub
Sub Display2()
MyClass.Display1()
Console.WriteLine("Second Display Function is called")
End Sub
End Class
Sub Main()
Dim obj As New Example()
obj.Display2()
End Sub
End Module
Output:
First Display Function is called
Second Display Function is called
NB: MyClass keyword is used to refer to the existing class name.
Example: A VB .NET program in Subroutine to use Function/Method Overloading using class & object in Console Application.
Module Module1
Public Class Calculate
Public Sub Addition(ByVal x As Integer, ByVal y As Integer)
Console.WriteLine("x + y = {0}", x + y)
End Sub
Public Sub Addition(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Console.WriteLine("x + y + z = {0}", x + y + z)
End Sub
End Class
Sub Main(ByVal args As String())
Dim Obj As Calculate = New Calculate()
Obj.Addition(10, 20)
Obj.Addition(10, 20, 30)
Console.WriteLine("Press Enter Key to Exit..")
Console.ReadLine()
End Sub
End Module
Output:
x + y = 30
x + y + z = 60
Press Enter Key to Exit..
--------------------- OR ---------------------
Module Module1
Public Class Calculate
Public Sub Addition(ByVal x As Integer, ByVal y As Integer)
Console.WriteLine("x + y = {0}", x + y)
End Sub
Public Sub Addition(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
Console.WriteLine("x + y + z = {0}", x + y + z)
End Sub
Shared Sub Main(ByVal args As String())
Dim Obj As Calculate = New Calculate()
Obj.Addition(10, 20)
Obj.Addition(10, 20, 30)
Console.WriteLine("Press Enter Key to Exit..")
Console.ReadLine()
End Sub
End Class
End Module
Output:
x + y = 30
x + y + z = 60
Press Enter Key to Exit..
Example : Write a VB.Net Program to demonstrate the Friend Function/Method using Console Applications.
Class Example
' The Fun() is public if we are in the same assembly.
Friend Sub Display()
Console.WriteLine("Friend function Executed")
End Sub
End Class
Module Module1
Sub Main()
Dim obj As New Example()
obj.Display()
End Sub
End Module
Output:
Friend Function Executed
NB:The Friend keyword is used in the declaration of friend method and class that specifies the elements are accessible from within the same assembly. It can be accessed anywhere in the same assembly, but not from other assemblies. This is the default modifier for GUI components in Visual Studio
Example: A VB .NET program to demonstrate Non-Member Functions/Methods Overloading in Console Application.
Module Module1
Sub Addition(ByVal num1 As Double, ByVal num2 As Integer)
Dim sum1 As Double = 0
sum1 = num1 + num2
Console.WriteLine("Sum is: {0}", sum1)
End Sub
Public Sub Addition(ByVal num1 As Integer, ByVal num2 As Double)
Dim sum2 As Double = 0
sum2 = num1 + num2
Console.WriteLine("Sum is: {0}", sum2)
End Sub
Sub Main()
Addition(45.36, 82)
Addition(56, 8.23)
End Sub
End Module
Output:
Sum is: 127.36
Sum is: 64.23
Example : A Class and Object Examples in VB .NET program with Empty Class using Console Application.
Class Example
End Class
Module Module1
Sub Main()
Dim obj As New Example
Console.WriteLine("Type name is = {0}", obj.GetType())
End Sub
End Module
Output: Type name is = ConsoleApp3.Example [Here ConsoleApp3 is saved project name and Example is the class name]
Example : A Class and Object Examples in VB .NET program to demonstrate the Boxing concept.
Module Module1
Sub Main()
Dim val As Integer = 100
Dim obj As Object
obj = val
Console.WriteLine("Value of Integer in Object form is = " & obj)
End Sub
End Module
Output:
Value of Integer in Object form is = 100
Example : A VB .NET program to demonstrate the Un-boxing concept.
Module Module1
Sub Main()
Dim val As Integer
Dim obj As Object = 100
val = CInt(obj)
Console.WriteLine("Value of Object in Integer form is = " & val)
End Sub
End Module
Output:
Value of Object in Integer form is = 100
Example : Write a Class and Object Examples in the VB.Net Program to Demonstrate Read Only Properties using Console Applications.
Class Student
Dim Rollno As Integer
Dim StuName As String
Sub New(ByVal rn As Integer, ByVal sn As String)
Rollno = rn
StuName = sn
End Sub
Public ReadOnly Property StudentID As Integer
Get
Return Rollno
End Get
End Property
Public ReadOnly Property StudentName As String
Get
Return StuName
End Get
End Property
End Class
Module Module1
Sub Main()
Dim Stu As New Student(310, "Azad")
Console.WriteLine("Student Rollno is = {0}", Stu.StudentID)
Console.WriteLine("Student Name is = {0}", Stu.StudentName)
End Sub
End Module
Output:
Student Rollno is = 310
Student Name is = Azad
Example : Write a Class and Object Examples in the VB.Net Program to Demonstrate Write Only Properties using Console Applications.
Class Student
Dim Rollno As Integer
Dim StuName As String
Public WriteOnly Property StudentID As Integer
Set(rnvalue As Integer)
Rollno = rnvalue
End Set
End Property
Public WriteOnly Property StudentName As String
Set(snvalue As String)
StuName = snvalue
End Set
End Property
Sub Display()
Console.WriteLine("Student Rollno is = {0}", Rollno)
Console.WriteLine("Student Name is = {0}", StuName)
End Sub
End Class
Module Module1
Sub Main()
Dim Stu As New Student()
Stu.StudentID = 240
Stu.StudentName = "Rani"
Stu.Display()
End Sub
End Module
Output:
Student Rollno is = 240
Student Name is = Rani
Example : Write a Class and Object Examples in the VB.Net Program to Demonstrate Set and Get Properties using Console Applications.
Class Student
Dim Sname As String
Dim Rollno As Integer
Public Property StudentRollno As Integer
Get
Return Rollno
End Get
Set(Value As Integer)
Rollno = Value
End Set
End Property
Public Property StudentName As String
Get
Return Sname
End Get
Set(Value As String)
Sname = Value
End Set
End Property
End Class
Module Module1
Sub Main()
Dim Stu As New Student()
Stu.StudentRollno = 301
Stu.StudentName = "Raman"
Console.WriteLine("Student Rollno : {0}", Stu.StudentRollno)
Console.WriteLine("Student Sname: {0}", Stu.StudentName)
End Sub
End Module
Output:
Student Rollno : 301
Student Sname: Raman
0 Comments