и порой я бываю посланным и работа затягивается на неопределенный срок. 
Может кто-нибудь знает программку, которой можно сказать сколько кнопочек сделать, а она делает окошко, а потом, когда нажимаешь на кнопки, она отсылает номер кнопки в COM-порт компа? Меня пытались обучить дельфям, но беспрерпективно. Стар я уже для этого. 
Код: Выделить всё
; Создаём окно.
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 писал(а):у того очень мало свободного времени
Мурик писал(а):Все равно нужно знать основы программирования.
Хотя если вам нужно всего лишь однотипные программы с несколькими кнопками и отправкой данных в 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 порт.Мурик писал(а):В реальной программе, нужно закрывать порт при выборе другого порта при условии что текущий больше не нужен или при закрытии программы.
Пример с открытием порта при старте программы и закрытием при ее завершении.Код: Выделить всё
; Открываем порт 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 писал(а):Необходимость использовать рантайм с лихвой перекрывается удобством и простотой создания
