关于GUI循环播放的问题,望大虾指点...

lzq1378

小弟甘接触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-28  14:59:31
    'Script Name: jsq
     
    For  Result = 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

lzq1378

自己顶一下....

zjslovetyan

本人也是新学的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-1  15:44:10
    'Script Name: test
    For  y = 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