Advertisement
ADC-16 USER GUIDE
DIM
SHARED
KFREEFRAME AS INTEGER, KSETBUF AS INTEGER
DIM
SHARED
KSETSTARTSTOPG AS INTEGER, KGETSTARTSTOPG AS INTEGER
DIM SHARED KSETCHN AS INTEGER, KGETCHN AS INTEGER
DIM SHARED KSETSTARTSTOPCHN AS INTEGER
DIM SHARED KGETSTARTSTOPCHN AS INTEGER
DIM
SHARED
KSETG AS INTEGER, KGETG AS INTEGER
DIM SHARED KSETCHNGARY AS INTEGER
DIM SHARED KCHKFRAME AS INTEGER
DIM SHARED KINITFRAME AS INTEGER, KSYNCSTART AS INTEGER
DIM
SHARED
KINTSTART AS INTEGER
DIM SHARED KINTSTATUS AS INTEGER, KINTSTOP AS INTEGER
DIM SHARED KGETDOFRAME AS INTEGER, KGETDOCURVAL AS INTEGER
DIM SHARED KMOVEDATABUF AS INTEGER
DIM SHARED
=READ
AS INTEGER
DIM SHARED KDIREAD AS INTEGER, WOWRITE AS INTEGER
DIM
SHARED
KFORMATCHNGARY AS INTEGER
DIM SHARED KRESTORECHNGARY AS INTEGER
-
STEP 4
:
Define ALL l o c a l v a r i a b l e s required by
t h e
program.
1
Avoid & d a r i n g and using QBASIC v a r i a b l e s on
t h e
f l y .
DIM NUMOFBRDS AS INTEGER
rds defined i n .CFG f i l e
DIM ERRE'LAG AS INTEGER
Holds function e r r o r r e t u r n s
DIM DEVHANDLE AS LONG
Device Handle
-
a l l handles a r e 4 bytes
DIM ADFRAME AS LONG
DIM STARTCH AS INTEGER
DIM STOPCH AS INTEGER
DIM GAIN AS INTEGER
DIM
X
AS INTEGER
DIM DATABUFFER(20) AS INTEGER
DIM Samples AS LONG
DIM BRDNUM AS INTEGER
Call Setup
I n i t i a l i z e e n t r y v a r i a b l e s
DEF SEG
=
VARSEG(DriverAry(0))
G e t
l o c a t i o n
of
u s e r a r r a y , and
BLOAD "ADC16Q. BIN", 0
Load t h e d r i v e r i n t o u s e r a r r a y
I,,---,,,,,,,,,,--,--------------------------------------------------------
!
STEP 6
:
I n i t i a l i z e t h e i n t e r n a l d a t a tables with
t h e
information
I
contained i n t h e configuration f i l e ADCl6.CFG.
A$ = "ADC16.CE'G"
+
CHR$(o)
CALL ABSOLUTE (A$, NUMOFBRDS, ERRE'LAG, ADCl6DEVOPEN)
IF ERRE'LAG
<>
0
PRINT "ERROR
I t ;
HEX$(ERRFLAG)
:
STOP
BRDNTJM
=
0
CALL ABSOLUTE (BRDNUM, DEVHANDLE, ERRFLAG, ADCl6GETDEVHANDLE)
IF (ERRFLAG
<>
0) THEN PRINT "ERROR
HEX$
(ERRFLAG)
:
STOP
I,,,---,,,,,-,,,,,,,,,,,,,------------------------------------------------------
STEP 8
:
To perform a FRAME based Analog Input function,
f i r s t
1
g e t a FRAME handle and then i n i t i a l i z e t h e parameters f o r
I
t h e FRAME.
CALL ABSOLUTE (DEVHANDLE, ADSET, ERRE'LAG, KGETADFRAME)
IF ERRFLAG
<>
0 THEN PRINT "ERROR
'I;
ERRFLAG: STOP
6 - 1 8
Advertisement
