65
6-6 Remote Program Examples using RS-232 interface
Example Using Quick BASIC
DECLARE FUNCTION TKDATA! ()
DECLARE SUB TKECHO ()
'DEMO.BAS - This program set the meter to record Vdc measurement on the primary display
' - and Vac measurement on the secondary display.
' - The results will also be printed on the computer screen.
' - Runs on MS-DOS QBasic 1.1,Microsoft Quick BASIC 4.5
'Notice: - When use this program, the RS-232 of the meter should be set the following
' - parameters.
' - 1. BAUD 9600
' - 2. DATA 8 BIT
' - 3. PRITY NONE
' - 4. STOP 1BIT
' - 5. ECHO OFF
' - 6. PRINT OFF
' - This program uses COM1 to communicate with the meter.
' - Version 1.2 (Modified By CC Tung. May31, 2002)
OPEN "COM1:9600,N,8,1,CD,CS,DS" FOR RANDOM AS #1
'Open COM1 for communication. 9600 baud, no parity, 8 data bits, 1 stop bit, ignore Data Carrier Detect
(DCD),
'Clear To Send (CTS), and Data Set Ready (DSR) signals
CMD$ = "RST" 'Reset the meter.
PRINT #1, CMD$ 'Send command to the meter.
TKECHO 'Waiting "=>" and checking if the command is executed successfully.
TKECHO 'Waiting "*>" to make sure the meter is in power on initial state.
CMD$ = "S101" 'Set primary display to Vdc function, mV range.
PRINT #1, CMD$ 'Send command to the meter.
TKECHO 'Waiting "=>" and checking if the command is executed successfully.
CMD$ = "S21" 'Set secondary display to Vac function, the range will same as primary.
PRINT #1, CMD$ 'Send command to the meter.
TKECHO 'Waiting "=>" and checking if the command is executed successfully.
SLEEP 3 'Wait for 3 sec.
CMD$ = "R1" 'Read primary display reading
PRINT #1, CMD$ 'Send command to the meter.
PRINT TKDATA; "V,"; 'Print the value on computer screen.
TKECHO 'Waiting "=>" and checking if the command is executed successfully.
CMD$ = "R2" 'Read secondary display reading
PRINT #1, CMD$ 'Send command to the meter.
PRINT TKDATA; "V" 'Print the value on computer screen.
TKECHO 'Waiting "=>" and checking if the command is executed successfully.
CLOSE #1 'Release COM1.
END 'End of the program.
To Next Page
Loading...