(napsaný v programovacím jazyce FORTH)
\ Tento program provádí vypočet jaký přetlak je měřen analogovým tlakovým
\ snímačem, jestliže známe mezní rozsah snímače a máme změřen výstupní
\ proud unifikovaného signálu snímače (4 ÷ 20 mA)
\ Definice slov
: nazev ." PROGRAM PRO PŘEPOČET PROUDOVÝCH ANALOGOVÝCH SNÍMAČŮ TLAKU " ;
: zadej 5 10 GOTOXY ." Zadej: " ;
: JednSignalV ." mA " ;
: JednTlak ." Pa " ;
: signal 10 5 GOTOXY ." Výstupní signál snímače je 4 ÷ 20 " JednSignalV ;
: rozsah 10 11 GOTOXY ." Rozsah analogového snímače tlaku v " JednTlak ;
: minod 10 13 GOTOXY ." minimum od " ;
: maxdo 10 14 GOTOXY ." maximum do " ;
: cekej ( -- ) ." Stiskni libovolnou klávesu ... " KEY DROP ;
: znova 30 30 GOTOXY ." Stiskni 'S' a ENTER pro znovuzadání ... " ;
: cislo ( -- u )
0.
PAD DUP 10 ACCEPT -TRAILING
>NUMBER 2DROP D>S ;
\ výpočet tlaku snímače
: vypocet ROT ROT 2DUP 0> SWAP 0> +
CASE
-2 OF 2DUP SWAP - 4 ROLL 5 PICK - / DUP
5 ROLL * 3 ROLL SWAP - SWAP 3 ROLL
* SWAP + SWAP DROP .
ENDOF
0 OF 10 23 GOTOXY
." Snímač nemůže mýt záporný rozsahy! zadej správný mezní rozsah. "
znova QUIT
ENDOF
-1 OF 10 23 GOTOXY
." Snímač měří pouze přetlak! zadej správný mezní rozsah. "
znova QUIT
ENDOF
." Nastala chyba v zadání! " znova QUIT
ENDCASE
;
\ kontola mezního rozsahu tlakového snímače
: kontrola CR 2DUP - 0>
IF ." Minimální rozsah nemůže být větší než maximální "
4DROP znova QUIT
THEN ;
\ Hlavní program
: S CLS
nazev CR cekej
signal 4 20
zadej rozsah
minod cislo
maxdo cislo
kontrola
10 20 GOTOXY
." Na výstupu snímače naměřeno: " cislo 45 20 GOTOXY JednSignalV
10 24 GOTOXY
." Snímač měří přetlak: " vypocet JednTlak
znova
;
CR .( Napiš 'S' a program spusť stiskem klávesy ENTER )
Náhled programu po spuštění: