USBOPTO/REL 64/32/16/8 - QUANCOM Informationssysteme GmbH

var handle: longint;
status: longint;
lines: longint;
s: string;
i: integer;
j: integer;
Label lab1, lab2;
begin
{*
//
// Open the USB Module
//
*}
handle := QAPIExtOpenCard(USBOPTOREL16,0);
if ( handle = 0 ) then
begin
handle := QAPIExtOpenCard(USBOPTO16IO,0);
end;
{*
// The handle is NULL if there is a USB Module installed
*}
if ( handle = 0 ) then
begin
s := 'No QUANCOM USB Module found!';
writeln(s);
halt(0);
end;
{*
// Ok, we found a QUANCOM USB Module
// ------------------------------------------------------------------------
// PART 1: Setting the outputs
//
// The following constants can be used to program the outputs:
// ------------------------------------------------------------------------
*}
{*
//
// Reset all lines to "Low"
//
*}
lines := 0;
writeln('Reset all lines to Low ( Press return to continue ):');
QAPIExtWriteDO16(handle, 0, lines, 0);
Readln;
{*
//
// Set the outputs OUT4,OUT10 and OUT15 to "High" ( 16-Bit )
//
*}
writeln('Set OUT4,OUT10 and OUT15 to High ( Press return to continue ):');
lines := OUT4 + OUT10 + OUT15;
QAPIExtWriteDO16(handle, 0, lines, 0);
Readln;
{*
//
// Set the output OUT1, OUT4,OUT10 and OUT15 to "High" ( 16-Bit )
//
*}
© QUANCOM Informationssysteme GmbH 56