VB.

NET

Submitted In Partial Fulfillment Of The Requirement Of

Bachelor Of Computer Application

BATCH 2019-2022

JIMS Engineering Management Technical Campus (JEMTEC)

(AFFILIATED BY GURU GOBIND SINGH INDRAPRASTHA
UNIVERSITY)

SUBMITTED TO:- SUBMITTED BY: -

Mr. Surendra Pathak Anay Dev Thakur

Assistant Professor 02525502019

BCA Dept. BCA (3rd Sem)

 VB.NET PRACTICAL FILE

PRACTICAL 1: WRITE DOWN THE STEPS TO CREATE A WINDOWS

APPLICATION USING VB.NET.

STEPS: -
1. On the start window, choose Create a new project.

2. On the Create a new project window, enter or type Windows Forms in the search box
.Next choose Desktop from the Project type list.

After you apply the Project type filter, choose the Windows Forms App(.Net Framework)
template for either C# or Visual Basic, and then choose Next.

3. I
n

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

the Configure your new project window, type or enter name of your project you want in
the Project Name Box. Then choose, Create.

4. Design the form using different controls & write the code using code window. Then save
the project by selecting File -> save option. To run the project press F5 or start debugging
option. It opens the form in the run mode.

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 2: WRITE A PROGRAM TO ADD TWO NUMBERS.

Code:-
ModuleModule1
SubMain()
Dim num1, num2, sum AsInteger
Console.WriteLine(">>>Program to add two integers<<<")
Console.Write(" Enter the first number to be added: ")
num1 = Convert.ToInt32(Console.ReadLine())
Console.Write(" Enter the second number to be added: ")
num2 = Convert.ToInt32(Console.ReadLine())
sum = num1 + num2
Console.WriteLine(" The sum of two numbers is:"& sum)
Console.ReadLine()
EndSub
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 3: WRITE A PROGRAM TO FIND THE LARGEST OF THREE

NUMBERS.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim n1 AsInteger = TextBox1.Text
Dim n2 AsInteger = TextBox2.Text
Dim n3 AsInteger = TextBox3.Text
Dim largest AsInteger
If n1 > n2 And n1 > n3 Then
largest = n1
ElseIf n2 > n1 And n2 > n3 Then
largest = n2
Else
largest = n3
EndIf
MsgBox("LARGEST NO IS "& largest)
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 4: Write A Program To Show A Welcome Message To The User.

Code: -
ModuleModule1
SubMain()
Console.WriteLine("WELCOME TO JIMS GREATER NOIDA")
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 5: Write A Program To Check A Number Is Prime Or Not.

Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dimi, j AsInteger
Dim t AsBoolean
i = TextBox1.Text
t = True
For j = 2 To (i - 1)
IfiMod j = 0 Then
t = False
ExitFor
EndIf
Next j
If t Then
MsgBox(i&" is a prime Number")
Else
MsgBox(i&" is not a prime Number")
EndIf
EndSub
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 6: Write A Program To Find The Length Of A String.

Code: -
ModuleModule1
SubMain()
Dim str AsString
str = "Test"
MsgBox(str.Length())
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 7: Write a program to generate a telephone bill with following conditions:

(i) Calls between 0 to 100 Bill is free (ii) Calls between 101 to 200 Re.1 per call (iii)
Calls between 201 to 300 Re.2 per call (iv) Calls 301 onwards Re.4 per call
Code: -
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim calls, bill AsInteger
calls = InputBox("ENTER YOUR TOTAL CALLS")
If calls <= 100 Then
MsgBox("YOUR CALLS ARE FREE!")
ElseIf calls > 100 And calls <= 200 Then
bill = calls - 100 * 1
MsgBox(bill)
ElseIf calls > 200 And calls <= 300 Then
MsgBox(2 * (calls - 100))
Else
bill = 4 * (calls - 100)
MsgBox("CALL LIMIT EXCEEDED")
EndIf
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 8: WRITE A PROGRAM TO CHECK WHETHER THE NUMBER

