[Petre]

Я не понимаю, как массив можно преобразовывать в число.
Уточните, какие данные содержит массив. В конце концов, преобразуйте его в массив 1с (.Выгрузить()), а потом разбирайте элементы последнего.

[alex040269]

. Теперь бы преобразовать полученный COMSafeArray в десятичные числа =)

GetType и GetValue, что возвращает?

[kosalex]

Сори, вроде додумался, возвращается массив 64 00 00 00 00 00 00 00 48 это строка, мне нужно выбирать из этой строки числа это и будет вес, ничего преобразовывать не нужно. Сори!

[kosalex]

Добрый день. Помогите разобраться, есть ж/д весовая подключенная через COM порт. Пишу в 1С вот так,

Процедура ИнициализацияСОМПорта()
    ComPort = Новый COMОбъект("MsCommLib.MsComm");    
    Попытка
        ComPort.CommPort        = 1;
        ComPort.Settings        = "9600,N,8,1";
        ComPort.Handshaking     = 0;
        ComPort.InBufferCount   = 0;
        ComPort.InBufferSize    = 70;
        ComPort.InputLen        = 0;
        ComPort.InputMode       = 1;
        ComPort.NullDiscard     = 0;
        ComPort.PortOpen = Истина;
        ЭлементыФормы.НадписьСвязь.Заголовок = "Связь есть..."
    Исключение
        Сообщить("Не возможно открыть порт.",СтатусСообщения.ОченьВажное);
    КонецПопытки;
КонецПроцедуры

Процедура ЧтениеСОМПорта() Экспорт
    ДанныеСПорта = "";
    Если ComPort.PortOpen Тогда
        ComPort.Output = "1";
        ДанныеСПорта = ComPort.Input;
        ВывестиВес(ДанныеСПорта);
    Иначе
        Сообщить("Порт не открывается",СтатусСообщения.ОченьВажное);
        ЭлементыФормы.НадписьСвязь.Заголовок = "Связи нет..."
    КонецЕсли;
    
КонецПроцедуры

Процедура ВывестиВес(ДанныеСПорта)
    Массив = ДанныеСПорта.Выгрузить();
    ИндексМин = ДанныеСПорта.GetLowerBound(0);
    ИндексМакс = ДанныеСПорта.GetUpperBound(0);
    СтрокаВес = "";
    Для Индекс = ИндексМин + 1 По ИндексМакс - 1 Цикл
        СтрокаВес = СтрокаВес + Строка(Массив.Получить(Индекс));
    КонецЦикла;
    
    ТекущийВес = СтрокаВес;
    
    ЭлементыФормы.ВесБрутто.Заголовок = ТекущийВес;
    ЭлементыФормы.ВесНетто.Заголовок = ТекущийВес;
    ЭлементыФормы.ВесТара.Заголовок = ТекущийВес;
    
КонецПроцедуры

В "ДанныеСПорта" попадает ComSafeArray 36484848484848...64, может я как то не так получаю вес, что делать с этим массивом? Может как то преобразовать нужно?
Ответ от порта поступает не всегда, и почему то 4848484848....
Настройки порта кто какие выставлял?

Очень нужна ПОМОЩЬ!

[Acid]

документация к весам есть? если нет, обратитесь к производителю. В ней многое можно почерпнуть.

[kosalex]

документация к весам есть? если нет, обратитесь к производителю. В ней многое можно почерпнуть.

Документации нет. К производителю обращался...с связи с обстановкой в г. Славянск производитель на связь не выходит...

Вроде как получилось получить данные с весов. Проблема была в настройках порта.Оставил вот это:

Процедура ИнициализацияСОМПорта(Отказ)
    ComPort = Новый COMОбъект("MsCommLib.MsComm");    
    Попытка
        ComPort.CommPort        = 1;
        ComPort.Settings        = "9600,N,8,1";
        ComPort.PortOpen = Истина;
        ЭлементыФормы.НадписьСвязь.Заголовок = "Связь есть..."
    Исключение
        Сообщить("Не возможно открыть порт.",СтатусСообщения.ОченьВажное);
        Отказ = Истина;
    КонецПопытки;
    ComPort.PortOpen = Ложь;
КонецПроцедуры

[andr_andrey]

Писал статью по этому поводу
[необходимо зарегистрироваться для просмотра ссылки]

[Vofka]

Писал статью по этому поводу

Я б нажал палец, если бы у нас опубликовали (например, тут)

[andr_andrey]

