电磁兼容(EMC)设计与整改
直播中

刘来有

7年用户 159经验值
私信 关注
[问答]

如何利用Visual Basic和吉时利488GPIB卡控制2510-AT?

如何利用Visual Basic和吉时利488GPIB卡控制2510-AT?

回帖(1)

罗振炜

2021-5-12 10:11:43
2510型设备基于给定的温度传感器TEC制冷片进行编程,并设置单点温度。在控制器将激光二极管模组稳定到目标温度之前,首先对TEC的AC电阻进行测量和显示。

如下是一个利用Visual Basic和吉时利488 GPIB卡控制2510-AT的实例。

‘Reset Instruments
send(kth2510, “*rst”, status) ‘reset TEC controller
‘Setup Peltier Current Limit
send(kth2510, “:sens:curr:prot:lev 1.0”, status)
‘Setup Temperature Sensor
send(kth2510, “:sens:temp:tran ther”, status) ‘use thermistor
send(kth2510, “:sens:temp:curr:auto on”, status)
‘auto sensor current level
send(kth2510, “:sens:temp:ther:range 1e4”, status) ‘10K ohm Ther.
send(kth2510, “:sour:temp:spo 25.0”, status)
‘set temp. to 25C, Read Peltier AC Ohms
send(kth2510, “utp on”, status) ‘turn on output
send(kth2510, “:meas:res:ac?”, status) ‘measure AC ohms
enter(strData, 100, intLength, kth2510, status) ‘enter reading
txtTECRes.Text = strData ‘display on screen
‘Begin controller Laser Diode Temperature
send(kth2510, “utp on”, status)
举报

更多回帖

发帖
×
20
完善资料,
赚取积分