1、show 要素形式在标头Results.ShowFeatureLabelInHdr = TRUE show 要素标签在标头Results.ShowFeatureIDInHdr = TRUE show 要素序号在标头Results.ShowNumOfPointsInHdr = TRUE show 要素量测的点数量在标头设定要素数据格式的显示方法 Results.FormatColumns ELEMENT, ACTUAL, NOMINAL, DEVIATION, UPTOL, LOWTOL, PASSFAIL * 显示结果的讯息 *Results.ShowAlignmentMsg = FALSE
2、show PCS 资料 Results.ShowUnitsChangeMsg = FALSE show 单位转变报告 Results.ShowConstructionMsg = FALSE show 要素的建筑报告 Results.ShowErrorMsg = FALSE show 错误报告 * 显示结果数据的等级 *Results.ReportLevel = ALLDATA * 结果输出记录 *Results.LogFileName = C:Documents and SettingsAdministrator桌面rep.txtResults.LogToFile = TRUEResults.
3、LogToCOM1 = FALSEResults.LogToCOM2 = FALSE * 执行模式设定 *BreakOnErrors = TRUE 错误中断 ShowImageTools = TRUE show 影像工具 * 恢复 MCS *PCS.RestoreMCS * 参考面 *ReferencePlane = XY_PLANE * 量测驱动 *MeasuringDevice = QV_VIDEOQV.CylUsesRefPlane = true 允许使用圆筒坐标end sub startup=Main =sub Main start of main subroutinecall sta
4、rtupCall QVBlock_1Call QVBlock_2Call QVBlock_3Call QVBlock_4Call QVBlock_5Call QVBlock_6Main=量测子程序 =Private Sub QVBlock_1 = 任意点一点为基准点/量测点要素 标签: Point0 无投影平面Measure.Point Label:Point0, ProjPlane:=NO_PLANE/影像中心改变到 X,Y,Z 光源设定为 . Video.ChangeToImageContext X:=25.8001129, Y:=283.2850158, Z:=12.5829224, C
5、oax:=0.00, Stage:=0.36, Back:=0.00, Front:=0.00, Right:=0.00, Left:=0.00, Angle:=0.00, Color:= qvWhite, NomMag:=1.000000/对焦工具设定 FocusTool.SetMode FocusType:=SURFACE, Speed:=MED, Range:=4.2314050/执行对焦工具 FocusTool.Run X:=24.2943612, Y:=282.8247008, Z:=12.5879225, W:=0.8463702, H:=0.7149573/执行量测工具 Manu
6、alTool.Run X:=23.8810176, Y:=282.5015010, Z:=12.5879225, Prompt:输入原点/量测结束 Measure.EndMeas/设定PCS原点是 Point0PCS.AlignOrigin Axes:=ALL_AXES, Tag:End Sub QVBlock_1Private Sub QVBlock_2 = 量测一条线做为轴向Measure.Line Label:Line1, ReverseDirection:=TRUE=-0.0004923, Y:=-0.0004648, Z:=-0.0007515方框工具型式:一般方框BoxTool.M
7、ode = NORMAL扫瞄像素间格 BoxTool.ScanInt = 20侦测方向设定 BoxTool.SamplingDirection = DIR_LEFT检出条件设定BoxTool.SetFilter Alg:=DYNAMIC_THRESH, EdgeSlope:=RISING, EdgeQuality:=STRONG, Outlier:=0, TH:=98.653061, THR:=0.393520, THS:=71.000000工具尺寸形状设定 BoxTool.Run X:=1.5741499, Y:=-0.1669617, Z:=-0.0007515, W:=0.9841514
8、, H:=2.8696230, Angle:=89.6339量测结束 显示的结果 Results.ReportFeature Show:=X_ and Y_ and Z_ and AN_ and XA_ and YA_ and ZA_ and ST_, Tag:坐标轴方向设定 PCS.AlignAxis AlignmentAxis:=X_AXIS, RotationAxis:=Z_AXIS, Offset:=0.0000000, Direction:=POS, Tag:QVBlock_2Private Sub QVBlock_3 = 量测一个圆Measure.Circle Label:Circ
9、le1=1.7166358, Y:=-2.5477576, Z:=-0.0003515/ 圆工具 CircleTool.ScanInt = 20检测方向 CircleTool.SamplingDirection = CWCircleTool.SetFilter Alg:=103.935000, THR:=0.445299, THS:=43.000000CircleTool.Run X:=3.0294651, Y:=-3.5513114, Z:=-0.0005515, R1:=0.7184305, R2:=1.6943508结果输出=CR_ and D_ and RD_, Tag:=0QVBlo
10、ck_3Private Sub QVBlock_4 = 量测一点Point1=-0.0003515, Coax:/ 点工具 PointTool.SetFilter Alg:=STRONG, TH:=114.447964, THR:=0.615292, THS:=56.500000PointTool.Run X:=3.6253062, Y:=-2.4226265, Z:=-0.0005515, L:=0.9841514, Angle:=27.2282/ 双区域对比工具 DualAreaContrastTool.SetFilter LightType:=STAGE_TYPE, LightAngle
11、:=0.000000, MetricType:=AVE_BRIGHT, WeightedMetric:=true, OperationMode:=DEPENDENT, MetricTol:=0.100000DualAreaContrastTool.Run X:=4.2993618, Y:=-3.6344991, Z:=0.4920757, H:=0.6170179, Angle:=0.2282=X_ and Y_ and Z_, Tag:QVBlock_4Private Sub QVBlock_5 = 量测点并计算两点的距离Point2Video.ChangeToImageContext Co
12、ax:=0.14, Stage:= qvWhite找寻最大点BoxTool.Mode = MAXPTBoxTool.SamplingDirection = DIR_RIGHT=92.823529, THR:=0.573975, THS:=21.500000=-0.1525784, Y:=-2.7707717, Z:=-0.0005515, W:=0.3149284, H:=1.5180599, Angle:对焦工具 =EDGE0, Speed:FocusTool.EdgeSlope = BOTH=-0.1284158, Y:=-1.3995137, Z:=0.0106486, W:=0.636
13、6058计算 Point2 到 Point2 的距离 Construct.Distance Tag1:, Tag2:, Label:Dim1=DX_ and DY_ and DZ_ and LC_ and SC_, Tag:QVBlock_5Private Sub QVBlock_6 = 量测一条线并计算交点 Line2=FALLING, EdgeQuality:=99.045627, THR:=0.373051, THS:=-0.2105517, Y:=-3.0158529, Z:=3.5551984, Angle:=-179.7718使用自动亮度工具 BrightnessTool.SetF
14、ilter LightType:=0.088212BrightnessTool.Run X:=0.8962639, Y:=-1.6892524, Z:=0.0105486, W:=0.4625512, H:=0.4015513, Angle:=0.2282, LightMetric:=0.664436计算 Line2 与 Line1 的交点 Construct.IntersectPoint Tag1:Point3=XY_PLANE, PreferredPoint := 1QVBlock_6 档案IO.QVB 1.在C根目录建立一个档案 TEMP001.txt 2.将文字写入档案,并关闭档案。
15、3.开启刚刚建立的档案 4.从档案读取数据 5.将读取的数据用讯息盒显示 6.将档案关闭 7.将档案删除 说明 开档-读档-写入档案-关档-删档Declare Sub createfile / 宣告一个建立档案的子程序/= main =Sub main Dim msgtext as string dim i as integer Call createfile /建立一个档案 / 开启一个档案,数据输入用 档案代号 #1 Open TEMP001.txt For Input As #1/ 从档案取回前 10个字放至msgtext for i=1 to 10 msgtext=msgtext &
16、Input(1, #1) next i/ 将读取到的数据利用讯息盒显示出来 MsgBox msgtext/ 使用完毕后务必将档案关闭 Close #1/ * 删除档案 * Kill End Sub= 建立档案的子程序 =Sub createfile/ 开启一个档案,数据写出用 档案代号 #1 for Output as #1/ 将文字写入档案 Write #1, 这是刚建立的档案 变量宣告.QVB 在子程序内与子程序外宣告变量,并由讯息框印出 两个变数的值。 说明变量宣告,全区域变量与单区域变量的不同Declare Sub use1dim x as integer 宣告一个全区域整数变 = s
17、ub Main=sub Main x=5 Call use1 MsgBox 这是全区域变量 x= & x 这个讯息盒显示的是全区域变量end Sub= sub use1=Sub use1 dim x 宣告一个单区域变量 x=6这是单区域变量 x=这个讯息盒显示的是单区域变量end sub 呼叫外部应用程序.QVB 执行外部应用程序记事本并开启档案 aaa.dat, 将焦点放在开启的程序上。 说明呼叫外部应用程序sub main/ 宣告一个传回植 dim id as Long/ 执行记事本并开启档案 aaa.dat,参数1=将焦点放在开启的程序上 id= Shell(Notepad.exe aa
18、a.txt, 1) 呼叫外部子程序.QVB 呼叫开启外部子程序,显示变量值, 呼叫开启外部函式,计算三角斜边长。 说明呼叫已编译过的外部 QVBasic 程序/ 宣告子程序 名称:sss 来源档名:变量宣告.QVX 子程序: MainDeclare sub sss BasicLib 变量宣告.QVX Alias Main ()/ 宣告函式 名称:fun 来源档名:函式.QVX 函式: fun1(a as double,b as double) 传回的数据格式 double Declare Function fun BasicLib 函式.QVX alias fun1 (a as double,b as double) as double= Main() = call sss /呼叫子程序 sss dim c as double/ c=呼叫函式 fun1 并给两个三角邻对边长度自变量(a,b) c=fun(3,4)/ 将得到的值显示在讯息框三角形的两边是 3,4 斜边长= c end sub 重要: 呼叫的子程序前面不可以宣告为 private 备注: 扩展名 .QVX 是编译过的量测程序 函式.QVB程序
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2