06:44
1,0×
00:00/06:44
527,4 тыс смотрели · 4 года назад
133 читали · 2 года назад
Протокол обмена весового терминала Мидл МИ ВДА/7Я и приложения на Delphi 7 (Pascal).
Добрый день! Думаю, что помогу тем, кто решит создать проект с использованием оборудования данного производителя. Процедуру настройки терминала для работы в режиме команд не буду здесь описывать. Для отправки команды в терминал: var b:array[0..1] of Byte; begin ComPort1.Open; b[0]:= $0A; ComPort1.Write(b[0],1); Sleep(150); Для принятия данных с терминала: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var e,e1,e2,e3,e4,e5,e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19 :string; d: array[0...
164 читали · 1 год назад
Указатели Pointer в CoDeSyS
В программе часто приходится сталкиваться с указателями. Например это требуется для перевода двух переменных WORD в переменную FLOAT (число с плавающей запятой). Такая задача попадается для передачи данных одного устройства в другое. Понятие Указателя Указатели для удобства восприятия чаще всего используют в языке ST. Указатель позволяет ссылаться на область памяти, где хранится любая переменная любого типа или даже ФБ. При объявлении указателя указывается только тип переменной, на которую он, предположительно, будет ссылаться. VAR pt : POINTER TO INT; i: INT; END_VAR pt := ADR(i); Синтаксис...