[rambus]

Добрый день, уважаемые форумчане!
Имеются весы Digi DS-788 которые умеют передавать вес товара при взвешивании в текстовый файл.
На сайте [необходимо зарегистрироваться для просмотра ссылки] имеется программное обеспечение
OLE-сервер Digi DS788.
Инсталляцию компоненты DS788.dll произвел успешно, как и настройку SPEC в весах.
В документации указано пример использования компоненты DS788.dll на Visual Basic

Private Sub CommandButton2_Click()
Dim Str As String
Dim ds788 As Object
Set ds788 = CreateObject("DS788.DS788Scale")
ds788.Com = 1
ds788.Active = True
a = 0
Rep:
If ds788.Active = True Then a = 1
Str = ds788.GetScaleData()
If ds788.ScaleError = True Then TextBox2.Text = "Error" Else TextBox2.Text = "Ok"
Rem If ds788.Stable = True Then TextBox3.Text = "Stable" Else TextBox3.Text = "Unstable"
If ds788.Stable = False Then GoTo Rep
ds788.Active = False
TextBox1.Text = Str
End Sub

В Visual Basic опыта работы нет, поэтому просьба помочь советом, как использовать данную компоненту, чтобы при взвешивании товара получать вес с весов в текстовый файл.
Заранее спасибо.

[Vofka]

Для 8.х как-то так:

ds788 = Новый COMОбъект("DS788.DS788Scale");
ds788.Com = 1;
ds788.Active = True;
a = 0;
~Rep:
If ds788.Active = True Then a = 1 EndIf;
Str = ds788.GetScaleData();
If ds788.ScaleError = True Then Text1 = "Error" Else Text1 = "Ok" EndIf;
If ds788.Stable = True Then Text2 = "Stable" Else Text2 = "Unstable" EndIf;
If ds788.Stable = False Then GoTo ~Rep EndIf;
ds788.Active = False;
Text3 = Str;

[master-73]

В Visual Basic опыта работы нет, поэтому просьба помочь советом, как использовать данную компоненту, чтобы при взвешивании товара получать вес с весов в текстовый файл.

Использовать будите в 1С или в другой учетной системе?