Private Sub Check1_Click()

If Check1.Value = 1 Then
Private Sub Option7_Click()
Text1.FontBold = True
Text1.Text = UCase(Text1)
Else
End Sub
Text1.FontBold = False
End If
Private Sub Option8_Click()
End Sub
Text1.Text = LCase(Text1)
Private Sub Check2_Click()
End Sub
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
OUT PUT
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If OUT PUT
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
End Sub
Private Sub Option1_Click()
Text1.Alignment = 1
End Sub
Private Sub Option2_Click()
Text1.Alignment = 2
End Sub
Private Sub Option3_Click()
Text1.Alignment = 0
End Sub
Private Sub Option4_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Option5_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option6_Click()
Text1.ForeColor = vbRedEnd Sub
OUT PUT
LIST OF PRODUCT

Private Sub Command1_Click()

Dim a(5) As String
Dim i As Integer
a(0) = "harddisk"
a(1) = "floppy disk"
a(2) = "pendrive"
a(3) = "CD Drive"
a(4) = "mouse"
a(5) = "keyboard"
For i = 0 To 5
List1.AddItem (a(i))
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

.
OUT PUT
CAPITAL BUDGETING TECHNIQUES

Private Sub Command1_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()

Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text5.SetFocus
End Sub

Private Sub Option1_Click()

Frame1.Enabled = True
Frame2.Enabled = False
Text1.SetFocus
End Sub
Private Sub Option2_Click()
Frame2.Enabled = True
Frame1.Enabled = False
Text5.SetFocus
End Sub

Private Sub Text3_lostfocus()

If Text2.Text = "" Then
Text2.Text = 0
End If
If Text1.Text <> "" And Text1.Text <> 0 Then
Text4.Text = Text3.Text / (Text1.Text - Text2.Text) * 100
End If
End Sub

Private Sub Text6_LostFocus()

Text7.Text = Text5.Text / Text6.Text
End Sub
OUT PUT
ADVERTISEMENT BANNER

Dim i As Integer
Dim a As String
Private Sub Form_Load()
a = "YAMAHA SHOW ROOM"
i=1
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Mid(a, i, 20)
i=i+1
If i >Len(a) Then
i=1
End If
End Sub
OUT PUT
COST OF CAPITAL

Dim div As Double

Dim ns, ci, dis, rd, sr, np, net, cost As Double
Public Function par()
np = net - cost
Text7.Text = div / np * 100
End Function
Public Function discount()
np = net - (dis * net) - cost
Text8.Text = div / np * 100
End Function
Public Function premium()
np = net + (p * net) - cost
Text9.Text = div / np * 100
End Function
Private Sub Command1_Click()
ns = Val(Text1.Text)
ci = Val(Text2.Text)
p = Val(Text3.Text) / 100
dis = Val(Text4.Text) / 100
rd = Val(Text5.Text)
sr = Val(Text6.Text)
div = ns * sr * rd / 100
cost = ci * ns
net = ns * sr
If Check1.Value = 1 Then
Call par
End If
If Check2.Value = 1 Then
Call discount
End If
If Check3.Value = 1 Then
Call premium
End If
End Sub

Private Sub Command2_Click()

End
End Sub
OUT PUT
WORKING CAPITAL ANALYSIS

Private Sub Command1_Click()

Dim asset(10) As Long, t As Long, ta As Long
With MSFlexGrid1
For i = 1 To 4 'i for column
ta = 0
For j = 1 To 3 'j for row
asset(j) = .TextMatrix(j, i)
ta = ta + asset(j)
.TextMatrix(4, i) = ta
Next j
t = ta * 0.1
.TextMatrix(8, i) = t
Next i
End With
Dim lia(16) As Long, t1 As Long
With MSFlexGrid1
For i = 1 To 4 'i for column
t1 = 0
For j = 5 To 6 'j for rows
lia(j) = .TextMatrix(j, i)
t1 = t1 + lia(j)
.TextMatrix(7, i) = t1
Next j
Next i
End With
End Sub
Private Sub Command2_Click()
Dim a As Long
With MSFlexGrid1
For i = 1 To 4
.TextMatrix(9, i) = Val(.TextMatrix(4, i)) - Val(.TextMatrix(7, i)) + Val(.TextMatrix(8, i))
Next i
End With
End Sub
Private Sub Command3_Click()
End
End Sub
OUT PUT
BREAK EVEN ANALYSIS

Private Sub Command1_Click()

