SUGUNA COLLEGE OF ARTS AND SCIENCE

(Affiliated to Bharathiar University)

CIVIL ARERODROME POST, NEHRU NAGAR,
KALAPATTI ROAD, COIMBATORE-641014

2024-2025

DEPARTMENT OF COMMERCE

REG. NO. : ________________________________________________

NAME : ________________________________________________
CLASS : ________________________________________________
 SUGUNA COLLEGE OF ARTS AND SCIENCE
(Affiliated to Bharathiar University)
COIMBATORE – 641014

BONAFIED CERTIFICATE
This is to certify that VISUAL BASIC AND HTML is the bonafide record of work done by

REG. NO. : ________________________________________________

NAME : ________________________________________________

Staff-in-charge Head of the Department

Submitted for the Bachelor of Commerce with Computer Applications Degree Sixth Semester
Practical Examination held on 06/03/2025

Internal Examiner External Examiner

VISUAL
BASIC
 INDEX
SNO. DATE PROGRAM PAGE SIGN
NO.

1
ALIGNMENT AND FORMAT FUNCTION

2
LIST OF PRODUCTS

3
CAPITAL OF BUDGETING

4
ADVERTISMENT BANNER

5
COST OF CAPITAL

6
WORKING CAPITAL ANALYSIS

7
BREAK EVEN ANALYSIS

8
PRODUCT DETAILS

9
PRODUCT LIFE CYCLE

10
GENERATION OF PAY SLIP

11
HIGHLIGHTS OF BUDGET

12
SUPER MARKET BILL

13
BANK CUSTOMER DETAILS

14
STOCK LEVEL

15
TREE VIEW
INPUT
 1. ALIGNMENT AND FORMAT FUNCTION

AIM: To make proper alignment and use format function.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command1_Click()

MsgBox (StrConv(Format(Text1.Text, dddd, mmm, yyy), vbUpperCase))

MsgBox (StrConv(Format(Text1.Text, "ddd-mm-yy"), vbLowerCase))

MsgBox Time

MsgBox Now

End Sub

Private Sub Command2_Click()

Label2.Alignment = 0

Label3.Alignment = 1

Label4.Alignment = 2

End Sub
OUT PUT
Private Sub Command3_Click()

Text1.Text = ""

Label2.Alignment = 0

Label3.Alignment = 0

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Label2.Caption = "hai"

Label3.Caption = "hello"

Label4.Caption = "friend"

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 2. LIST OF PRODUCTS

AIM: To create list of products.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command1_Click()

List1.AddItem Text1.Text

Text1.SetFocus

Text1.Text = ""

End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex

Text1.Text = ""

Text1.Text = List1.Text

Text1.SetFocus

End Sub
Private Sub Command3_Click()

Label2.Visible = True

Label2.Caption = List1.ListCount

End Sub

Private Sub Command4_Click()

List1.Clear

Text1.SetFocus

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label2.Visible = False

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 3. CAPITAL BUDGETING

AIM: To create coding to find capital budgeting.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Option1_Click()

Dim n As Integer, cashflows() As Double, p As Double

n = Val(InputBox("HOW MANY YEARS?"))

ReDim cashflows(n) As Double

p = Val(InputBox("ENTER THE INITAL INVESTMENT:"))

guess = 0.1

Retrate = 0.0909

p = p - (p + 2)

cashflows(0) = p

For i = 1 To n

cashflows(i) = Val(InputBox("CASHFLOW OF" & i & "YEAR"))

Next
netpval = NPV(Retrate, cashflows())

msg = "THE NET PRESENT VALUE FOR THESE CASHFLOW IS"

msg = msg & Format(netpval, fmt) & ""

MsgBox msg

End Sub

Private Sub Option2_Click()

Dim n As Integer, cashflows() As Double, p As Double, guess As Double

n = Val(InputBox("HOW MANY YEARS?"))

ReDim cashflows(n) As Double

p = Val(InputBox("ENTER THE INITAL INVESTMENT:"))

guess = 0.1

fmt = "#0.00"

p = p - (p + 2)

