Добрый день, уважаемые форумчане!
Имеются весы 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 опыта работы нет, поэтому просьба помочь советом, как использовать данную компоненту, чтобы при взвешивании товара получать вес с весов в текстовый файл.
Заранее спасибо.