Dim d(5) As Long
With MSChart1
'.Row Count5
.Column = 1
For Row = 1 To 5
d(Row) = InputBox("enter the value of fixed cost", "fixed cost")
.Row = Row
.Data = d(Row)
Next Row
.Column = 2
For Row = 1 To 5
d(Row) = InputBox("enter the value of the variable cost", "variablecost")
.Row = Row
.Data = d(Row)
Next Row
.Column = 3
For Row = 1 To 5
d(Row) = InputBox("enter the value of the totalcost", "totalcost")
.Row = Row
.Data = d(Row)
Next Row
.Column = 4
For Row = 1 To 5
d(Row) = InputBox("enter the value for the total revenue", "totalrevenue")
.Row = Row
.Data = d(Row)
Next Row
End With
End Sub
Private Sub Command2_Click()
End
End Sub
OUT PUT
PRODUCT DETAILS IN RICH TEXT BOX

Dim prod(12) As String

Dim pur(12), sales(12), profit(12), n As Integer
Private Sub Command1_Click()
n = InputBox("enter no of products")
For i = 1 To n
prod(i) = InputBox("enter the product name:")
pur(i) = InputBox("enter the purchase amount:")
sales(i) = InputBox("enter the sales amount:")
profit(i) = sales(i) - pur(i)
Next i
End Sub
Private Sub Command2_Click()
Dim stm As String
stm = "Product name" & Space(12) & "Purchase" & Space(8) & "Sales" & Space(10) & "Profit"
& Space(15) &vbNewLine
For i = 1 To n
stm = stm& prod(i) & Space(30) &pur(i) & Space(15) & sales(i) & Space(17) & profit(i)
&vbNewLine
RichTextBox1.Text = stm
Next i
End Sub
Private Sub Command3_Click()
End
End Sub
OUT PUT
PRODUCT LIFE CYCLE

Private Sub Form_Load()

Line7.Visible = False
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
End Sub
Private Sub Slider1_Click()
If Slider1.Value = 1 Then
Line7.Visible = True
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
ElseIf Slider1.Value = 2 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
ElseIf Slider1.Value = 3 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = True
Line10.Visible = False
Line11.Visible = False
ElseIf Slider1.Value = 4 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = True
Line10.Visible = True
Line11.Visible = False
ElseIf Slider1.Value = 5 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = True
Line10.Visible = True
Line11.Visible = True
End If
End Sub
OUT PUT
PAY SLIP DATABASE USING SQL AND ADO

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

Private Sub Command4_Click()

Adodc1.Recordset.Save
End Sub

Private Sub Command5_Click()

Text8.Text = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) - Val(Text7.Text)
End Sub

Private Sub Command6_Click()

End
End Sub

SQL> connect system

Enter password:
Connected.
SQL> create table employee (enonumber(5),ename char(10),design char(10),basicpay
number(10),hra number(10),da number(5),pf number(5),netpay number(10));

Table created.
SQL> select*from employee;

ENO ENAME DESIGN BASICPAY HRA DA PF NETPAY

------ -------- ---------- -------------- ------- ---- ---- ----------
143 MANI KRISH MANAGER 25000 2500 2000 200 0

102 KARTHIK EMPLOYEE 1452 4122 5656 45 0

103 MAKESH ACCOUNTENT 15000 1542 5656 255 0

OUT PUT

SQL> connect system

Enter password:

Connected.

SQL> select*from employee;

ENO ENAME DESIGN BASICPAY HRA DA PF NETPAY

------ -------- ---------- -------------- ------- ---- ---- ----------

143 MANI KRISH MANAGER 25000 2500 2000 200 29300

102 KARTHIK EMPLOYEE 1452 4122 5656 45 11185

103 MAKESH ACCOUNTENT 15000 1542 5656 255 21943

HIGHLIGHTS OF A BUDGET

Private Sub Option1_Click()

RichTextBox1.Text = "Introducing new trains in all over india"
End Sub

Private Sub Option2_Click()

RichTextBox1.Text = "Govt provide lot of amount in highereducation"
End Sub

Private Sub Option3_Click()

RichTextBox1.Text = "Introducing new schemes to formers increasing productivity"
End Sub

Private Sub Timer1_Timer()

If Val(RichTextBox1.Left) >= -500 Then
RichTextBox1.Left = RichTextBox1.Left - 150
Else
RichTextBox1.Left = 11520
End If
End Sub
OUT PUT
SUPER MARKET BILL USING ADO

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Dim a As String
a = MsgBox("do u want to delete", vbyesnotvbinformation, "supermarketbill")
If a = vbYes Then
Adodc1.Recordset.Delete
Else
Adodc1.Recordset.MoveFirst
End If
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()