cashflows(0) = p

For i = 1 To n

cashflows(i) = Val(InputBox("CASHFLOW OF" & i & "YEAR"))

Next

Rerate = IRR(cashflows(), guess) * 100

msg = "THE INTEREST RATE OF RETURN FOR THESE CASHFLOW IS"

msg = msg & Format(Retrate, fmt) & "%"

MsgBox msg
End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Option1.Value = False

Option2.Value = False

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 4. ADVERTISEMENT BANNER
AIM: To create coding to make an advertisement banner.
ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Timer1_Timer()

If Label1.Left > -2400 Then

Label1.Left = Label1.Left - 10

Else

Label1.Left = Image1.Left + Image1.Width

End If

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 5. COST OF CAPITAL

AIM: To create coding to find the cost of capital.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Check1_Click()

deb = Val(InputBox("ENTER THE DEBENTURE VALUE"))

np = Val(InputBox("ENTER THE PROCEEDS VALUE"))

intrate = Val(InputBox("ENTER THE INTEREST RATE"))

tax = Val(InputBox("ENTER THE TAX"))

totinterest = deb * intrate

cd = (totintrest / np) * (1 - tax) * 100

MsgBox "COST OF DEBENTURE DEBT IS " & cd & " % "

End Sub

Private Sub Check2_Click()

sc = Val(InputBox("ENTER THE PREFERENCE SHARE CAPITAL"))

np = Val(InputBox("ENTER THE NET PROCEEDS VALUE"))

intrate = Val(InputBox("ENTER THE DIVIDEND RATE"))

totdividend = sc * intrate

cd = (totdividend / np) * 100

MsgBox "COST OF PREFERENCE DEBT IS" & cd & " % "

End Sub

Private Sub Check3_Click()

sc = Val(InputBox("ENTER THE FACE VALUE OF EQUALITY SHARE"))

np = Val(InputBox("ENTER THE NET PROCEEDS VALUE"))

intrate = Val(InputBox("ENTER THE DIVIDEND RATE"))

totdividend = sc * intrate

cd = (totdividend / np) * 100

MsgBox "COST OF PREFERENCE DEBT IS" & cd & " % "

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Check1.Value = 0
Check2.Value = 0

Check3.Value = 0

End Sub

RESULT:

Thus the program has been completed successfully in visual basic.

 6. WORKING CAPITAL ANALYSIS

AIM: To create coding to find working capital analysis.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

Text8.Text = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)

Text9.Text = Val(Text4.Text) + Val(Text8.Text)

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "CURRENT ASSET"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = "CURRENT LIABILITIES"

MSFlexGrid1.Col = 1

MSFlexGrid1.Row = 1

MSFlexGrid1.Text = Text1.Text

MSFlexGrid1.Row = 2

MSFlexGrid1.Text = Text2.Text

MSFlexGrid1.Row = 3
MSFlexGrid1.Text = Text3.Text

MSFlexGrid1.Row = 4

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "TOTAL CURRENT LIABILITIES"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Text8.Text

MSFlexGrid1.Row = 6

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "WORKING CAPITAL"

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Text9.Text

End Sub

Private Sub Text6_Change()

Text9.Text = Val(Text4.Text) - Val(Text8.Text)

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 7. BREAK EVEN ANALYSIS

AIM: To create coding to find the break even analysis.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Dim fix_co

Dim sales

Dim profit

Dim contri

Dim bep

Private Sub Command1_Click()

fix_co = Val(Text1.Text)

sales = Val(Text2.Text)

profit = Val(Text3.Text)

contri = fix_co + profit

Text4.Text = contri

bep = (fix_co * sales) / ((fix_co + profit) * 100) * 100

Text5.Text = Val(bep)

End Sub
Private Sub Command2_Click()

MSChart1.Visible = True

Dim x(1 To 5, 1 To 5) As Variant

x(1, 2) = "fixed cost"

x(1, 3) = "sales"

x(1, 4) = "profit"

x(1, 5) = "bep"

x(2, 1) = "fixed cost"

x(2, 2) = fix_co

