#COM_Port = 2 ;Идентификатор COM порта. 

;Процедура открытия порта. выбранного из списка Procedure Select_ComPort()  Protected Port.s, Text.s, Color  If IsSerialPort(#COM_Port) ;С таким ИД уже открыт порт.  CloseSerialPort(#COM_Port)  ;Закрываем его. EndIf  Port = GetGadgetText(3) ;Тут открываем порт с необходимыми настройками If OpenSerialPort(#COM_Port,Port,19200,#PB_SerialPort_NoParity,8,1,#PB_SerialPort_NoHandshake,255,255) Text="Порт "+Port+" открыт" : Color=RGB(46, 137, 36) Else  Text="Не удалось открыть порт "+Port : Color=RGB(255,0,0) EndIf  SetGadgetText(5, Text)  SetGadgetColor(5, #PB_Gadget_FrontColor, Color)  EndProcedure 

;Процедура приема данных
Procedure InData()   
 Protected InBytes 
 
 If IsSerialPort(#COM_Port)  ;С таким ИД порт открыт. 
 InBytes = AvailableSerialPortInput(#COM_Port) 
 If InBytes>0  ;Получены данные. 
 Protected Dim InBuffer.a(InBytes), RealInBytes 
 
 RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes) 
 If RealInBytes>0 
 AddGadgetItem(4, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii)) 
 EndIf 
 EndIf 
 EndIf 
EndProcedure 

;Процедура передачи данных
Procedure ComOut(Send_data.s)  
 
 If IsSerialPort(#COM_Port) ;если порт открыт 
 ComWrite(SerialPortID(#COM_Port),@send_data,1) ;Шлем данные из переменной Send_data 
 Else 
 ;Выводим сообщение об ошибке. 
 MessageRequester("Ошибка","Текущий порт не доступен!",16) 
 EndIf 
 
EndProcedure 

If OpenWindow(0, 300, 100, 320, 370, "Тестовая программа") ;Создаем окно программы
 ButtonGadget(1, 90, 310, 100, 35, "Зажечь", #PB_Button_Default) ;Кнопка "Зажечь"
 TextGadget(2,10,310,25,15,"Порт") ;Выводим в окно надпись "Порт". 
 ComboBoxGadget(3, 10, 325, 70, 21, #PB_ComboBox_Editable) ;гаджет выпадающего списка
 For i=1 To 99 ;создаем список от 1 до 99 с возможными портами для открытия
 AddGadgetItem(3,-1,"COM"+Str(i)) 
 Next i 
 
 SetGadgetState(3,0) ;Делаем активным нулевой пункт выпадающего списка. 
 EditorGadget(4, 8, 10, 305, 280,#PB_String_ReadOnly) 
 TextGadget(5,10,350,200,15,"")  ;Здесь будет отображаться результат открытия порта. 
 ButtonGadget(6, 200, 310, 100, 35, "Погасить", #PB_Button_Default) ;Кнопка "Погасить"
 Select_ComPort() 
 
 Repeat 
 
 Event = WaitWindowEvent() 
 
 InData()  ;принимаем данные из UART все время пока работает программа
  If Event=#PB_Event_Gadget  ;если произошло срабатывание гаджета 
 Gadget = EventGadget ( )  ;узнаем какой гаджет был активирован 
 If Gadget=1  ;если нажата кнопка "Зажечь" 
 ComOut("A")  ;Переходим на процедуру передачи байта. 
 InData() 
 ElseIf Gadget=3  ;если был активирован выпадающий список
 ComboBox.s=GetGadgetText(3)  ;Считываем текст из текущего пункта выпадающего списка. 
 ; Переходим на процедуру, закрывающую текущий порт и открывающую выбранный. 
 Select_ComPort() 
 
 ElseIf Gadget=6  ;нажата кнопка "Погасить" 
 ComOut("B")  ;Переходим на процедуру передачи байта. 
 InData() 
 
 EndIf 
 EndIf 
 
 Until Event=#PB_Event_CloseWindow 
 
EndIf 
End