Страница 3 из 22 ПерваяПервая 1234513 ... ПоследняяПоследняя
Показано с 21 по 30 из 218

Тема: примеры для программирования

  1. #21

    По умолчанию

    Код:
    unsigned short owenCRC16(unsigned char* packet, size_t length)
    {
    	size_t i, j;
    	unsigned short crc;
    
    	assert(packet);
    
    	crc = 0;
    	for (i = 0; i < length; ++i)
    	{
    		unsigned char b = packet[i];
    		for (j = 0; j < 8; ++j, b <<= 1)
    		{
    			if ((b ^ (crc >> 8)) & 0x80)
    			{
    				crc <<= 1;
    				crc ^= 0x8F57;
    			}
    			else
    				crc <<= 1;
    		}
    	}
    	return crc;
    }

    http://www.owen.ru/forum/showthread....F1%F3%EC%EC%E0

  2. #22

    По умолчанию

    Здравствуйте.
    Немогу найти пример работы с ПЛК (использую 154) посредством библиотеки owen_io.
    Вопрос в том как с помощью Бейсика обратиться к переменным, с запросом чтение/запись, определенных в ПЛК в OWEN(slave).

  3. #23

    По умолчанию Не могу найти письмо

    Цитата Сообщение от Дмитрий Егоренков Посмотреть сообщение
    Библиотеки для Linux нет, но есть примеры работы с протоколом на C. Выслал примеры на ваш адрес.
    Получал от вас письмо с примером работы под С. Недавно пришлось переставить систему... Сейчас не могу найти ваше письмо. Буду привесьма благодарен, если вышлите повторно.

  4. #24
    Пользователь
    Регистрация
    10.12.2007
    Адрес
    Украина, г. Житомир
    Сообщений
    9

    По умолчанию

    Подскажите как подситать контрольную суму на VB.NET, заранее благодарен...

  5. #25

    По умолчанию

    как-то так:

    Код:
    Function owenCRC16(ByVal buffer As Byte()) As UInt16
    
            Dim crc As UInt16
    
            Dim i As Integer
            For i = 0 To buffer.Length - 1
    
                Dim b As Byte = buffer(i)
    
                Dim j As Integer
                For j = 1 To 8
                    If (0 <> ((b Xor (crc >> 8)) And &H80)) Then
                        crc <<= 1
                        crc = crc Xor &H8F57
                    Else
                        crc <<= 1
                    End If
    
                    b <<= 1
                Next
            Next
    
            owenCRC16 = crc
    
        End Function

  6. #26
    незарегистрированный
    Гость

    По умолчанию Vb2005

    Цитата Сообщение от Дмитрий Егоренков Посмотреть сообщение
    для работы с нашими приборами мы рекомендуем использовать нашу библиотеку - http://www.owen.ru/device/64305906. в ее составе есть примеры.

    программирование конкретного приборами заключается в выборе правильной функции для чтения каждого параметра. выбрать функцию поможет файл tags.txt.
    Здравствуйте!
    Примеры из указанного архива написаны на старой версии языков. Мне бы очень хотелось получить примеры для МВУ8? подключенного через АС4 на VB2005, если это возможно. Точнее Библиотеку и краткое описание функций. Заранее благодарю!
    vick23@mail.ru

  7. #27

    По умолчанию

    в приложении простенький пример на VB2005. библиотека и описание есть на сайте. но надо учитывать, что описание сделано для VB6, и где там тип Long, в VB2005 будет Integer.
    Вложения Вложения

  8. #28

    По умолчанию Поддержка

    Здравствуйте, друзья!

    Да! Не думал что моя тема так долго проживёт!
    Создавал то давно!

    Народу очень нужна конечно тех поддержка!


    Спасибо! За оказываемую помощь.

  9. #29
    Пользователь
    Регистрация
    13.08.2008
    Сообщений
    11

    Thumbs up Спасибо!

    Большое спасибо! Очень выручили! Пример очень помог!

  10. #30

    По умолчанию

    Добрый день!

    Сбросьте мне, пожалуйста, примеры программирования приборов ТРМ201 и МДВВ для delphi

    очень надо!!!!
    Моя почта: maks1515@gmail.com

Страница 3 из 22 ПерваяПервая 1234513 ... ПоследняяПоследняя

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •