Scribd
Upload
25 views13 pages

VB.Net Programming Examples Guide

The document discusses various VB.Net programming concepts like namespaces, modules, classes, objects, control structures, loops, functions, windows forms, inheritance and more. Code examples are provided to demonstrate each concept.

Uploaded by

hackermh862
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
25 views13 pages

VB.Net Programming Examples Guide

The document discusses various VB.Net programming concepts like namespaces, modules, classes, objects, control structures, loops, functions, windows forms, inheritance and more. Code examples are provided to demonstrate each concept.

Uploaded by

hackermh862
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

1. Design VB.Net application using Existing Namespaces.

Class:

Namespace n1
Public Class Class1
Public Shared Sub d1()
Console.WriteLine("Hello World!")
End Sub
End Class
End Namespace

Module:

Imports [NameSpace]
Imports [NameSpace].n1
Module Program
Sub main()
Class1.d1()
Console.ReadLine()
End Sub
End Module

2. Design VB.Net application using User Defined Namespace.

Class:

Namespace n1
Public Class Class1
Public Shared Sub d1()
Console.WriteLine("Hello World!")
End Sub
End Class
End Namespace

Module:

Imports [NameSpace]
Imports [NameSpace].n1
Module Program
Sub main()
Class1.d1()
Console.ReadLine()
End Sub
End Module
3. Implement a Message Box program & Arithmetic Expressions.

Module Program
Sub Main(args As String())
Dim a, b, c As Integer
a = InputBox("A =")
b = InputBox("B =")
c = a + b
Msgbox("C =" + c.ToString)
End Sub
End Module

4. Implement a program for If-Else control structures in VB.Net.


Imports System

Module Program

Sub Main(args As String())


Dim A, B As Integer
Console.WriteLine("A =")
A = Console.ReadLine()
Console.WriteLine("B =")
B = Console.ReadLine()
If A > B Then
Console.WriteLine("A is largest")
Console.ReadLine()
Else
Console.WriteLine("B is largest")
Console.ReadLine()
End If
End Sub
End Module

5. Implement a program for select case control structures in VB.Net.

Imports System
Imports System.Transactions

Module Program
Sub Main(args As String())
Dim Ans As Integer
Console.WriteLine("1.ADDITION")
Console.WriteLine("2.SUBSTRACTION")
Console.WriteLine("Select Case :")
Ans = Console.ReadLine()
Select Case Ans
Case 1
Dim a, b, c As Integer
Console.WriteLine("Enter A =")
a = Console.ReadLine()
Console.WriteLine("Enter B =")
b = Console.ReadLine()
c = a + b
Console.WriteLine("C =" + c.ToString)
Console.ReadLine()
Case 2
Dim a, b, c As Integer
Console.WriteLine("Enter A =")
a = Console.ReadLine()
Console.WriteLine("Enter B =")
b = Console.ReadLine()
c = a - b
Console.WriteLine("C =" + c.ToString)
Console.ReadLine()
End Select
End Sub
End Module

6. Implements a program for While, DO Loops in VB.Net.


(While loop)
Module Program
Sub Main(args As String())
Dim n As Integer
n = 1
While n <= 10
Console.WriteLine(n)
n = n + 1
End While
Console.ReadLine()
End Sub
End Module

(Do-While loop)
Module Program
Sub Main(args As String())
Dim n As Integer
n = 1
Do While n <= 10
Console.WriteLine(n)
n = n + 1
Loop
Console.ReadLine()
End Sub
End Module

7. Implement a program to use of For, For-Each Loops In VB.Net.


(For loop)
Module Program
Sub Main(args As String())
Dim n As Integer
For n = 2 To 10 Step 2
Console.WriteLine(n)
Next
Console.ReadLine()
End Sub
End Module

(For-Each loop)
Module Program
Sub Main(args As String())
Dim Arr() As Integer = {10, 4, 6}
Dim n As Integer
For Each n In Arr
Console.WriteLine(n)
Next
Console.ReadLine()
End Sub
End Module

