Scribd
Upload
1K views51 pages

Anay Dev VB - NET Practical File

This document contains details about practical assignments completed as part of a Bachelor of Computer Application program. It includes 8 practical assignments on topics like creating a Windows application in VB.NET, adding two numbers, finding the largest of three numbers, checking if a number is prime, and designing a simple calculator. The document provides the code and output for each assignment. It was submitted to fulfill requirements for the BCA program at JIMS Engineering Management Technical Campus.

Uploaded by

jims bca2019
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
1K views51 pages

Anay Dev VB - NET Practical File

This document contains details about practical assignments completed as part of a Bachelor of Computer Application program. It includes 8 practical assignments on topics like creating a Windows application in VB.NET, adding two numbers, finding the largest of three numbers, checking if a number is prime, and designing a simple calculator. The document provides the code and output for each assignment. It was submitted to fulfill requirements for the BCA program at JIMS Engineering Management Technical Campus.

Uploaded by

jims bca2019
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

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)


[Link] PRACTICAL FILE

PRACTICAL 1: WRITE DOWN THE STEPS TO CREATE A WINDOWS


APPLICATION USING [Link].

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


[Link] 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


[Link] PRACTICAL FILE

PRACTICAL 2: WRITE A PROGRAM TO ADD TWO NUMBERS.


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

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


NUMBERS.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim n1 AsInteger = [Link]
Dim n2 AsInteger = [Link]
Dim n3 AsInteger = [Link]
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


[Link] PRACTICAL FILE

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


Code: -
ModuleModule1
SubMain()
[Link]("WELCOME TO JIMS GREATER NOIDA")
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dimi, j AsInteger
Dim t AsBoolean
i = [Link]
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


[Link] PRACTICAL FILE

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


Code: -
ModuleModule1
SubMain()
Dim str AsString
str = "Test"
MsgBox([Link]())
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
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


[Link] 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()
[Link]("Enter any no.")
num = [Link]()
n = num Mod 2
If n = 0 Then
[Link]("NUMBER IS EVEN")
Else
[Link]("NUMBER IS ODD")
EndIf
[Link]()
EndSub
EndModule
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
If [Link] <>"0"Then
[Link] += "5"
Else
[Link] = "5"
EndIf
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "3"
Else
[Link] = "3"
EndIf
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles [Link]
fnum = [Link]
[Link] = "0"
operator_Selector = True
operation = 1 '= +
EndSub
PrivateSub Button8_Click(sender AsObject, e AsEventArgs) Handles [Link]
fnum = [Link]
[Link] = "0"
operator_Selector = True
operation = 2 '= -
EndSub
PrivateSub Button9_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "7"
Else
[Link] = "7"
EndIf
EndSub
PrivateSub Button15_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link] = "0"
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "1"
Else
[Link] = "1"
EndIf
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "2"
Else
[Link] = "2"

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

EndIf
EndSub

PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles [Link]


If [Link] <>"0"Then
[Link] += "4"
Else
[Link] = "4"
EndIf
EndSub
PrivateSub Button7_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "6"
Else
[Link] = "6"
EndIf
EndSub
PrivateSub Button10_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "8"
Else
[Link] = "8"
EndIf
EndSub
PrivateSub Button11_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "9"
Else
[Link] = "9"
EndIf
EndSub
PrivateSub Button13_Click(sender AsObject, e AsEventArgs) Handles [Link]
If [Link] <>"0"Then
[Link] += "0"
EndIf
EndSub
PrivateSub Button14_Click(sender AsObject, e AsEventArgs) Handles [Link]
IfNot ([Link](".")) Then
[Link] += "."
EndIf
EndSub
PrivateSub Button12_Click(sender AsObject, e AsEventArgs) Handles [Link]
fnum = [Link]
[Link] = "0"
operator_Selector = True
operation = 3 '= *
EndSub
PrivateSub Button16_Click(sender AsObject, e AsEventArgs) Handles [Link]
fnum = [Link]
[Link] = "0"
operator_Selector = True
operation = 4 '/
EndSub
PrivateSub Button17_Click(sender AsObject, e AsEventArgs) Handles [Link]
Ifoperator_Selector = TrueThen
snum = [Link]
If operation = 1 Then

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
[Link] = fnum + snum
ElseIf operation = 2 Then
[Link] = fnum - snum
ElseIf operation = 3 Then
[Link] = fnum * snum
Else
Ifsnum = 0 Then
[Link] = "ERROR!"
Else
[Link] = fnum / snum
EndIf
EndIf
operator_Selector = False
EndIf

EndSub
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dim score AsInteger
score = [Link]
SelectCase score
Case 0 To 49
[Link] = "Fail"
Case 50 To 64
[Link] = "Pass"
Case 65 To 74
[Link] = "Credit"
Case 75 To 84
[Link] = "Distinction"
Case 85 To 100
[Link] = "High Disinction"
CaseElse
[Link] = "Invalid Score!"
EndSelect
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

PRACTICAL 11: WRITE A PROGRAM FOR FIBONACCI SERIES.


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

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

