I

NDEX

PAGE
S.
NO. DATE TI
TLE SI
GNATURE
NO

1. PayRol
lPr
ocessi
ngSy
stem

2. Mar
ksheetPr
ocessi
ngSy
stem

3. Banki
ngSy
stem

4. I
nvent
orySy
stem

5. I
nvoi
ceSy
stem

6. Li
brar
yInf
ormat
ionSy
stem

Tel
ephoneDi
rect
oryMai
ntenance
7.
System

8. Cal
cul
ator

9. Dr
awi
ngShapes
Ex.
No: Pay
rol
lPr
ocessi
ng
Dat
e :

Ai
m:

To Creat
e Pay
rol
lprocessi
ng Syst
em f
oran Empl
oyee and per
for
m I
nser
ti
on,
Del
eti
onandModif
icat
ionOper
ati
on.

Dat
aDi
cti
onar
y:

Fi
ledName DataTy
pe Descript
ion
Nm Var
Char(
2) Empl oyeeName
Dept Var
Char(
2) Empl oyeeDepar t
ment
BP Number(8) BasicPay
HRA Number(
9) HouseRentAl l
owance
DA Number(
9) DearnessAl l
owance
TA Number(
9) Travell
ingAll
owance
BSI Number(
9) BasicSalaryIncomeTax
Pf Number(
9) ProvidentFund
GP Number(
12) GrossPay
NP Number(
12) NetPay

Pr
ocedur
e:

St
ep1:
OpenOr
acl
eDat
abaseandcr
eat
eat
abl
ewi
thTabl
eNameusi
ngappr
opr
iat
efi
elds.

St
ep2:
OpenaVi
sual
Basi
c6.
0anddesi
gnaf
orm wi
thnecessar
yCont
rol
s.

Step3: Wri
tet
hecodingint
heCodeWi
ndow f
orCal
cul
ati
on,I
nser
ti
onOfNew Recor
d,
Delet
ionAndModi
fi
cat
ion.

Step4: ThePay
rol
lSy
stem per
for
mtheSal
aryI
nfor
mat
ionofanEmpl
oyeewi
thf
oll
owi
ng
Calcul
ati
on.

Tot
alAl
l
owance = HRA+DA+TA

Gr
ossPay = Basi
cPay+Tot
alAl
l
owance

NetPay = Gr
ossPay–(
BSI+PF)

St
ep5:
Giv
etheConnect
ionbet
weenDat
abaseandVi
sual
Basi
c6.
0byusi
ngADODCCont
rol
.

St
ep6:
Runt
hepr
ogr
am andgener
atet
heRepor
t.
 Dat
aFl
owDi
agr

Employ
ee
Recor
d
am :

Allowance Pay
rol
l
record Dat
a
Recor
d

Deducti
on
recor
d
 1.Pay
rol
lPr
ocessi
ng

Or
acl
eQuer
y:
create t abl
e empl oyee(Emp_ no number (10)
,Emp_name v ar
char(30),
Designati
onv ar
char(
20),Deptv ar
char
(20)
,BPnumber (10),
DAnumber (10),TA
number (
10),HRA number (10),PFnumber (
10),ITnumber (10),Gross_salar
y
number (
10),Total
_deducti
onnumber (
10),Net_
salar
ynumber (10))
;
I
nserti
ntoempl
oyeevalues(102,'
yyy
','
manager
',
'sof
twar
e',
120000,
480,
600,
720,
240,260,
1800,600,1200);
Sel
ect*f
rom empl
oyee

Sour
ceCode:
Pri
vat
eSubcmdadd_ Click(
)
Adodc1. Recordset.AddNew
Txt
empno. Text=" "
Txt
empname. Text=" "
Txt
desi gnation.
Text=" "
Txt
depar tment .
Text=" "
Txt
basi csalary.
Text=" "
Txt
DA. Text=" "
Txt
TA. Text=" "
Txt
HRA. Text=" "
Txt
PF.Text=" "
Txt
IT.
Text=" "
Txt
grosssal ary.
Text=" "
Txt
totaldeduct i
on.Text=" "
Txt
netsal ar
y .
Text=" "
Txt
empno. SetFocus
EndSub

Pr
ivat
eSubcmdcl ear_
Cli
ck(
)
Txt
empno. Text=" "
Txt
empname. Text=" "
Txt
designation.
Text=" "
Txt
department .
Text=" "
Txt
basicsalary.
Tex t=""
Txt
DA.Text=" "
Txt
TA.Text=" "
Txt
HRA. Text=" "
Txt
PF.Text=" "
Txt
IT.
Text=" "
Txt
grosssalary.
Text=""
Txt
total
deduction.
Text=""
Txt
netsal
ary.Text=""
Txt
empno. SetFocus
EndSub

Pri
vateSubcmddel ete_Cli
ck(
)
Dim aAsInteger
a=MsgBox( "Areyouar esuretodel
ete"
,vbYesNo+v
bExcl
amat
ion)
I
fvbYesThen
Adodc1.Recordset
.Delete
MsgBox" RecordDeleted"
El
se
MsgBox" Recordnotdeleted"
EndIf
EndSub

Pri
vat
eSubcmdend_
Cli
ck(
)
End
EndSub

Pri
vateSubcmdrepor
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vat
eSubcmdv iew_Cl
ick()
Dima
Adodc1.
Recor
dset.MoveFir
st
a=Input
Box("
EntertheEmploy eeNumbert
obesear
ched"
)
Adodc1.
Recor
dset.Fi
nd"Emp_ no="&a
EndSub

Pri
vat
eSubt xt
basicsal ary_lostfocus()
Txt
DA. Text=Val(Txt basicsalary .
Text*4/100)
Txt
TA. Text=Val(Txt basicsalary.Text*5/100)
Txt
HRA. Text=Val (Txtbasi csalary.
Text*6/100)
Txt
PF.Text=Val (Txt basicsalary.Text*2/100)
Txt
IT.
Text=Val (
Txt basicsalary.Text*3/100)
Txt
grosssalary.
Text=Val (
Txt DA.Text)+Val(TxtTA.Text)+Val
(TxtHRA.Text
)
Txt
totaldeducti
on.Text=Val (
Txt PF.Text)+Val
(TxtIT.
Text)
Txt
netsalary.
Text=Val (Txtgrosssal ary
.Text
)-Val(Txtt
otal
deducti
on.Text
)
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y.
ExNo: Mar
ksheetPr
ocessi
ngSy
stem
Dat
e :

Ai
m:

