Delhi Technical Campus

Greater Noida

Front End Design Tool VB.Net

LAB
[BCA-251]
NAME: Jhanvi Pathak
ENROLLMENT NO:

1|Page
 INDEX
S.No Lab Assignment Page No Date of Teacher’s
Execution Signature
1 Write a program to construct 4-6 23-Aug-21
a calculator
2 Write a program to show the 7 06-Sep-21
concept of Keyword
Constant
3 Write a program to show the 8 06-Sep-21
concept of Keyword Enum
4 Write a program to check if 9 13-Sep-21
else condition
5 Write a program to check 10-11 13-Sep-21
else if condition
6 Write a program to show the 12 20-Sep-21
execution of for loop
7 Write a program to show the 13 20-Sep-21
execution of do while loop
8 Write a program to find out 12 05-Oct-21
the area of circle from given
radius with const keyword
9 Write a program to show the 15-17 11-Oct-21
use of Timer and create
Timer Watch
10 Write a program to show the 18 18-Oct-21
use of tree view control and
add nodes in it.
11 Write a program to show the 19-21 25-Oct-21
use of ComboBox and
ListBox controls
12 Write a program to add the 22 08-Nov-21
two given numbers
13 Write a program to subtract 23 08-Nov-21
the two given numbers
14 Write a program to multiply 24 08-Nov-21
the two given numbers
15 Write a program to divide 25 08-Nov-21
the two given numbers
16 Write a program to show the 26 22-Nov-21
use of open file dialog box
17 Write a program to show the 27 22-Nov-21
use of colour dialog box
18 Write a program to show the 28 22-Nov-21
use of font dialog box
19 Write a program to show the 29-30 22-Nov-21
use of save file dialog box
20 Write a program to show the 31 29-Nov-21

2|Page
 concept of function
overloading
21 Write a program to show the 32 29-Nov-21
concept of inheritance

22 Write a program to show the 33 29-Nov-21

concept of overriding
23 Show all the steps of 34-36 07-Dec-21
connection with database

3|Page
 PROGRAM-1
Write a program to construct a calculator
SOURCE CODE:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
ElseIf RadioButton5.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
ElseIf RadioButton6.Checked = True Then
TextBox3.Text = Val(Math.Sqrt(TextBox1.Text))
Else
MsgBox("No operation selected!", MsgBoxStyle.Exclamation)
End If
End Sub

End Class

OUTPUT

4|Page
5|Page
6|Page
 PROGRAM-2
Write a program to show the concept of Keyword Constant
Code
Class areaofsquare
Public Shared Sub Main()
Const a = 20
Dim area = a * a
Console.WriteLine($"area of square is {area} ")
Console.ReadKey()

End Sub
End Class

Output

7|Page
 PROGRAM-3
Write a program to show the concept of Keyword Enum

Code
Module Enum_Data
Enum Fruits
' List of enumerated data
Banana
Mango
Orange = 6
Pineapple
Apple

End Enum
Sub Main()

Console.WriteLine(" Fruit code of Banana " & Fruits.Banana) 'call with enumeration and items name
Console.WriteLine(" Fruit code of orange " & Fruits.Mango)
Console.WriteLine(" Fruit code of oranges " & Fruits.Orange)
Console.WriteLine(" Fruit code of pineapple " & Fruits.Pineapple)
Console.WriteLine(" Fruit code of apple " & Fruits.Apple)

Console.WriteLine(" Press any key to exit...")

Console.ReadKey()
End Sub
End Module

Output

8|Page
 PROGRAM-4
Write a program to check if else condition
CODE
Module decisions
Sub Main()
'local variable definition '
Dim a As Integer
Console.Write("ENTER THE NUMBER : ")
a = Integer.Parse(Console.ReadLine())

' check the boolean condition using if statement

If (a < 20) Then
' if condition is true then print the following
Console.Write(Environment.NewLine)
Console.WriteLine("a is less than 20")
Else
' if condition is false then print the following
Console.Write(Environment.NewLine)
Console.WriteLine("a is not less than 20")
End If
Console.Write(Environment.NewLine)
Console.WriteLine("value of a is : {0}", a)
Console.ReadLine()
End Sub
End Module

OUTPUT

9|Page
 PROGRAM-5
Write a program to check else if condition
Code
Module decisions
Sub Main()
'local variable definition '
Dim A As Integer
Console.Write("ENTER THE NUMBER :10 or 20 ")
A = Integer.Parse(Console.ReadLine())
' check the boolean condition '
If (A = 10) Then
' if condition is true then print the following '
Console.WriteLine("Value of is 10") '
ElseIf (A = 20) Then
'if else if condition is true '
Console.WriteLine("Value of a is 20") '
Else
'if none of the conditions is true
Console.WriteLine("None of the values is matching")
End If
End Sub
End Module