PRACTICAL 12: WRITE A PROGRAM TO CALCULATE SIMPLE INTEREST.


Code: -
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim p, r, t AsSingle
DimsiAsSingle
p = [Link]
r = [Link]
t = [Link]
si = (p * r * t) / 100
[Link] = si
[Link] = p + si
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dim t1, t2, t3, t4, t5, t6, t7, avg AsInteger
t1 = [Link]
t2 = [Link]
t3 = [Link]
t4 = [Link]
t5 = [Link]
t6 = [Link]
t7 = [Link]
avg = (t1 + t2 + t3 + t4 + t5 + t6 + t7) / 7
[Link] = avg
EndSub

Output: -

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


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

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
[Link]("Count: {0}", [Link])
[Link]("Content: ")

ForEachiIn al
[Link]("{0} ", i)
Nexti
[Link]()
[Link]("Sorted Content: ")
[Link]()
ForEachiIn al
[Link]("{0} ", i)
Nexti
[Link]()
[Link]()
EndSub
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


AND PROCEDURES IN [Link].
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 [Link]
Dim n1, n2, m AsInteger
n1 = [Link]
n2 = [Link]
m = max_val(n1, n2)
MsgBox("The number "& m &" is greatest")
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim n1, n2, m AsInteger
n1 = [Link]
n2 = [Link]
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


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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)
[Link]()
EndSub
Subswap(ByVal a, ByVal b)
Dim t AsInteger
[Link]("a = ")
a = CInt([Link]())
[Link]("b = ")
b = CInt([Link]())
[Link]()
[Link]("Before Swapping...")
[Link]("a = " + [Link]() + " b = " + [Link]())
t = a
a = b
b = t
[Link]()
[Link]("After Swapping...")
[Link]("a = " + [Link]() + " b = " + [Link]())
EndSub
EndModule
For by referencemethod:-
ModuleModule1
SubMain()
Dim a, b AsInteger
swap(a, b)
[Link]()
EndSub
Subswap(ByRef a, ByRef b)
Dim t AsInteger
[Link]("a = ")
a = CInt([Link]())
[Link]("b = ")
b = CInt([Link]())
[Link]()
[Link]("Before Swapping...")
[Link]("a = " + [Link]() + " b = " + [Link]())
t = a
a = b
b = t
[Link]()
[Link]("After Swapping...")
[Link]("a = " + [Link]() + " b = " + [Link]())
EndSub

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
EndModule

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dim l, b, h, r, t, s AsDecimal
DimchAsDecimal
ch = [Link]
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


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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&[Link]&
"Name : "&emp_name&[Link]&
"Age : "&emp_age)
EndSub
EndClass
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
DimsalAsInteger
sal = Val([Link])
[Link](sal)
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim exp AsInteger
exp = InputBox("Enter year of joining : ")
[Link](exp)
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim name AsString
Dim Id, Age AsInteger
Id = Val([Link])
name = ([Link])
Age = Val([Link])
[Link](name, Id, Age)
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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&[Link]&
"Address : "& address &[Link]&
"Customer No : "&cust_no&[Link]&
"Age : "& age &[Link]&
"Balance : "&bal)
EndSub
EndClass
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
Dim a AsNewCust_details
[Link]()
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dim o AsNew A
MsgBox("Area of square : "&[Link](3) &[Link]&
"Area of circle : "&[Link](3.14, 5) &[Link]&
"Area of triangle : "&[Link](0.5, 10, 15))
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
Dim name AsString
Dimadm_noAsInteger
name = [Link]
adm_no = [Link]
[Link]("ENTERED NAME IS : "& name)
[Link]("ENTERED ADMISSION_NO IS : "&adm_no)
If [Link] = TrueThen
[Link]("YOU SELECTED MATHEMATICS")
EndIf
If [Link] = TrueThen
[Link]("YOU SELECTED PHYSICS")
EndIf
If [Link] = TrueThen
[Link]("YOU SELECTED BIOLOGY")
EndIf
If [Link] = TrueThen
[Link]("YOU SELECTED ACCOUNTS")
EndIf
If [Link] = TrueThen
[Link]("YOU CHOOSED PHYSICAL EDUCATION AS OPTIONAL SUBJECT")
ElseIf [Link] = TrueThen
[Link]("YOU CHOOSED IP/CS AS OPTIONAL SUBJECT")
Else
[Link]("PLEASE ENTER YOUR CHOOSED SUBECTS!")
EndIf
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
[Link]([Link])
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]([Link])
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
[Link]()
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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 [Link]
[Link]()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub DateTimePicker1_ValueChanged(sender AsObject, e AsEventArgs) Handles
[Link]
[Link] = [Link]
EndSub
PrivateSub Timer1_Tick(sender AsObject, e AsEventArgs) Handles [Link]
[Link] = [Link]
second += 1
[Link] = 1000
EndSub
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
[Link] = 25
[Link] = 250
[Link] = 25
[Link] = 250
[Link] = "("& [Link] &", "& [Link] &")"
[Link] = NewPoint([Link], [Link])
EndSub
PrivateSub HScrollBar1_Scroll(sender AsObject, e AsScrollEventArgs) Handles
[Link]
[Link] = "("& [Link] &", "& [Link] &")"
[Link] = NewPoint([Link], [Link])
EndSub
PrivateSub VScrollBar1_Scroll(sender AsObject, e AsScrollEventArgs) Handles
[Link]
[Link] = "("& [Link] &", "& [Link] &")"
[Link] = NewPoint([Link], [Link])
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