ToCreateaMar
ksheetFor5St
udentandper
for
m Addi
ti
on,
Del
eti
onandModi
fi
cat
ion
Oper
ation.

Dat
aDi
cti
onar
y:

Fi
ledName Dat
aType Descript
ion
Studname Var
Char
(25) StudentName
Rno Var
Char
(10) RollNo
Dbms Number
(3) DatabaseManagementSy stem
Vb Number
(3) VisualProgr
ammi ng
Se Number
(3) SoftwareEngineeri
ng
Rmt Number
(3) ResourceManagementTechni cal
Rdbms Number
(3) Relati
onalDatabaseManagement
System
Total Number
(3) Total
Average Number
(3) Average
Grade Var
Char
(4) Grade

Pr
ocedur
e:

Step1:OpenOr acl
eDat
abaseandCr
eat
eat
abl
ewi
tht
abl
enameMar
kli
stusi
ng
appr
opr
iat
efi
elds.

St
ep2:
OpenaVi
sual
Basi
c6.
0,desi
gnaf
orm wi
thnecessar
yCont
rol
s.

Step3:Wri
tethecodi
ngi
nt heCodeWi
ndowForCal
cul
ati
on,
Inser
ti
onofNew
Recor
d,Del
eti
onandModif
icati
on.

St
ep4:
TheMar
ksheetPr
ocessi
ngSy
stem per
for
mthef
oll
owi
ngCal
cul
ati
on.

Tot
al=DBMS+VB+SE+RMT+RDBMS

Av
erage=Tot
al/5

St
ep5:
Cal
cul
ati
onofGr
adeasf
oll
ows,

I
fGr
adei
sgr
eat
ert
hanorequal
to85t
hen-
TheGr
adei
sA+,

El
seI
fAv
eragei
sgr
eat
ert
hanorequal
to75t
hen,
TheGr
adei
sA,

El
seI
fAv
eragei
sgr
eat
ert
hanorequal
to60t
henTheGr
adei
sB,

El
seI
fAv
eragei
sgr
eat
ert
hanorequal
to50Then,
TheGr
adei
sC.

Ot
her
wiseal
lot
herMar
ksEx
ceptAbov
eMar
kisFai
l
.

St
ep6:
Giv
etheConnect
ionbet
weenDat
abaseandVi
sual
Basi
c6.
0byusi
ngADODCCont
rol
.
 St

Dat
afl
ep7:

owDi
Runt

agr

Student
hePr

am:

record
ogr
am andGener
at

St
udent
et

Creat
e
Mar
ksheet Dat
a
recor
d
Repor
t
heRepor
t

pr
ocess
.

Mark
r
ecord
 2.
Mar
ksheetPr
ocessi
ngSy
stem
Or
acl
eQuer
y:
createtabl
estudent
(st
udnamevarchar
(30)
,Rno number(
10),Dob dat
e,VB
number(10)
,RDBMS number (
10)
,C number (
10),Java number
(10),ECA
varchar
(20)
,Totnumber
(10)
,Av
gnumber (
10),Gr
adev ar
char
(5))
;

I
nserti
ntostudentv
alues(
'zzz'
,211504388,
'21-
feb-
97'
,77,
87,
98,
100,
'Spor
ts'
,
362,
90,'A'
);

Sel
ect*f
rom st
udent
;

Sour
cecode:
Dim bonusAsInteger
Pri
vateSubcmbExt ra_
Change(
)
I
fcmbExt r
a.Text="None"Then
bonus=0
El
se
bonus=10
EndIf
EndSub

Pri
vat
eSubCmdadd_ Cli
ck(
)
Adodc1.Recordset.AddNew
Txt
name. Text=" "
Txt
regno.Text=" "
Txt
DOB. Text=" "
Txt
VB. Text=""
Txt
RDBMS. Text=" "
Txt
C.Text=" "
Txt
java.Text=" "
cmbEx tr
a.Text=" "
Txt
totalmarks.Text=" "
Txt
average.Text=""
Txt
grade.Text=""
Txt
name. SetFocus
EndSub

Pri
vat
eSubCmdcl ear_
Cli
ck(
)
Txt
name. Text=" "
Txt
regno. Text=" "
Txt
DOB. Text=" "
Txt
VB. Text=" "
Txt
RDBMS. Text=" "
Txt
C.Text=" "
Txt
java.Text=" "
cmbEx tra.Text=" "
Txt
totalmar ks.Text=""
Txt
aver age.Text=" "
Txt
grade. Text=" "
Txt
name. SetFocus
EndSub

Pri
vateSubCmddel ete_Cli
ck(
)
Dim aAsInteger
a=MsgBox( "Areyousur etodel
ete"
,vbYesNo+v
bExcl
amat
ion)
I
fvbYesThen
Adodc1.Recordset
.Delete
MsgBox" RecordDeleted"
El
se
MsgBox" RecordnotDel et
ed"
EndIf
EndSub

Pri
vat
eSubCmdexi
t_Cl
i
ck(
)
End
EndSub

Pri
vateSubCmdrepor
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

Pr
ivat
eSubCmdsav
e_Cl
i
ck(
)
Adodc1.
Recordset
.Updat
e
MsgBox"RecordSaved"
EndSub

Pri
vateSubCmdsear ch_Cl
ick()
Dim aAsInteger
Adodc1.Recordset.
Mov eFi
rst
a=InputBox("Entert
heRegi sternumbert
obesear
ched"
)
Adodc1.Recordset.
Find"Register
_no="&a
EndSub

Pri
vat
eSubForm_ Load()
cmbExtr
a.AddI
tem "None"
cmbExtr
a.AddI
tem "NSS"
cmbExtr
a.AddI
tem "NCC"
cmbExtr
a.AddI
tem "YRCS"
cmbExtr
a.AddI
tem "Spor
ts"
cmbExtr
a.AddI
tem "LEO"
EndSub

Pri
vateSubTxt tot almarks_ Got
Focus()
Txt
tot al
mar ks.Text=Val (
TxtVB.Text
)+Val (TxtRDBMS. Text)+Val
(TxtC.
Text
)
+Val(Tx t
java.Text )+bonus
Txt
av erage=Txt totalmar ks/4
I
fVal( Txt
VB. Text )>=40AndVal (
TxtRDBMS. Text)>=40AndVal (Tx
tC.Text
)>=
40AndVal (Txtjav a.
Text )>=40Then
I
fVal( Txt
aver age. Text)>=40AndVal (
Tx t
average.Text)<60Then
Txt
gr ade.Text=" C"
El
seIfVal (
Txt average. Text)>=61AndVal (Txtaverage.Text
)<80Then
Txt
gr ade.Text=" B"
El
se
Val(Tx t
average. Text )>=81AndVal (
Txtaver
age. Text)<100
Txt
gr ade.Text=" A"
EndIf
El
se
Txt
gr ade.Text=" Fail
"
EndIf
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeensuccessf
ull
yexecut
ed.
ExNo: Banki
ngSy
stem
Dat
e :

