Programmbeispiel (Q-Basic) - Grundig RLC 100 Gebrauchsanweisung

7.5Programmbeispiel (Q-Basic)

1Ø REM *****************************************************
2Ø REM BEISPIEL FÜR RLC 100 MIT RS 232C-SCHNITTSTELLE
3Ø REM
4Ø REM
5Ø REM *****************************************************
6Ø CLS
7Ø REM
8Ø IDCL$=CHR$(2Ø):IREN$=CHR$(9):ILLO$=CHR$(25):IGTL$=CHR$
(1)
9Ø REM
1ØØ REM
11Ø OPEN "com2:96ØØ,n,8,1,CS3ØØØØ,LF" FOR RANDOM AS #1
12Ø REM
13Ø REM
14Ø PRINT #1,IDCL$;IREN$;ILLO$;"*RST;*CLS"
15Ø REM
16Ø REM
17Ø PRINT #1,"MODE_R"
18Ø REM
19Ø REM
2ØØ PRINT #1,"MEAS?"
21Ø REM
22Ø REM
23Ø INPUT #1,A$
24Ø PRINT #1,"einige Widerstandswerte:",A$
25Ø REM
26Ø REM
27Ø PRINT #1,"*OPC?"
28Ø INPUT #1,A$
29Ø PRINT #1,IGTL$
3ØØ REM
31Ø REM
32Ø CLOSE #1
33Ø END
ÜBERTRAGUNGSRATE 9600 Bd
*** SCHNITTSTELLE AKTIVIEREN ***
*** SCHNITTSTELLE KONFIGURIEREN ***
*** GERÄT KONFIGURIEREN ***
*** BETRIEBSPARAMETER EINSTELLEN ***
*** START DER MESSUNGEN ***
*** EMPFANG UND ANZEIGE DER MEßWERTE ***
*** ÜBERGANG ZUR LOKALEN BEDIENUNG***
*** ABSCHLUSS ***
WIDERSTANDSMESSUNG
36