CHOICE USING MS ACCESS AND CONNECT IT TO [Link] APPLICATION TO
DISPLAY THE VALUES USING DATA GRID CONTROL.
Code: -

PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
'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


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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) [Link]
'TODO: This line of code loads data into the 'Database5DataSet.Table1' table. You can
move, or remove it, as needed.
[Link](Me.Database5DataSet.Table1)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles [Link]
OnErrorGoToSaveError
[Link]()
[Link](Database5DataSet.Table1)
MsgBox("Data Has Been Saved")
SaveError:
ExitSub
EndSub
PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
EndClass

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


DELETE OPERATIONS ON A MS ACCESS DATABASE USING [Link].
Code: -
[Link]
PublicClassForm1
DimcnAsOleDbConnection
DimcmdAsOleDbCommand
Dim da AsOleDbDataAdapter
Dim dt AsDataTable
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
cn = NewOleDbConnection("Provider=[Link].12.0;Data
Source=C:\Users\dell\Desktop\Q25\Q26_vb.accdb")
[Link]()
MsgBox("Database Connected")
[Link]()
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("insert into Table1 values("& Val([Link]) &" , '"&
[Link] &"', "& Val([Link]) &",'"& [Link] &"')", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Inserted successfully")
clear()
EndSub
Subclear()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("delete from Table1 where ID ="& Val([Link]) &"", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Deleted Successfully")
clear()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("update Table1 set Product_Name = '"& [Link] &"',Quantity="&
Val([Link]) &",Price='"& [Link] &"'where ID ="& Val([Link]) &"", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Updated successfully")
clear()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles [Link]
da = NewOleDbDataAdapter
dt = NewDataTable
cmd = NewOleDbCommand("select * from Table1 where ID ="& Val([Link]) &"", cn)
[Link]()
[Link] = cmd

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
[Link](dt)
[Link]()
[Link] = [Link](0).Item(0)
[Link] = [Link](0).Item(1)
[Link] = [Link](0).Item(2)
[Link] = [Link](0).Item(3)
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


FORM.
Code: -
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


WITHOUT CODING.
Code: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
'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


[Link] PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

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


WITH CODING.
Code: -
[Link]
PublicClassForm1
DimcnAsOleDbConnection
DimcmdAsOleDbCommand
Dim da AsOleDbDataAdapter
Dim dt AsDataTable
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
cn = NewOleDbConnection("Provider=[Link].12.0;Data
Source=C:\Users\dell\Desktop\Q25\Q26_vb.accdb")
[Link]()
MsgBox("Database Connected")
[Link]()
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("insert into Table1 values("& Val([Link]) &" , '"&
[Link] &"', "& Val([Link]) &",'"& [Link] &"')", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Inserted successfully")
clear()
EndSub
Subclear()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("delete from Table1 where ID ="& Val([Link]) &"", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Deleted Successfully")
clear()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
cmd = NewOleDbCommand("update Table1 set Product_Name = '"& [Link] &"',Quantity="&
Val([Link]) &",Price='"& [Link] &"'where ID ="& Val([Link]) &"", cn)
[Link]()
[Link]()
[Link]()
MsgBox("Record Updated successfully")
clear()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles [Link]
da = NewOleDbDataAdapter
dt = NewDataTable
cmd = NewOleDbCommand("select * from Table1 where ID ="& Val([Link]) &"", cn)
[Link]()
[Link] = cmd

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
[Link](dt)
[Link]()
[Link] = [Link](0).Item(0)
[Link] = [Link](0).Item(1)
[Link] = [Link](0).Item(2)
[Link] = [Link](0).Item(3)
EndSub
EndClass
Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] 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) [Link]
'TODO: This line of code loads data into the 'Q30_listboxDataSet.DATA' table. You can
move, or remove it, as needed.
[Link](Me.Q30_listboxDataSet.DATA)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE
[Link]()
EndSub
PrivateSub Button2_Click_1(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Code: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

B) DATA GRID VIEW


PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) [Link]
'TODO: This line of code loads data into the 'Database5DataSet.Table1' table. You can
move, or remove it, as needed.
[Link](Me.Database5DataSet.Table1)
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles [Link]
OnErrorGoToSaveError
[Link]()
[Link](Database5DataSet.Table1)
MsgBox("Data Has Been Saved")
SaveError:
ExitSub
EndSub
PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles [Link]
[Link]()
EndSub
EndClass

Output: -

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019


[Link] PRACTICAL FILE

Name: ANAY DEV THAKUR ENROLLMENT NO.:02525502019

You might also like