Ai
m:

ToPer
for
m Dat
abaseofsav
ingandwi
thdr
awal
Account
sforBanki
ng.

Dat
aDi
cti
onar
y:

Fi
eldName DateTy
pe Descri
pti
on
Acc-No Number(
18) AccountNo.
Name Var
Char(
35) CustomerName
Address Var
Char(
100) CustomerAddr ess
C-Bal Number(25) CurrentBalance
Type Var
Char(
15) Deposit(
Or )Wit
hdrawal
T-
Bal Number(
25) TotalBalance

Pr
ocedur
e:

Step1:OpenaOr acl
edat
abaseandcr
eat
eat
abl
ewi
tht
abl
enameBanki
ngusi
ng
appropr
iat
efi
elds.

St
ep2:
OpenaVi
sual
Basi
c6.
0,desi
gnaf
orm wi
thnecessar
yCont
rol
s.

Step3:Writ
ethecodi
ngi
nCodeWi
ndowt
oper
for
mInser
ti
on,
Del
eti
on,
Sear
chandUpdat
e
operat
ion.

St
ep4: Tomaint
aint
heDatabaseofSav
ingAccountf
ort
heCust
omerwher
ether
egul
ar
Tr
ansacti
onRecordt
omaintai
n.

St
ep5:
It
mai
ntai
nedei
therDeposi
torWi
thdr
awl
.

St
ep6:TheTr
ansact
ionsar
emai
ntai
nFol
l
ows.

Deposi
t:
Bal
ance=Cur
rent
bal
ance+Deposi
tAccount

Wi
thdr
awal:
Bal
ance=Cur
rentBal
ance–Wi
thdr
awal
Account

El
se:
Bal
ancehasnochange

St
ep7:Gi
vet
heConnect
ionbet
weenDat
abaseandVi
sual
Basi
c6.
0byusi
ngADODCCont
rol

St
ep8:
Runt
hepr
ogr
am andgener
atet
heRepor
t.
 Dat
afl
owDi
agr

Cust
omer
am:

Recor
d

Cr
eat
e Banking
process Dat
a
r
ecor
d Repor
t

Mar
k

Recor
d
 3.
Banki
ngSy
stem
Or
acl
eQuer
y:

create t able bank( Acno number(

10),
Name v archar
(30)
,Addr
ess
varchar
(40)
,Cnonumber
(10),
Branchvar
char
(20)
,t
ypev
archar
(15),
I
balnumber)
;

I
nsert i
nto bank
val
ues(
211504432,
'
xxx'
,
'madhav
aram'
,
9841470883,
'
madhav
aram'
,
'f
ixed'
,
500);
Sel
ect*fr
om bank;

SourceCode:
Form1:

Pri
vat
eSubcmdexist
ing_
Cli
ck(
)
Frmexi
sti
ng.
Show
EndSub

PrivateSubcmdl ogi n_
Click()
IfTx t
username. Text=" Bca"AndTxtpasswor
d.Text="
123"Then
cmdr eset.Visible=Fal se
cmdl ogin.Visible=Fal se
Lblwelcome. Visible=Fal se
Lblusername. Visible=Fal se
Lblpasswor d. Visibl
e=Fal se
Tx t
username. Visible=Fal se
Tx t
passwor d.Visible=Fal se
cmdnew. Visible=Tr ue
cmdex i
sti
ng. Visible=Tr ue
Lblsbi.
Visible=Tr ue
Else
MsgBox" Ent ercor rectusernameorpasswor
d"
EndI f
EndSub

Pri
vat
eSubcmdnew_
Cli
ck(
)
Frmnew.
Show
EndSub
Pri
vat
eSubcmdr eset
_Cl
i
ck(
)
Txt
username.
Text=""
Txt
password.
Text=""
EndSub

Pri
vat
eSubFor m_Load()
Lbl
sbi
.Vi
sible=False
cmdnew.Visi
ble=False
cmdexi
sti
ng.Visi
ble=False
EndSub

For
m 2:

Dim dAsI nt
eger
Pri
vateSubcmdadd_ Cl
ick()
Adodc1.Recordset.
Mov eLast
d=Adodc1. Recordset.
Fiel
ds(0)
Adodc1.Recordset.
AddNew
Txtname.SetFocus
EndSub

Pri
vat
eSubcmdnext
for
m_Cl
i
ck(
)
Frmexi
sti
ng.
Show
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"RecordSav ed"
EndSub

Pri
vateSubTxt i
nit
ial
bal
_got
focus(
)
Dim a,bAsI nteger
Txti
niti
albal
.Text=500
a=MsgBox( "Welcomet oBank,uraccountnumberi
sdi
spl
ayedi
nfor
m",
vbYesNo+v bExclamati
on)
I
fa=v bYesThen
Txtaccountno.Text=d+1
EndIf
EndSub
For
m3:

Pri
vateSubcmdbal ancechecki
ng_Cli
ck(
)
Dim aAsInteger
Adodc1.Recordset.
Mov eFir
st
a=InputBox("EntertheBankcheckingtobef
inded"
)
Adodc1.Recordset.
Find"Account_
no="&a
EndSub

Pri
vateSubcmddeposi t_Cli
ck(
)
Dim b,dAsI nteger
b=Val (Txti
niti
albal.
Text)
d=Input Box("Entertheamountt obedeposi ted")
Txti
nit
ialbal.
Text=b+d
a=MsgBox( "Yourt r
ansact i
oniscompleted",vbOKOnly+v
bExcl
amat
ion)
I
fa=v bOKThen
Adodc1. Recordset.
Fiel
ds( 6)=Val(
Txt
init
ialbal.
Text)
Adodc1. Recordset.
Updat e
MsgBox" Recordupdat ed"
EndIf
EndSub

Pri
vat
eSubcmdexi
t_Cl
i
ck(
)
End
EndSub

