THAVATHIRU SANTHALINGA ADIGALAR ARTS SCIENCE AND TAMIL COLLEGE

PERUR, COIMBATORE – 641010.

E-Mail: [email protected],Website:tsatamilcas.edu.in

Affiliated to Bharathiar University, Approved by UGC under Section 2(f) & 12(B)

Accredited With B+ Grade by NAAC

DEPARTMENT OF COMMERCE WITH COMPUTER APPLICATIONS

III - B.COM (CA)

SEMESTER – VI

PROGRAMMING LAB – VISUAL BASIC AND WEB PROGRAMMING

NAME : ……………………………….

REGISTER NO : ……………………………….
 THAVATHIRU SANTHALINGA ADIGALAR ARTS SCIENCE AND TAMIL COLLEGE
PERUR, COIMBATORE– 641 010
CERTIFICATE

Certified that this is a bonafide record work done by ________________________ with

the Register Number ______________ of B.COM (CA) Degree-Semester VI, during the
Academic Year 2023 – 2024

Staff in charge Head of Department

Submitted for the Practical Examination held by BHARATHIYAR UNIVERSITY,

Coimbatore, at Thavathiru Santhalinga Adigalar Arts, Science and Tamil College, Perur,
Coimbatore – 641 010, on _______________ .

Internal Examiner External Examiner

Place : Perur
Date :
 VISUVAL BASIC PROGRAMMING

S.NO DATE DESCRIPTION PAGE .NO SIGNATURE

1 FORMAT AND ALIGNMENTS FUCTION

2 PRODUCT LISTS USING ARRAY

3 CAPITAL BUDGETING

4 IMAGE CONTOL

5 COST OF CAPITAL

6 WORKING CAPITAL

7 BREAK EVEN ANALYSIS

8 PRODUCT DETAILS

9 PRODUCT LIFE CYCLE

10 EMPLOYEE PAY SLIP

11 HIGHLIGHTS OF BUDGETING

12 SUPERMARKET BILL

13 BANK CUSTOMAR DATABASE

14 INVENTORY CONTROL

15 DIRECTORY FILES AND FOLDERS

 HTML PROGRAMMING

S.NO DATE DESCRIPTION PAGE. SIGNATION

NO:
01 TO CREATE WEBPAGE OF BUSSINESS ORGANIZATION
USING FRAMES IN HTML
02 TO CREATE A PROGRAM USING HTML TO DISPLAY
THE ORDERED LIST AND UNORDERED LIST
03 ADVERTISMENT OF COMPANY PRODUCT
04 LIST OF PRODUCT’S
05 SALES LETTER
06 RESUME
07 WEBSITE
7.1 .COLLEGE LOGO .IMG HTML
7.2. WELCOME TO DEPARTMENT PAGE HTML
7.3.COURSES OFFERED HTML
7.4.STUDENT DETIALS HTML
7.5.DIPLOMA COURSES DETIALS HTML
08 ORDER FORM
09 CUSTOMAR SURVEY FORM
10 MULTIFORM DOCUMENT
 PROGRAM 1
FORMAT AND ALIGNMENT FUNCTIONS
AIM:
To design a form with text box to perform the alignment and format function
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Private Sub Command1_Click()
Text1.Alignment = 0
End Sub

Private Sub Command2_Click()

Text1.Alignment = 2
End Sub

Private Sub Command3_Click()

Text1.Alignment = 1
End Sub

Private Sub Form_Load()

Text1.Text = Format(Now)
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM :2
PRODUCT LIST USING ARRAY

AIM:
To design a form to display the list of products by declaring array function,
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim a(5) As String
Dim i As Integer

Private Sub Command1_Click()

a(0) = "DIARYMILK"
a(1) = "MILKYBAR"
a(2) = "KITKAT"
a(3) = "PERK"
a(4) = "PERK"
For i = 0 To 5
List1.AddItem (a(i))
Next i
End Sub

Private Sub Command2_Click()

