更新KUKA程序

KUKA/KRC/R1/Program/Mylib/REAL_TO_Output.src

@@ -0,0 +1,19 @@
+&ACCESS RV
+DEFFCT INT REAL_TO_Output (rVal:IN )
+   DECL REAL rVal
+   DECL INT Offset,Ret
+   DECL INT INTS[4]
+   DECL CHAR Bytes[4]
+   Offset=0
+   Ret=0
+   CAST_TO(Bytes[],Offset,rVal)    
+   INTS[1] = Bytes[1]   
+   INTS[2] = Bytes[2]
+   INTS[2] = INTS[2]*256
+   INTS[3] = Bytes[3]
+   INTS[3] = INTS[3]*65536
+   INTS[4] = Bytes[4]
+   INTS[4] = INTS[4]*16777216   
+   Ret=INTS[1]+INTS[2]+INTS[3]+INTS[4]
+   RETURN Ret
+ENDFCT