8. Design windows application using Text Box, Label & Button.


Public Class Form1
Private Sub Button1_Click(sender As Object, e As
EventArgs) Handles Button1.Click
Dim r As Integer
r = Val(TextBox1.Text) + Val(TextBox2.Text)
MsgBox("Addition =" + r.ToString)
End Sub
End Class
9. Design windows application using Radio Button & Check Box.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs)
Handles Button1.Click
If CheckBox1.Checked Then
MsgBox("under 18")
Else
MsgBox("above 18")
End If
End Sub

Private Sub RadioButton1_CheckedChanged(sender As Object, e


As EventArgs) Handles RadioButton1.CheckedChanged
Button1.Enabled = RadioButton1.Checked
End Sub
End Class

10. Design windows application using List Box & Combo Box.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs)
Handles Button1.Click
Label1.Text = "Subject :" & ListBox1.SelectedItem &
"class :" & ComboBox1.SelectedItem
End Sub
End Class

11. Design windows application using Picture Box & Panel


Public Class Form1
Private Sub RadioButton1_CheckedChanged(sender As Object, e
As EventArgs) Handles RadioButton1.CheckedChanged
PictureBox1.Image = My.Resources.SEN_DFD
End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e


As EventArgs) Handles RadioButton2.CheckedChanged
PictureBox1.Image = My.Resources.Exp_8

End Sub

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


Handles Button1.Click
Panel1.BackColor = Color.Red
End Sub
End Class

12. Design windows application using Tab Control & Timer.


(Tab Control )
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs)
Handles Button1.Click
Dim r As Integer
r = Val(TextBox1.Text) + Val(TextBox2.Text)
MsgBox("Add =" + r.ToString)
End Sub

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


Handles Button2.Click
Dim r As Integer
r = Val(TextBox1.Text) - Val(TextBox2.Text)
MsgBox("sub =" + r.ToString)
End Sub
End Class

13. Implement a Windows application to perform Validation.

Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs)
Handles Button1.Click
If DateTimePicker1.Value < Date.Today Then
MsgBox("Valid")
Else
MsgBox("Date can not be able from future")
End If
End Sub
End Class

14. Implement a Windows application using Sub-Procedures


& Parameterized Sub-Procedures
(paramiterized)
Imports System

Module Program
Sub Main(args As String())
ADD(10, 20)
End Sub
Sub ADD(x As Integer, y As Integer)
Dim a, b, c As Integer
a = x
b = y
c = a + b
Console.WriteLine("Add =" + c.ToString)
End Sub
End Module

(default)
Imports System

Module Program
Sub Main(args As String())
ADD()
End Sub
Sub ADD()
Dim a, b, c As Integer
Console.WriteLine("A =")
a = Console.ReadLine()
Console.WriteLine("B =")
b = Console.ReadLine()
c = a + b
Console.WriteLine("Add =" + c.ToString)
End Sub
End Module

15. Implement a program to demonstrate Use of Simple Functions.

(default)
Imports System

Module Program
Function ADD()
Dim a, b, c As Integer
Console.WriteLine("A =")
a = Console.ReadLine()
Console.WriteLine("B =")
b = Console.ReadLine()
c = a + b
Console.WriteLine("Add =" + c.ToString)
End Function

Sub Main(args As String())


ADD()
End Sub
End Module

16.Implement a program to demonstrate Use of Parameterized Functions

(paramiterized)
Imports System

Module Program
Function ADD(x As Integer, y As Integer)
Dim a, b, c As Integer
a = x
b = y
c = a + b
Console.WriteLine("Add =" + c.ToString)
End Function

Sub Main(args As String())


ADD(10, 4)
End Sub
End Module

17.Implement a program to demonstrate Use of Class and Object of Class

(class)
Public Class Class1
Public Sub Add()
Dim a, b, c As Integer
Console.WriteLine("A =")
a = Console.ReadLine()
Console.WriteLine("B =")
b = Console.ReadLine()
c = a + b
Console.WriteLine("Add =" + c.ToString)
End Sub
End Class
(module)
Module Program
Sub Main(args As String())
Dim obj = New Class1
obj.Add()
End Sub
End Module

