26 lines
676 B
Smalltalk
26 lines
676 B
Smalltalk
(*
|
|
===============================================================================
|
|
Project : PLC_Library
|
|
Device : -
|
|
Path : Fastwel
|
|
Name : DIM764_DI
|
|
Type : FUNCTION
|
|
Exported : 2026-07-31 11:16:16
|
|
===============================================================================
|
|
*)
|
|
|
|
FUNCTION DIM764_DI : REAL
|
|
(*На выходе - Частота в Гц*)
|
|
VAR_INPUT
|
|
IN: DWORD;
|
|
RANGE: BYTE; (* 0-Period; 1-Interval; *)
|
|
END_VAR
|
|
(*----- IMPLEMENTATION -----*)
|
|
CASE RANGE OF
|
|
0 : IF(IN=0) THEN DIM764_DI:=0; ELSE DIM764_DI := 50000000.0/DWORD_TO_REAL(IN); END_IF;
|
|
1 : DIM764_DI:=DWORD_TO_REAL(IN)/50.0;
|
|
ELSE
|
|
DIM764_DI:=0;
|
|
END_CASE;
|
|
END_FUNCTION
|