Форум РадиоКот

gotter писал(а):у того очень мало свободного времени

Мурик писал(а):Все равно нужно знать основы программирования.
Хотя если вам нужно всего лишь однотипные программы с несколькими кнопками и отправкой данных в COM порт, то задача упрощается.
Вот пример на PureBasic с отправкой байта со значением 2 когда нажимают на кнопку.

Код: Выделить всё

; Создаём окно.
OpenWindow(1,0,0,200,90,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(2,64,30,80,25,"Кнопка")

Repeat ; Начало главного цикла программы.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget()    ; Узнаём идентификатор гаджета в котором произошло событие.
  
  If Event=#PB_Event_Gadget And Gadget=2 ; Условие будет выполнено при щелчке по кнопке.
    ; Отерываем порт COM1, со скоростью перебачи 9600 бод.
    If OpenSerialPort(0, "COM1", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 255, 255)
      OutByte.b = 2    ; Передаваемый байт.
      WriteSerialPortData(0, @OutByte, 1)  ; Отправка байта в COM порт.
      CloseSerialPort(0)                   ; Закрываем COM порт.
    Else ; Произошла ошибка при открытии порта.
      MessageRequester("", "Ошибка открытия порта")
    EndIf
  EndIf 
  
Until Event = #PB_Event_CloseWindow ; Прерываем цикл при закрытии окна

gotter писал(а):Жаль много букв писать надо.

; Отерываем порт COM1, со скоростью перебачи 9600 бод.
    If OpenSerialPort(0, "COM1", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 255, 255)
      OutByte.b = 2    ; Передаваемый байт.
      WriteSerialPortData(0, @OutByte, 1)  ; Отправка байта в COM порт.
      CloseSerialPort(0)                   ; Закрываем COM порт.
    Else ; Произошла ошибка при открытии порта.
      MessageRequester("", "Ошибка открытия порта")
    EndIf

gotter писал(а):Тут на форуме изеелектроникс нашел такую штуку

gotter писал(а):но она после установки аварийно завершилась. После установки обновления от микрософта заработало.

Мастер Ломастер писал(а):Мурик, порт правильнее открывать при старте проги, и закрывать при завершении

Мурик писал(а):В примере я показал что нужно закрывать порт когда он не нужен программе.

Мурик писал(а):В реальной программе, нужно закрывать порт при выборе другого порта при условии что текущий больше не нужен или при закрытии программы.
Пример с открытием порта при старте программы и закрытием при ее завершении.

Код: Выделить всё

; Открываем порт COM1, со скоростью передачи 9600 бод.
If OpenSerialPort(0,"COM1",9600,#PB_SerialPort_NoParity,8,1,#PB_SerialPort_NoHandshake,255,255)=0
  ; Произошла ошибка при открытии порта.
  MessageRequester("", "Ошибка открытия порта")
  End ; Так как эта программа без открытого порта работать не может, то завершаем её работу.
EndIf

; Создаём окно.
OpenWindow(1,0,0,200,90,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(2,64,30,80,25,"Кнопка")

Repeat ; Начало главного цикла программы.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget()    ; Узнаём идентификатор гаджета в котором произошло событие.
  
  If Event=#PB_Event_Gadget And Gadget=2 ; Условие будет выполнено при щелчке по кнопке.
    OutByte.b = 2                        ; Передаваемый байт.
    WriteSerialPortData(0, @OutByte, 1)  ; Отправка одного байта в COM порт.
  EndIf 
  
Until Event = #PB_Event_CloseWindow ; Прерываем цикл при закрытии окна
CloseSerialPort(0)                   ; Закрываем COM порт.

Nemridis писал(а):Необходимость использовать рантайм с лихвой перекрывается удобством и простотой создания