Remove = List1.ListIndex
If Remove > 0 Then
List1.RemoveItem Remove
End If
End Sub

Private Sub Command3_Click()

List1.Clear
End Sub

Private Sub Command4_Click()

List1.AddItem (Text1.Text)
Text1.Text = "'"
End Sub

FORM DESIGN:
OUTPUT:
 PROGRAM 3
CAPITAL BUDGETING

AIM:
To design a form to calculate capital budgeting technique by declaring finance function
and variable declaration using option /radio/check box
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim INVEST, INFLOW, ELIFE, PAY, POST, INDEX As Integer
Private Sub Check1_Click()
INVEST = Val(Text1.Text)
INFLOW = Val(Text2.Text)
ELIFE = Val(Text3.Text)
PAY = INVEST / INFLOW
Text4.Text = PAY
If Check1.Value = 0 Then
Text4.Text = Clear
End If
End Sub

Private Sub Check2_Click()

POST = INFLOW * (ELIFE - PAY)
Text5.Text = POST
If Check2.Value = 0 Then
Text5.Text = Clear
End If
End Sub

Private Sub Check3_Click()

INDEX = (POST / INVEST) * 100
Text6.Text = INDEX
If Check3.Value = 0 Then
Text6.Text = Clear
End If
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM:4
ADVERTISEMENT BANNER

AIM:
To design a form to display an advertisement banner using image box control with string
function.

ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim S1, S2 As String

Private Sub Form_Load()

S1 = "ABC FLOWER SHOP-"
S2 = "COIMBATORE"
Label1 = S1 & S2
Label2 = "FEATURES"
Label3 = "IMPORTING AND EXPORTING"
Label4 = "FLOWER ARRANGEMENTS FOR FUNCTIONS"
Label5 = "CONTACT US ON 9994443332"
End Sub

FORM DESIGN:
OUTPUT:
 PROGRAM 5
COST OF CAPITAL
AIM:
To design a form to compute cost of capital using finance function in visual basic using
checkbox
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim i, np, d, mp As Integer
Private Sub Check1_Click()
i = Val(Text1.Text)
np = Val(Text2.Text)
Text3.Text = i / np
If Check1.Value = 0 Then
Text3.Text = Clear
End If
End Sub

Private Sub Check2_Click()

d = Val(Text4.Text)
np = Val(Text5.Text)
Text6.Text = d / np
If Check2.Value = 0 Then
Text6.Text = Clear
End If
End Sub

Private Sub Check3_Click()

d = Val(Text7.Text)
mp = Val(Text8.Text)
Text9.Text = d / mp
If Check3.Value = 0 Then
Text9.Text = Clear
End If
End Sub

FORM DESIGN:
OUTPUT:
 PROGRAM 6
WORKING CAPITAL
AIM:
To design a form to perform working capital analysis by declaring finance function using
flex grid control.
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Private Type capital
cash As Integer
stock As Integer
overdraft As Integer
creditors As Integer
workingcapital As Integer
End Type
Dim w(10) As capital
Dim i, j As Integer
Dim cols As Integer
Private Sub Command1_Click()
w(i).cash = InputBox("Enter the cash value")
w(i).stock = InputBox("Enter the stock value")
w(i).overdraft = InputBox("Enter the overdraft value")
w(i).creditors = InputBox("Enter the creditors value")
w(i).workingcapital = InputBox("Enter the workingcapital value")
i=i+1
End Sub

Private Sub Command2_Click()

fg.Rows = fg.Rows + 1
For j = 1 To i
fg.Row = j
fg.Col = 0
fg.Text = w(j - 1).cash
fg.Col = 1
fg.Text = w(j - 1).stock
fg.Col = 2
fg.Text = w(j - 1).overdraft
fg.Col = 3
fg.Text = w(j - 1).creditors
fg.Col = 4
fg.Text = w(j - 1).workingcapital
Next j
End Sub

Private Sub Form_Load()

