运算检查:IF--Then 语句应怎样写?

netsky_lt

运算结果检查:IF--THEN  语句应怎样写?
例如(P*q=A) 其中P与q已经参数化,A为输出值;
IF q>0 then P*q=A ??????


Browser("XXX:s###").Window("XXX-新增---操作人:s###").Page("XXX-新增---操作人:s###").WebEdit("goodsqty").Set DataTable("price", dtLocalSheet)
Browser("XXX---操作人:s###").Window("XXX-新增---操作人:s###").Page("XXX-新增---操作人:s###").WebEdit("price").Set DataTable("quantity", dtLocalSheet)
Browser("XXX---操作人:s###").Page("XXX---操作人:s###").Sync
Browser("XXX操作人:s###").Window("XXX-新增---操作人:s###").Output CheckPoint("2500.00")

[ 本帖最后由 netsky_lt 于 2006-4-24 16:33 编辑 ]

Horus_Ra

！·#￥%……—
楼主怎么找到工作的？给大家介绍介绍经验~~

netsky_lt

Horus_Ra 您好,我知自已水平差,请您赐教!

[ 本帖最后由 netsky_lt 于 2006-4-26 13:35 编辑 ]

BiSheng

你可以用两个变量分别获取price和quantity两列的值，将两个相乘的结果放到第三列中。

netsky_lt

Dim price,quantity,output
        price=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("goodsqty").GetROProperty("Value")
        quantity=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("price").GetROProperty("Value")
        output=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("conmoney").GetROProperty("Value")
  If output=price*quantity
  Then
      Reporter.ReportEvent micPass, "testing", "pass"
else
      Reporter.ReportEvent micFail, "testing", "Failed"
end if

[ 本帖最后由 netsky_lt 于 2006-4-27 09:33 编辑 ]

Horus_Ra

If a > b Then
        c = a
Else
        c = b       
End If


如果a大于b的话，c就等于a，不然的话，c就等于b

netsky_lt

我写这段代码想实现功能是叛断一个输出值的对错:
定义了三个变量:

Dim price,quantity,output
        price=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("price").GetROProperty("Value")
         (变量:取WebEdit("price")显示的值赋值给price)
        quantity=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("goodsqty").GetROProperty("Value")
        (变量:取WebEdit("goodsqty")显示的值赋值给quantity)
        output=Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("conmoney").GetROProperty("Value")
         (变量:取WebEdit("conmoney")显示的值赋值给output)
  If output=price*quantity
  Then
      Reporter.ReportEvent micPass, "testing", "pass"
else
      Reporter.ReportEvent micFail, "testing", "Failed"
end if

(如果output等于price乘以quantity,报告输出"testing", "pass",否则"testing", "Failed")

其中price与quantity已经参数化,output为输出值;我想获取数据时应怎样?
上面的思路是直接从页面显示取,下面的是从DataTable里取,但都失败.

Dim price,quantity,input
        price=DataTable("price", dtGlobalSheet)
        quantity=DataTable("quantity", dtGlobalSheet)
        output=DataTable("amount", dtGlobalSheet)
  If output=price*quantity
  Then
      Reporter.ReportEvent micPass, "testing", "pass"
else
      Reporter.ReportEvent micFail, "testing", "Failed"
end if


相关代码如下:

Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("conenddate").Set "2006-04-29"
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebElement("spacer").Click 67,2
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").Link("选择_3").Click 8,8
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Window("-- 网页对话框").Page("Page").WebElement("益母###").Click 52,9
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Window("-- 网页对话框").Page("Page").WebButton("选中此记录").Click 44,9
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("goodsqty").Set DataTable("price", dtGlobalSheet)
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("price").Set DataTable("quantity", dtGlobalSheet)
Browser("Helix platform---操作人:s###").Page("Helix platform---操作人:s###").Sync
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Output CheckPoint("2500.00")
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebElement("spacer_2").Click 71,11
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

[ 本帖最后由 netsky_lt 于 2006-4-27 11:11 编辑 ]

