利用Halcon串口怎么控制光源控制器

大家好：
       我用Halcon的串口功能写了一个程序是关于控制光源的，但是始终没有实现，想请各位大拿威廉希尔官方网站 员帮忙看一下程序。
* this program will only run if you have a device attached to COM1.
* Open the serial interface (for reading and writing).
OpSystem := environment('OS')
if (OpSystem ='Windows_NT')
   open_serial ('COM1', SerialHandle)
else
*     open_serial (‘/dev/tty‘, SerialHandle)
endif
* Set the parameters of the serial interface (e.g., a character-based terminal).
  set_serial_param (SerialHandle, 9600, 8, 'none', 'none', 1, 1000, 1000)
* Display a nice message on the terminal.
  write_serial (SerialHandle, ords('11,12,1'))
* Now read 10 characters from the terminal...
while(1)
   
* read_serial (SerialHandle, 2, Data)
    Data:=5
* ...and if the user typed some characters within the one second...
if (|Data| > 0)
    * ...convert the read data to a string.
    Read := chrt(Data)
    if(Read='A0')
        break
    endif
endif
wait_seconds (0.1)
endwhile
stop ()
* Finally, close the serial interface so other programs can use it.
close_serial (SerialHandle)