fg.cols = 5
fg.Row = 0
fg.Col = 0
fg.Text = "cash"
fg.Col = 1
fg.Text = "stock"
fg.Col = 2
fg.Text = "overdraft"
fg.Col = 3
fg.Text = "creditors"
fg.Col = 4
fg.Text = "workingcapital"

End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM 7
BREAK EVEN ANALYSIS
AIM:
To design a form to display Break even analysis using line and chart controls by
declaring variables

ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim vc As Double
Dim fc As Double
Dim sales As Double
Dim bep As Double
Dim sp As Double
Private Sub Check1_Click()
vc = Val(Text1.Text)
fc = Val(Text2.Text)
sales = Val(Text3.Text)
sp = Val(Text4.Text)
Text5.Text = fc / (sale - vc)
If Check1.Value = 0 Then
Text5.Text = Clear
End If
End Sub
Private Sub Check2_Click()
Text6.Text = sp - vc
If Check2.Value = 0 Then
Text6.Text = Clear
End If
End Sub
Private Sub Check3_Click()
Text7.Text = (sp - vc) / sales * 100
If Check3.Value = 0 Then
Text7.Text = Clear
End If
End Sub

Private Sub Command1_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Command2_Click()
Dim x(1 To 3, 1 To 3) As Variant
x(1, 1) = "bep"
x(1, 2) = Val(Text5.Text)
x(2, 1) = "contribution"
x(2, 2) = Val(Text6.Text)
x(3, 1) = "pv ratio"
x(3, 2) = Val(Text7.Text)
MSChart1.ChartData = x
MSChart1.chartType = VtChChartType2dBar
End Sub
Private Sub Command3_Click()
Dim x(1 To 3, 1 To 3) As Variant
x(1, 1) = "bep"
x(1, 2) = Val(Text5.Text)
x(2, 1) = "contribution"
x(2, 2) = Val(Text6.Text)
x(3, 1) = "pv ratio"
x(3, 2) = Val(Text7.Text)
MSChart1.ChartData = x
MSChart1.chartType = VtChChartType2dLine
End Sub

FORM DESIGN:
OUTPUT:
 PROGRAM 8
PRODUCT DETAILS
AIM:
To design a form to present product details like purchase , sales and profit etc., by
declaring array function and present the details in richtextbox(RTF)
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim a As Integer
Dim i(3) As Integer
Private Sub command1_click()
RichTextBox1.Text = Label2.Caption & Space(10) & Label3.Caption & Space(15) &
Label4.Caption & Space(15) & Label5.Caption & Space(15) & Chr(10) & Text1.Text & Space(30)
& Text2.Text & Space(30) & Text3.Text & Space(30) & Text4.Text & Space(10)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
i(0) = Text3.Text
i(1) = Text4.Text
If i(1) > i(0) Then
MsgBox ("profit")
Else
MsgBox ("loss")
End If
End Sub

Private Sub Command4_Click()

End
End Sub
FORM DESIGN:
OUTPUT:
 PROGRAM 9
PRODUCT LIFE CYCLE
AIM:
To design a form to display product life cycle using slider control
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Private Sub
Slider1_Click()
If Slider1.Value = 1 Then
Label2.Caption = "INTRODUCTION STAGE"
End If
If Slider1.Value = 2 Then
Label2.Caption = "GROWTH STAGE"
End If
If Slider1.Value = 3 Then
Label2.Caption = "MATURITY STAGE"
End If
If Slider1.Value = 4 Then
Label2.Caption = "SATURATION STAGE"
End If
If Slider1.Value = 5 Then
Label2.Caption = "DECLINE STAGE"
End If
End Sub
FORM DESIGN:
OUTPUT:
 PROGRAM 10