ENTERED BY USER IS ODD OR EVEN.
Code: -
ModuleModule1
Dim num, n AsInteger
SubMain()
Console.WriteLine("Enter any no.")
num = Console.ReadLine()
n = num Mod 2
If n = 0 Then
Console.WriteLine("NUMBER IS EVEN")
Else
Console.WriteLine("NUMBER IS ODD")
EndIf
Console.ReadKey()
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 9: WRITE A PROGRAM TO DESIGN A SIMPLE CALCULATOR.

Code: -
PublicClassForm1
Dimfnum, snumAsDecimal
Dim operation AsInteger
Dimoperator_SelectorAsBoolean = False
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles Button6.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "5"
Else
TextBox1.Text = "5"
EndIf
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "3"
Else
TextBox1.Text = "3"
EndIf
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click
fnum = TextBox1.Text
TextBox1.Text = "0"
operator_Selector = True
operation = 1 '= +
EndSub
PrivateSub Button8_Click(sender AsObject, e AsEventArgs) Handles Button8.Click
fnum = TextBox1.Text
TextBox1.Text = "0"
operator_Selector = True
operation = 2 '= -
EndSub
PrivateSub Button9_Click(sender AsObject, e AsEventArgs) Handles Button9.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "7"
Else
TextBox1.Text = "7"
EndIf
EndSub
PrivateSub Button15_Click(sender AsObject, e AsEventArgs) Handles Button15.Click
TextBox1.Text = "0"
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "1"
Else
TextBox1.Text = "1"
EndIf
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "2"
Else
TextBox1.Text = "2"

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

EndIf
EndSub

PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click

If TextBox1.Text <>"0"Then
TextBox1.Text += "4"
Else
TextBox1.Text = "4"
EndIf
EndSub
PrivateSub Button7_Click(sender AsObject, e AsEventArgs) Handles Button7.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "6"
Else
TextBox1.Text = "6"
EndIf
EndSub
PrivateSub Button10_Click(sender AsObject, e AsEventArgs) Handles Button10.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "8"
Else
TextBox1.Text = "8"
EndIf
EndSub
PrivateSub Button11_Click(sender AsObject, e AsEventArgs) Handles Button11.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "9"
Else
TextBox1.Text = "9"
EndIf
EndSub
PrivateSub Button13_Click(sender AsObject, e AsEventArgs) Handles Button13.Click
If TextBox1.Text <>"0"Then
TextBox1.Text += "0"
EndIf
EndSub
PrivateSub Button14_Click(sender AsObject, e AsEventArgs) Handles Button14.Click
IfNot (TextBox1.Text.Contains(".")) Then
TextBox1.Text += "."
EndIf
EndSub
PrivateSub Button12_Click(sender AsObject, e AsEventArgs) Handles Button12.Click
fnum = TextBox1.Text
TextBox1.Text = "0"
operator_Selector = True
operation = 3 '= *
EndSub
PrivateSub Button16_Click(sender AsObject, e AsEventArgs) Handles Button16.Click
fnum = TextBox1.Text
TextBox1.Text = "0"
operator_Selector = True
operation = 4 '/
EndSub
PrivateSub Button17_Click(sender AsObject, e AsEventArgs) Handles Button17.Click
Ifoperator_Selector = TrueThen
snum = TextBox1.Text
If operation = 1 Then

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
TextBox1.Text = fnum + snum
ElseIf operation = 2 Then
TextBox1.Text = fnum - snum
ElseIf operation = 3 Then
TextBox1.Text = fnum * snum
Else
Ifsnum = 0 Then
TextBox1.Text = "ERROR!"
Else
TextBox1.Text = fnum / snum
EndIf
EndIf
operator_Selector = False
EndIf

EndSub
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 10: WRITE A PROGRAM TO CALCULATE GRADE OF THE