Pri
vat
eSubcmdwi thdrawal_Cl
i
ck()
Dimf,gAsI nteger
f=Val(Txti
nit
ial
bal.Text)
g=InputBox("Entertheamountt obedeposi ted")
Txt
ini
ti
albal.
Text=f-g
a=MsgBox( "Yourt ransacti
oniscompleted",vbOKOnly+v
bExcl
amat
ion)
I
fa=v bOKThen
Adodc1.Recordset.
Fi el
ds(6)=Val(
Txt
init
ialbal.
Text)
Adodc1.Recordset.
Updat e
MsgBox" Recordupdat ed"
EndIf
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y
Ex.
No: I
nvent
orySy
stem
Dat
e :

Ai
m:

ToCr
eatetot
alcostofPr
oductSt
ockDatabaseandper
for
m Addi
ti
on,
Del
eti
on&
Modi
fi
cati
onandgenerat
erepor
tfort
hem.

Dat
aDi
cti
onar
y:

Fi
eldName Dat
eTy
pe Descri
ption
S.
No Number
(5) Seri
alNumber
I
tem Code Var
Char
(10) CodeofPr oduct
ProductName Var
Char
(20) ProductName
Avail
ableQuantif
y Number
(10) Avail
ableQuant i
ty
Max–Quant ify Number
(10) Maximum Quant ityof
Product
Recorder Number
(10) RecorderLevel
ProductCost Number
(10) CostperPr oduct
TotalCost Number
(10) TotalCost

Pr
ocedur
e:

Step1:OpenaOr
acl
eDat
abase&Cr
eat
eat
abl
ewi
tht
abl
enameI
nvent
oryusi
ngappr
opr
iat
e
fi
elds.

St
ep2:
OpenVi
sual
Basi
c6.
0anddesi
gnaFor
m wi
thnecessar
yCont
rol
s.

St
ep3:Writ
ethecodingi
nCodeWi
ndowf
orCal
cul
ati
on,
I
nser
ti
onofnewr
ecor
d,Del
eti
onand
Modi
fi
cat
ionOperat
ions.

Step4:
Tov
iewt
her
ecor
d,gett
heser
ial
numberi
ninputboxandwr
it
esear
chcodi
ngf
or
that
.

Step5:Gi
vet
heconnect
ionbet
weendat
abase(
backend)andVi
sual
basi
c(f
ront
end)by
usingADODCCont
rol
.

St
ep5:
Runt
hepr
ogr
am andgener
atet
her
epor
t.
 Dat
aFl
owDi
agr
am :

Product
r
ecord

I
nventor
y
Al
lowance Dat
e
process
recor
d Repor
t

Recorder
record
 4.
Inv
ent
orySy
stem
Or
acl
eQuer
y:
createt
ableinvent
ory(Snonumber (10),
I
tem_codenumber (
10)
,Product
_name
varchar
(25)
,Av ail
_quanti
ty number (
10),Max_quant
ity number
(10),Reoder
number(10)
,Productnumber (10)
,Total
_costnumber
(10))
;

I
nser
tint
oinv
ent
oryv
alues(
1003,
3,
'r
ubber
',
200,
400,
120,
2,
240)
;

Sel
ect*f
rom i
nvent
ory
;

Sour
ceCode:
Pri
vateSubcmdadd_ Click(
)
Adodc1. Recor dset.AddNew
Txt
ser ialno.Text=" "
Txt
itemcode. Tex t=""
Txt
pr oduct name. Text=" "
Txt
av ailable.Text=" "
Txt
maxi mum. Text=" "
Txt
reor der.Text=" "
Txt
cost .
Text=" "
Txt
tot al.
Text=" "
Txt
ser ialno.SetFocus
EndSub

Pri
vateSubcmdcl ear
_Cli
ck(
)
Txt
ser ialno.Text=" "
Txt
itemcode. Tex t=""
Txt
pr oduct name. Text=""
Txt
av ailable.Text=" "
Txt
maxi mum. Text=" "
Txt
reor der.Text=" "
Txt
cost .
Text=" "
Txt
tot al.
Text=" "
Txt
ser ialno.SetFocus
EndSub

Pr
ivat
eSubcmddel
ete_
Cli
ck(
)
Di
m aAsInt
eger
a=MsgBox("Areyouwantt odel
ete"
,vbYesNo+v
bExcl
amat
ion)
I
fvbYesThen
Adodc1.
Recordset
.Del
ete
MsgBox"Recorddelet
ed"
El
se
MsgBox"Recordnotdelet
ed"
EndIf
EndSub

Pri
vat
eSubcmdexi
t_Cl
i
ck(
)
End
EndSub

Pri
vateSubcmdrepor
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vateSubcmdsear ch_ Cl
ick()
Dim aAsInteger
Adodc1.Recordset.
Mov eFi
rst
a=InputBox("Entert
heser i
al numbert
obesear
ched"
)
Adodc1.Recordset.
Find"Serial_
no="&a
EndSub

PrivateSubTxt r
eor der_l
ostfocus()
Dim cur r
entl
evelAsI nteger
currentl
evel=Val(Txt avai
lable.
Text)+Val(Txtr
eorder
.Text
)
IfVal(curr
entl
evel)>=Val (Txtmaximum. Text)Then
MsgBox" ReducetheReor derlevel
,"
,vbCri
ti
cal
Tx t
reorder.
Text=" "
Tx t
reorder.
SetFocus
Else
MsgBox" Reorderlevelisvalid"
EndI f
EndSub
Pri
vat
eSubTxttot
al_gotf
ocus()
Txt
tot
al.
Text=Val(
Txtreorder
.Text
)*Val
(Txt
cost
.Text
)
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ul.
ExNo: I
nvoi
ceSy
stem
Dat
e :

Ai
m:

Toprepareabil
lforthepr
oductwit
hDat
abaseandper
for
m Addi
ti
on,
Del
eti
on,
Modi
fi
cat
ion
andSearchoperati
onandgenerat
ether
epor
t.

Dat
aDi
cti
onar
y:

Fi
eldName Dat
aTy
pe Descri
ti
on
I
nv oi
ceNo Var
char
2(25) I
nvoiceNumber
Name Var
char
2(25) CustomerName
P-Date Var
char
2(25) PurchaseDate
V-Name Var
Char
2(20) Vehicl
eName
Order-
No Number
(10) OrderNumber
Tax Number
(10) TaxAmount
Total Number
(10) TotalCost
Pri
ce Number
(10) Pri
cePerPr oduct

Pr
ocedur
e:

Step1: OpenaOr
acl
edat
abaseandCr
eat
eat
abl
ewi
tht
abl
enameI
nvoi
cewi
thappr
opr
iat
e
fi
elds.

Step2:OpenVisual
Basic6.
0anddesignaForm wi
thI
nvoicenumber
,Cust
omername,
Purchasedat
e,Vehi
clename,Or
derno,Pr
ice,
TaxandTotalusi
ngCommandbutt
onsand
Textboxes.

St
ep3:
Thel
i
stofv
ehi
clenamei
nvehi
cl
enamef
iel
dar
ecr
eat
edbyusi
ngComboboxes.

Step4:Wri
tethecodi
ngandinCodeWindowf
ort
otal
costcal
cul
ati
on,
Inser
ti
onofnew
recor
d,Del
eti
onofexi
sti
ngrecor
d,v
iewandModi
fi
cat
ionoper
ati
on.

St
ep5:Topr
eparetheI
nvoi
ce,
sel
ectt
hev
ehi
cl
einComboboxent
ert
hepr
icef
ort
hatv
ehi
cle
i
nthepr
icet
extbox.

St
ep6:Cal
cul
atet
het
axamountandaddt
hatamountwi
tht
hepr
iceofv
ehi
clet
ogett
otal
amount
.

St
ep7:
Giv
etheConnect
ionbet
weenDat
abaseandVi
sual
Basi
c6.
0byusi
ngADODCcont
rol
.

St
ep8:
Runt
hepr
ogr
am andgener
atet
her
epor
t.
 Dat
afl
owdi
agr
am :

Cust
omer

r
ecor
d

I
nvoi
ce
Purchase Dat
aRepor
t
record pr
ocess

Vechicl
e
brecord
 5.
Inv
oiceSy
stem
Or
acl
eQuer
y:
creat
etableinv
oice(I
nvoi
ce_nonumber
(10)
,Namevar
char(
30)
,Pur
chase_dat
e
date,Vname v ar
char(
20),Order
no number(
10)
,vpri
ce number
(10),Tax
number(10),
Totalnumber(10)
);

I
nserti
ntoi
nvoi
cev
alues(
1003,
'zzz'
,'
07-
dec-
15'
,'
Pul
sar
',
101,
68000,
13600,
81600)
;

Sel
ect*f
rom i
nvoi
ce;

Sour
ceCode:
Privat
eSubcmbv echi l
ename_ Cli
ck( )
Ifcmbv echilename. Text=" Pulsar "Then
Tx t
orderno.Text=101
Tx t
pri
ce.Text=68000
Tx t
tax.Text=Val (Txtpri
ce.Text )*0. 2
Tx t
total.
Text=Val (
Txtpri
ce. Tex t
)+Val (
Txttax.
Text
)
ElseIf
cmbv echil
ename. Text=" Roy alEnfi
eld"Then
Tx t
orderno.Text=102
Tx t
pri
ce.Text=120000
Tx t
tax.Text=Val (Txtpri
ce.Text )*0. 2
Tx t
total.
Text=Val (
Txtpri
ce. Tex t
)+Val (
Txttax.
Text
)
ElseIf
cmbv echil
ename. Text=" Discov er
"Then
Tx t
orderno.Text=103
Tx t
pri
ce.Text=63000
Tx t
tax.Text=Val (Txtpri
ce.Text )*0. 2
Tx t
total.
Text=Val (
Txtpri
ce. Tex t
)+Val (
Txttax.
Text
)
Else
cmbv echilename. Text="R15"
Tx t
orderno.Text=104
Tx t
pri
ce.Text=100000
Tx t
tax.Text=Val (Txtpri
ce.Text )*0. 2
Txt
tot
al.
Text=Val
(Txt
pri
ce.
Text
)+Val
(Txt
tax
.Text
)
EndIf
EndSub

Pri
vat
eSubcmdadd_ Cl
ick(
)
Adodc1.Recor dset.
AddNew
Txt
invoiceno.Text=" "
Txt
cusname. Text=" "
Txt
purchasedat e.Text=""
cmbvechi l
ename. Text=""
Txt
orderno.Text=" "
Txt
pri
ce. Text=" "
Txt
tax.Text=" "
Txt
total.
Text=" "
Txt
invoiceno.SetFocus
EndSub

Pri
vat
eSubcmdcl ear_Cl
i
ck()
Txt
invoiceno.Text=" "
Txt
cusname. Text=" "
Txt
purchasedat e.Text=""
cmbvechi l
ename. Text=""
Txt
orderno.Text=" "
Txt
pri
ce. Text=""
Txt
tax.Text=" "
Txt
total.
Text=" "
Txt
invoiceno.SetFocus
EndSub

Pri
vateSubcmddel ete_Cl i
ck(
)
Dim aAsInteger
a=MsgBox( "Areyousur etodel
ete"
,vbYesNo+v
bExcl
amat
ion)
I
fvbYesThen
Adodc1.Recordset
.Delete
MsgBox" Recorddeleted"
El
se
MsgBox" Recordnotdel eted"
EndIf
EndSub
Pri
vat
eSubcmdexi
t_Cl
i
ck(
)
End
EndSub

Pri
vateSubcmdrepor
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vateSubcmdv iew_Cl
ick()
Dim aAsInteger
Adodc1.Recordset.MoveFirst
a=InputBox("Entertheinvoicenumbert
obesear
ched"
)
Adodc1.Recordset.Fi
nd"Invoice_
no="&a
EndSub

Pri
vat
eSubForm_Load()
cmbvechi
l
ename.
AddItem "
Pulsar
"
cmbvechi
l
ename.
AddItem "
RoyalEnfi
eld"
cmbvechi
l
ename.
AddItem "
Discover
"
cmbvechi
l
ename.
AddItem "
R15"
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y.
Ex.
No: Li
brar
yInf
ormat
ionSy
stem
Dat
e :

Ai
m:

ToCreateaLi
brar
yfunct
ionwi
thdat
abasef
orbor
rowi
ngandr
etur
nofbooksgener
atet
he
repor
t.

Dat
aDi
cti
onar
y1:

Fi
ledName Dat
aTy
pe Descr
ipt
ion
I
d_No Number
(5) I
DNumber
Name Var
Char
2(25) St
udentName
Year Var
Char
2(25) Cur
rentYear
Dept Var
Char
2(25) St
udentDepartment
Address Var
Char
2(25) St
udentAddress
Phone–No Number
(10) St
udentPhonesNumber

Dat
aDi
cti
onar
y2:

Fi
ledName Dat
aTy
pe Descr
ipt
ion
B-I
d Number(5) BookI d
B-Name Var
Char2(30) BookName
A-Name Var
Char2(30) AuthorName
IDate Dat
e BookI ssuesDate
RDate Dat
e BookRet urnDate
CDate Dat
e CurrentDate
Penal
ty Number(5) Fi
neAmount