OUTPUT

10 | P a g e
11 | P a g e
 PROGRAM-6
Write a program to show the execution of for loop
Code
Module loops

Sub Main()
Dim a, b, t As Byte
Console.Write("ENTER THE NUMBER TO GET ITS TABLE : ")
b = Integer.Parse(Console.ReadLine())
Console.Write(Environment.NewLine)
Console.WriteLine("Table is : ")
Console.Write(Environment.NewLine)
For a = 1 To 10
t=b*a
Console.WriteLine(t)
Next
Console.WriteLine("that is the table")

End Sub
End Module

Output

12 | P a g e
 PROGRAM-7
Write a program to show the execution of do while loop
CODE:
Module loops
Sub Main()
Dim a = 1, b, t As Integer
Console.Write("ENTER THE NUMBER TO GET ITS TABLE : ")
b = Integer.Parse(Console.ReadLine())
Console.Write(Environment.NewLine)
Console.WriteLine("Table OF {0} IS : ", b)
Console.Write(Environment.NewLine)
Do
t=b*a
Console.WriteLine(t)
a=a+1

Loop While (a <= 10)

Console.Write(Environment.NewLine)
Console.WriteLine(" here your table ")
End Sub
End Module
OUTPUT:

13 | P a g e
 PROGRAM-8
Write a program to find out the area of circle from given radius with const
keyword

CODE:
Module Module1

Sub Main()

Dim radius As Single = 1

Dim area As Single = 1
Const Pi = 3.1416
Console.Write(“ENTER RADIUS FOR AREA : “)
radius = Single.Parse(Console.ReadLine())
area = Pi * radius * radius
Console.WriteLine(“AREA FROM THE GIVEN RADIUS IS : {0}”, area)

End Sub

End Module
OUTPUT:

14 | P a g e
 PROGRAM-9
Q1. Write a program to show the use of Timer and create Timer Watch.

CODE:

START BUTTON
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Start() 'Start the timer

End Sub
STOP BUTTON
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Stop() ' Stop the timer
End Sub

ON FORM 1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "time form"
Label1.Text = "Timer Control"
TextBox1.Text = 1
Timer1.Enabled = True

Button1.Text = "Start"
Button1.BackColor = Color.Blue
Button1.ForeColor = Color.AliceBlue
Button2.Text = "Stop"
Button2.BackColor = Color.Green
Button2.ForeColor = Color.AliceBlue

15 | P a g e
 Timer1.Start()
Timer1.Interval = 600

End Sub
ON TIMER 1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Label1.ForeColor = Color.Green Then
Label1.ForeColor = Color.BlueViolet

ElseIf Label1.ForeColor = Color.Green Then

Label1.ForeColor = Color.BlueViolet
End If
TextBox1.Text = TextBox1.Text + 1

End Sub

OUTPUT:

START

16 | P a g e
STOP

17 | P a g e
 PROGRAM-10
Write a program to show the use of tree view control and add nodes in it.
CODE:
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim A As String = InputBox("Enter Data")

If (TreeView1.SelectedNode) Is Nothing Then

TreeView1.Nodes.Add(A, A, 0, 1)

Else

TreeView1.SelectedNode.Nodes.Add(A, A, 0, 1)

End If

End Sub

Private Sub TreeView1_AfterSelect(sender As Object, As e TreeViewEventArgs) Handles

TreeView1.AfterSelect()

End Sub

End Class

CODE:

18 | P a g e
 PROGRAM-11
Write a program to show the use of ComboBox and ListBox controls.
CODE:
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

ComboBox1.Items.Add("books")
ComboBox1.Items.Add("games")

Label1.Text = ListBox1.SelectedItem

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

ComboBox1.Sorted = True
ListBox1.Sorted = True

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

ComboBox1.Items.Clear()
ListBox1.Items.Clear()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

