Hello everybody
I have a problem with Karel Fanuc,
in the following code I do not understand how the file reads:
ROUTINE lee_datos(cod_error:integer)
VAR
str : string[1]
i : integer
BEGIN
cod_error = 0
i = 0
coorde = ''
str= ''
if hay_datos then
write('Datos Encontrados',cr)
repeat
READ file_com (str::1) ************* what do you mean :: 1? ****how the routine works, read spaces one by one??
write(str)
cod_error = IO_STATUS (file_com)
IF (cod_error <> 0) THEN
return
else
coorde = coorde + str
i = i + 1
endif
until i > 106 ********how many iterations do??
write('Fin REC_SCAN',cr)
endif
END lee_datos
BEGIN
fin_ciclo = false
init_com (cerror)
nopr1 = 0
tmp_tmout = 0
-- Obtengo los parámetros de rutina TP ************ is collecting parameters that are written in the TP?
GET_TPE_PRM(6,tipo_datos,noreg_cam2,tempreal1,tempstr,tempint3)
GET_TPE_PRM(5,tipo_datos,noreg_cam1,tempreal1,tempstr,tempint3)
GET_TPE_PRM(4,tipo_datos,nopr2,tempreal1,tempstr,tempint3)
GET_TPE_PRM(3,tipo_datos,nopr1,tempreal1,tempstr,tempint3)
GET_TPE_PRM(2,tipo_datf2,fac_conv2_in,fac_conv2_re,tempstr,tempint3)
GET_TPE_PRM(1,tipo_datf1,fac_conv1_in,fac_conv1_re,tempstr,tempint3)
cam1_ok = 0
cam2_ok = 0
repeat
delay(500)
tmp_tmout = tmp_tmout + 500
if hay_datos then
coorde = ''
-- Obtengo datos del puerto serie
lee_datos(cerror)
write('El sistema de visión ha enviado',cr,coorde,cr)
w01_cam1 = sub_str(coorde, 4, 1) because it starts in the carater 4?, how do you know where to start?
write(cr,'Los datos binarios son: ')
write(cr,w01_cam1,',')
w03_cam1 = sub_str(coorde, 6, 1)
write(w03_cam1,',')
w04_cam1 = sub_str(coorde, 8, 1)
write(w04_cam1,',')
w06_cam1 = sub_str(coorde, 10, 1)
write(w06_cam1,',')
w01_cam2 = sub_str(coorde, 12, 1)
write(w01_cam2,',')
w03_cam2 = sub_str(coorde, 14, 1)
write(w03_cam2,',')
w04_cam2 = sub_str(coorde, 16, 1)
write(w04_cam2,',')
w06_cam2 = sub_str(coorde, 18, 1)
write(w06_cam2,',')
c01_cam1 = sub_str(coorde, 20, 1)
write(c01_cam1,',')
c02_cam1 = sub_str(coorde, 22, 1)
write(c02_cam1,',')
c03_cam1 = sub_str(coorde, 24, 1)
write(c03_cam1,',')
c04_cam1 = sub_str(coorde, 26, 1)
write(c04_cam1,',')
c01_cam2 = sub_str(coorde, 28, 1)
write(c01_cam2,',')
c02_cam2 = sub_str(coorde, 30, 1)
write(c02_cam2,',')
c03_cam2 = sub_str(coorde, 32, 1)
write(c03_cam2,',')
c04_cam2 = sub_str(coorde, 34, 1)
write(c04_cam2,',',cr)
the questions are next to the lines that I do not understand
Thanks for the help