上位机软件(C/Python/Java等)
直播中

pdshyh

7年用户 30经验值
擅长:无线电爱好
私信 关注
[问答]

关于电源HP6626A 进行软件校准的请教

根据HP6626A 操作手册,电源校准需要用电源的软件校准程序外接DMM配合进行,手册提供了BASIC语言的电源校准源程序,和校准办法,准备将BASIC语言的电源校准源程序 移植为 vB,上位机VB移植过程遇到源程序不太理解的地方特请教:
1.原BASIC的HP6626A 校准软件,有段语句多处出现有些不明白,包括电压/电流校准,UNtiL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true语句, 解释语句英译汉是:当位4变为真时完成, 网上搜了猜是读取DMM取四位读数,可是看电源显示电压四位对上了,电流显示五位,电流校准也有这条语句。不知道怎么理解。
1670 OUTPUT @Ps; VLO";Chan ! Set to low output voltage
1680 WAIT 1 ! Wait for supply to stabilize
1690 Vlo=FNDcv ! Read low voltage
1700 !
1710 OUTPUT @Ps; “VHI” ;Chan ! Set to high output voltage
1720 WAIT 1 ! Wait for supply to stabilize
1730 Vhi=FNDcv ! Read high voltage
1740 !
1750 OUTPUT @Ps; “VDATA” ;Chan, Vlo, Vhi ! Send output voltage data
1760 !
1770 Clear_screen    清屏子程序
1780 PRINT "Calibrating the";V_range,'volt range readback"
1790 !
1800 OUTPUT @Ps; VRLO";Chan ! Set low readback voltage
1810 REPEAT ! Wait for supply to finish
1820 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
1830 Vrlo=FNDcv ! Read low output voltage
2.还有一段语句和清屏语句类似但是还是不太一样
清屏子程序:
920 SUB Clear_screen ! Subprogram to clear display                                                   
930 OUTPUT 2;CHR$(255)&CHR$(75); ! Clear screen                                                        
940 SUBEND                                                        

错误检查语句
80 SUB Err _ trap        
90 OFF KEY        
100 COM /Ps/ @Ps        
110 OUTPUT @Ps;"ERR?"
120 ENTER @Ps:Err        
130 OUTPUT 2 USING "#,K";CHR$(255)&CHR$(75)        
140 IF Err THEN        
150 PRINT "POWER SUPPLY PROGRAMMING ERROR:’’        
160 END IF        
170 SELECT Err               

130语句和清屏语句类似又不一样。HP6626A 校准BASIC软件移植为VB目前错误检查子程序130 OUTPUT 2 USING "#,K";CHR$(255)&CHR$(75)   和 1820 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true的 BASIC语言语句有些不明白,其它还都算过了。                             

回帖(2)

李秀兰

2019-10-22 18:34:49
这个太难看出错误了,有没有编译结果
举报

pdshyh

2019-10-23 08:39:41
谢谢,BASIC 移植为 vB还不是太难,就是BASIC程序太古老了,个别语句的理解不了,网上搜也很少,
举报

更多回帖

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