DataReport1.Show
End Sub

Private Sub Command5_Click()

Text5.Text = Val(Text3.Text) * Val(Text4.Text)
End Sub
Private Sub Command6_Click()
End
End Sub
OUT PUT

OUT PUT
BANK CUSTOMER DATABASE USING ADO

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Save
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Command5_Click()

End
End Sub

Private Sub Command6_Click()

Text7.Text = Val(Text5.Text) - Val(Text6.Text)
End Sub
OUT PUT
INVENTORY CONTROL RECORDS

Private Sub Command1_Click()

Dim a, b
a = 2 * Val(Text1.Text) * Val(Text2.Text)
b = Val((Text3.Text) * Val(Text4.Text)) / 100
Text5.Text = Sqr(a / b)
End Sub

Private Sub Command2_Click()

Text13.Text = Val(Text6.Text) * Val(Text10.Text)
Text14.Text = Val(Text13.Text) + Val(Text9.Text) - Val(Text7.Text) * Val(Text11.Text)
Text15.Text = Val(Text13.Text) - Val(Text8.Text) * Val(Text12.Text)
End Sub

Private Sub Command3_Click()

End
End Sub

Private Sub Text12_GotFocus()

Text12.Text = Val((Text10.Text) + Val(Text11.Text)) / 2
End Sub

Private Sub Text8_GotFocus()

Text8.Text = Val((Text6.Text) + Val(Text7.Text)) / 2
End Sub
OUT PUT
FILE DIRECTORY

Private Sub Command1_Click()

With TreeView1
.Nodes.Add , , "F", "FILE"
.Nodes.Add , , "E", "EDIT"
.Nodes.Add , , "V", "VIEW"
.Nodes.Add "F", tvwChild, "N", "NEW"
.Nodes.Add "F", tvwChild, "O", "OPEN"
.Nodes.Add "F", tvwChild, "S", "SAVE"
.Nodes.Add "F", tvwChild, "SAS", "SAVEAS"
.Nodes.Add "E", tvwChild, "C", "CUT"
.Nodes.Add "E", tvwChild, "CO", "COPY"
.Nodes.Add "E", tvwChild, "P", "PASTE"
.Nodes.Add "V", tvwChild, "CD", "CODE"
.Nodes.Add "V", tvwChild, "OB", "OBJECT"
.Nodes.Add "V", tvwChild, "DEF", "DEFINITION"
End With
End Sub

Private Sub Command2_Click()

End
End Sub
OUT PUT
WEBPAGE FOR BUSINESS ORGANIZATION

<html> <frame src = 'frame2.html'>

<head> <frame src = 'frame3.html'>
<title>frame1.html</title> </frameset>
</head> </html>
<body bgcolor ="pink">
<h1><center>Rhythm Knits</center></h1>
<p> The Rhythm knits is the government registered export house in tirupur. the factories include
cotton silk
andwoollenfibries<br>
In the company many works are done the work such as
<ul>
<li>cutting</li>
</ul>
</body>
</html>
<html>
<head>
<title> frame2.html</title>
</head>
<body bgcolor = "yellow">
<h3><center>Cutting</center></h3>
<p> the cutting imachine to cut the cloth there are 12 workers 10 cutting masters and 6 cutting
tables. there are two different type of cutting.
<ol>
<li>loy or machine cutting </li>
<li>manual cutting</li>
</ol>
</body>
</html>
<html>
<head>
<title>frame3.html</title>
<body bgcolor = "orange">
<h3><center>Printing</center></h3>
<p> the beautiful designs are printed in cloth are if is decrated to give the fashion work for dress.
</body>
</html>
<html>
<head>
<title>frame</title>
</head>
<frameset cols = '40% , 30% , 30% '>
<frame src = 'frame1.html'>
OUT PUT
ORDERED AND UNORDERED LIST

<html>

<head>

<title>Ordered & unordered Lists</title>

</head>

<body><center><h1>LIST OF PRODUCTS</h1></center>

<h2><u>Rebook</u></h2>

<h3>ordered Lists</h3>

<ol><li>T-shirt</li>

<li>Shoes</li>

<li>Bat</li>

<li>Cap</li>

</ol>

<h3>Unordered Lists</h3>

<ul><li>Bag</li>

<li>Perfumes</li>

<li>Jeans</li>

</ul>

</body>

</html>
OUT PUT
ADVERTISEMENT

