Выбор USB-UART преобразователя

[BASIC];=== Ev3658
EnableExplicit 
 
Enumeration
  #okno
  #polotno ;Картинка спрайта
  #sprite  ;Окно редатора спрайтов
  #timerchat
  #com_port
   #timer_eho
EndEnumeration
Global x.c,y.c,w.c,h.c
Global event.c
Global p.c,o.c
 
Global vrb.a,vrc.c
Global Dim mem_chat.a(8193)
Global trig_mem.c
Global x_zoom_chat.c,y_zoom_chat.c
 
x_zoom_chat=128*8
y_zoom_chat=64*8
x=0
y=0
w=x_zoom_chat+10
h=y_zoom_chat+200
 
;---- Uart переменные
Global On_uart.a
Global Dim tx.a(1024) ;Буфер приёма
Global tm_rx.a
Global priem.a ;Флаг приёма по UART пакета 0-свободен, 1-приём, 2-принял
Global Dim rx.a(1024)
Global Dim reg.a(10) ;Значение регистров модема
Global byte.a        ;Переменная байт в математике анализа приёма UART
Global trig.a
 
 
Global byte_tm.a,param.a
Goto PROG:
 
;============ ПРОТОКОЛ EBAY ЕГО
;1-Комманда
;2-Cтартовый адрес
;3-Кол-во
;4-Параметр
 
 
;Команды:
;=== С0-Запись
;=== С1-Чтение
;=== С2-Временное изменение
;=== С4-неверный формат ответа
 
; C0:00:03:12:34:62 -  1234 
 
;===== Адреса модема
;=== 00H - ч/з - H-Byte 
 
REGISTR_RX:
 
param=$09
;Протокол модема 2 (Чтение)
tx(0)=$c1 ; команда; (C1+starting address+parameters ; C1+starting address+length+parameters 
tx(1)=$04 ;стартовый адрес
tx(2)=2 ;длина 
        ;tx(3)=param ;Параметры
byte_tm=3
 
If WriteSerialPortData(#com_port, @tx(0),byte_tm)
      Debug "Отправка "+Hex(tx(0))+":"+Hex(tx(1))+":"+Hex(tx(2))+":"+Hex(tx(3))+": "
      ;Delay(100) ;Делаем паузу
    EndIf
Return
 
PROG:
 
 
 
 
;Debug CPUName()
p=13
If OpenSerialPort(#com_port,"COM"+Str(p),9600,#PB_SerialPort_NoParity,8,1,#PB_SerialPort_NoHandshake,255,255)
  Gosub registr_rx:
  Debug "COM порт  "+Str(p)+", отправлен запрос."
  
    on_uart=1
  Else
    on_uart=0
  EndIf
  
    
If OpenWindow(#okno,x,y,w,h,"ТЕЛЕГРАФФ 868",#PB_Window_Tool|#PB_Window_SystemMenu| #PB_Window_ScreenCentered|#PB_Window_BorderLess)
  CreateImage(#polotno,x_zoom_chat,y_zoom_chat)
  ImageGadget(#sprite,4,4,x_zoom_chat,y_zoom_chat,ImageID(#polotno))
  SetWindowColor(#okno, RGB(0,0,0))
  StartDrawing(ImageOutput(#polotno))
  ;Box(5,5,x_zoom_chat,y_zoom_chat,(RGB(10,10,10)))
  AddWindowTimer(#okno,#timerchat,100)
   AddWindowTimer(#okno,#timer_eho,1000)
  trig_mem=0
  
  For o=1 To y_zoom_chat Step 8
    For p=1 To x_zoom_chat Step 8
      trig_mem+1
      Box(p+1,o+1,6,6,(RGB(mem_chat(trig_mem), 68, 67)))
    Next p
  Next o
  
    ;Debug trig_mem
  StopDrawing()
  SetGadgetState(#sprite,ImageID(#polotno))
  Global s.s
  Repeat 
    Event = WaitWindowEvent()
    If Event = #PB_Event_Timer And EventTimer() = #timerchat ;Таймер обработки чата
    EndIf
    
    ;-----  UART ЧТЕНИЕ ПРОТОКОЛА
   If priem<>2  ;Запрещаем изменение буфера приёма в массиве RX
     While AvailableSerialPortInput(#com_port) ;---- Получение данных с COM порта
        If ReadSerialPortData(#com_port, @rx(tm_rx), 1) ;Считывание 1 байта в буфер массива RX()
          Select rx(0)
            Case $C1 ;Команда Чтение байта
              priem=1
                ;Debug "Приём "+Hex(rx(tm_rx))
                If tm_rx>1 And rx(2)=tm_rx-2
                    ;Debug "OK"
                    PRIEM=2
                  EndIf
                  tm_rx+1    ;Прибавляем байт чтения
           EndSelect
        EndIf
      Wend
    EndIf
    
    
    ;----- Обработчик пакетов UART ============    
    
    
    Select priem 
      Case 2 ;Приём технических данных
        
        byte=rx(0) ;Команда/Ответ на команду С0 - запись , С1 - чтение, ...)
        Debug "Команда: "+Hex(byte)
                
        byte=rx(1) ;Адрес - стартовый адрес
        Debug "Адрес: "+Hex(byte)
        
        byte=rx(2) ;Длина пакета
        Debug "Длина: "+byte
        For p=1 To rx(2)
          reg(rx(1)+(p-1))=rx(2+p) ; данные по длине пакета ...rx(4) - rx(rx(2))
          Debug "REG "+Str(rx(1)+(p-1))+" " +Hex(reg(rx(1)+(p-1)))
        Next p
        
        priem=0
        tm_rx=0
        For p=0 To 255
          rx(p)=0
        Next p
      Case 3 ;Приём информации
        
        
    EndSelect
    
    
    
    
    
     Select Event
       Case #PB_Event_Gadget
         Select EventGadget()
           Case 1 
              CloseWindow(0)
              End  
          EndSelect
        Case #PB_Event_Timer
          Select EventTimer() ;Обработчик прерываний таймера окна
            Case #timer_eho ;Тригер системы
              SetSerialPortStatus(#com_port,#PB_SerialPort_DTR,trig)
              Debug "CTS"+Str(GetSerialPortStatus(#com_port,#PB_SerialPort_CTS))
              Debug "DSR"+Str(GetSerialPortStatus(#com_port,#PB_SerialPort_DSR ))
              Debug "RI"+Str(GetSerialPortStatus(#com_port,#PB_SerialPort_RI))
              Debug "DCD"+Str(GetSerialPortStatus(#com_port,#PB_SerialPort_DCD))
              trig+1
              If trig=2
                trig=0
              EndIf
           EndSelect   
      EndSelect
   Until Event = #PB_Event_CloseWindow
EndIf 
CloseSerialPort(#com_port)
End
[/BASIC]