Я б нажал палец, если бы у нас опубликовали (например, тут)

Не проблема, но

Причина:

У вас нет прав открытия тем в этом форуме

[kosalex]

Писал статью по этому поводу
[необходимо зарегистрироваться для просмотра ссылки]

Что то брал с Вашего примера,точно уже не помню. Если оставить настройки порта как написано у меня, то ничего разберать,приводить не приходиться. Посылаем "1", получаем строку - ответ от весов "$000100000000@ = 100 кг.

Что скажете?

[andr_andrey]

Что то брал с Вашего примера,точно уже не помню. Если оставить настройки порта как написано у меня, то ничего разберать,приводить не приходиться. Посылаем "1", получаем строку - ответ от весов "$000100000000@ = 100 кг.

Что скажете?

Скажу, что из вашего описания "весы которые подключаются к COM" понятия не имею какой там протокол.
Что такое 100 кг, это вес установленный на весах?
Судя по текущему сообщению, у вас стоит протокол вида "запрос-ответ", я же использовал (переводил весы в) протокол "без запроса" (весы всё время сообщают установленный на них вес).
Не зависимо от выбранного протокола передачи, весы передают посылку определённого формата, который вам придётся разбирать, либо в символьном, либо в двоичном виде.

[kosalex]

Что такое 100 кг, это вес установленный на весах?

да, и приходит ответ с весов в виде $000100000000@


andr_andrey, я же не говорю что Ваша статья бред! Полезная статья. У меня была запарка с настройкой порта. Сначало стояло, как вы говорите "без запроса", потом поставил "запрос-ответ" и не пришлось преобразовывать, с полученной строки берем нужное количество знаков - это и будет вес, имхо =)

[andr_andrey]

да, и приходит ответ с весов в виде $000100000000@

Ну тогда опытным путём узнаём в каких разрядах отображается вес
поставили 10 кг - посмотрели ответ от весов
поставили 15 кг - посмотрели.
А дальше - обычная десятичная арифметика (берём цифру разряда и умножаем на вес разряда).

П.С. Ну не верю я, что автовесы (основное средство) не имеет марку, а по марке можно поискать протокол.

[kosalex]

Ну тогда опытным путём узнаём в каких разрядах отображается вес
поставили 10 кг - посмотрели ответ от весов
поставили 15 кг - посмотрели.
А дальше - обычная десятичная арифметика (берём цифру разряда и умножаем на вес разряда).

П.С. Ну не верю я, что автовесы (основное средство) не имеет марку, а по марке можно поискать протокол.

Фирма производитель есть, люди которые их ставили, говорят, протокол простой, шли единицу - получишь вес =)

[andr_andrey]

да, и приходит ответ с весов в виде $000100000000@


andr_andrey, я же не говорю что Ваша статья бред! Полезная статья. У меня была запарка с настройкой порта. Сначало стояло, как вы говорите "без запроса", потом поставил "запрос-ответ" и не пришлось преобразовывать, с полученной строки берем нужное количество знаков - это и будет вес, имхо =)

То есть всё разрешилось? Тогда поздравляю.
Только имейте ввиду, что тупо получить вес и принять его - мало, надо быть уверенным, что вес стабилизирован, о чём весы дополнительно извещают в посылке ("вес стабилен").

[kosalex]

andr_andrey, А как получить эту посылку, расскажите по подробней,если не в тягость

[andr_andrey]

andr_andrey, А как получить эту посылку, расскажите по подробней,если не в тягость

Для этого надо знать формат посылки, который описывается в протоколе обмена.
Например, для весов ВН-60-1Д в посылке есть байт признаков:

s1s0 - положение точки на индикаторе
s2 - бит стабилизации веса
s3 - индикация нуля
s4 - индикация тары
s5 - знак весов (1 - отрицательная)
s6 - номер знакогенератора

Получается функция:

// Функция определяющая стабильность веса из байта признаков посылки
Функция ЭтотВесСтабилен(МассивПосылки)
    
    Возврат ((МассивПосылки[5] % 8) / 4) >= 1;
    
КонецФункции // ЭтотВесСтабилен()

[Pavlik1c]

Имеются весы ВН-150-А. В 1С 7.7 вес автоматически передается. Сейчас интегрируем с 1С8 УПП. Как вывести вес на форме обработки? Какой алгоритм действий? Помогите!!!

[Vofka]

Pavlik1c, давайте вы лучше создадите отдельную новую тема. Эта тема закрывается.