求教各位高手，本人在ＶＢ这方面是新手，
现要用ＶＢ编写数字万用表与ＰＣ机间的通信
涉及到FLUCK45数字万用表关于232口通讯协议方面的知识

PC与Fluke45万用表之间采用RS-232口连接，半双工工作方式。通信参数设置为：波特率9600bit/s，无奇偶校验位，8位数据位（7位数据位加1位校验位），1位停止位。主机和仪表之间按字符收发数据。主要通信和测试命令如表1所示。

系统工作后，由主机向万用表发出表1中功能设置类的某物理参数测试命令后，只要不改变，则万用表一直保持在该参数的测试状态。主机发出一次“MEAS?”或“VAL?”命令，则万用表返回一次该参数的测量数据。主机要求万用表返回测试结果的命令置于Timer定时器控件中，则测试系统定时接收测量数据，并存于文本用于实时和历史数据显示。

表1 主要通信和测试命令
命令类型	命令代码	功能
功 能 设 置 类	ACC	置万用表成测试交流电流状态
	ADC	置万用表成测试直流电流状态
	DIODE	置万用表成测试二极管参数状态
	FREQ	置万用表成测试频率状态
	OHMS	置万用表成测试电阻状态
	VAC	置万用表成测试交流电压状态
	VDC	置万用表成测试直流电压状态
	CR LF	本次传送结束标志
	REMS	置Fluke45表成远程控制模式
结 果 查 询 类	MEAS?	使万用表返回上次测试结果
	VAL?	使万用表返回当前测试结果
	=>	万用表返回成功执行命令的提示
	?>	万用表返回主机命令错提示
	!>	万用表返回执行命令错提示

诚请指教

不错，有难度！！

运行时出错:发现二义性的名称:Timer1_Timer()
不知道怎么解决?

好东西

我是正在学习VB的学生
现在我们在实习
老师要我们编个时钟
我已经基本完成
就是难看了点
我就差个系统时间
不知道怎么编上去
希望高手教下
代码如下：Const PI = 3.14159
Private Sub Command1_Click()
Timer1.Enabled = True
x = 3900
y = 2500
r = 2100
Circle (x, y), 2100
Circle (x, y), 2200
rs = r - 100
rw = r - 150
rsz = r - 200
For i = 1 To 60
X1 = x + rs * Sin(i * 6 / 180 * PI)
Y1 = y - rs * Cos(i * 6 / 180 * PI)
X2 = x + r * Sin(i * 6 / 180 * PI)
Y2 = y - r * Cos(i * 6 / 180 * PI)
Line (X1, Y1)-(X2, Y2), vbBlue
If i Mod 5 = 0 Then
X1 = x + rw * Sin(i * 6 / 180 * PI)
Y1 = y - rw * Cos(i * 6 / 180 * PI)
xs = rsz
ys = rsz
current = xs
current = ys
Print (i \ 5)
Line (X2, Y2)-(X1, Y1), vbRed
End If
Next
Form1.DrawWidth = 0.8
Line (x, y)-(2900, 800)
Form1.DrawWidth = 1.2
Line (x, y)-(2500, 2000)
Form1.DrawWidth = 2
Line (x, y)-(3000, 2500)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

谢谢了```````````帮忙下吧~！

可以做个教程吗？ 对于新手来说 可能看不懂

请懂VB滴帮忙解决下
如何把系统时间加到
Const PI = 3.14159
Private Sub Command1_Click()
Timer1.Enabled = True
x = 3900
y = 2500
r = 2100
Circle (x, y), 2100
Circle (x, y), 2200
rs = r - 100
rw = r - 150
rsz = r - 200
For i = 1 To 60
X1 = x + rs * Sin(i * 6 / 180 * PI)
Y1 = y - rs * Cos(i * 6 / 180 * PI)
X2 = x + r * Sin(i * 6 / 180 * PI)
Y2 = y - r * Cos(i * 6 / 180 * PI)
Line (X1, Y1)-(X2, Y2), vbBlue
If i Mod 5 = 0 Then
X1 = x + rw * Sin(i * 6 / 180 * PI)
Y1 = y - rw * Cos(i * 6 / 180 * PI)
xs = rsz
ys = rsz
current = xs
current = ys
Print (i \ 5)
Line (X2, Y2)-(X1, Y1), vbRed
End If
Next
Form1.DrawWidth = 0.8
Line (x, y)-(2900, 800)
Form1.DrawWidth = 1.2
Line (x, y)-(2500, 2000)
Form1.DrawWidth = 2
Line (x, y)-(3000, 2500)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
这里吧！
谢谢了

[此贴子已经被作者于2006-5-30 18:48:26编辑过]

注释不够详细
对我这个初学者来说
只看明白了一半

以后这样的程序多写点,对初学者一定有好处的,做一些综合性的程序,把一些控件,一些常见函数用上.先谢谢楼主

偶已经照代码做了.好玩啊.