Answer / chandu

u can create user defined functions by saving the file
as .vbs..just open notepad and write as below and save the
file with the ext .vbs

public function test
x=6
For i= 1 to x-1
x=i*x
Next
msgbox x
end function
then in QTP goto
File>settings>resources tab..add the .vbs file u created..
and then write call test.....in ur editor.

thanks
chandu

Answer / prashanth chenna

Creating User defined Functions:
Open QTP and Application --> type function header along
with Unique function name and arguments --> Record
repatable operations in application as function body -->
follow above navigation to create more then one functions --
> Save that functions in a file using 3rd party s/w with
Extension .vbs( Copy the script, genarated in QTP and paste
in Notepad, MS.Word etc.) --> now goto Resource menu in
QTP --> object Repository --> file menu --> Export Local
Objects --> Enter file name with Extension .tsr --> click
Save.

Calling User defined Functions:
In QTP --> type Useer defined function name along with
argument values --> file menu --> settings --> Resources
tab --> click + icon -->browse the path of the file -->
click apply --> click OK --> Resources menu in QTP -->
Associate Repositories --> Click + icon --> browse the path
of references file --> select current action --> click OK.


Example:( Creating User defined Function )
Public function login(x,y)
Dialog ("Login").winedit("User name").set x
Dialog ("Login").winedit("Password").setsecure
crypt.encrypt (y)
dialog ("Login").winbutton("OK").Click
End Function

( Calling User defined Function in a test )
login "prashanth","testing"

Answer / nina

U can use " Function Definition Generator " to create a new
user defined functions

Answer / manjunathareddy

User Defined functions nothing but A function which is not
related to project.

(Note :- Bulit in functions are Function which are Available
in QTP Library EX:- Len,StrComp etc,etc)

Example :- i will take zip folder function expample as user
defined function.

Function Zipfolder(oSource,oDestination)
On Error Resume Next
Err.CLear
Set Fso=CreateObject("Scripting.FileSystemObject")
Set oFile=Fso.OpenTextFile(oDestination,2,True)
oFile.Write "PK" &Chr(5)&Chr(6)&string(18,Chr(0))
oFile.Close
Set oShell=CreateObject("Shell.Application")
oShell.NameSpace(oDestination).CopyHere
oShell.NameSpace(oSource).Items
Do until
oShell.NameSpace(oDestination).Items.Count=oShell.NameSpace(oSource).Items.Count
WScript.Sleep 100
Loop
End Function

what is meant by source control?

0 Answers   Ordain Solutions,

---

We are calling Actions in Expert View by using Run Action.but i want to know where we are saving the Actions Scripts.Pls explain??

1 Answers  

---

4. How u will open the build automatically in QTP except using Systemutil.run command

4 Answers  

---

I want to open a GOOGLE page without recording a test in QTP.Can any one answer me?

4 Answers   IBM,

---

WHAT IS THE USE OF "FUNCTION GENERATOR" IN QTP?

9 Answers   CTS,

---

---

How can we log a defect in Testdirector from Q.T.P ?

2 Answers   EDS,

---

actually how many hours per one day we will work on automation (qtp) in real time

1 Answers   Synechron,

---

How to open an application through scripting?

11 Answers  

---

in my system object spy show the web application as a window based propeties ex:winedit like that and also not recording scripts also so what should i do

2 Answers  

---

how much space occupies in object respository by default?

5 Answers   VSoft,

---

what is database check point, how will you parameterize the database from seperate data table?

2 Answers   JPMorgan Chase,

---

What is output value? How many types of output values are there in qtp?

0 Answers  

---