‘1.‘.
C
1O1119O
‚
****************************************************************************
‘*
1.4.1
231237
Calibration
Progra
*
‘*
kuisnnt
R.quir.d:
Modi
193A
DIN,
1o41
263
Calibrator,
10
ohm
rnistor*
.*
193A
adn..
—
10;
236237
addrn
—
16; 263
addr.n
a
*
‘*
Comput.r:
IBM
PC,
AT
or
cospatible
*
‘*
IUE—48S
int.rfac
card:
!Otch,
CEC,
or
National
PC-‘II
or
IM
*
t*
Op.ratiag
mysta:
PC—D
ot
NS—DI,
version
3.0
or
tate
*
‘*
Prograsmirig
languag•: Microsoft
QuickBASIC
vrsion
4.0
or
lat•r
*
‘*
Bus
drivr:
IOt.ch
Drivir4SB,
nrsion
2.3
or
latr
*
‚
****************************************************************************
CLS
onIoN
BASE
1
DII
char(5),
cbarS(5),
Ical(8),
msg$(4)
DIN
Err$(9)
FORI1TO5:READchar$(I):NEXTI
FORI1I‘08:READIca1(I):NEXTI
FORI1W4:R!ADssg$(I):NEflI
FORI1I09:READErr$(I):NBXTI
Dlya3
‚
*******************
INITIALIZE
IEBE—488
OPEN
“DBVIflEOUT“
POR
OUTPOT
AS
11
OPEN
“‘iDEVI!EEIN“
VOR
INPUT
AS
02
Stet:
IOCTL
01,
“BREAE“
PRINT
01,
“RESET“
PRH?!
01,
“RENOTE“
PRINT
01,
“GLEAR“
PRINT
01,
“TINE
01ff
30“
PEIlT
01,
“LOL“
CIß
LOCATE
12,
20
PRIWI‘
“
Nodl
2361237
Calibration
Progra“
LOCkTE
22,
12
PRINT
“NOTE:
R•f•r to
S.rvio
Nanual
for
coapl•t•
Information.“
LOCATE
14,
10
GUB
K.yCh.ok
‘
Ch.ok
for
oprator
signal.
‘*****************
SELECT
FUNCTION(S)
lt
CALIBRATE
‚
C1•ar
•rror
counter.
Dimension
arrays.
Rsad
prompt
strings.
Read
aal
ourrents.
R•ad
proodun
nssag.s.
Rad
•rror
m.ssagn.
N.asura.nt
dlay
(
nconds).
INTERFACE
*************************
‚
0n
IEEE—488
output
path.
‚
Opei
IEEE4CS
input
th.
t
Rent
interfao.
‚
Warm
start
interfac.
‚
Asnrt
raot•
enable.
.
Send
devioe
clear.
1
30
second
bus
tue
out.
‚
Enable
Local
Lookout
‚
Clear
screen.
SeiCal:
CLS
E
—
0:
Cl
—
0
PRINT
“Seleot
function to
calibrate:“
PRINT
FOR
1
—
1
‘(0
4
‘
Loop
for
all
4
seleotions.
PRINT
“
“;
1;
“-
“;
msg$(I);
“
calibration“
NEXTI
PRINT
InCal:
INPUT
“Selct
calibration
funotion
(1—4)“;
cal
IF
cal
<
1
OR
cal
>
4
THEN
BEEP:
0070
InCal
1!
cal
—
1
OR
cal
—
4
THEN
005DB
TypeCheck
•
Get
tait
type
(236
or
237).
PRINT
To Next Page
Loading...
Need help?
General