STUDENT AND DISPLAY THE MESSAGE ACCORDINGLY USING SELECT
STATEMENT.
Code: -
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim score AsInteger
score = TextBox1.Text
SelectCase score
Case 0 To 49
Label3.Text = "Fail"
Case 50 To 64
Label3.Text = "Pass"
Case 65 To 74
Label3.Text = "Credit"
Case 75 To 84
Label3.Text = "Distinction"
Case 85 To 100
Label3.Text = "High Disinction"
CaseElse
Label3.Text = "Invalid Score!"
EndSelect
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 11: WRITE A PROGRAM FOR FIBONACCI SERIES.

Code: -
ModuleModule1
SubMain()
Dim a, b, c, n, iAsInteger
Console.Write("Enter how many elements:-")
n = Val(Console.ReadLine())
a = 1
b = 2
Console.Write("1 2")
i = 1
While (i< n - 1)
c = a + b
Console.Write(" "& c)
a = b
b = c
i = i + 1
EndWhile
Console.ReadLine()
EndSub
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 12: WRITE A PROGRAM TO CALCULATE SIMPLE INTEREST.

Code: -
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim p, r, t AsSingle
DimsiAsSingle
p = TextBox1.Text
r = TextBox2.Text
t = TextBox3.Text
si = (p * r * t) / 100
TextBox4.Text = si
TextBox5.Text = p + si
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 13: WRITE A PROGRAM TO INPUT HIGH TEMPERATURE OF

LAST 7 DAYS AND CALCULATE THE AVERAGE TEMPERATURE.
Code: -
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim t1, t2, t3, t4, t5, t6, t7, avg AsInteger
t1 = TextBox1.Text
t2 = TextBox2.Text
t3 = TextBox3.Text
t4 = TextBox4.Text
t5 = TextBox5.Text
t6 = TextBox6.Text
t7 = TextBox7.Text
avg = (t1 + t2 + t3 + t4 + t5 + t6 + t7) / 7
TextBox8.Text = avg
EndSub

Output: -

PRACTICAL 14: WRITE A PROGRAM TO SHOW THE WORKING OF ARRAY

LIST.
Code: -
ModuleModule1
SubMain()
Dim al AsArrayList = NewArrayList()
DimiAsInteger
Console.WriteLine("Adding some numbers:")
al.Add(45)
al.Add(78)
al.Add(33)
al.Add(56)
al.Add(12)
al.Add(23)
al.Add(9)
Console.WriteLine("Capacity: {0} ", al.Capacity)

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
Console.WriteLine("Count: {0}", al.Count)
Console.Write("Content: ")

ForEachiIn al
Console.Write("{0} ", i)
Nexti
Console.WriteLine()
Console.Write("Sorted Content: ")
al.Sort()
ForEachiIn al
Console.Write("{0} ", i)
Nexti
Console.WriteLine()
Console.ReadKey()
EndSub
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 15: WRITE A PROGRAM TO SHOW THE WORKING OF FUNCTION

AND PROCEDURES IN VB.NET.
Code: -
PublicClassForm1
PublicFunctionmax_val(ByVal a AsInteger, ByVal b AsInteger)
Dim max AsInteger
If (a > b) Then
max = a
Else
max = b
EndIf
Return max
EndFunction
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim n1, n2, m AsInteger
n1 = TextBox1.Text
n2 = TextBox2.Text
m = max_val(n1, n2)
MsgBox("The number "& m &" is greatest")
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Dim n1, n2, m AsInteger
n1 = TextBox1.Text
n2 = TextBox2.Text
m = max_val(n1, n2)
If (n1 > n2) Then
MsgBox("The number "& n1 &" is greatest")
ElseIf (n1 < n2) Then
MsgBox("The number "& n2 &" is greatest")
Else
MsgBox("The numbers are equal")
EndIf

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 16: WRITE A PROGRAM TO SWAP TWO VALUES USING VALUE