EMPLOYEE PAY SLIP
AIM:
To design a pay slip for an organization and create a database using SQL and data
control.
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Dim num As Integer
Private Sub command1_click()
Call autoreg
Adodc1.Recordset.AddNew
Text1 = Format(num, "E000")
End Sub
Private Sub command2_click()
Dim flag As Boolean
flag = False
Select Case Combo1
Case "MANAGER"
If Val(Text3) > 15000 And Val(Text3) <= 25000 Then
Text4 = Val(Text3) * 0.6
Text5 = Val(Text3) * 0.12
Text6 = Val(Text3) * 0.1
Text7 = Val(Text3) + Val(Text4) + Val(Text5)
Text8 = Val(Text7) - Val(Text6)
flag = False
Else
MsgBox "Input salary between 15k and 25k"
End If

Case "ENGINEER"
If Val(Text3) > 10000 And Val(Text3) <= 15000 Then
Text4 = Val(Text3) * 0.4
Text5 = Val(Text3) * 0.12
Text6 = Val(Text3) * 0.1
Text7 = Val(Text3) + Val(Text4) + Val(Text5)
Text8 = Val(Text7) - Val(Text6)
flag = False
Else
MsgBox "Input salary between 10k and 15k"
End If

Case "ACCOUNTANT"
If Val(Text3) <= 10000 Then
Text4 = Val(Text3) * 0.3
Text5 = Val(Text3) * 0.12
Text6 = Val(Text3) * 0.1
Text7 = Val(Text3) + Val(Text4) + Val(Text5)
Text8 = Val(Text7) - Val(Text6)
flag = False
Else
MsgBox "Input salary <= 10k"
End If
End Select
If flag Then
Adodc1.Recordset.Update
MsgBox "employee details saved successfully"
End If
End Sub

Private Sub command3_click()

Unload Me
End Sub

Public Sub autoreg()

Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
num = 1
Else
Adodc1.Recordset.MoveLast
num = Mid(Adodc1.Recordset("eid"), 2, 3) + 1
End If
End Sub

FORM DESIGN
OUTPUT
 PROGRAM -11
HIGHLIGHTS OF BUDGETING
AIM:
To design a form to display the highlights of budget using option button and animation.
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:

Private Sub Option1_Click()

Label1.ForeColor = vbRed
Label1.Caption = "MAXIMIZATION OF PROFIT"
Label1.Left = 100
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
Label1.Caption = "CORRECTIVE ACTION"
Label1.Left = 1000
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbYellow
Label1.Caption = "DETERMINES THE WEAKNESS"
Label1.Left = 3000
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbBlue
Label1.Caption = "REDUCED COST"
Label1.Left = 5000
100
End Sub
Private Sub Option5_Click()
Label1.ForeColor = vbBlack
Label1.Caption = "INCENTIVE SCHEME"
Label1.Left = 8000
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM -12
SUPERMARKET BILL
AIM:
To design a form to display sales invoice bill using data control ,check box, option button
etc.,
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:

Dim pno, quantity, price, total As Integer

Dim pname As String
Private Sub Check1_Click()
pno = Val(Text1.Text)
pname = Val(Text2.Text)
quantity = Val(Text3.Text)
price = Val(Text4.Text)
Text5.Text = price * quantity
If Check1.Value = 0 Then
Text5.Text = Clear
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
MsgBox "YOU WILL GET A GIFT WORTH OF RS.100"
If Option1.Value = True Then
Text6.Text = Val(Text5.Text)
End If
End Sub
Private Sub Option2_Click()
Text6.Text = Val(Text5.Text) - 50
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM -13
BANK CUTOMER DATABASE
AIM:
To design a form to display bank customer database using data control.
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM -14
INVENTORY CONTROL
AIM:
To design a form to calculate minimum, maximum, reorder, reorder quantity, EOQ and
display the inventory control records using data objects
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:
Private Sub Command1_Click()
Text13.Text = Val(Text2.Text) * Val(Text4.Text)
Text14.Text = (Val(Text13.Text) + Val(Text5.Text)) - (Val(Text1.Text) * Val(Text3.Text))
Text15.Text = Val(Text13.Text) - (Val(Text9.Text) / Val(Text10.Text) * Val(Text11.Text) /
Val(Text12.Text))
Text16.Text = Math.Sqr(2 * (Val(Text6.Text) * Val(Text7.Text) / Val(Text8.Text)))
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()

