Micro Focus QTP (UFT) Forums
Code check- Random number - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Code check- Random number (/Thread-Code-check-Random-number)



Code check- Random number - swetha.b - 12-17-2009

Hi All,

Please have a look at my code given below:

Code:
1. For i = 1 to 3
2. Mrkt = Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Market").GetTOProperty("items count")
[color=#32CD32]'trying to get number of items in the Market list.[/color]
    wait(5)
3. Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Market").Select RandomNumber(1, Mrkt )
[color]'Selecting a random number for the list Market in the range 1 to Mrkt (variable defined in the earlier set)[/color]
    wait(5)
4. loctn = Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Location").GetTOProperty("items count")
[color]'trying to get number of items in the Location list[/color]
    wait(7)
5. Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Location").Select RandomNumber(1,loctn)
[color]Selecting a random number for the list Market in the range 1 to loctn (variable defined in the earlier set)[/color]

Next
My doubt: Is there a mistake in the code ? Can I pass a variable as the range in RandomNumber??? When I run this script lines 3 and 5 always select '1' item in the list and I see line 5 fails at times showing - object was not found.

Please help me where have I gone wrong ????

Thanks
Swetha


RE: Code check- Random number - Saket - 12-17-2009

Hi Swetha,
Yes you can pass the variable as a range for RandomNumber

you have used 'GetTOProperty'. there is no any method as such in QTP a similar method is GetTOProperties return properties and values of an object used to identify the object. you should use GetROProperty to retreive the value of a particular property.

when you use 'select' for a weblist, if you are using the item in the list you can put the item derectly to select but if you use index then you should use "#1","#2" etc.

I have tried to modify your code
Code:
For i = 1 to 3
Mrkt = Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Market").GetROProperty("items count")
'trying to get number of items in the Market list.
wait(5)
Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Market").Select "#" & RandomNumber(1, Mrkt )
'Selecting a random number for the list Market in the range 1 to Mrkt (variable defined in the earlier set)
wait(5)
loctn = Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Location").GetROProperty("items count")
'trying to get number of items in the Location list
wait(7)
Browser("TalonPro Solutions").Page("TalonPro Solutions").WebList("Location").Select "#" & RandomNumber(1,loctn)
'Selecting a random number for the list Market in the range 1 to loctn (variable defined in the earlier set)
Next

let me know if this helps