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
