Facebook

For any corporate training requirements Please mail To sudhakar@qtpsudhakar.com
New Schedule in MindQ Systems, Madhapur By SUDHAKAR
Course Name Date Time Duration Type Branch
UFT + UFTPro 20th September 2017 7.30 AM - 9.00 AM IST 25Days Classroom + Online Hitech City
Selenium+Appium 4th October 2017 4.30 PM - 6.00 PM IST 40Days Online -

A book "Cracking the QTP interview" authored by Sudhakar.Read More. Buy From FlipKart

Wednesday, June 24, 2009

How to return multiple values from a function?


Usually Function procedure will return only one value. But by using arrays concept we can return multiple values from a function.
'**********************************************************
 
Function fnGetOddNumbersInRange(fStartRange,fEndRange)
 
Dim oddNumbers()
Dim cnt,iCounter
 
'Initiating a counter to redim the dynamic array
cnt=0
 
For iCounter=fStartRange to fEndRange
 
'Applying the odd number logic : num/2 <>0 then its an odd number
If iCounter mod 2<>0 Then
ReDim preserve oddNumbers(cnt)
' Storing Odd numbers in dynamic array
oddNumbers(cnt)=iCounter
cnt=cnt+1
End If
 
Next
'Assigning array to the function
fnGetOddNumbersInRange=oddNumbers        
 
End Function
 
'**********************************************************
 
'**********************************************************
'How to work with this function?
 
'Here Function will return array value
oVal=fnGetOddNumbersInRange(1,10)
 
For i=0 to ubound(oVal)
' Displaying the values in array
msgbox oVal(i)
Next 
'**********************************************************

1 comment :

  1. How to pass arguments to the following function if we will call it in a script?

    function findflight(byval x)
    with browser(home)
    with .page(home)
    .webradiogroup(triptype).select x(0)
    .weblist(passengers).select x(1)
    .weblist(from).select x(2)
    .weblist(depmonth).select x(3)
    .weblist(depday).select x(4)
    .weblist(dest).select x(5)
    .weblist(retmonth).select x(6)
    .weblist(retday).select x(7)
    .webradiogroup(clas).select x(8)
    .weblist(pref).select x(9)
    .webbutton(search).click
    end with
    end with

    Please help me

    ReplyDelete