x(3, 1) = "sales"

x(3, 3) = sales

x(4, 1) = "profit"

x(4, 4) = profit

x(5, 1) = "bep"

x(5, 5) = bep

MSChart1.ChartData = x

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 8. PRODUCT DETAILS

AIM: To create coding to display product details.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Dim a(100) As String

Dim b(100) As Double

Dim c(100) As Double

Dim d(100) As Double

Dim e(3) As Integer

Private Sub Command1_Click()

Static i As Integer

Text5.Text = CDbl(Text4.Text) * CDbl(Text2.Text) - CDbl(Text3.Text) *

CDbl(Text2.Text)
a(i) = Text1.Text

b(i) = CDbl(Text3.Text)

c(i) = CDbl(Text4.Text)

d(i) = CDbl(Text5.Text)

e(i) = CDbl(Text2.Text)

i=i+1

End Sub

Private Sub Command2_Click()

Dim i As Integer

RichTextBox1.Text = ""

For i = 0 To 100

If a(i) = "" Then

Exit For

End If

RichTextBox1.Text = RichTextBox1.Text & "Item Name:" & a(i) & vbCrLf

RichTextBox1.Text = RichTextBox1.Text & "No of Units:" & e(i) & vbCrLf

RichTextBox1.Text = RichTextBox1.Text & "Purchase value:" & b(i) &

vbCrLf

RichTextBox1.Text = RichTextBox1.Text & "Sales value:" & c(i) & vbCrLf

RichTextBox1.Text = RichTextBox1.Text & "Profit:" & d(i) & vbCrLf

RichTextBox1.Text = RichTextBox1.Text & "--------" & vbCrLf

Next

Text1.Text = " "

Text2.Text = " "

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 9. PRODUCT LIFECYCLE

AIM: To create coding to display product life cycle

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Form_Load()

Label5.Caption = "Product is in first stage"

End Sub

Private Sub Slider1_Click()

If Slider1.Value = 1 Then

Label5.Caption = "product is in introduction stage"

ElseIf Slider1.Value = 2 Then

Label5.Caption = "product is in growth stage"

ElseIf Slider1.Value = 3 Then

Label5.Caption = "product is in Expansion stage"

ElseIf Slider1.Value = 4 Then

Label5.Caption = "product is in Maturity stage"

ElseIf Slider1.Value = 5 Then

Label5.Caption = "product is in Decline stage"

End If

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 10. PAYSLIP FOR ORGANISATION

AIM: To create coding to display payslip for organisation.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command1_Click()

Text4.Text = Val(Text3.Text) * 0.05

Text5.Text = Val(Text3.Text) + Val(Text4.Text) * 0.02

Text6.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)

Text7.Text = Val(Text3.Text) * 0.05

Text8.Text = Val(Text6.Text) + Val(Text7.Text)

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.AddNew
Text1.SetFocus

MsgBox "ADD NEW RECORDS", vbOKCancel

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Save

Text1.SetFocus

MsgBox "RECORDS SAVED", vbOKCancel

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

Text1.SetFocus

MsgBox "RECORDS DELETED", vbOKCancel

End Sub

Private Sub Command5_Click()

End

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 11. HIGHLIGHTS OF BUDGET

