VB编写的GPIB控制设备和串口控制产品的测试系统程序.docVIP

VB编写的GPIB控制设备和串口控制产品的测试系统程序 在电脑上使用时要安装NI488.2 GPIB驱动，在VB模块中加入niglobal.bas和vbib-32.bas Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) 延时控件调用 运行载入 Private Sub Form_Load() Textsend.Text = pd 1 发送栏赋初始命令 串口初始化 MSComm1.CommPort = 1 设置通信端口号为COM1 MSComm1.Settings = 9600,n,8,1 设置串口1参数 MSComm1.InputMode = 0 接收文本型数据 End Sub PD1校准 Private Sub Pd1cal_Click() Textcal.Text = Dim Dev_ATT As Integer ATT地址 Dim Dev_OPM As Integer OPM地址 Const ARRAYSIZE = 1024 读缓存区字节数 Dim PowerVal As String * ARRAYSIZE 光功率读值功率 Dim Tpower As String 光源总功率 Const Initial_ATT = 13 ATT初始衰减量 Dim ATT As String ATT衰减量 Const Sleep_ATT = 3000 ATT衰减延时后OPM才读值 Const Sleep_Comm = 100 串口通信延时 Const Sleep_Cal = 6000 PD校准延时 Const Offset_Pd = 0.5 PD补偿值 Dev_ATT% = ildev(0, 28, 0, T3s, 1, 0) Dev_OPM% = ildev(0, 20, 0, T3s, 1, 0) ilclr Dev_ATT% ilclr Dev_OPM% ilwrt Dev_ATT%, :INP:ATT Initial_ATT, Len(:INP:ATT Initial_ATT) 发送衰减值给ATT ilwrt Dev_ATT%, :OUTP 0, Len(:OUTP 0) 关闭ATT MsgBox (请将光源接光功率探头1) ilwrt Dev_ATT%, :OUTP 1, Len(:OUTP 1) 打开ATT Sleep Sleep_ATT 延时 ilwrt Dev_OPM%, :read1:chan1:power?, Len(:read1:chan1:power?) 发送读取光功率指令 ilrd Dev_OPM%, PowerVal$, Len(PowerVal$) 读取光功率返回值 Tpower$ = PowerVal$ + Initial_ATT 计算光源总功率 ilwrt Dev_ATT%, :OUTP 0, Len(:OUTP 0) 关闭ATT MsgBox (请将光源接1A) ilwrt Dev_ATT%, :OUTP 1, Len(:OUTP 1) 打开ATT MsgBox (确认连接插损最小) Shell D:\study\VB\shiyan\GPIB.exe MSComm1.PortOpen = True 打开通信端口1 Sleep Sleep_ATT 延时 校准PD1 ATT$ = Tpower$