关于GUI循环播放的问题,望大虾指点...
小弟甘接触Robot,在GUI方面有两个问题望大虾指点迷津...谢谢...1.GUI脚本是否有可设置循环次数的地方??
2.若无,我在下面的脚本中写循环语句不知是否妥当???计算器可循环10次,数据池头一次可以用,接下来的都不行.脚本如下:
'$Include "SQAUTIL.SBH"
Sub Main
Dim Result As Integer
dim x as integer
dim num1 as string
dim num2 as string
dim sum as string
Dim dp as Long
'Initially Recorded: 2007-12-2814:59:31
'Script Name: jsq
ForResult = 0 to 9
StartApplication "C:\WINDOWS\system32\calc.exe"
dp=SQADatapoolOpen("jsq")
for x=1 to 9
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,num1)
Call SQADatapoolValue(dp,2,num2)
Call SQADatapoolValue(dp,3,sum)
'Window SetContext, "Caption=计算器", ""
InputKeys num1 &"{+}"& num2 &"{ENTER}"
next
Call SQADatapoolClose(dp)
Window CloseWin, "", ""
Next Result
End Sub 自己顶一下.... 本人也是新学的robot，不敢称什么达人，新人而已。
对于你这个问题，首先要保证你的 datapool中要有足够多的数据。循环时不会取空。如果没有的话。可以在 Call SQADatapoolClose(dp)前加上SQADatapoolRewind (dp)语句。下面是我写的代码可以通过。datapool只有10条数据。
Sub Main
Dim Result As Integer
Dim ph As long
Dim num1 As string
Dim num2 As string
Dim sum As string
Dim x As Integer
Dim y As Integer
'Initially Recorded: 2008-7-115:44:10
'Script Name: test
Fory = 0 to 9 step 1
StartApplication "C:\WINNT\system32\calc.exe"
ph = sqadatapoolopen("jsq")
StartTimer "1"
for x=0 to 9 step 1
call sqadatapoolfetch(ph)
call sqadatapoolvalue(ph,1,num1)
call sqadatapoolvalue(ph,2,num2)
call sqadatapoolvalue(ph,3,sum)
Inputkeys num1 &"{+}"& num2 &"{ENTER}"
Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")
next
StopTimer "1"
MsgBox Result
'Result = SQADatapoolRewind (ph)
Call SQADatapoolClose(ph)
Window SetContext, "Caption=计算器", ""
Window CloseWin, "", ""
next y
End Sub
页:
[1]