End
End Sub
FORM DESIGN:

OUTPUT:
 PROGRAM -15
DIRECTORY FILES AND FOLDERS
AIM:
To design a form to display tree view and list of folders and files from a directory of an
organization
ALGORITHM:
STEP1: Start  All programs  MS Visual Basic 6.0
STEP:2 Select the Standard EXE file and start the process
STEP:3 Save the project and form
STEP:4 Design a form using the appropriate controls in the toolbox
STEP:5 In the coding window, enter the coding for the controls and to run the program click
ctrl+F5
STEP:6 Save the process
CODING:

Private Sub dir1_change()

File1.Path = Dir1.Path
End Sub
Private Sub Drive1_change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub dir1_click()
Text1.Text = Dir1.Path
Text2.Text = Dir1.List(Dir1.ListIndex)
End Sub
Private Sub file1_click()
Text3.Text = File1.FileName
End Sub
FORM DESIGN:

OUTPUT:
 WEB PAGE USING FRAMES

EX:NO:

DATE:

AIM:

TO CREATE WEB PAGES FOR A BUSINESS ORGANIZATION USING HTML FRAMES.

ALGORITHM:
CODING:

TCS.1

<html>

<head>

<title>TATA</title>

</head>

<body bgcolor = "pink">

<h1>TATA CONSULTANCY SERVICES</h1>

<h3><u>ABOUT</u></h3>

<p>It is a IT services,consulting & business services organisation<br>

<h3><u>SERVICES</u></h3><br>

E-Governance,Banking & Financial services,Health care,Education.

<h3><u>NO OF EMPLOYESS</u></h3><br>

6,14,795

</p>

</body>

</html>

STEEL.2

<html>

<head>

<title>TATA</title>

</head>

<body bgcolor = "green">

<h1>TATA STEEL LIMTED</h1>

<h3><u>ABOUT</u></h3>

<p>It is an Indian multinational company with annual rude steel capacity of 34 million to tones per
year<br>
<h3><u>PRODUCTS</u></h3><br>

Tata steelium,Galvano,Tata pipes,Tata astrum.

<h3><u>NO OF EMPLOYEES</u></h3><br>

32,364

</p>

</body>

</html>

MOTORS.3

<html>

<head>

<title>TATA</title>

</head>

<body bgcolor = "violet">

<h1>TATA MOTORS</h1>

<h3><u>ABOUT</u></h3>

<p> It is an Indain multinational company.they are the India's market leaders in commercial vecicles
& amongst the top three passenger vehicles market.

<br>

<h3><u>PRODUCTS</u></h3><br>

cars, vans, trucks & buses.

<h3><u>NO OF EMPLOYEES</u></h3><br>

78,906

</p>

</body>

</html>

FRAMESET
<html>

<head>

<title>FRAMESET</title>

</head>

<frameset cols = "30%,30%,40%">

<frame src = "TCS-1.1.html">

<frame src = "steel-1.2.html">

<frame src = "motors-1.3.html">

</frameset>

</html>

OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 DEPARTMENT STORE

EX.NO:

DATE:

AIM:

TO CREAT E A PROGRAM USING HTML TO DISPLAY THE ORDERED LIST AND

UNORDERED LIST OF A DEPARTMENT STORE.

ALGORITHM:
CODING:

<html>

<head>

<title>DEPARTMENTAL STORE</title>

</head>

<body bgcolor = "yellow">

<h1><b><fontcolor = "red"><center>

KANNAN DEPARTMENTAL STORE</font></b></h1>

<h2><center> Gandhipuram , Coimbatore</h2>

<hr color = "blue">

<h3><marquee><font color ="red">Expert services/Unbeatable Price</marquee></font></h3>

<h4><u>LIST OF PRODUCTS</u></h4>

<ol type = 1>

<li>Vegetables</li>