18. Implement a program for class Constructor.


(class)
Public Class Class1
Public Sub New()
Dim a, b As Integer
a = 10
b = 20
Console.WriteLine("A =" + a.ToString)
Console.WriteLine("B =" + b.ToString)
End Sub

End Class

(module)
Module Program
Sub Main(args As String())
Dim obj1 = New Class1
Console.ReadLine()
End Sub
End Module

19.Implement a program for class Destructor to de allocate memory.

(class)
Public Class Class1
Public Sub New()
Dim a, b As Integer
Console.WriteLine(" constructer Created ")
End Sub
Protected Overrides Sub finalize()
Console.WriteLine(" destroyed ")
End Sub

End Class

(module)
Imports System
Module Program
Sub Main(args As String())
Dim obj1 = New Class1()
End Sub
End Module

20. Develop a program for Inheritance.

Imports System

Module Program
Public Class Class1
Dim no As Integer
Public Sub get1()

Console.WriteLine("Enter any 1st number :")


no = Console.ReadLine()
End Sub
Public Sub put1()
Console.WriteLine("your 1st number is :" +
no.ToString)
End Sub
End Class
Public Class class2 : Inherits Class1
Dim num As Integer
Public Sub get2()

Console.WriteLine("Enter any 2nd number :")


num = Console.ReadLine()
End Sub
Public Sub put2()
Console.WriteLine("your 2nd number is :" +
num.ToString)
End Sub

End Class

Sub Main(args As String())


Dim obj1 = New class2()
obj1.get1()
obj1.put1()
obj1.get2()
obj1.put2()
End Sub
End Module
21. Implement a program for Overloading.
Imports System

Module Program
Class class1
Dim a, b As Integer
Sub Add(x As Integer)
a = x
b = x
Console.WriteLine("Addition=" & (a + b))
End Sub
Sub Add(x As Integer, y As Integer)
a = x
b = y
Console.WriteLine("Addition=" & (a + b))
End Sub
End Class
Sub Main(args As String())
Dim obj1 = New class1()
obj1.Add(10)
obj1.Add(20, 30)
Console.ReadLine()
End Sub
End Module

22. Implement a program for Overriding.


Imports System

Module Program
Class class1
Dim a, b As Integer
Overridable Sub Add(x As Integer, y As Integer)
a = x
b = y
Console.WriteLine("Addition=" & (a + b))
End Sub
End Class
Class class2 : Inherits class1
Dim a, b As Integer
Overrides Sub Add(x As Integer, y As Integer)
a = x
b = y
Console.WriteLine("Addition=" & (a + b))
End Sub
End Class
Sub Main(args As String())
Dim obj1 = New class2()
obj1.Add(10, 20)
obj1.Add(30, 40)
End Sub
End Module

23. Implement a program to demonstrate Shadowing in


Inheritance.
Imports System

Module Program
Class class1
Dim a, b As Integer
Sub Add(x As Integer, y As Integer)
a = x
b = y
Console.WriteLine("Addition=" & (a + b))
End Sub
End Class
Class class2 : Inherits class1
Dim a, b As Integer
Shadows Sub Add(x As Integer, y As Integer)
a = x
b = y
Console.WriteLine("Addition=" & (a + b))
End Sub
End Class

Sub Main(args As String())


Dim obj1 = New class2()
obj1.Add(10, 20)
obj1.Add(30, 40)
End Sub
End Module

24. Implement a program to handle runtime errors using


Exception Handling.
Imports System

Module Program
Sub Main(args As String())
Dim a, b, c As Integer
Try
a = 8
b = 0
c = a \ b
Catch ex As DivideByZeroException
Console.WriteLine("DivideByZeroException has")
Console.WriteLine("result : {0}", c)
End Try
End Sub
End Module

You might also like