<html>
<head>
<title>Advertisement</title>
</head>
<body><center><h2>HYUNDAI MOTORS PRIVATE LTD.,</Center><h2>
<br>
<h3><i>Introduction</i></h3>
<p align="Justify">Hyundai
<small>This company was started on 1990</small>
It is total turnover acrosss around 750 crores
<br><hr><br><h3><i>Product Manufacture</i></h3>
<palign=Center><h4>Hyundai offers the following products</h4>
<palign="left">
<ol><li>Santro
<li>Swift
<li>Xing</ol>
<hr>
<palign="Left"><b><big>General</big></b>
<p>
<center Style={color:Blue}>
Hyundai Motors own the award for best customer
Satification performance for the year 2008
</P>
</center>
</body
</html>
OUT PUT
DISPLAY THE LIST OF PRODUCTS

<th>HEALTH DRINKS</th><html>
<head>
<title>list of products</title>
</head>
<body><center><h1>List of Products</h1></center>
<table width="100%" border="5%" cellspacing="5%" cell padding="5%">
<tr><th>FRUITS</th>
<th>CHOCALATES</th>
<th>SOFT DRINKS</th>
</tr>
<tr><td>Mango</td>
<td>Dairymilk</td>
<td>Fanta</td>
<td>Boost</td>
</tr>
<tr><td>Apple</td>
<td>Milky bar</td>
<td>Pepsi</td>
<td>Horlicks</td>
</tr>
<tr><td>Orange</td>
<td>5 star</td>
<td>Miranda</td>
<td>Complan</td>
</tr>
</table>
</body>
</html>
OUT PUT
SALES LETTER

<html>

<head><title>Sales letter</title>

</head><body><h1><center><u>Sales letter</u>

</center></h1>

<b><center>The Chennai Silks<br>

R.K.V. Road<br>

Erode.

</center></b><h3>

<p align=left>Dear sir :<br></h3>

<p align=left>we are credits to have a valuable customers like you,we are also introduce
many new collections to bring into your considerations to be enclosed the list of products along
with this letter.

<br></p>

<p>Would you ring us 0424-2247845 for an appointment with you?youcanask for free
demonstration.

<br></p>

<h3><p align=center>Thanking you</p></h3>

<p align=right>Yours Faithfully</p>

<p align=right>J.GOPALAKRISHNAN<br>(Sales executive)</p>

</body>

</html>
OUT PUT
RESUME

<html>
<head>
<title>Resume</title>
</head>
<body>
<h2><center><u>RESUME</u></center></h2>
<h3><u>Personal Details</u></h3>
<table><font size='6'>
<tr><td>Name<td>:<td>Mani krish<td width='200'><td>E-mail<td>:<td><a href='mail
to:[email protected]'>[email protected]</a></td>
<tr><td>Age<td>:<td>20<td><td>Phone no<td>:<td>9952666429</td>
<tr><td>Date of Birth<td>:<td>06-11-1992</td>
<tr><td>Gender<td>:<td>Male</td></tr>
</table>
<h3><u>Educational Qualification</u></h3>
<table border="5%"cellspacing="5%"row='4'cols='4'>
<tr><th>S.no</th>
<th>Course</th>
<th>University/board</th>
<th>Percentage</th>
</tr>
<tr><td align="Center">1</td>
<td align="Center">B.Com(C.A)</td>
<td align="Center">Bharathiyar</td>
<td align="Center">75.5</td>
</tr>
<tr><td align="Center">2</td>
<td align="Center">HSS</td>
<td align="Center">Stateboard</td>
<td align="Center">80.6</td>
</tr>
<tr><td align="Center">3</td>
<td align="Center">SSLC</td>
<td align="Center">Stateboard</td>
<td align="Center">80.7</td>
</table><br>
<h3><u>Technical Qualifications</u></h3>
<h4><p>Operation System: DOS,WindowsXP,WindowsNT,unix<br>
language++,Java<br>
Front end tools:VB 6.0<br>
Back end tools:Oraclelog,Access<br></h4>
</body>
</html>
OUT PUT
WEBSITE FOR THE DEPARTMENT

<html>