Pr
odur
ce:

Step1:OpenOr acl
eDat
abaseandCr
eat
eat
wot
abl
ewi
tht
abl
enameLi
b1andLi
b2wi
th
appropr
iat
efi
elds.

St
ep2:
OpenVi
sual
Basi
c6.
0anddesi
gnaf
orm wi
thnecessar
ycont
rol
.

Step3:Dr
awForm1fornew(or)exi
sti
nguser
,For
m2f
orNewUserRegi
str
ati
on,
For
m3f
or
ret
urn(
or)bor
rowi
ngofbook.

Step4:I
fusersel
ectoneborr
owingbookopt
iont
henent
ert
hebookname,
aut
horname
dataofi
ssueanddateofret
urn.

Step5:Ifusersel
ectonesr
etur
nbookopt
iont
hengett
obooki
dnumberi
ninputboxand
enterr
eturndate.

Step6:I
fcur
rentdat
eisgr
eat
ert
henr
etur
ndat
ethencal
cul
atef
ineamountonnumberof
days.

St
ep7:Gi
vet
heConnect
ionbet
weendat
abaseandVi
sual
Basi
c6.
0byusi
ngADODCCont
rol
.

St
ep8:
Runt
hepr
ogr
am andgener
atet
her
ep
 Dat
aFl
owDi
agr
am :

Student
record
St
udent

dat
arepor
t
Libr
ary
Bor
rowing funct
io
bookrecor
d n
Book

dat
arepor
t

Ret
urn

bookr
ecor
d
 6.
Libr
aryI
nfor
mat
ionSy
stem
Or
acl
eQuer
y:
Creat
etabl
eli
brar
y(I
d_nonumber(
10),
Namev ar
char
(30)
,Yearv
archar
(10)
,
Deptvar
char(
10),
Addressvar
char
(30)
,Phnonumber
(10)
);

I
nser
tint
oli
brar
yval
ues(
101,
'xxx'
,2017,
'BCA'
,'
madhav
aram'
,9841479883)
;
Sel
ect*f
rom l
i
brar
y;

createt
ableli
brary
1(B_i
dnumber
(10)
,B_namevar
char
(30)
,A_
name
varchar
(30),
Idatedate,
Rdat
edat
e,Cdat
edate,
penal
it
ynumber)
;

i
nser
tint
oli
brar
y1v
alues(
1,'
vb6.
0'
,'
LouTy
lee'
,'
20-
aug-
17'
,'
20-
sep-
17'
,'
21-
sep
-
17'
,5);

Sel
ect*f
rom l
i
brar
y1;

Sour
ceCode:
For
m1:

Pri
vat
eSubcmdexi st
ing_
Cli
ck(
)
exi
sti
nguser
.Show
EndSub

Pri
vat
eSubcmdnew_
Cli
ck(
)
Newuser
.Show
EndSub

For
m 2:

Pri
vateSubcmdadd_ Cli
ck(
)
Adodc1.Recordset
.AddNew
Txt
idno.
Tex t=""
Txt
name. Text=""
Txt
year.
Text=" "
Txt
department .
Text=""
Txt
address.Text=""
Txt
phno.Tex t=""
Txt
idno.
Set
Focus
EndSub

Pri
vat
eSubcmdbor book_
Cli
ck(
)
exi
sti
nguser
.Show
EndSub

Pri
vateSubcmddel ete_Cli
ck(
)
Dim aAsInteger
a=MsgBox( "Areyousur etodel
eted"
,vbYesNo+v
bExcl
amat
ion)
I
fvbYesThen
Adodc1.Recordset
.Delete
MsgBox" RecordDeleted"
El
se
MsgBox" Recordnotdeleted"
EndIf
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vateSubcmdstur
epor
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

For
m 3:

Pri
vateSubopt Borr
ow_ Cli
ck(
)
Label1.
Vi sible=Tr ue
Lbl
idno.Vi sible=Tr ue
Lbl
name. Vi sible=Tr ue
Lbl
year.Visi ble=Tr ue
Lbl
dept .
Vi sibl e=True
Lbl
bid.Visibl e=Tr ue
Lbl
bname. Visible=Tr ue
Lbl
aname. Vi sible=Tr ue
Lbl
idate.Vi sible=Tr ue
Lbl
retdate. Visible=Tr ue
Lbl
curdat e.Vi sibl
e=Fal se
Lbl
pen.Visi ble=Fal se
Txt
idno.Vi sibl e=True
Txt
name. Vi sible=Tr ue
Txt
year.Vi sible=Tr ue
Txt
dept .
Vi sibl e=True
Txt
bid.Visibl e=Tr ue
Txt
bname. Visible=Tr ue
Txt
aname. Visible=Tr ue
Txt
idate.Vi sible=Tr ue
Txt
retdate. Visi bl
e=Tr ue
Txt
curdat e. Visibl
e=Fal se
Txt
pen.Vi sibl e=False
cmdadd. Vi sible=Tr ue
cmdsav e.Vi sible=Tr ue
cmdrepor t.Vi sibl
e=Tr ue
cmdex i
t.Visi ble=True
EndSub

Pri
vateSubcmdadd_ Cli
ck(
)
Adodc2.Recor dset
.AddNew
Txt
bid.Text=" "
Txt
bname. Text=" "
Txt
aname. Text=" "
Txt
aname. Text=" "
Txt
idate.
Text=" "
Txt
retdate.Text=""
Txt
curdate.Text=" "
Txt
pen.Text=" "
Txt
bid.SetFocus
EndSub

Pri
vat
eSubcmdexi
t_Cl
i
ck(
)
End
EndSub

Pri
vateSubcmdrepor
t_Cl
i
ck(
)
DataRepor
t2.
Show
EndSub
Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc2.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vat eSubFor m_ Load( )
Label1. Visi ble=Tr ue
Lbl
idno. Vi si ble=Tr ue
Lbl
name. Vi si ble=Fal se
Lbl
y ear .
Vi si ble=Fal se
Lbl
dept .Visi bl e=Fal se
Lbl
bi d.Visi bl e=Fal se
Lbl
bname. Vi sibl e=Fal se
Lbl
aname. Vi sibl e=Fal se
Lbl
idat e.Vi si ble=Fal se
Lbl
ret dat e. Visi ble=Fal se
Lbl
cur dat e. Vi sible=Fal se
Lbl
pen. Visi ble=Fal se
Txti
dno. Vi sibl e=Tr ue
Txtname. Vi sible=Fal se
Txtyear .Visi bl e=Fal se
Txtdept .Vi sibl e=Fal se
Txtbid.Vi sibl e=Fal se
Txtbname. Visibl e=Fal se
Txtaname. Vi sibl e=Fal se
Txti
dat e.Vi sible=Fal se
Txtretdat e. Vi sible=Fal se
Txtcur dat e. Visi ble=Fal se
Txtpen. Vi sibl e=Fal se
cmdadd. Vi sible=Fal se
cmdsav e. Vi sibl e=Fal se
cmdr epor t.Vi sible=Fal se
cmdex it.
Vi si ble=Fal se
optBor row. Vi sible=Tr ue
optRet urn. Vi sibl e=Tr ue
EndSub