AIM: To create coding to display highlights of budget.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Form_Load()

Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Option1.Value = True
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If
If Option2.Value = True Then
Label2.Visible = True
Label2.Caption = "269 Crores allocated for distribution of free dhoties and sarees to poor people"
Form1.BackColor = &HFF&
ElseIf Option3.Value = True Then
Label3.Visible = True
Label3.Caption = "500 Crores allocated for distribution of free grinder,mixi and fan to poor people"
Form1.BackColor = &HFF0000
ElseIf Option4.Value = True Then
Label4.Visible = True
Label4.Caption = "1500 Crores allocated for distribution of free laptops to government school 11th
and 12th standard students"
Form1.BackColor = &HFF00&
ElseIf Option5.Value = True Then
Label5.Visible = True
Label5.Caption = "40 Crores allocated for road safty"
Form1.BackColor = &HFF00FF
ElseIf Option6.Value = True Then
Label6.Visible = True
Label6.Caption = "633 Crores allocated for administration of justice"
End If
End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
`
 12.SUPERMARKET BILL

AIM: To write a coding to create a supper market.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Dim Cn As New ADODB.Connection

Dim db As New ADODB.Recordset

Private Sub Command1_Click()

If Check1.Value = 1 Then

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

Else

Text4.Text = 0

End If

If Check2.Value = 1 Then

Text7.Text = Val(Text5.Text) * Val(Text6.Text)

Else

Text7.Text = 0

End If
If Check3.Value = 1 Then

Text10.Text = Val(Text8.Text) * Val(Text9.Text)

Else

Text10.Text = 0

End If

If Check4.Value = 1 Then

Text13.Text = Val(Text11.Text) * Val(Text12.Text)

Else

Text13.Text = 0

End If

End Sub

Private Sub Command1_Getfocus()

Text14.Text = Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text) + Val(Text13.Text)

text16.Text = Val(text15.Text) - Val(Text14.Text)

End Sub

Private Sub Command2_Click()

db.Open "select*from aruna where billno=" & Text1.Text, Cn, adopenDynamic, adlockoptimistic

If db.BOF = True And db.EOF = True Then db.AddNew

db(0) = Text1.Text

db(1) = DTPicker

db(2) = Text2.Text

db(3) = Text3.Text
db(4) = Text4.Text

db.Update

db.Close

MsgBox "record is saved", vbOKOnly

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Cn.provider = "microsoft.jet.oledb.4.0"

Cn.Open "C:\Documents and Settings\ss\My Documents\aruna.mdb"

End Sub

Private Sub Option1_Click()

MsgBox "credit card is accepted,vbokonly"

End Sub

Private Sub Option2_Click()

MsgBox "debitcard is accepted,vbokonly"

End Sub

Private Sub Option3_Click()

MsgBox "cash is collected,vbokonly"

End Sub

Private Sub Text14_Click()

Text14.Text = Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text) + Val(Text13.Text)

End Sub

Private Sub text14_Getfocus()

Text14.Text = Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text) + Val(Text13.Text)

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 13. BANK CUSTOMER DATABASE

AIM: To write a coding to create a bank customer database.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command2_Click()

Adodc1.Recordset.AddNew

Text1.SetFocus

MsgBox "ADD NEW RECORDS", vbOKCancel

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Save

Text1.SetFocus

MsgBox "RECORDS SAVED", vbOKCancel

End Sub
Private Sub Command4_Click()

Adodc1.Recordset.Delete

Text1.SetFocus

MsgBox "RECORDS DELETED", vbOKCancel

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Command1_Click()

Text7.Text = Val(Text5.Text) - Val(Text6.Text)

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 14. INVENTORY CONTROL RECORDS

AIM: To write a coding to an inventory control records.

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Command1_Click()

Text10.Text = Val(Text4.Text) * Val(Text3.Text)

Text11.Text = Val(Text10.Text) - Val(Text5.Text) * Val(Text12.Text)

Text12.Text = Val(Text2.Text) * Val(Text3.Text)

Text13.Text = Val(Text10.Text) * Val(Text5.Text) - Val(Text6.Text) * Val(Text2.Text)

Text14.Text = Sqr(12 * (Text7.Text) * Val(Text2.Text) / Val(Text6.Text) * Val(Text8.Text) * 100)

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.AddNew

Text1.SetFocus

MsgBox "ADD NEW RECORDS", vbOKCancel

End Sub
Private Sub Command3_Click()

Adodc1.Recordset.Save

Text1.SetFocus

MsgBox "RECORDS SAVED", vbOKCancel

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

Text1.SetFocus

MsgBox "RECORDS DELETED", vbOKCancel

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious

Text1.SetFocus

MsgBox "MOVE TO PREVIOUS RECORD", vbOKCancel

End Sub

Private Sub Command7_Click()

Adodc1.Recordset.MoveNext

Text1.SetFocus
MsgBox "MOVE TO NEXT RECORD", vbOKCancel

End Sub

Private Sub Command8_Click()

Adodc1.Recordset.MoveFirst

Text1.SetFocus

MsgBox "MOVE TO FIRST RECORD", vbOKCancel

End Sub

Private Sub Command9_Click()

Adodc1.Recordset.MoveLast

Text1.SetFocus

MsgBox "MOVE TO LAST RECORD", vbOKCancel

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
 15. TREEVIEW

AIM: To write according to create a tree view

ALGORITHM :
1. Click on Start → Microsoft Visual Studio 6.0 → Microsoft Visual Basics 6.0.
2. Click on Standard EXE → Open.
3. Place the controls in the form & design the form.
4. Double-click on the controls to open the coding window & start typing the coding.
5. Close the coding window after typing the coding.
6. Then click on Run option to run the program.
7. Then fill the form & use the command button to get the desired output.
8. Then click on File → Save form, to save the form.
9. Finally, click on File → Save project, to save the project
CODING:

Private Sub Form_Load()

Dim Node1, Node2, Node3, Node4 As Node

Set Node1 = TreeView1.Nodes.Add

TreeView1.Nodes(1).Text = "Managing Director"

TreeView1.Nodes(1).Key = "Managing Director"

Set Node2 = TreeView1.Nodes.Add("Managing Director", tvwChild, "Node2")

TreeView1.Nodes(2).Text = "Secretary"

TreeView1.Nodes(2).Key = "Secretary"

Set Node3 = TreeView1.Nodes.Add("Secretary", tvwchid, "Node3")

TreeView1.Nodes(3).Text = "General Manager"

TreeView1.Nodes(3).Key = "General Manager"

Set Node4 = TreeView1.Nodes.Add("General Manager", tvwChild, "Node4")

TreeView1.Nodes(4).Text = "Purchase Department"

TreeView1.Nodes(4).Key = "Purchase Department"

Set Node5 = TreeView1.Nodes.Add("Purchase Department", tvwChild, "Node5")

TreeView1.Nodes(5).Text = "Sales Department"

TreeView1.Nodes(5).Key = "Sales Department"

Set Node6 = TreeView1.Nodes.Add("Sales Department", tvwChild, "Node6")

TreeView1.Nodes(6).Text = "Inventory Department"

TreeView1.Nodes(6).Key = "Inventory Department"

End Sub

RESULT:

Thus the program has been completed successfully in visual

basic.
HTML
 INDEX

PAGE
S.NO DATE PROGRAM SIGN
NO.

1 FRAMES

2 ORDER AND UNORDER LIST

3 IMAGE WTH TEXT

4 LIST OF TEXT

TEXT FORMATTING AND

5
ALIGNMENT

6 RESUME CREATION

7 LINKS

8 LOCAL ORDER PROCESSING

9 CUSTOMER SURVEY

10 MULTIPLE FRAMES
 1. FRAME
AIM: To create frames using HTML coding.
ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<HTML>
<HEAD></HEAD>
<TITLE>USING FRAMES<TITLE>
<FRAMESET COLS=”30%,70%”>
<FRAME SRC="FRAME01.HTML"NAME="FIRST FRAME">
<FRAME SRC="FRAME02.HTML"NAME="SECOND FRAME">
</FRAMESET>
</HTML>
SAVE AS FRAME.HTML

<HTML>
<HEAD></HEAD>
<TITLE>FIRST FRAME-CONTENT<TITLE>
</BODY><H4>BUSINESS ORGANISATION<H4>
<A HREF="PLAN.HTML"TARGET="SECOND FRAME">PLANNING</A><BR>
<A HREF="CTRL.HTML"TARGET="SECOND FRAME">CONTROLLING</A>
</BODY>
</HTML>

SAVE AS FRAME01.HTML
<HTML>
<HEAD></HEAD>
<TITLE>SECOND FRAME-CONTENT</TITLE>
<BODY>
CLICK ON THE NAME OF THE INFORMATION YOU REQUIRE
</BODY>
</HTML>

SAVE AS FRAME02.HTML

<HTML>
<HEAD></HEAD>
<TITLE>PLANNING</TITLE>
<BODY>
<CENTER>PLANNING</CENTER>
PLANNING IS THE PRIMARY FUNCTION<BR>
EVERY MANAGEMENT ARE START WITH PLANNING
</BODY>
</HTML>

SAVE AS PLAN.HTML

<HTML>
<HEAD></HEAD>
<TITLE>CONTROLLING</TITLE>
<CENTER>CONTROLLING</CENTER>
CONTROLLING FUNCTION IS USED FOR CONTROL<BR>
THE DEVIATIONS IN MANAGEMENT FUNCTIONS SUCH AS<BR>
</BODY>
</HTML>

SAVE AS CTRL.HTML

RESULT:
Thus, the program has been completed successfully.
 2. ORDER AMD UNORDERLIST
AIM: To create frames using HTML coding.
ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
<HTML>
<HEAD><HEAD>
<TITLE>ORDERED AND UNORDERED LIST</TITLE>
<BODY>
<CENTER>
<B>
<H1>LIST OF PRODUCT IN SDS
</CENTER>
</B>
<H1>
ORDERED LIST
<OL>
<LI>SMALL BENGAL GRAM
<LI>BLACK GRAM
<LI>MUSTARD SEED
<LI>SPLIT GRAM
<LI>WHITE GRAM
<LI>SUGAR
<LI>GHEE
<LI>COFFEE POWDER
<LI>TEA POWDER
<LI>TURMERIC
<LI>CHILLI POWDER
<LI>SPLIT BENGAL GRAM
</OL>

UNORDERED LIST
<UL>
<LI>CINNAMON
<LI>CARDAMOM
<LI>GINGER
<LI>GARLIC
<LI>PEPPER
<LI>RICE
<LI>MAIDA
<LI>GLOVES
<LI>RAISINS
<LI>REDCHERRY
<LI>WALNUT
<LI>EGG
<LI>SOAP
<LI>COKLGATE PASTE
<LI>SHAMPOO
</UL>
</HTML>
RESULT:
Thus, the program has been completed successfully.
 3. ADVERTISMENT
AIM: To create an advertisement using HTML coding.
ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<html>
<title>Display image </title>
<body>
<h1>cupcake</h1>
<p>
<img src = “cupcake.jpg”>
</p>
</body>
</html>

RESULT:

Thus the program has been completed successfully.

 4.PRODUCT LIST
AIM: To create a product list using HTML coding.
ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<HTML>
<HEAD></HEAD>
<TITLE></TITLE>
<BODY>
<CAPTION ALIGN="CENTER">PRODUCT LIST</CAPTION>
<TABLE ALIGN="CENTER" BORDER=3 WIDTH=10% BGCOLOR="WHITE"
BORDER COLOR="BLACK" CELLSPACING=15 CELLPADDING=4>
<TR>
<TH> SNO
<TH> PRODUCT NAME
<TH> QTY
<TH> PRICE
</TR>
<TR><TD>1
<TD>HAMAM
<TD>200
<TD>18
</TR>
<TR><TD>2
<TD>VIVEL
<TD>150
<TD>15
</TR>
<TR><TD>3
<TD>LUX
<TD>150
<TD>20
</TR>
<TR><TD>4
<TD>PEARS
<TD>175
<TD>19
</TR>
<TR><TD>5
<TD>MARGO
<TD>250
<TD>20
</TR>
</TABLE>
</BODY>
</HTML>

RESULT:

Thus the program has been completed successfully.

 5. SALES LETTER
AIM: To create a sales letter using HTML coding.
ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<html>

<h2 align=center><b> KARNATAKA ELECTRICALS(P)LTD.</b></h2>

<h3 align=center>13/A central market,Bangalore,</h3>

<h4 align=right>20th october,2010...</h4>

<h4 align=left>Mr.P.K.S Murthy</h4>

<h4 align=left>26 (2) Rajaji Nagar</h4>

<p>Dear Mr.Murthy<br>

<p>What factor is more important in your lighting equipment:

<p tapindex=25 >Maximum Light Output?

<p>Long Life?

<p>Trouple-free service?

<p>Minimum maintenance cost?

<p>&nbsp;Karnataka lighting equipment can offer you all.

<p>Maximum light output demands that every component of the

lighting equipment functions perfectly.Karnataka electricals

take no chance,for they manufacture all the components

required for your equipment at international standards.Since

karnataka lighting equipment hes to undergo tests far more

exacting than normal operational conditions,they are unequalled

for performance and long,useful life.As a result,replacements

are needede rarely and the maintenance cost is kept at the

minimum.</p>

<p>In other words, karnataka electricals give you every-thing

you want from lighting equipment -maximum light output,long life

trouble-free service-all at a minimum maintenance cost.</p>

<p>Ask for KARNATAKA lighting equipment to ensure ultimate economy.

it is efficient and economical in operation and attractive

in design. Get today karnataka light fittings from your nearest

karnataka electricals dealer.</p><br>

<h3 align=right>Brighteningly yours for karnataka electricals(p)ltd.</h3><br>

<p>REMEMBER, the best lighting equipment can let you down unless you

use the best lamps.Always rely on KARNATAKA Lamps-guaranteed for bright light

and longer life.<p>

</html>

RESULT:

Thus the program has been completed successfully.

 6. RESUME

AIM: To create a resume using HTML coding.

ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<html>

<head></head>

<title>RESUME</title>

<body>

<table border = 10 width=75% height=50%>

<caption>RESUME</caption>

<tr>

<th align=left colspan=6>Name<td align=left colspan=15>

<tr><th align=left colspan=6>Religion<td align=left colspan=15>

<tr><th align=left colspan=6>Community<td align=left colspan=15>

<tr><th align=left rowspan=4 align=left colspan=5>Address

<td>Street

<td align=left colspan=15>

<tr> <td>Town<td align=left colspan=15>

<tr><td>District<td align=left colspan=15>

<tr> <td> State<td align=left colspan=15>

<tr><th align=left rowspan=2 colspan=5>phone

<td>office<td align=left colspan=15>

<tr><td>Residence<td align=left colspan=15>

<tr> <th align=left colspan=20>Educational qualification

<tr><th colspan=5>

<th>Degree<th>University\<th>Month&year <th>Grade/Mark

</tr>

</table>

</html>

RESULT:

Thus the program has been completed successfully.

 7. LINKS

AIM: To create a link using HTML coding.

ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<HTML>

<HEAD>

<TITLE>B.COM(C.A) DEPARTMENT SEMESTER DETAILS</TITLE>

</HEAD>

<BODY>DETAILS OF SEMESTER

<UL TYPE=DISC>

<LI>FIRST SEM

<LI>SECOND SEM

<LI>THIRD SEM

<LI>FOURTH SEM

<LI>FIFTH SEM

<A HREF="SIXTHSEM.HTML"

<LI>SIXTH SEM</A>

</UL>

</BODY>

</HTML>

SAVE AS SEMESTER.HTML
<HTML>

<HEAD></HEAD>

<TITLE>SIXTH SEM</TITLE>

<UL TYPE=CIRCLE>

<LI>MARKETING

<LI>MIS

<LI>E-COMMERCE

<A HREF="LAB.HTML">

<LI>LAB

</A>

<LI>PROJECT</UL>

</BODY>

</HTML>

SAVE AS SIXTHSEM.HTML

<HTML>

<HEAD></HEAD>

<TITLE>LAB</TITLE>

<BODY>

<UL TYPE=SQUARE>

<A HREF="HTML.HTML"><LI>HTML</A>

<LI>VB</OL>

</BODY>

</HTML>
SAVE AS LAB.HTML

<HTML>

<HEAD></HEAD>

<TITLE>HTML</TITLE>

<BODY>VARIOUS STAGES OF HTML

<UL TYPE=CIRCLE

<LI>HTML0

<LI>HTML1

<LI>HTML2

<LI>HTML3

<A HREF="HTML4.HTML">

<LI>HTML4

</A>

</UL>

</BODY>

</HTML>

SAVE AS HTML.HTML

<HTML>

<HEAD>

</HEAD>

<TITLE>HTML4</TITLE>

<BODY>
 <P>HTML4 INCORPORATES THE USE OF FRAME<BR>

TO INCLUDE FRAMES IN THE WEB PAGES.<P>HTML4.01 CAME IN TO

EXISTENCE IN 1991.<BR>IT PROVIDES A COMPLETELY PLATFORM

INDEPENDENT

LANGUAGE

</BODY>

</HTML>

SAVE AS HTML4.HTML

RESULT:

Thus the program has been completed successfully.

 8. LOCAL PROCESSING OF ORDER FORM

AIM: To create a local processing of order form using HTML coding.

ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<html>

<head>

<title>ORDER FORM</title>

<body>

<table>

<tr>

<td>customer name

<td colspan=3><input type=text>

<td>

</tr>

<tr>

<td>customer address

<td colspan=3><input type=text>

<td>

</tr>

<tr>

<td>product name

<td><input type=radio name="aa" value="5">rice

 <td><input type=radio name="aa" value="5">wheat

<td ><input type=radio name="aa" value="5">maize

</tr>

<tr>

<td>quantity

<td><input type=textbox>

<td rowspan=2>

</tr>

<tr>

<td>per unit cost

<td><input type=text>

<td rowspan=2>

</tr>

<tr>

<td>total cost

<td><input type=textbox>

</tr>

</table>

</body>

</html>

RESULT:

Thus the program has been completed successfully.

 9. CUSTOMER SURVEY

AIM: To create a customer survey using HTML coding.

ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<HTML>

<HEAD></HEAD>

<TITLE>CUSTOMER SURVER</TITLE>

<BODY>

<FORM>

<BR>

<P>TYPE NAME ADDRESS HERE<BR>

<BR>NAME<INPUT NAME=USERNAME TYPE="TEXT"><BR>

<BR>STREET<INPUT NAME="STREET" TYPE="TEXT"><BR>

<BR>TOWN/CITY<INPUT NAME="TOWN" TYPE="TEXT"><BR>

<BR>STATE<INPUT NAME="STATE" TYPE="TEXT"><BR>

</P>

</FORM>

</HTML>

RESULT:

Thus the program has been completed successfully.

 10. MULTIFORM DOCUMENT

AIM: To create a multi form document using HTML coding.

ALGORITHM:
1. Click on start – Notepad.
2. Start typing the html coding.
3. Save the file with the extension “html”.
4. Close the notepad.
5. Open the file location.
6. Then double click the file to open.
7. The output will be displayed in browser.
CODING:
<HTML>

<HEAD>

</HEAD>

<TITLE>MULTIFORM</TITLE>

<FRAMESET COLS="25%,40%,*">

<FRAME SRC="FRUITS.HTML">

<FRAME SRC="ANIMALS.HTML">

<FRAME SRC="BIRDS.HTML">

<FRAMESET>

</HTML>

SAVE AS PGM10.HTML

HTML>

<HEAD></HEAD>

<TITLE>ANIMALS</TITLE>

<BODY BGCOLOR=#FFFF00>
<H1>ANIMALS</H1>

<OL>

<LI>ELEPHANT

<LI>LION

<LI>DOG

</OL>

</BODY>

</HTML>

SAVE AS ANIMALS.HTML

<HTML>

<HEAD></HEAD>

<TITLE>BIRDS</TITLE>

<BODY BGCOLOR=#FFFF0000>

<H1>BIRDS</H1>

<OL>

<LI>CROW

<LI>PIGEON

<LI>EAGLE

</OL>

</BODY>

</HTML>

SAVE AS BIRDS.HTML
 <HTML>

<HEAD></HEAD>

<TITLE>FRUITS</TITLE>

<BODY BGCOLOR=#00FF00>

<H1>FRUITS</H1>

<OL>

<LI>MANGO

<LI>APPLE

<LI>PAPAYA

</OL>

</BODY>

</HTML>

SAVE AS FRUITS.HTML

RESULT:

Thus the program has been completed successfully.