Programming/KUKA KRL

KUKA KRL 숫자를 문자열로 변환하는 함수

레드마티즈 2024. 1. 6. 20:23
728x90

산업용 프로그램에서 데이터 변환이 많이 이루어지지는 않지만, PC 스럽게(?) 코딩을 하다보면 간혹 변환이 필요할 때가 있습니다. 아래는 실수와 정수를 String으로 변환하는 코드의 예제 입니다.

 

1. 실수를 String으로 변환하는 함수
GLOBAL DEFFCT Bool RealToString(DestStr[]:OUT, RealVar:IN)
   
   DECL CHAR DestStr[]
   DECL REAL RealVar
   DECL STATE_T STATE
   DECL INT OFFSET
   DECL BOOL Conversion_OK
   
   OFFSET=0
   
   IF STRCLEAR(DestStr[]) THEN
      SWRITE(DestStr[],STATE,OFFSET,"%f",RealVar)
      Conversion_OK=TRUE
   ELSE
      Conversion_OK=FALSE
   ENDIF
   
   RETURN (Conversion_OK)
   
ENDFCT

 

 

2. 정수를 String으로 변환하는 함수
GLOBAL DEFFCT Bool IntToString(DestStr[]:OUT, IntVar:IN)
   
   DECL CHAR DestStr[]
   DECL INT IntVar
   DECL STATE_T STATE
   DECL INT OFFSET
   DECL BOOL Conversion_OK
   
   OFFSET=0
   
   IF STRCLEAR(DestStr[]) THEN
      SWRITE(DestStr[],STATE,OFFSET,"%d",IntVar)
      Conversion_OK=TRUE
   ELSE
      Conversion_OK=FALSE
   ENDIF
   
   RETURN (Conversion_OK)
   
ENDFCT

 

감사합니다.