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

netsky_lt · 发表于 2006-4-24 16:27:25

运算结果检查: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 · 发表于 2006-4-25 16:25:05

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

netsky_lt · 发表于 2006-4-26 09:12:11

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

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

BiSheng · 发表于 2006-4-26 09:29:10

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

netsky_lt · 发表于 2006-4-26 17:56:03

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 · 发表于 2006-4-26 18:02:06

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

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

netsky_lt · 发表于 2006-4-27 09:49:00

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

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 · 发表于 2006-4-27 15:45:21

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 · 发表于 2006-4-27 16:24:22

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

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 · 发表于 2006-4-27 16:37:12

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 · 发表于 2006-4-27 17:04:23

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 · 发表于 2006-4-27 17:48:34

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 · 发表于 2006-4-28 11:51:33

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

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

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

个人觉得CDbl最方便~~~

gotesting · 发表于 2006-4-28 14:00:41

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

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

...

不是这么回事吧。。。？

Horus_Ra · 发表于 2006-4-28 18:05:58

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

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

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 运算检查:IF--Then 语句应怎样写?

相关帖子

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

我从网上看了些例子,但还是不会写.

我写这段代码想实现功能是叛断一个输出值的对错

本帖子中包含更多资源

语法没报错,运行报告还是错了

结果显示错啦

问题算是解决了,谢谢各位帮忙!

站长推荐 /1