Pri
vateSubopt Ret
urn_Cl
i
ck(
)
Label
1.Vi
sible=True
Lbl
idno.
Visibl
e=Tr ue
Lbl
name. Vi si ble=Tr ue
Lbl
year .
Vi si ble=Tr ue
Lbl
dept .Visi bl e=Tr ue
Lbl
bid. Visi bl e=Tr ue
Lbl
bname. Vi sibl e=Tr ue
Lbl
aname. Vi sibl e=Tr ue
Lbl
idat e.Vi si ble=Tr ue
Lbl
ret dat e. Visi ble=Tr ue
Lbl
cur dat e. Vi sible=Tr ue
Lbl
pen. Visi ble=Tr ue
Txt
idno. Vi sibl e=Tr ue
Txt
name. Vi sible=Tr ue
Txt
y ear .Visi bl e=Tr ue
Txt
dept .Vi sibl e=Tr ue
Txt
bi d.Vi sibl e=Tr ue
Txt
bname. Visibl e=Tr ue
Txt
aname. Vi sibl e=Tr ue
Txt
idat e.Vi sible=Tr ue
Txt
ret dat e. Vi sible=Tr ue
Txt
cur dat e. Visi ble=Tr ue
Txt
pen. Vi sibl e=Tr ue
cmdadd. Vi sible=Tr ue
cmdsav e. Vi sibl e=Tr ue
cmdr epor t.Vi sible=Tr ue
cmdex it.
Vi si ble=Tr ue
EndSub

Pri
vat
eSubTx tcur
dat
e_got
focus(
)
Txt
curdat
e.Text=Dat
e
EndSub

Pri
vateSubTx tidno_cl
ick()
Dim aAsI nteger
Adodc1.Recor dset.Mov eFir
st
a=I nputBox("EntertheI DNumbertobesear
ched"
)
Adodc1.Recor dset.Fi
nd" Id_no="&a
Lbl
name. Visible=Tr ue
Lbl
y ear
.Visi
ble=Tr ue
Lbl
dept .
Visi
ble=Tr ue
Txtname. Vi
sible=Tr ue
Txtyear.
Visi
ble=Tr ue
Txt
dept
.Vi
sibl
e=Tr
ue
EndSub
Pri
vateSubTxtpen_gotf
ocus()
Dim aAsInteger
a=Dat eVal
ue(Txt
curdat
e.Text
)-Dat
eVal
ue(
Txt
ret
dat
e.Text
)
I
fa=0Then
Txtpen.
Text=0
El
seIfa>=1Anda<=10Then
Txtpen.
Text=5
El
seIfa>=11Anda<=20Then
Txtpen.
Text=10
El
seIfa>=21Anda<=30Then
Txtpen.
Text=15
EndIf
EndSub
OUTPUT:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y.
ExNo: Tel
ephoneDi
rect
oryMai
ntenance
Dat
e: Sy
stem
Ai
m:

Tocreat
etheTelephonedi
rect
oryusi
ngOr
acl
edat
abaseandVi
sual
Basi
c6.
0andgener
ate
ther
eportf
orthat.

Dat
aDi
cti
onar
y:

Fiel
dName Dat
eTy
pe Descri
pti
on
TNo Number
(10) TelephoneNo
CName Var
Char
2(25) Cust omerName
CNumber Number
(10) Cust omerNumber
Area Var
Char
2(20) Cust omerAddr ess
Pincode Number
(6) Pincode
DAmt Number
(10) Deposi t
Amount
Category Var
Char
2(10) Personal (Or)Offi
cial
Facil
it
y Var
Char
2(10) STD( Or)ISD
I
nstall
edDate Dat
e I
nst all
edDat e

Pr
ocedur
e:

St
ep1:
OpenOr
acl
edat
abaseandCr
eat
eat
abl
ewi
tht
abl
enamet
dmswi
thappr
opr
iat
efi
elds.

St
ep2:OpenVi
sual
Basi
c6.
0anddesi
gnedaf
orm wi
thnecessar
yCont
rol
s.

Step3:Createafor
m withcustomerinformat
ionincl
udi
ngdeposi
tamount
,inst
all
eddat
e,
categor
y( per
sonal(
or)off
ici
al),
faci
l
ity(STD(or)I
SD)

St
ep4:
TheCat
egor
yandf
aci
l
ityar
ecr
eat
edbyusi
ngOpt
ional
but
ton.

Step5:Wri
tet
hecodi
ngi
nCodeWi
ndowt
heI
nser
ti
on,
Modi
fi
cat
ion,
Del
eti
onandSear
ch
operat
ion.

St
ep6:
Giv
etheConnect
ionbet
weendat
abaseandVi
sual
Basi
c6.
0ByUsi
ngADODCCont
rol
.

St
ep7:
Runt
hepr
ogr
am andgener
atet
her
epor
t.
 Dat
afl
owdi
agr
am:

Customer
recor
d
I
nit
ial
izat
ion
Tel
ephone
r
ecord
Di
rect
ion
Deposit
e Dat
arepor
t
recor
d mai
ntai
nan
ce
Categor
y
recor
d
Faci
li
tyr
ecor
d

7.
Tel
ephoneDi
rect
oryMai
ntenanceSy
stem
Or
acl
eQuer
y:
createt
abletbbi
ll
(Tel
nonumber(
10)
,Cnonumber(10)
,C_
namev archar
(20)
,Ar
ea
varchar
(20),
Pin_
codenumber,
I
datedate,
Amountnumber(10)
,Cat
egory
v
archar
(20)
,Faci
l
ityv
archar
(20)
);

i
nserti
ntot
bbi
llv
alues(
9841470883,
1001,
'
xxx'
,
'madhav
aram'
,
600060,
'
21-
sep-
15'
,
500,'
Per
sonal
',
'
ISD'
);

