QV编程要点
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、修改程序.在QVB源程序码中加入自动存盘的语句,且能在
RUN完程序后能自动关掉灯光.源程序码如下:
Private Sub QVB
dim b,c,d ‘定义变量
b=msgbox("量测数据是否存盘",36,"存盘") ‘设置msgbox函数
if b=6 then
c=inputbox("请输入存盘路径","存盘路径","D:\QV A暂存资料
\2B841-02.TXT") ‘设置存盘路径Results.Export c ‘存盘
else
d=msgbox("灯光是否要关闭",36,"关闭") ‘关灯
if d=6 then
light.setall coax:=0.00, stage:=0.00, ring:=0.00
else
light,setall coax:=0.00,stage:=0.08, ring:=0.00 ‘如果不关灯,缺省
的灯光设定值. end if
end if
end sub
二、面积的量测方法.使用质心工具,系统根据寻边器取得的点数计
算面积,所以量测得的面积与像素间的灰度差相关,光强较大时
像素间的灰度差较大,量测的面积值偏大: 反之光强较小时,像
素间的灰度差较小,量测的面积值略小.质心工具可量测任何封
闭的几何元素的面积值,但其影像必须小于影像窗口.源程序码
如下:
Private Sub QVBlock_2
dim dfarea as double '先声明dfarea为变量
Measure.Point CameraProj:=false
Stage.MoveTo X:=150.8221982, Y:=74.2948884, Z:=5.7741042 Light.SetAll Coax:=0.00, Stage:=0.08, Ring:=0.00 CentroidTool.SetFilter Alg:=DYNAMIC_THRESH,
THLow:=0.845771, THHigh:=1.12935, THSize:=0.882612 CentroidTool.Run X:=150.4849930, Y:=73.9994604, Z:=5.7740042, W:=3.8282708, H:=3.7223928, Angle:=0.0000
dfarea=CentroidTool.area '将质心工具量测的面积值赋给
dfarea
Measure.EndMeas
print format(dfarea,"0.00000")&"mm^2" '设置面积值的输出格式End Sub 'QVBlock_2
三、利用OPERATOR MESSAGE对话框或MsgBox函数将自动及手
动尺寸链接起来.使自动及手动量测的数据能一齐打印,同时减
少不必要的步骤,提高工作效率.。