vb6.0中怎么让数据结果显示的时候同时保存到电脑某个文件夹中

显示全部楼层 · 2011-1-6 19:10:29

Private Sub Command1_Click()

Dim outstr$

Dim M$, N$, D$
'M是手动画线长度，N是自动画线长度，D是长度误差

N = Sqr((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2))

M = Sqr((x11 - x22) * (x11 - x22) + (y11 - y22) * (y11 - y22))

D = Abs(M - N)

Dim E$, F$ '自动画线起点是A终点B，手动画线起点A'终点B'，E是AA'距离，F是BB'距离

E = Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11))

F = Sqr((x2 - x22) * (x2 - x22) + (y2 - y22) * (y2 - y22))

Dim T$'T是画线总时间

T = Val(b - a)

outstr = "长度距离误差" & D

outstr = outstr & vbCrLf & "起点定位误差" & E

outstr = outstr & vbCrLf & "终点定位误差" & F

outstr = outstr & vbCrLf & "操作时间" & T & "秒"

MsgBox outstr, , "测试结果"
End Sub
怎么让这些数据显示的时候同时保存到电脑某个文件夹中。另外电脑提示这条语句 E = Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11))溢出，是怎么回事呢？
我用timer控件让电脑自动画线，然后用mousedown和mouseup事件让鼠标画线，最后比较两者的误差得到相关数据。我需要重复做6次，那么如何将6次数据以表格形式全部保存到电脑中呢

千问 · 2011-1-6 19:10:29

E = Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11))溢出只是定义变量的问题而已定义大一点的数据类型就可以解决比如(y1 - y11) * (y1 - y11) 这2个变量都只是Integer整型相乘的结果可能大于32,767 就会造成溢出错误保存就直接写文件就行了Open "save.txt" For Output As #1Print #1, outstrClose #1 output 改 append