Sour
ceCode:
Pri
vateSubcmdadd_ Cli
ck(
)
Adodc1. Recor dset
.AddNew
Txt
teleno.Text=" "
Txt
cusno. Tex t=" "
Txt
cusname. Text=" "
Txt
area. Text=" "
Txt
pin.Text=" "
Txt
dat e.Text=" "
Txt
amount .Tex t=""
Txt
cat egory.Text=" "
Txt
facili
ty.Text=" "
Txt
teleno.Set Focus
EndSub

Pri
vateSubcmdcl ear_
Cli
ck(
)
Txt
teleno.Text=" "
Txt
cusno. Tex t=" "
Txt
cusname. Text=" "
Txt
area. Text=" "
Txt
pin.Text=" "
Txt
dat e.Text=" "
Txt
amount .Tex t=""
Txt
cat egory.Text=" "
Txt
facili
ty.Text=" "
Txt
teleno.Set Focus
EndSub

Pri
vat
eSubcmddel ete_Cli
ck(
)
Di
m aAsI nt
eger
a=MsgBox( "
Areyouwantt odel
ete"
,vbYesNo+v
bEx
clamat
ion)
I
fvbYesThen
Adodc1.
Recordset
.Delete
MsgBox"Recorddeleted"
El
se
MsgBox"Recor
dnotdel
eted"
EndI
f
EndSub

Pri
vateSubcmdexi
t_Cl
i
ck(
)
DataRepor
t1.
Show
EndSub

Pri
vat
eSubcmdsav e_Cl
ick(
)
Adodc1.
Recordset
.Update
MsgBox"Recordsav ed"
EndSub

Pri
vateSubcmdv iew_Cl
ick(
)
Dim aAsInteger
Adodc1.Recordset.MoveLast
a=InputBox("Enterthecustomernumbert
osear
ch"
)
Adodc1.Recordset.Fi
nd"Cus_no="&a
EndSub

Pri
vat
eSubCommand1_
Cli
ck(
)
End
EndSub

Pri
vat
eSubI Sd_
Click()
Txt
faci
li
ty.
Text=ISd.Capt
ion
EndSub

Pri
vat
eSubOf fi
cal_
Cli
ck()
Txt
categor
y.Text=Off
ical
.Capt
ion
EndSub

Pr
ivat
eSubper sonal
_Cli
ck()
Txt
categor
y.Text=personal
.Capt
ion
EndSub

Pri
vat
eSubSTD_ Cl
ick()
Txt
faci
li
ty.
Text=STD.Capt
ion
EndSub
OUTPUT:
 Cal
cul
ator
Pr
ogr
am :

Di
m cur
rentasDoubl
e

Di
m pr
evi
ousasDoubl
e

Di
m choi
ceasst
ri
ng

Di
mresul
tasdoubl
e

Pr
ivat
esubdot
_cl
i
ck(
)

I
fnot(
int(
Displ
aycapt
ion,
”.
”)t
hent
extdi
spl
ay.t
ext=t
extdi
spl
ay.t
ext+”
.”

Endi
f

Endsub.

Pr
ivat
esubcmd_
cli
ck(
indexasi
nteger
)

Txtdi
spl
ay.
tex
t=t
xtdi
spl
ay.
text
&cmd(
index)
.Capt
ion

Cur
rent
=val
(t
xtdi
spl
ay.
text
)

Endsub.

Pr
ivat
esubcmdAc_
cli
ck(
)

Cur
rent
=pr
evi
ous=0

Txtdi
spl
ay.
text=””

Endsub.

Pr
ivat
esubcmdneg_
cli
ck(
)

Cur
rent=_cur
rent

Txtdi
spl
ay.Text=cur
rent

Endsub.

Pr
ivat
esubcmddi
vi
de_cl
i
ck(
)

Textdi
spl
ay.Text=”“

Pr
evi
ous=cur
rent

Cur
rent=0

Choi
ce=“/“

Endsub.
Pr
ivat
esubcmdmi
nus_cl
i
ck(
)

Textdi
spl
ay.t
ext=”“

Pr
evi
ous=cur
rent

Cur
rent=0

Choi
ce=“_“

Endsub.

Pr
ivat
esubcmdmul
ti
ply_
cli
ck(
)

Textdi
spl
ay.Tex
t=”“

Pr
evi
ous=cur
rent

Cur
rent=0

Choi
ce=”*”

Endsub.

Pr
ivat
esubcmdpl
us_cl
i
ck(
)

Txtdi
spl
ay.t
ext=”“

Cur
rent=0

Choi
ce=”+“

Endsub.

Pr
ivat
esubcmdequal
_cl
i
ck(
)

Sel
ectcasechoi
ce

Case“+”

Resul
t=pr
evi
ous+cur
rent

Txtdi
spl
ayt
ext=r
esul
t

Case“-”

Resul
t=pr
evi
ous+cur
rent

Txtdi
spl
ayt
ext=r
esul
t

Case“*”

Resul
t=pr
evi
ous+cur
rent

Txtdi
spl
ayt
ext=r
esul
t
Case“/”

I
fcur
rent<>0t
hen

Resul
t=pr
evi
ous/cur
rent

Txtdi
spl
ay.t
ext=r
esul
t

El
se

Txtdi
spl
ay.t
ext=“di
vi
deby0“

EndI
f

Endsel
ect

Cur
rent=Resul
t

Endsub.
Out
put
:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y.
 Dr
awi
ngshapes
Pr
ogr
am :
Pr
ivat
eSubCommand1_
Cli
ck(
)

CommonDi
alog1.
Flags=&H1&

CommonDi
alog1.
ShowCol
or

Shape1.
BackCol
or=CommonDi
alog1.
Col
or

EndSub

Pr
ivat
eSubFor
m_Load(
)

Li
st1.
AddI
tem "
rect
angl
e"

Li
st1.
AddI
tem "
squar
e"

Li
st1.
AddI
tem "
cir
cle"

Li
st1.
AddI
tem "
Oval
"

Li
st1.
AddI
tem "
RoundedRect
angl
e"

Li
st1.
AddI
tem "
roundedsquar
e"

EndSub

Pr
ivat
eSubLi
st1_
Cli
ck(
)

Sel
ectCaseLi
st1.
List
Index

Case0

Shape1.
Shape=0

Case1

Shape1.
Shape=1

Case2

Shape1.
Shape=2

Case3

Shape1.
Shape=3

Case4
Shape1.
Shape=4

Case5

Shape1.
Shape=5

EndSel
ect

EndSub
Out
put
:
Resul
t:Thust
hepr
ogr
am hasbeenexecut
edsuccessf
ull
y.