Опрос приборов с записью в БД - VB
Формулировка задачи:
На данный момент имеется два прибора, периодически опрашиваемых по протоколу ModbusRtu. Значение выводятся в два текстовых поля Text1 и Text2. Считывание данных осуществляется в буфер данных, в котором измеренные прибором значения, заносятся в 4 и 5 байты буфера. В интернете нашёл строку, перевода в 10 значение:
Данное вычисление работает только с положительными значениями. В случае отрицательного, возникает ошибка.
1). Каким образом необходимо изменить строку, чтобы корректно переводить в десятичную систему и положительные и отрицательные значения?
В литературе и интернет-статьях удобного и ясного описания не нашёл. На странице:http://pandia.ru/text/79/290/15706.php увидел очень простой пример для работы с БД. Создал при помощи Ms Access пустую базу c:\Base.mdb, имющую поля: "Номер", "дата", "Время", "Температура" и "Уровень". Установил из "панели инструментов" элемент "Data", присвоив его свойству DatabaseName имя файла базы данных, свойству DataField - "Номер" и аналогичным свойствам полей Text1-"Температура" и Text2 - "Уровень". Проблема в том, что все примеры, приводимые в литературе, подразумевают ручной ввод. В моём случае, поля заполняются программно. Вторая проблема: Операторы:Очищают содержимое полей
2). Каким образом получить системные дату и время, и добавив к ним содержимое необнуляемых полей, записать в базу данных?
Решение задачи: «Опрос приборов с записью в БД»
textual
Листинг программы
with Data1.Recordset .AddNew 'Добавить новую запись .fields(0) = Datb .fields(1) = Timb .fields(2) = Dpribor1 .fields(3) = Dpribor2 .Update ' Сохранить изменения end with
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д