AND REFERENCE METHOD.
Code: -
For by value method:-
ModuleModule1
SubMain()
Dim a, b AsInteger
swap(a, b)
Console.ReadLine()
EndSub
Subswap(ByVal a, ByVal b)
Dim t AsInteger
Console.Write("a = ")
a = CInt(Console.ReadLine())
Console.Write("b = ")
b = CInt(Console.ReadLine())
Console.WriteLine()
Console.WriteLine("Before Swapping...")
Console.WriteLine("a = " + a.ToString() + " b = " + b.ToString())
t = a
a = b
b = t
Console.WriteLine()
Console.WriteLine("After Swapping...")
Console.WriteLine("a = " + a.ToString() + " b = " + b.ToString())
EndSub
EndModule
For by referencemethod:-
ModuleModule1
SubMain()
Dim a, b AsInteger
swap(a, b)
Console.ReadLine()
EndSub
Subswap(ByRef a, ByRef b)
Dim t AsInteger
Console.Write("a = ")
a = CInt(Console.ReadLine())
Console.Write("b = ")
b = CInt(Console.ReadLine())
Console.WriteLine()
Console.WriteLine("Before Swapping...")
Console.WriteLine("a = " + a.ToString() + " b = " + b.ToString())
t = a
a = b
b = t
Console.WriteLine()
Console.WriteLine("After Swapping...")
Console.WriteLine("a = " + a.ToString() + " b = " + b.ToString())
EndSub

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 17: WRITE A PROGRAM TO FIND THE AREA OF RECTANGLE,

TRIANGLE AND SQUARE. MAKE USE OF SELECT STATEMENT, FUNCTION
AND PROCEDURES.
Code: -
PublicClassForm1
PublicFunctionArea(ByVal l AsDecimal, ByVal b AsDecimal)
Dim A AsDecimal
A = l * b
Return A
EndFunction
PublicFunctionArea(ByVal t AsDecimal, ByVal b AsDecimal, ByVal h AsDecimal)
Dim A AsDecimal
A = t * b * h
Return A
EndFunction
PublicFunctionArea(ByVal r AsDecimal)
Dim A AsDecimal
A = 3.14 * r * r
Return A
EndFunction
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim l, b, h, r, t, s AsDecimal
DimchAsDecimal
ch = TextBox1.Text
SelectCasech
CaseIs = 1
s = InputBox("Enter sides of square ")
MsgBox("The Result is "& Area(s, s))
CaseIs = 2
l = InputBox("Enter length of rectangle ")
b = InputBox("Enter breadth of rectangle ")
MsgBox("The Result is "& Area(l, b))
CaseIs = 3
b = InputBox("Enter base of triangle ")
h = InputBox("Enter height of triangle ")
t = InputBox("Enter value of pie")

MsgBox("The Result is "& Area(b, h, t))

CaseIs = 4
r = InputBox("Enter radius ")
MsgBox("The Result is "& Area(r))
CaseElse
MsgBox("Invalid choice")
EndSelect
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 18: CREATE AN EMPLOYEE CLASS WITH DATA MEMBERS:

EMP_NO, NAME, AGE, SALARY AND FOLLOWING METHODS: CALCULATE
SALARY, CALCULATE EXPERIENCE AND DISPLAY EMPLOYEE DETAILS.
Code: -
PublicClassForm1
Dim e1 AsNew Emp
PublicClassEmp
Dimemp_id, emp_ageAsInteger
Dimemp_nameAsString
DimyojAsInteger