netsky_lt

Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Window("-- 网页对话框").Page("Page").WebButton("选中此记录").Click 44,9
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("goodsqty").Set DataTable("price", dtGlobalSheet)
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Page("采购合同管理总单-新增---操作人:s###").WebEdit("price").Set DataTable("quantity", dtGlobalSheet)
Browser("Helix platform---操作人:s###").Page("Helix platform---操作人:s###").Sync
Browser("采购合同管理---操作人:s###").Window("采购合同管理总单-新增---操作人:s###").Output CheckPoint("2500.00")

Dim price,quantity,amount
        price=DataTable("price", dtGlobalSheet)
        quantity=DataTable("quantity", dtGlobalSheet)
        amount=DataTable("amount", dtGlobalSheet)
  If amount=price*quantity Then
      Reporter.ReportEvent micPass, "testing", "pass"
else
      Reporter.ReportEvent micFail, "testing", "Failed"
end if


Step Name: testing


Step Failed

Object  Details  Result  Time  
   
testing Failed Failed

100    25      2500.00
90      20      1800.00

是不是:100*25不等于2500.00
要声明变量类型?price,quantity,amount,怎样声明?

[ 本帖最后由 netsky_lt 于 2006-4-27 16:30 编辑 ]

Horus_Ra

你可能赋值错了吧？
你可以这样写：

If output=price*quantity
  Then
      Reporter.ReportEvent micPass, "testing", "output:" & output & " , " & "price*quantity:" & price*quantity
else
      Reporter.ReportEvent micFail, "testing", "output:" & output & " , " & "price*quantity:" & price*quantity
end if

这样可以在最后的结果中看到值了~~

或者你可以打开Debug窗口后进行单步调试，可以看到变量改变的情况~~

netsky_lt

Step Name: testing


Step Failed

Object  Details  Result  Time  
   
testing output:2500.00 , price*quantity:2500 Failed

[ 本帖最后由 netsky_lt 于 2006-4-27 16:56 编辑 ]

gotesting

sdlkfj5

这段改成这样试试：
Dim price,quantity,amount
        price=DataTable("price", dtGlobalSheet)
        quantity=DataTable("quantity", dtGlobalSheet)
        amount=DataTable("amount", dtGlobalSheet)
  If Abs(amount-price*quantity)<0.000000001 Then
      Reporter.ReportEvent micPass, "testing", "pass"
else
      Reporter.ReportEvent micFail, "testing", "Failed"
end if

netsky_lt

Dim price,quantity,amount
' 浮点数不能直接用＝来比较大小,所以精确到极不数位(0.000000001)就不报错
price=DataTable("price", dtGlobalSheet)
        quantity=DataTable("quantity", dtGlobalSheet)
        amount=DataTable("amount", dtGlobalSheet)
  If Abs(amount-price*quantity)<0.000000001 Then
      Reporter.ReportEvent micPass, "testing", "output:" &amount & " , " & "price*quantity:" & price*quantity
else
      Reporter.ReportEvent micFail, "testing", "output:" & amount & " , " & "price*quantity:" & price*quantity
end if

Horus_Ra

你可以从“testing output:2500.00 , price*quantity:2500 Failed”这句话看到，是小数点的问题~~

如果两个数都是数值型（而不是字符串）的话，可以用StrComp
或者可以用CDbl，将两个数值强制转换成浮点型

或者可以像11楼那样做减法~~

个人觉得CDbl最方便~~~

gotesting

原帖由 Horus_Ra 于 2006-4-28 11:51 发表
你可以从“testing output:2500.00 , price*quantity:2500 Failed”这句话看到，是小数点的问题~~

如果两个数都是数值型（而不是字符串）的话，可以用StrComp或者可以用CDbl，将两个数值强制转换成浮点型

...

不是这么回事吧。。。？

Horus_Ra

a = 2500.00
b = 2500
MsgBox StrComp(a, b, 1)

你可以试试看~~返回0表示a和b相同