<head><title>www.kgcas.org</title>
</head>
<body bgcolor="cyan"><h1><center> KG COLEGE OF ARTS AND SCIENCE
COLLGEGE</center></h1>
<font color="light green"><center><h2>WELCOMES YOU</h2></center></font>
<marquee direction="left"><i><font color="black">2010 admissions open for following
courses</font></marquee><br>
<p><h3>DEPARTMENT DETAILS<br>
<a href="bcomca.html">B.COM CA</a><br>
<ahref="bcom.html">B.COM</a><br>
<a href="bbm.html">BBM</a><br>
<a href="baeng.html">BAENG</a><br>
<a href="bsccdf.html">BSCCDF</a><br>
<a href="bsccs.html">BSCCS</a><br>
</html>
<html>
<head>
<h1>DEPARTMENT OF B.COMCA</h1></head>
<body bgcolor="divegreen">
<p><font color="Purple">
<marquee direction="right"><i>Department related with
commerce</marquee></font></i></p><br>
<p>A department which is related to commerical field and have a lot of job scopes in marketing
and accounts</p>
<ahref="home.html">home</a></body>
</html>
<html>
<head>
<h1>DEPARTMENT OF B.COM</h1></head>
<body bgcolor="pink">
<p><font color="darkgreen">
<marquee direction="right"><i>Department related with
commerce</marquee></font></i></p><br>
<p>A department which is related and useful for them who are going for business and for PG
Courses such as M.Com,M.ComCA,etc</p><br>
<ahref="home.html">home</a></body>
</html>
<html>
<head>
<h1>DEPARTMENT OF BBM</h1></head>
<body bgcolor="Yellow">
<p><font color="darkgray">
<marquee direction="right"><i>Department related with
commerce</marquee></font></i></p><br>
<p>A department which is related and useful for them who are going for business and for PG
Courses such as MBA</p><br>
<a href="home.html">home</a>
</body>
</html>
<html>
<head>
<h1>DEPARTMENT OF BSCCS</h1></head>
<body bgcolor="pink">
<p><font color=" green">
<marquee direction="right"><i>This Department related with Computer
science</marquee></font></i></p><br>
<p>A Department which is vastly related with computer fields have a lot scopes in IT
sectors</p>
<ahref="home.html">home</a></body>
</html>
OUT PUT

OUT PUT
LOCAL ORDER PROCESSING

<html>
<head>
<title>Local Order Processing</title>
<script Language="javascript">
function customer()
{
var p=parseInt(f1.t6.value)
var q=parseInt(f1.t7.value)
alert("The total Price is"+ p*q)
}
</script></head>
<body>
<form name="f1"><Center>
<h1>Local Order Processing</h1>
<table>
<tr><td>Orderno<td><input name="t1">
<tr><td>CustomerName<td><input name="t2">
<tr><td>CustomerAddress<td><input name="t3">
<tr><td>CustomerContactno<td><input name="t4">
<tr><td>ProductName<td><input name="t5">
<tr><td>Quantity<td><input name="t6">
<tr><td>UnitPrice<td><input name="t7"></td></tr></table>
<Input type="button"value="Local order Processing"Onclick="customer()">
<input type="reset"value="clear"></form>
</center>
</body>
</html>
OUT PUT
CUSTOMER SURVEY FORM

<html>
<script language="JavaScript">
function a()
{
document.write("<form name='f1'>");
document.write("<Center><h1><b>customer survey for the user</b></h1></center>");
document.write("<br><table><tr><td><h3>Enter the user name<td><input type='text'
name='username'>");
document.write("<br><tr><td><h3>Enter the user address<td><textarea
name='Address'row='5'cols='30'></textarea></table>");
}
</script>
<body>
<p OnClick="a()">Click me to Load customer survey form</p>
</body>
</html>
OUT PUT
MULTIFORM DOCUMENT

<html>

<head>
<title>San Institutions</title>
</head>
<body>
<h1><center> KG college of arts and science</center></h1>
<br><p>2013 admission open for the following courses
<ul><li>B.comCA
<li>BSC(CS)
<li>BCA
<li>BSC Maths</ul><br>
<p>If you want to apply. fill up the enclosed
<a href="Application form.html">application from</a>
</body>
</html>
<html>
<title>application form</title>
<body>
<h3>Application form for admission to the UG Courses</h3>
<br>
<form><table>
<tr><td>Name of the applicant<td>
<input type="Text"Name='Name'>
<tr><td>Address<td><input type="text" name="Address">
<tr><td><Courses applied for:</tr>
<tr><td><input type='radio'name='courses'>CS
<tr><td><input type='radio'name='courses'>BCA</tr>
<tr><td><input type='radio'name='courses'>B.ComCA</tr>
<tr><td><input type='radio'name='courses'>BSC Maths
<tr><td><input type='Submit'Value='send'>
<input type='Reset' Value='clear'>
</table>
</form>
</body>
</html>
OUT PUT

KG COLLEGE OF ARTS AND SCIENCE