PublicSubSalary(ByValsalAsInteger)
Dim s AsInteger
s = (0.3 * sal) + (0.5 * sal) + sal
MsgBox(s)
EndSub
PublicSubExperience(ByVal exp AsInteger)
exp = 2020 - exp
MsgBox(exp)
EndSub
PublicSubDisplay(ByVal Name AsString, ByVal Id AsInteger, ByVal Age AsInteger)
emp_id = Id
emp_age = Age
emp_name = Name
MsgBox("ID : "&emp_id&System.Environment.NewLine&
"Name : "&emp_name&System.Environment.NewLine&
"Age : "&emp_age)
EndSub
EndClass
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
DimsalAsInteger
sal = Val(TextBox4.Text)
e1.Salary(sal)
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Dim exp AsInteger
exp = InputBox("Enter year of joining : ")
e1.Experience(exp)
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
Dim name AsString
Dim Id, Age AsInteger
Id = Val(TextBox1.Text)
name = (TextBox2.Text)
Age = Val(TextBox3.Text)
e1.Display(name, Id, Age)
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 19: -WRITE A PROGRAM TO SHOW INHERITANCE.

Code: -
PublicClassForm1
PublicClassBank
Publiccust_name, address AsString
Publiccust_no, age, balAsInteger
PublicSubCust_details()
cust_name = "Ajay"
address = "Knowledge Park - III"
cust_no = 5
age = 74
bal = 150000
EndSub
EndClass
PublicClassCust_details
Inherits Bank
PublicSubcust()
Cust_details()
MsgBox("Name : "&cust_name&System.Environment.NewLine&
"Address : "& address &System.Environment.NewLine&
"Customer No : "&cust_no&System.Environment.NewLine&
"Age : "& age &System.Environment.NewLine&
"Balance : "&bal)
EndSub
EndClass
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim a AsNewCust_details
a.cust()
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 20: WRITE A PROGRAM TO SHOW FUNCTION OVERLOADING.

Code: -
PublicClassForm1
PublicClassA
Dim result AsDecimal
PublicFunctionArea(ByVal a AsInteger)
result = a * a
Return result
EndFunction
PublicFunctionArea(ByVal pi AsDecimal, ByVal r AsDecimal)
result = pi * r * r
Return result
EndFunction
PublicFunctionArea(ByVal h AsDecimal, ByVal b AsDecimal, ByVal hf AsDecimal)
result = hf * h * b
Return result
EndFunction
EndClass
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim o AsNew A
MsgBox("Area of square : "&o.Area(3) &System.Environment.NewLine&
"Area of circle : "&o.Area(3.14, 5) &System.Environment.NewLine&
"Area of triangle : "&o.Area(0.5, 10, 15))
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 21: WRITE A PROGRAM TO SHOW THE WORKING OF RADIO

BUTTON AND CHECK BOX.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim name AsString
Dimadm_noAsInteger
name = TextBox1.Text
adm_no = TextBox2.Text
ListBox1.Items.Add("ENTERED NAME IS : "& name)
ListBox1.Items.Add("ENTERED ADMISSION_NO IS : "&adm_no)
If CheckBox1.Checked = TrueThen
ListBox1.Items.Add("YOU SELECTED MATHEMATICS")
EndIf
If CheckBox2.Checked = TrueThen
ListBox1.Items.Add("YOU SELECTED PHYSICS")
EndIf
If CheckBox3.Checked = TrueThen
ListBox1.Items.Add("YOU SELECTED BIOLOGY")
EndIf
If CheckBox4.Checked = TrueThen
ListBox1.Items.Add("YOU SELECTED ACCOUNTS")
EndIf
If RadioButton1.Checked = TrueThen
ListBox1.Items.Add("YOU CHOOSED PHYSICAL EDUCATION AS OPTIONAL SUBJECT")
ElseIf RadioButton2.Checked = TrueThen
ListBox1.Items.Add("YOU CHOOSED IP/CS AS OPTIONAL SUBJECT")
Else
ListBox1.Items.Add("PLEASE ENTER YOUR CHOOSED SUBECTS!")
EndIf
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 22: WRITE A PROGRAM TO SHOW WORKING OF CONTROLS LIST

BOX AND CONTROL BOX.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
ListBox1.Items.Add(TextBox1.Text)
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
ComboBox1.Items.Clear()
ListBox1.Items.Clear()
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 23: WRITE A PROGRAM TO SHOW WORKING OF TIMER, SCROLL

