-
незарегистрированный
Гость
КАК записать уставку в ТРМ 138
Вышлите пожалуйста коды на VB для записи из программы уставки (C.SP) на ТРМ 138.
Как её считать и записать в прибор.
Спасибо.
Алексей
-
Как её считать и записать в прибор.
Посылайте код, попробуем разобраться, где у Вас ошибка. Если Вы программируете для ПК, то лучше использовать внешнюю библиотеку WIN DLL. Её можно запросить по адресу pavel@owen.ru, сообщив название фирмы.
-
незарегистрированный
Гость
Мой пример
Использую Вашу OWEN_IO.DLL
Определение функций:
'Запись значения с плавающей точкой
Private Declare Function WriteStoredDotSng Lib "owen_io" _
(ByVal adr As Long, _
ByVal adr_type As Long, _
ByVal cmd As String, _
ByVal value As Single, _
ByVal Index As Integer) _
As Long
Вот такая комманда ничего не даёт:
Dim res As Long
Dim value As Single
res = WriteStoredDotSng(8, 0, "C.SP", 100, 0)
res = ReadStoredDotSng(8, 0, "C.SP", value, 0)
Print value
Пробовал и так :
Dim res As Long
Dim value As Single
res = WriteStoredDotS(8, 0, "C.SP", 100, 0)
res = ReadStoredDotS(8, 0, "C.SP", value, 0)
Print value
-----ничего!
Результат =0!
Подскажите, пожалуйста, что не так!
-
незарегистрированный
Гость
Наша фирма
ООО "Астрахим"
г. Астрахань
-
Фирму сообщать не надо. Для дачи консультации её знать не обязательно.
Теперь по первому посту.
1. Какой прибор имеется в виду?
2. Мне не известно, какая у Вас версия библиотеки, поэтому лучше имя параметра писать с пробелом, т.к. точка не является значащей буквой: "C.SP ".
-
незарегистрированный
Гость
но комманда посылаемая мной в прибор верна?
уставка запишется?
-
незарегистрированный
уставка запишется?
не факт. для начала попробуйте записать конфигуратором трм138. если мне не изменяет память, с данным параметром были проблемы в прошивке P036. прибор старый, первый с сетевым интерфейсом Rs485.
-
незарегистрированный
Гость
вновь!
Команда:
res4 = WriteStoredDotS(24, 0, "C.SP ", 170, -1)
записывает уставку! СКАДА Ваша её считывает! И показывает что уставка изменена!
Но моя программа после команды:
Dim res1 As Long
Dim value1 As Single
res1 = ReadStoredDotS(24, 0, "C.SP ", value1, -1)
Print res1 & "=read"
Print value1
Выдаёт ноль!!!
Затем Вашей скадой изменяю уставку на адресе 24. И вновь посылаю своей программой команду чтения уставки-- всё нормально показывает!
В чём дело?
Ваши права
- Вы не можете создавать новые темы
- Вы не можете отвечать в темах
- Вы не можете прикреплять вложения
- Вы не можете редактировать свои сообщения
-
Правила форума