Karel-Hilfsprogramchen

PROGRAM ALARMA
%NOLOCKGROUP


VAR
  param_no,
  par_typ,
  par_int,
  part_no,
  status	    : INTEGER
  par_real	  : REAL
  par_str,
  screen_     : STRING[80]


BEGIN


  status=0
  param_no=1 
  -- Variablen vom Aufruf lesen
  get_tpe_prm(param_no,par_typ,par_int,par_real,par_str,status)
  IF (par_typ=1) AND (status=0) THEN --INTEGER
    WRITE TPERROR(par_int,CR)
  ENDIF
  IF (par_typ=2) AND (status=0) THEN --REAL
    WRITE TPERROR(par_real,CR)
  ENDIF
  IF (par_typ=3) AND (status=0) THEN --STRING
    WRITE TPERROR(par_str,CR)
  ENDIF


END ALARMA

/PROG  TEST
/ATTR
OWNER		= MNEDITOR;
COMMENT		= "";
PROG_SIZE	= 144;
CREATE		= DATE 06-12-27  TIME 17:19:04;
MODIFIED	= DATE 06-12-28  TIME 15:31:18;
FILE_NAME	= ;
VERSION		= 0;
LINE_COUNT	= 1;
MEMORY_SIZE	= 488;
PROTECT		= READ_WRITE;
TCD:  STACK_SIZE	= 0,
      TASK_PRIORITY	= 50,
      TIME_SLICE	= 0,
      BUSY_LAMP_OFF	= 0,
      ABORT_REQUEST	= 0,
      PAUSE_REQUEST	= 0;
DEFAULT_GROUP	= *,*,*,*,*;
CONTROL_CODE	= 00000000 00000000;
/APPL
/MN
   1:  CALL ALARMA('Bla Bla Bla Bla ') ;
/POS
/END

PROGRAM SET_IO


%ALPHABETIZE  --anordnen Variablen nach Alphabet


%NOLOCKGROUP  --keine Achsen


%NOPAUSE     = COMMAND + TPENABLE + ERROR
%NOBUSYLAMP    -- BUSY und RUNNING AUS
%COMMENT     = 'Set IO Kommentar'


VAR


   -- Eigene Variablen
  status       : INTEGER                -- Statusvariable von Build In Routinen


--*******************************************************************
-- Hauptprogramm


-- Kommentare den IO's zuweisen
-- Maximal 16 Zeichen, keine Umlaute
-- Mit dem Programm werden die DI[1], DI[2] und DO[1], DO[2] beschriftet
-- Das Programm lässt sich perfekt mit EXCEL erstellen


--*******************************************************************


BEGIN


-- Eingänge
SET_PORT_CMT(1, 1, 'EINGANG 1',status)
SET_PORT_CMT(1, 2, 'EINGANG 2',status)


-- Ausgänge
SET_PORT_CMT(2, 1, 'AUSGANG 1',status)
SET_PORT_CMT(2, 2, 'AUSGANG 2',status)


END SET_IO

PROGRAM SET_P


%ALPHABETIZE  --anordnen Variablen nach Alphabet


%NOLOCKGROUP  --keine Achsen


%NOPAUSE     = COMMAND + TPENABLE + ERROR
%NOBUSYLAMP    -- BUSY und RUNNING AUS
%COMMENT     = 'Set P Kommentar'


VAR


   -- Eigene Variablen
  status       : INTEGER                -- Statusvariable von Build In Routinen


--*******************************************************************
-- Hauptprogramm


-- Kommentare den P's zuweisen
-- Maximal 16 Zeichen, keine Umlaute
-- Mit dem Programm werden die R[1], R[2], R[3] und R[4] beschriftet
-- Das Programm lässt sich perfekt mit EXCEL erstellen


--*******************************************************************


BEGIN


-- Register
SET_REG_CMT(1, 'LAENGE 1',status)
SET_REG_CMT(2, 'LAENGE 2',status)
SET_REG_CMT(3, 'LAENGE 3',status)
SET_REG_CMT(4, 'LAENGE 4',status)


END SET_P

PROGRAM SET_PR


%ALPHABETIZE  --anordnen Variablen nach Alphabet


%NOLOCKGROUP  --keine Achsen


%NOPAUSE     = COMMAND + TPENABLE + ERROR
%NOBUSYLAMP    -- BUSY und RUNNING AUS
%COMMENT     = 'Set PR Kommentar'


VAR


   -- Eigene Variablen
  status       : INTEGER                -- Statusvariable von Build In Routinen


--*******************************************************************
-- Hauptprogramm


-- Kommentare den PR's zuweisen
-- Maximal 16 Zeichen, keine Umlaute
-- Mit dem Programm werden die PR[1], PR[2], PR[3] und PR[4] beschriftet
-- Das Programm lässt sich perfekt mit EXCEL erstellen


--*******************************************************************


BEGIN


-- Positionsregister
SET_PREG_CMT(1, 'REFPOS 1',status)
SET_PREG_CMT(2, 'REFPOS 2',status)
SET_PREG_CMT(3, 'REFPOS 3',status)
SET_PREG_CMT(4, 'REFPOS 4',status)


END SET_PR

PROGRAM RECH_COS
%ALPHABETIZE
%COMMENT = 'Ausrechnen COS'
%NOLOCKGROUP


VAR
  r_WINKEL         : REAL        --Winkel vom HP
  i_WERTPAR        : INTEGER     --Parameternummer vom HP,
  --wo der ausgerechneter Wert abgespeichet werden soll
  r_WERT           : REAL        --ausgerechneter Wert


  data_type        : INTEGER     -- Datatype
  int_value        : INTEGER     -- Rueckgabe des Integerwert in Register
  real_value       : REAL        -- Rueckgabe des Realwertes in Register
  status           : INTEGER     -- Statusvariable von Build In Routinen
  string_value     : STRING[80]  -- Stringwert




BEGIN


  -- RECH_COS(r_WINKEL,i_WERTPAR)


  -- get parameter 1
  Get_tpe_prm(1, data_type, int_value, r_WINKEL, string_value, status)


  -- get parameter 2
  Get_tpe_prm(2, data_type, i_WERTPAR, real_value, string_value, status)


  r_WERT=COS(r_WINKEL) -- Wert ausrechnen


  SET_REAL_REG(i_WERTPAR, r_WERT, status) -- Setzen in Register... den ausgerechneten Wert


END RECH_COS