BAR, DATE TIME PICKER AND MENU CONTROL.
Code: -
PublicClassForm1
Dim second AsInteger = 0
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Timer1.Start()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Timer1.Stop()
EndSub
PrivateSub DateTimePicker1_ValueChanged(sender AsObject, e AsEventArgs) Handles
DateTimePicker1.ValueChanged
Label2.Text = DateTimePicker1.Text
EndSub
PrivateSub Timer1_Tick(sender AsObject, e AsEventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now
second += 1
Timer1.Interval = 1000
EndSub
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
HScrollBar1.Minimum = 25
HScrollBar1.Maximum = 250
VScrollBar1.Minimum = 25
VScrollBar1.Maximum = 250
Label3.Text = "("& HScrollBar1.Value &", "& VScrollBar1.Value &")"
Label3.Location = NewPoint(HScrollBar1.Value, VScrollBar1.Value)
EndSub
PrivateSub HScrollBar1_Scroll(sender AsObject, e AsScrollEventArgs) Handles
HScrollBar1.Scroll
Label3.Text = "("& HScrollBar1.Value &", "& VScrollBar1.Value &")"
Label3.Location = NewPoint(HScrollBar1.Value, VScrollBar1.Value)
EndSub
PrivateSub VScrollBar1_Scroll(sender AsObject, e AsScrollEventArgs) Handles
VScrollBar1.Scroll
Label3.Text = "("& HScrollBar1.Value &", "& VScrollBar1.Value &")"
Label3.Location = NewPoint(HScrollBar1.Value, VScrollBar1.Value)
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 24: WRITE A PROGRAM TO CREATE A DATABASE OF YOUR

CHOICE USING MS ACCESS AND CONNECT IT TO VB.NET APPLICATION TO
DISPLAY THE VALUES USING DATA GRID CONTROL.
Code: -

PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'Q24_vbDataSet.CUSTOMER_TABLE' table. You
can move, or remove it, as needed.
Me.CUSTOMER_TABLETableAdapter.Fill(Me.Q24_vbDataSet.CUSTOMER_TABLE)
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 25: WRITE A PROGRAM USING DATA READER FOR

CONNECTING TO MS ACCESS DATABASE.
Code: -
PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'Database5DataSet.Table1' table. You can
move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me.Database5DataSet.Table1)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Table1BindingSource.MovePrevious()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Table1BindingSource.AddNew()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
Table1BindingSource.MoveNext()
EndSub
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles Button6.Click
OnErrorGoToSaveError
Table1BindingSource.EndEdit()
Table1TableAdapter.Update(Database5DataSet.Table1)
MsgBox("Data Has Been Saved")
SaveError:
ExitSub
EndSub
PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click
Table1BindingSource.RemoveCurrent()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click
Me.Close()
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 26: WRITE A PROGRAM TO SHOW INSERT, UPDATE AND

DELETE OPERATIONS ON A MS ACCESS DATABASE USING VB.NET.
Code: -
ImportsSystem.Data.OleDb
PublicClassForm1
DimcnAsOleDbConnection
DimcmdAsOleDbCommand
Dim da AsOleDbDataAdapter
Dim dt AsDataTable
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
cn = NewOleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\dell\Desktop\Q25\Q26_vb.accdb")
cn.Open()
MsgBox("Database Connected")
cn.Close()
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
cmd = NewOleDbCommand("insert into Table1 values("& Val(TextBox1.Text) &" , '"&
TextBox2.Text &"', "& Val(TextBox3.Text) &",'"& TextBox4.Text &"')", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Inserted successfully")
clear()
EndSub
Subclear()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.Focus()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
cmd = NewOleDbCommand("delete from Table1 where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Deleted Successfully")
clear()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
cmd = NewOleDbCommand("update Table1 set Product_Name = '"& TextBox2.Text &"',Quantity="&
Val(TextBox3.Text) &",Price='"& TextBox4.Text &"'where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Updated successfully")
clear()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click
da = NewOleDbDataAdapter
dt = NewDataTable
cmd = NewOleDbCommand("select * from Table1 where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
da.SelectCommand = cmd

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
da.Fill(dt)
cn.Close()
TextBox1.Text = dt.Rows(0).Item(0)
TextBox2.Text = dt.Rows(0).Item(1)
TextBox3.Text = dt.Rows(0).Item(2)
TextBox4.Text = dt.Rows(0).Item(3)
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 27: WRITE A PROGRAM TO INSERT NEW FORM IN EXISTING

FORM.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Form2.Show()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 28: WRITE A PROGRAM TO CONNECT A FORM WITH DATABASE

WITHOUT CODING.
Code: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'Q24_vbDataSet.CUSTOMER_TABLE' table. You
can move, or remove it, as needed.
Me.CUSTOMER_TABLETableAdapter.Fill(Me.Q24_vbDataSet.CUSTOMER_TABLE)
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 29: WRITE A PROGRAM TO CONNECT A FORM WITH DATABASE

WITH CODING.
Code: -
ImportsSystem.Data.OleDb
PublicClassForm1
DimcnAsOleDbConnection
DimcmdAsOleDbCommand
Dim da AsOleDbDataAdapter
Dim dt AsDataTable
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
cn = NewOleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\dell\Desktop\Q25\Q26_vb.accdb")
cn.Open()
MsgBox("Database Connected")
cn.Close()
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
cmd = NewOleDbCommand("insert into Table1 values("& Val(TextBox1.Text) &" , '"&
TextBox2.Text &"', "& Val(TextBox3.Text) &",'"& TextBox4.Text &"')", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Inserted successfully")
clear()
EndSub
Subclear()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.Focus()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
cmd = NewOleDbCommand("delete from Table1 where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Deleted Successfully")
clear()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
cmd = NewOleDbCommand("update Table1 set Product_Name = '"& TextBox2.Text &"',Quantity="&
Val(TextBox3.Text) &",Price='"& TextBox4.Text &"'where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("Record Updated successfully")
clear()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click
da = NewOleDbDataAdapter
dt = NewDataTable
cmd = NewOleDbCommand("select * from Table1 where ID ="& Val(TextBox1.Text) &"", cn)
cn.Open()
da.SelectCommand = cmd

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
da.Fill(dt)
cn.Close()
TextBox1.Text = dt.Rows(0).Item(0)
TextBox2.Text = dt.Rows(0).Item(1)
TextBox3.Text = dt.Rows(0).Item(2)
TextBox4.Text = dt.Rows(0).Item(3)
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

PRACTICAL 30: CREATE A DATABASE OF YOUR OWN CHOICE AND

CONNECT IT BY DATA BINDING TECHNIQUE USING THE FOLLOWING:
A) LISTBOX B) DATA GRID VIEW
Code: -
A) LISTBOX
PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'Q30_listboxDataSet.DATA' table. You can
move, or remove it, as needed.
Me.DATATableAdapter.Fill(Me.Q30_listboxDataSet.DATA)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE
DATABindingSource.AddNew()
EndSub
PrivateSub Button2_Click_1(sender AsObject, e AsEventArgs) Handles Button2.Click
DATABindingSource.RemoveCurrent()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Code: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

B) DATA GRID VIEW

PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
'TODO: This line of code loads data into the 'Database5DataSet.Table1' table. You can
move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me.Database5DataSet.Table1)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Table1BindingSource.MovePrevious()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Table1BindingSource.AddNew()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click
Table1BindingSource.MoveNext()
EndSub
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles Button6.Click
OnErrorGoToSaveError
Table1BindingSource.EndEdit()
Table1TableAdapter.Update(Database5DataSet.Table1)
MsgBox("Data Has Been Saved")
SaveError:
ExitSub
EndSub
PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click
Table1BindingSource.RemoveCurrent()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click
Me.Close()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

 VB.NET PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019