Vincent Associates UNIBLITZ VMM-D1, User Manual

Page: 31 / 46

RS-232 Test Program
REM PROGRAM TO SEND COMMAND PULSES TO RS232 INTERFACE, VMM-D1 AND VMM-T1.
ELSEIF A$ = "L" OR A$ = "l" THEN
PRINT #1, CHR$(J + 5);
PRINT "AUX CLOSE COMMAND SENT"
GOSUB TIMEOUT
REM WRITTEN BY STEVE PASQUARELLA, VINCENT ASSOCIATES.
REM LAST REVISION 7/29/99 BY RICHARD ST.LOUIS
REM COMPUTER LANGUAGE USED – Microsoft Quick Basic ver. 4.0
CLS 0
K = -1
WHILE K
GOTO MENU
OPEN "COM1:9600,N,8,1,CS0,DS0" FOR RANDOM AS #1
J = 64
C$ = "X"
MENU: PRINT
PRINT
PRINT
PRINT "WAITING FOR KEYSTROKE COMMAND "
PRINT "TYPE:"
PRINT " VMM-D1/T1 "
PRINT " --------- "
PRINT " O - OPEN Shutter "
PRINT " C - CLOSE Shutter "
PRINT " T - TRIGGER Control "
PRINT " R - RESET Control "
PRINT " P - OPEN Aux-Out "
PRINT " L - CLOSE Aux-Out "
PRINT
PRINT " S - SET Octal Switch Address "
PRINT " (Current Starting Decimal # ="; J; ")"
PRINT " (Current Octal Address Value = "; C$; ")"
PRINT
PRINT " Q - QUIT Program "
PRINT
PRINT
START: A$ = INKEY$
IF A$ = "O" OR A$ = "o" THEN
PRINT #1, CHR$(J);
PRINT "SHUTTER OPEN COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "C" OR A$ = "c" THEN
PRINT #1, CHR$(J + 1);
PRINT "SHUTTER CLOSE COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "T" OR A$ = "t" THEN
PRINT #1, CHR$(J + 2);
PRINT "CONTROL TRIGGER COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "R" OR A$ = "r" THEN
PRINT #1, CHR$(J + 3);
PRINT "CONTROL RESET COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "P" OR A$ = "p" THEN
PRINT #1, CHR$(J + 4);
PRINT "AUX OPEN COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
VMM-D1 & VMM-T1 User Manual 30
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com