ComboBox1.Items.Remove(ComboBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Label1.Text = ComboBox1.Items.Count
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ListBox1.Items.Add("BCA")
ListBox1.Items.Add("MCA")
ListBox1.Items.Add("BBA")
ListBox1.Items.Add("MBA")

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

ListBox1.Items.Add(ComboBox1.SelectedItem)
End Sub
End Class

19 | P a g e
OUTPUT:

ADD

COUNT

20 | P a g e
 ADD ITEMS(LABEL)

CLEAR

REMOVE
PROGRAM-12
Write a program to add the two given numbers

21 | P a g e
CODE
Module Module1

Sub Main()
Dim num1, num2, sum As Integer

Console.Write(" ENTER FIRST NUMBER : ")

num1 = Convert.ToInt32(Console.ReadLine())
Console.Write(" ENTER SECOND NUMBER : ")
num2 = Convert.ToInt32(Console.ReadLine())
sum = num1 + num2
Console.Write(Environment.NewLine & " Addition will be : " & sum)
Console.ReadLine()
End Sub

End Module

CODE:

22 | P a g e
 PROGRAM-13
Write a program to subtract the two given numbers
CODE:
Module Module1
Sub Main()
Dim num1, num2, Subtraction As Integer

Console.Write(" ENTER FIRST NUMBER : ")

num1 = Convert.ToInt32(Console.ReadLine())
Console.Write(" ENTER SECOND NUMBER : ")
num2 = Convert.ToInt32(Console.ReadLine())
Subtraction = num1 - num2
Console.Write(Environment.NewLine & " Subtraction will be : " & Subtraction)
Console.ReadLine()
End Sub

End Module

OUTPUT:

23 | P a g e
 PROGRAM-14
Write a program to multiply the two given numbers
CODE:
Module Module1
Sub Main()
Dim num1, num2, multiply As Integer

Console.Write(" ENTER FIRST NUMBER : ")

num1 = Convert.ToInt32(Console.ReadLine())
Console.Write(" ENTER SECOND NUMBER : ")
num2 = Convert.ToInt32(Console.ReadLine())
multiply = num1 * num2
Console.Write(Environment.NewLine & " Answer will be : " & multiply)
Console.ReadLine()
End Sub

End Module

OUTPUT:

24 | P a g e
 PROGRAM-15
Write a program to divide the two given numbers
CODE:
Module Module1
Sub Main()
Dim num1, num2, divide As Integer

Console.Write(" ENTER FIRST NUMBER : ")

num1 = Convert.ToInt32(Console.ReadLine())
Console.Write(" ENTER SECOND NUMBER : ")
num2 = Convert.ToInt32(Console.ReadLine())
divide = num1 / num2
Console.Write(Environment.NewLine & " Answer will be : " & divide)
Console.ReadLine()
End Sub

End Module

OUTPUT:

25 | P a g e
 PROGRAM-16
Write a program to show the use of open file dialog box
CODE :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If

End Sub
End Class

OUTPUT

26 | P a g e
 PROGRAM-17
Write a program to show the use of colour dialog box
CODE;:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
Label1.ForeColor = ColorDialog1.Color
End If

End Sub
End Class

OUTPUT :

27 | P a g e
 PROGRAM-18
Write a program to show the use of font dialog box
Code;
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If FontDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
RichTextBox1.ForeColor = FontDialog1.Color
RichTextBox1.Font = FontDialog1.Font
End If

End Sub
End Class

OUTPUT:

28 | P a g e
 PROGRAM-19
Write a program to show the use of save file dialog box

CODE :

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SaveFileDialog1.Filter = “TXT Files (*.txt*)|*.txt”
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, RichTextBox1.Text, True)
End If

End Sub

OUTPUT:

29 | P a g e
30 | P a g e
 PROGRAM-20
Write a program to show the concept of function overloading
CODE:
Imports System
Class adder
Public Overloads Sub Add(A As String, B As String)
Console.WriteLine("Adding Strings: " + A + B)
End Sub

Shared Sub Main()

Dim AdderObj As adder
AdderObj = New adder
AdderObj.Add(20, 50)
AdderObj.Add("hello", " I am Jhanvi")
End Sub
End Class

OUTPUT:

31 | P a g e
 PROGRAM-21
Write a program to show the concept of inheritance
CODE:
Imports System
Class Human
Public Sub Talk()
Console.WriteLine("Talking")
End Sub
End Class
Class Programmer
Inherits Human

Public Sub StealCode()

Console.WriteLine("Stealing code")
End Sub
End Class
Class MainClass

Shared Sub Main()

Dim Rohan As Programmer
Rohan = New Programmer

Rohan.Talk()
Rohan.StealCode()
End Sub
End Class

OUTPUT:

32 | P a g e
 PROGRAM-22
Write a program to show the concept of overriding
CODE:
Imports System

Class Human
Public Overridable Sub Speak()
Console.WriteLine("Speaking")
End Sub
Class Indian
Inherits Human

Public Overrides Sub Speak()

Console.WriteLine("Speaking Hindi")

End Sub
End Class
Class MainClass

Shared Sub Main()

Dim Johan As Human

Johan = New Human

Dim Tony As Indian

Tony = New Indian

Johan.Speak()

Tony.Speak()
End Sub
End Class
End Class

OUTPUT:

33 | P a g e
 PROGRAM-23
Show all the steps of connection with database
OUTPUT:

34 | P a g e
35 | P a g e
36 | P a g e