<li>Fruits</li>

<li>cosmetics</li>

<li>Household goods</li>

</ol>

<h4><u>Discount</u></h4>

<ul>

<li>10% discount on vegetable</li>

<li>5% discount on fruits</li>

<li>10% discount on cosmetics</li>

<li>10% discount on purchase above Rs.1000</li>

</ul>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 ADVERTISMENT OF COMPANY PRODUCTS

EX:NO:

DATE:

AIM:

TO PROGRAM TO DISPLAY IMAGE AND TEXT USING HTML TAG FOR AN ADVERTISMENT
OF A COMPANY PRODUCT.

ALOGRITHM:
CODING:

<HTML>

<HEAD>

<TITLE>ADVERTSMENT</TITLE>

</HEAD>

<H1=<"CENTER">COFFEE DAY</H1>

<BODY BGCOLR="aaddff"TEXT"black">

<center><img src= " C:\Users\tsacas\Desktop\art-bread-breakfast-1170659.jpg"

height="200"width="200"></center>

<marquee>HAVE A HEALITHY COFFEE WITH A LOVELY PRICE!!!!</MARQUEE>

<BR>

<H2>HAVE A GREAT COFFEE LIKE </H2>

<BR><UL>

<LI>COLD COFFEE </LI>

<LI>BRANDAD COFFEE </LI>

<LI>OWN PRODUCT COFFEE</LI>

<LI>INSTANT COFFEE </LI>

</UL>

<MARQUEE>GAEAT NEWS TO ONE AND ALL!!!!</MARQUEE>

<P>Aspecal coffe also a available for the DIABITICES PEOPLE to with SWEETY &TESTEY.

</BODY>

</HTML>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 LIST OF PRODUCTS

EX:NO:

DATE:

AIM:

TO CREATE A TABLE TO DISPLAY LIST OF PRODUCTS USING HTML TAG.

ALGORITHM:
CODING:

<html>

<head>

<title>LIST OF PRODUCTS</title>

</head>

<body bgcolor="pink"text="black">

<center><h1>CUSTOMER LIST</h1>

<table border="8"cellwidth="10"cellpad="10">

<TR><TD>NAME</TD>

<TD>PRICE</TD>

<TD>QUANDITY</TD></TR>

<TR><TD>BLACK BERRY</TD>

<TD>26500</TD>

<TD>5</TD></TR>

<TR><TD>IPHONE</TD>

<TD>45000</TD>

<TD>5</TD></TR>

<TR><TD>SAMSUNG</TD>

<TD>20000</TD>

<TD>15</TD></TR>

<TR><TD>LG</TD>

<TD>10000</TD>

<TD>5</TD></TR>

</CENTER>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 SALES LETTER

EX:NO:

DATE:

AIM:

TO CREATE A DOCUMENT USING FORMATTING AND ALIGNMENT TO DISPLAY SALES

LETTER.

ALGORITHM
CODING:

<HTML>

<HEAD>

<TITLE>SALES LETTER</TITLE>

</HEAD>

<BODY BGCOLOR="GREEN""TEXT="BLACK">

<CENTER><H1 ALGIN"CENTER">SALES LETTER</H1></CENTER>

<H4 STYLE=""TEXT ALIGN="RIGHT">

<H4>X&CO<BR>

D-26,HEAVENS VILLA,<BR>

ROAD TO PARADISE,<BR>

COIMBATORE-641 007<BR>

</H4></RIGHT>

<HR SIZE="10" COLOR="BLACK">

<H4 STYLE="TEXT"ALGIN="RIGHT">RESPECTED SIR</H4>

<CENTER><P> AS PER YOUR REQUISITION FOR THE QUALITY PAPERS WE ARE</CENTER><BR>

<P STYLE="TEXT" ALIGN="JUSTIFY">INFORMING YOU THAT PRODUCTS WILL BE DELEIVERED TO YOU

AS EARLY AS POSSIBLE<BR>

