ActiveX_MIDL

Внешняя компонента (ActiveX) подключаемая к вашей среде разработки программ (Например 1С-Предприятие) для работы с весовыми терминалами МИДЛ

Вы можете скачать следующие файлы:

    Компонента ActivexMIDL.ocx   Скачать Объем:1506 kb 19.04.2012

    Описание компонентыActivexMIDL в формате .doc   Скачать Объем: 19 kb 19.04.2012
    Примеры подключения ActivexMIDL к 1С,HTML,Ecxel,Word,VB Скачать Объем: 86 kb 19.04.2012

§1 Краткое описание

    Внешняя компонента ActivexMIDL.ocx предназначена для получения данных о работе весов МИДЛ из вашей программы по технологии COM (ActiveX). Среда разработки вашей программы должна поддерживать технологию ActiveX.
ActivexMIDL позволяет вам получать показания весов и сервисных сигналов в реальном времени. Примеры подключений компоненты вы можете посмотреть в прилагаемом файле. Компонента автоматически определяет тип протокола МИДЛ-1, МИДЛ-2.

§2 Описание внешней компоненты ActivexMIDL

    Данная компонента может подключатся к вашим программам, при условии что ваша среда разработки подерживает технологию СОМ (ActiveX). После подключения компоненты к вашему проекту вы получаете доступ к объекту ActiveX_MIDL.ActivexMIDL. Свойства, события этого объекта вы можете использовать в своём программном коде.
Использование в 1С-Предприятии:
Имя объекта в 1Cv.7.7: БазовыйОбъект = СоздатьОбъект("ActiveX_MIDL.ActivexMIDL");
Внешнии события в версиях 1С7 и ниже- недоступны.
Далее приведены описание свойств и событий объекта ActiveX_MIDL.ActivexMIDL и примеры их использования в VB. Примеры использования данной компоненты в 1С, HTML, MS Office, VB вы можете посмотреть в прилагаемом файле.

Свойства объекта ActivexMIDL1:
• ComNumber - формат: текстовый(String)
  Определяет номер СОМ-порта (1,2,3,4, и т.д.) в текстовом формате без пробелов
  Пример:
  ActivexMIDL1.ComNumber = "2" - задает СОМ2
  Text1.Text=ActivexMIDL1.ComNumber - вывод текущего номера СОМ- порта
  
  
• ComSetting - формат: текстовый(String)
  Задает параметры СОМ- порта : скорость, проверка паритета, количество бит в символе, длина стопового бита, в текстовом формате через запятую без пробелов
  Пример:
  ActivexMIDL1.ComSetting = "9600,n,8,1" - задаст новые параметры СОМ- порта
  Text1.Text= ActivexMIDL1.ComSetting - выведет текущее значение настройки СОМ- порта
  Возможные установки:
  Скорость : 110, 300, 1200, 2400, 4800, 9600, 14400, 19200, 28800, 38400, 56000, 128000, 256000
  Режимы контрольного бита(Parity): n,e,o,m,s
  n-без проверки,
  e-с проверкой на четность,
  o-с проверкой на нечетность,
  m-mark,
  s-space
  Количество бит данных в переданном символе: 4,5,6,7,8
  Длина стопового бита: 1, 1.5, 2
  
  
• MinFixVes - формат: целое число (integer)
  Определяет минимальный вес, при котором весы считаются разгруженными. Используется для автоматической фиксации веса при постановке и снятии груза с весов.
  Единица измерения:
  гр- для весов выводящих вес в кг
  кг- для весов выводящих вес в т
  мгр- для весов выводящих вес в гр
  Пример:
  ActivexMIDL1.MinFixVes=100 - при весе груза менее 100 гр весы будут считаться разгруженными.
  Text1.Text=ActivexMIDL1.MinFixVes - выводит текущее значение
  
• VesTerminal - формат: текстовый(String)
  Показывает вес с дисплея терминала в данный момент
  Пример:
  Text1.Text= ActivexMIDL1.VesTerminal - выводит текущее значение веса
  
• TipTerminal - формат: текстовый(String)
  Показывает тип терминала который подключен к весам
  Пример:
  Text1.Text= ActivexMIDL1.VesTerminal - выводит тип терминала
  
• StatusTerminal - формат: текстовый(String)
  Показывает статус весов )
  Пример:
  Text1.Text= ActivexMIDL1.StatusTerminal - выводит статус весов
  
• UnitWeight - формат: текстовый(String)
  Показывает единицу измерения веса
  Пример:
  Text1.Text= ActivexMIDL1.UnitWeight - выводит единицу измерения веса
  
• DecPoint - формат: целое(Integer)
  Положение десятичной точки
  Возможные значения: 0,1,2,3 Пример:
  Text1.Text= ActivexMIDL1.DecPoint - выводит положение дес. точки
  

События объекта ActivexMIDL:
• ChangeVes
  Событие происходит при изменение веса на дисплее терминала
  Пример обработки события:
  Private Sub ActivexMIDL1_ChangeVes(ByVal VesChange As Double)
  Text3.Text = VesChange
  End Sub
  Переменная VesChange отображает новое значение веса.
  
  
• StabVes
  Событие происходит, когда весы были загружены и вес стабилизировался. Чтобы генерировать новый цикл этого события весы должны быть разгружены, т.е. вес, отображаемый на терминале, должен стать меньше веса заданного в свойстве MinFixVes.
  Пример обработки события:
  Private Sub ActivexMIDL1_StabVes(ByVal VesBrutoNVT As Double)
  Text4.Text = VesBrutoNVT
  End Sub
  Переменная VesBrutoNVT отображает значение зафиксированного веса.
  
  
• VesStatus
  Событие происходит при изменении сервисных сигналов терминала MIDL.
  Пример обработки события :
  Private Sub ActivexMIDL1_VesStatus(ByVal VesNul As Integer, VesOk As Integer, VesTara As Integer, VesMax As Integer)
  Text5.Text = VesNul 'выводит состояние бита "весы в нуле"
  Text6.Text = VesOk 'выводит состояние бита "вес стабилен"
  End Sub
  Параметры для MIDL:
  VesNul=1(весы в нуле) VesNul=0(весы не в нуле)
  VesOk=1 (вес стабилен) VesOk=0 (вес не стабилен)
  

Порядок работы с компонентой:
• Устанавливаете компоненту в ОС
• Добавляете компоненту в ваш проект
• Добавляете компоненту как объект на вашу форму/контейнер
• Если графическое отображение объекта не нужно, то убираете его видимость ActivexMIDL1.Visible=False
• Работаете с компонентой как с объектом вашего проекта

Рис.1 Вид объекта ActivexMIDL

• тип терминала
• индикатор состояния весов
• программный индикатор стабильности
• отображение веса
• единица измерения веса