VB编写的GPIB控制设备和串口控制产品的测试系统程序（国外英文资料）.doc

VB编写的GPIB控制设备和串口控制产品的测试系统程序 When you use the computer, you should install the NI488.2 GPIB driver and add niglobal.bas and vbib-32.bas to the VB module Private Declare, Sub, Sleep, Lib, Kernel32 (ByVal, dwMilliseconds, As, Long) delay control call Run load Private, Sub, Form_Load () Textsend.Text = PD 1 sends the initial command in the send column Serial port initialization MSComm1.CommPort = 1 sets the communication port number to COM1 MSComm1.Settings = 9600, N, 8,1 sets the 1 parameter of the serial port MSComm1.InputMode = 0 receive text data End Sub PD1 calibration Private, Sub, Pd1cal_Click () Textcal.Text = Dim, Dev_ATT, As, Integer,ATT addresses Dim, Dev_OPM, As, Integer,OPM addresses Const ARRAYSIZE = 1024 reads the cache bytes Dim, PowerVal, As, String * ARRAYSIZE light power read power Dim Tpower As String total power of light source Const Initial_ATT = 13ATT initial decrement Dim, ATT, As, String,ATT attenuation Const Sleep_ATT = 3000ATT attenuation delay after OPM read value Const Sleep_Comm = 100 serial communication delay Const Sleep_Cal = 6000PD calibration delay Const Offset_Pd = 0.5PD compensation value 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) sends attenuation values to ATT Ilwrt Dev_ATT%, OUTP 0, Len (: OUTP 0) close ATT MsgBox (please connect the light source power probe 1) Ilwrt Dev_ATT%, OUTP 1, Len (: OUTP 1) open ATT Sleep Sleep_ATT delay Ilwrt Dev_OPM%, read1:chan1:power?, Len (: read1:chan1:power) sends read optical power instructions. Ilrd, Dev_OPM%, PowerVal$, Len (PowerVal$) read the optical power return value Tpower$= PowerVal$+ Initial_ATT calculates the total power of the light source Ilwrt Dev_ATT%, OUTP 0, Len (: OUTP 0) close ATT MsgBox (please connect the light source to 1A) ilwrt dev _ att% : outp 1, len (: outp 1 ) is 打开att msgboxyou (确认连接插损最小) shell d: \ \ \ \ gpib.exe shiyan study vb mscomm1.po