Symmetricom 5071A, Руководство по эксплуатации и программированию

Страница: 90 / 194

Chapter 4 Remote Operation and Programming
Batch Processing for the Program Commands
62 Operating and Programming Manual
Example Program
The following HTBasic for Windows program demonstrates some of the points
discussed. The program consists of a Main program and two Defined Functions.
The FNConfig_ser_port$ is used to configure serial interface. The buffering
required for full-duplex operation is provided by the Microsoft Windows
operating environment.
The commands and queries to be executed are passed to the defined function
FNTalker$ as the string Output$. The function outputs the properly terminated
string and returns the instruments reply. The operation of the program can be
understood from the comments that are included.
HTBasic for Windows is available from TransEra Corporation.
1 ! 5071A Manual Example Rev: 9/13/06
2 !
3 !=======================================================================
4 !
5 CLEAR SCREEN
6 !
7 INTEGER Baud
8 DIM Return$[80]
9 !
10 COM /Io/Prompt$[4],Term$[1],@Ser_in,@Ser_out,Timeout,INTEGER Com_port
11 !
12 Prompt$="scpi"
13 Term$=">"
14 Timeout=2
15 !
16 !-----------------------------------------------------------------------
17 ! Set up serial port.
18 Com_port=9 ! Serial A/Com 1.
19 Baud=9600
20 !
21 Return$=FNConfig_ser_port$(Com_port,Baud)
22 PRINT Return$
23 !
24 ASSIGN @Ser_in TO Com_port;FORMAT ON
25 ASSIGN @Ser_out TO Com_port;FORMAT ON
26 !
27 !-----------------------------------------------------------------------
28 ! Command and Query 5071A.
29 !
30 Return$=FNTalker$("*CLS") ! Clear status registers and
31 PRINT Return$ ! error queue.
32 Return$=FNTalker$("SYST:REM ON") ! Enable remote operation.
33 PRINT Return$
34 Return$=FNTalker$("DISP:ENAB ON") ! Set clock display on.
35 PRINT Return$
36 Return$=FNTalker$("PTIM:TIME 13,09,24") ! Set 24-hour time.
37 PRINT Return$
38 Return$=FNTalker$("SYST:REM OFF") ! Disable remote operation.
39 PRINT Return$
40 !
41 Return$=FNTalker$("DIAG:VOLT:EMUL?") ! Query electron multiplier
42 PRINT Return$ ! voltage.
43 Return$=FNTalker$("ROSC:CONT?") ! Query reference oscillator