Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.09.2011, 12:39   #21
SonicBob
Форумчанин
 
Регистрация: 30.05.2011
Сообщений: 133
По умолчанию

перетыкать в другой порт смысла 0 тк есть программа(причем единственная остальные ничего не видят с тахометра) которая читает данные с порта (как мы тот лог получили все таки)
потом все же если есть работающая программа то проблемы явно не с пробором и не с портом, а скорее всего с тем как мы открываем порт и читаем
прикрепил файл с кодом настроек порта мб у нас там есть большая ошибка но шанс маленький тк все же весы читаются
Вложения
Тип файла: rar Unit2.rar (1.9 Кб, 6 просмотров)
SonicBob вне форума Ответить с цитированием
Старый 27.09.2011, 12:45   #22
IIUH
Пользователь
 
Регистрация: 02.08.2011
Сообщений: 35
По умолчанию

осцидографом не тыкались. смысла в этом не видим так как
Цитата:
есть программа(причем единственная остальные ничего не видят с тахометра) которая читает данные с порта
очевидно что тахометр РАБОЧИЙ и данные отправляет потому, что программа (та самая вот та) считывает эти данные верно.
IIUH вне форума Ответить с цитированием
Старый 27.09.2011, 13:10   #23
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

капец, это не хочу, это не буду ... я вам вам говорю - тыкнитесь осциллографом, дабы подсмотреть- есть ли какой пакет вначале, отличный от пакетов с тахометра, если программно не удается подсмотреть. При таком раскладе и упертости вам с железом работать нельзя.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 28.09.2011, 02:33   #24
SonicBob
Форумчанин
 
Регистрация: 30.05.2011
Сообщений: 133
По умолчанию

Цитата:
Сообщение от raxp Посмотреть сообщение
капец, это не хочу, это не буду ... я вам вам говорю - тыкнитесь осциллографом, дабы подсмотреть- есть ли какой пакет вначале, отличный от пакетов с тахометра, если программно не удается подсмотреть. При таком раскладе и упертости вам с железом работать нельзя.
мы просто подумали про осциллограф что это надо для проверки вообще наличия сигнал,а не для проверки отличия начала его
будем там и тыкнем посмотрим
SonicBob вне форума Ответить с цитированием
Старый 28.09.2011, 09:46   #25
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

не просто тыкнуть, а поставить предварительно в ждущий режим ...еще лучше, если осцилл - запоминающий, а еще лучше аппаратный вариант сниффера, указанный выше.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 04.10.2011, 05:59   #26
IIUH
Пользователь
 
Регистрация: 02.08.2011
Сообщений: 35
По умолчанию

вот осцилограммы с несущих контактов. 1. когда на тахометре нули (11111111 и 9999999999) 2. когда на тахометре около 180-200 оборотов (21111111 и 2999999999).

осцилограф сохраняет в формате .ref чем его открыть я не знаю (гугл не помог) так бы глянул что конкретно сохраняет осцилограф и возможно сделал бы покачественей осцилограмы.
Вложения
Тип файла: rar 3_контакт.rar (518.5 Кб, 6 просмотров)
Тип файла: rar 5_контакт.rar (516.1 Кб, 5 просмотров)
IIUH вне форума Ответить с цитированием
Старый 24.03.2013, 18:32   #27
Demagog
Пользователь
 
Регистрация: 11.02.2009
Сообщений: 18
Сообщение

Наверное в эту тему мой вопрос будет наиболее подходящим) работаю с прибором ПЧС-1 фирмы "Контакт" по интерфейсу RS-485. Пока на стадии планирования и подготовки. Мое будущее приложение будет отправлять запросы по следующему шаблону: Адрес, код команды, размер блока данных n+1, данные 1, данные 2...Данные n. КСмл, КСст.

Остановился на подсчете контрольной суммы CRC-16. В описании прибора есть пример запроса: 255 164 4 188 0 2 36 216. Последние два байта - контрольная сумма. Я процедурку написал, но для этого примера она мне считает контрольную сумму не верно. Всю голову сломал - добрые люди, помогите исправить неработающую процедуру)
Код:
procedure CRC16 (data: array of byte; size: byte; var  crc1, crc2: byte);
var
    crc: word;
    n,b: byte;
    ok: boolean;
begin
    CRC:=$ffff;
    n:=1;
    b:=0;
    REPEAT
      CRC:=data[n] xor (CRC and $ff);
      b:=0;
          REPEAT
          if (CRC and 1)=1 then ok:=true else ok:=false;  
          CRC:=CRC shr 1; 
          if ok then CRC:= CRC XOR $A001;  
          b:=b+1;
          UNTIL b>7;
      n:=n+1;
    UNTIL n>size;
    ShowMessage(inttostr(crc));
    crc1:=crc and $FF; 
    crc2:=(crc shr 8) and $FF; 
end;

procedure TForm1.Button2Click(Sender: TObject); 
var
    data: array [1..8] of byte;
    i: integer;
begin
    edit1.Clear;
    data [1]:=255;
    data [2]:=164;
    data [3]:=4;
    data [4]:=188;
    data [5]:=0;
    data [6]:=2;
    CRC16(data,6,data[7],data[8]);
    for i:=1 to 8 do
        edit1.Text:=edit1.Text+inttostr(data[i])+'  ';
end;
В примере получается КСмл=36, КСст=216, а у меня 0 и 51.... правило расчета КС прилагаю в джипеге
Изображения
Тип файла: jpg ПЧС1 кс.jpg (187.1 Кб, 144 просмотров)

Последний раз редактировалось Demagog; 24.03.2013 в 18:34.
Demagog вне форума Ответить с цитированием
Старый 24.03.2013, 18:43   #28
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Цитата:
Наверное в эту тему мой вопрос будет наиболее подходящим)
нет, не будет. 1 тема - 1 вопрос, создайте свою тему.

Цитата:
вот осцилограммы с несущих контактов. 1. когда на тахометре нули (11111111 и 9999999999) 2. когда на тахометре около 180-200 оборотов (21111111 и 2999999999).

осцилограф сохраняет в формате .ref
любопытно, почему в новых не было этого ответа. Хоть столько времени прошло и ТС вряд-ли оно уже нужно. Но осциллограммы нужно смотреть в реальном времени, а не выкладывать файл закрытого формата. По крайней мере, можно было модель осциллогафа указать, дабы посмотреть у производителя просмотрщик архивов. Это на будущее.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Протокол СОМ порта 100GRamm Компьютерное железо 18 22.03.2011 01:11
Из СОМ-порта в Excel Visp Microsoft Office Excel 1 09.11.2010 23:18
с сом порта бинарном виде alenkov Общие вопросы Delphi 2 01.10.2010 18:35
Не удается настроить прерывание от СОМ-порта Diusha Паскаль, Turbo Pascal, PascalABC.NET 0 30.05.2009 12:10
считывание из СОМ(или USB) порта voron29 Общие вопросы Delphi 1 29.06.2008 13:09