<P STYLE="TEXT" ALGIN="RIGHT">YOURS TRULY<BR>

TNPL PAPER MART</P></RIGHT>

</BODY>

</HTML>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 RESUME

EX:NO:

DATE:

AIM:

TO CREATE A RESUME USING HTML TAG.

ALGORITHM:
CODING:

<html>

<head>

<title>RESUME</title>

<body bgcolor="lightgreen"text="black">

<center><h1>RESUME</h1></center>

<hr size="3"><br><form>

NAME:<CENTER>

<INPUT TYPE="TEXT"NAME="NAME"ON BLUR="CHECK NAME(FORM.NAME)">

</CENTER><BR>

AGE:<CENTER>

<INPUT TYPE="TEXT" AGE="21"MAX LENTH="3"ON BLUR="CHECK

AGE(FORM.AGE)">

</CENTER><BR>

ADDRESS:<CENTER>

<TEXTAREA ROW="10"COLS"20"NAME="ADDRESS"></TEXTAREA>

</CENTER><BR>

CELL NO:<CENTER>

<INPUT TYPE="TEXT NAME "CELL NO"ON BLUR="CHECK CELL NO.(FORM.NAME)">

</CENTER><BR>

<CENTER>

<INPUT TYPE="SUBMIT"VALUE="SUBMIT THIS FORM ON CLICK"CHECK(THIS FORM)">

</CENTER><BR>

<CENTER>

<INPUT TYPE="RESET"VALUE="CLEAR ALL"ON CLICK"RESETO">

</CENTER>
</form>

</body>

</html>

OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 WEB SITE

EX:NO:

DATE:

AIM:

TO CREATE A WEBSITES OF YOUR DEPARTMENT WITH MINIMUM FIVE LINKS USING

HTML FORM.

ALGORITHM:
CODIND:

<html>

<head>

<title>DEPARTMENT</title>

</head>

<body bgcolor="lightblue">

<center>

<h2>THAVATHIRU SANTHLINGA ADIGALAR ARTS SCIENCE AND TAMIL COLLEGE</h2>

<h4>PERUR COIMBATORE-641010

<center><img src="C:\Users\tsacas\Downloads\tsa logo.png"width="500px"heigth="300px">

<h2>DEPARTMENT OF COMMERCE WITH COMPUTER APPLICATION</h2>

</center>

TO ENTER:<A HREF="DEPARTMENT HTML">click</A>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 7.2.WEBSITE

CODING:

<HTML>

<HEAD>

<TITLE>DEPERTMENT</TITLE>

</HEAD>

<BODY BGCOLOR="LAVENTER"TEXT="BLACK>

<MARQUEE><FONT COLOR="OLIVE"SIZE="5">WELCOME TO DEPARTMENT PAGE</FONT>

</MARQUEE><CENTER><H3><U>

DEPARIMENT OF COMMERCE WITH COMPUTER APPLICATION</U></H3>

<CENTER><BR><BR>

<A HREF="COUSE.HTML">COURSE OFFERED</A><BR><BR>

<A HREF="STUDENT.HTML">STUDENT DETAILS</A><BR><BR>

<A HREF="DIPLOMA.HTML">DIPLOMA COURSE AVAILABLE</A><BR><BR>

</CENTER></CENTER>

<A HREF="HOMEPAGE.HTML">BACK</A>

</BODY>

</HTML>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT
HAS BEEN VERIFIED.
 7.3.WEBSITE

CODING:

<html>

<head>

<title>DEPARTMENT</title>

</head>

<body bgcolor="lavender">

<u><center><h1>

COURSE OFFERED

</h1><br><br>

THE DEPARTMENT OFFERS ONE UG DEGREE:<br><br>

<ol>

<li>B.COM(CA)</li>

</ol>

<br>

<A HREF=DEPARTMENRT.HTML">BACK!</A>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT
HAS BEEN VERIFIED.
 7.4.WEBSITE

CODING:

<html>

<head>

<title>STUDENT DETAILS</title>

</head>

