Advertisement
ADC-16 USER GUIDE
Example using Analog Input Frame
10
I
Synchronous A/D scan using Start
/
Stop
/
Gain parameters
20
STEP 1
:
The following is the start up code required to link to the
30
DAS Driver for all Interpreted BASIC programs. A subroutine (The GOSUB
40
800 below)
initializes a set of variables critical to the Driver.
80
90
GOSUB 800
I
Initialize entry variables
100
DEF SEG
=
&€I9000
Suggested addtess where to load the Driver
110
BLOAD "ADC16.BIN",O
Load the driver
120
I
130
I
,
~
~
~
~
~
,
,
,
~
,
~
~
~
~
,
~
~
~
~
140
I
150
160
170
180
190
200
210
220
230
240
250
260
27 0
280
STEP 2
:
Dimension and initialize ALL basic variables first.
Declare ALL additional program variables in this step.
You must
avoid declaring and using variables on the fly.
DEVHANDLE=O
Declare all handles as Reals
ADSET=O
I
Analog Input Frame
A$=''
NUMOFBRDS%=O: E W L A G % = O : BRDNUM%=O
DIM BUFFER% (20), SAMPLES% (2)
STARTCHAN%=O
STOPCHAN%=O
GAINCHAN%=O
X%=O
BUFFEROFFSET% = 0
440
450
I
460
470
480
490
500
I
510
52 0
530
540
550
560
57 0
580
590
600
610
620
630
640
650
660
6 - 6
STEP 5
:
To perform a FRAME based Analog Input function, first
get a FRAME handle and then initialize the parameters for the
FRAME.
CALL KGETADFRAME%
(DEVHANDLE,
ADSET, ERRFLAG%)
IF ERRFLAG%
<>
0 THEN PRINT "ERROR
Is;
HEX$(ERRFLAG%)
:
STOP
STARTCHAN%=O:STOPCHAN%=7:GAIN%=O
CALL KSETSTARTSTOPG% (ADSET, STARTCHAN%, STOPCHAN%
,
GAIN%, ERRFLAG%)
IF ERRFLAG%
<>
0 THEN PRINT "ERROR
Is;
HEX$(ERRFLAG%)
:
STOP
SAMpLES%(O) = 0
SAMPLES
parameter ignored
BUFFEROFFSET% = VARPTR (BUFFER%
(
0
) )
CALL KSETBUF% (ADSET, DATASEG%, BUFFEROFFSET%, SAMPLES% (0)
,
ERRFLAG%)
IF ERRFLAG%
<>
0 THEN PRINT "ERROR
'I;
HEX$(ERRFLAG%)
:
STOP
CALL KSYNCSTART% (ADSET, ERRFLAG%)
IF ERRFLAG%
<>
0 THEN PRINT "ERROR
HEX$
(ERRFLAG%)
:
STOP
Display Data
FOR X%
=
0 TO (STOPC€IAN%-STARTCHAN%)
IF BUFFER%(X%) AND &€I8000 THEN PRINT BUFFER%(X%) AND &H7FFF
IF (BUFFER%(X%)
AND
&H8000)
=
0 THEN PRINT BUFFER%(X%)
*
-1
NEXT
Advertisement