<body bgcolor="lavender">

<center><u><h1>

STUDENT DETAIL

</h1></u><hr><br>

<font size="5">

<ul>

<li>THE DEPARTMENT HAVE 220 STUDENTS</li><br>

<li>GIRLS-150</li>

<li>BOYS-70</li>

</ul>

</font>

<A HREF="DEPARTMENT.HTML">BACK!</A>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 7.5.WEBSITE

CODING:

<html>

<head>

<title>EXTRA COURSE</title>

</head>

<body bgcolor="lightblue"text="black">

<u><center><h1>

DIPLOMA COURSES AVAILABLE

</h1></center></u>

<hr><br><br>

<font size="4">

THE DEPARTMENT ALSO PROVIDES DIPLOMA COURSES APART FROM THE DEGREE PROVIDED.

THE COURSES OFFERED ARE AS FOLLOWS:

<br>

<ol>

<li>COMMERCIAL LAW</li>

<li>COMPANY LAW</li>

<li>BANKING LAW</li>

<li>CYBER LAW</li>

</ol>

<br>

<A HREF="HOMEPAGE.HTML">BACK!</A>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 ORDER FORM

EX:NO:

DATE:

AIM:

TO CREATE A DOCUMENT USING FROM TO SUPPORT LOCAL PROCEESING OF ORDER.

ALGORITHM:
CODING:

<html>

<body bgcolor="lightgreen">

<h1><center>ORDER FORM</center></h1><hr size="10"color="blue">

<form>

<center>select the items you want:

<select NAME="item"">

<option value="100">WATCH<option value="5">

<option value="100">PEN<option value="3">

</center></select>

<select NAME="QTY">

<option value="1">ONE

<option value="2">TWO

<option value="3">THREE

</select><br><br>

<input type="submit"value="submit"

onclick="TOTALORDER(THIS.FORMS)">

</form>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.
 CUSTOMER SURVE FROM

EX:NO:

DATE:

AIM:

TO CREATE A FORM OF THE CUSTOMER SURVEY FOR THE USER TO ENTER GENERAL
NAME AND ADDRESS INFORMATION.

ALGORITHM:
CODING:

<html>

<head>

<title>custemer survey</title>

</head>

<body bgcolor="lightblue"text="black"><center><h1>customer survey</h1></center>

<hr><br><form>

NAME:<center>

<Input type="Text"

NAME="NAME"ONBLUR="CHECKNAME(FORM.NAME)"></center><br>

AGE:<center>

<Input

Type="TEXT"AGE="20"MAXLENGTH="3"ONBLUR-CHECKAGE(FORM.AGE)"></center><br>

ADDRESS:<center><TEXTAREA NAME="ADDRESS"></TEXTAREA

NAME="ADDRESS"></TEXTAREA></center><br>

GENDER:<center>

<Input type="RADIO"NAME="OPTN"VALUE="MALE">MALE<Input

type="RADIO"NAME="OPTN"VALUE="FEMALE">FEMALE</center><br>

<center>

<Input type="SUBMIT"value="SUBMIT"ONCLICK="CHECK(THIS.FORM)">

<Input type="RESET"value="RESET"ONCLICK=""RESET(THIS.FORM)">

</center>

</form>

</body>

</html>
OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE

OUTPUT HAS BEEN VERIFIED.
 MULTIFORM DOCUMENT

EX:NO:

DATE:

AIM:

TO CREATE A FORM TO DISPLAY A MULTIFORM DOCUMENT.

ALGORITHM:
CODING:

<html>

<head>

<title>MULTIPLE FORM</title>

</head>

<FRAMESET COLS="30%,40%,30%">

<Frame src="sri-6.html">

<Frame src="sri-8.html">

<Frame src="sri-9.html">

</FRAMESET>

</html>

OUTPUT:

RESULT:

THUS ABOVE CODING HAS BEEN SUCCESSFULLY EXECUTED AND THE OUTPUT HAS
BEEN VERIFIED.