D
DenisA
Всем привет.. Мало знаком с программированием.. Есть весовой терминал Тензо-М 018.. к нему прилагается программа для связи с ПК которая вызвает метод:
EventsHandler (Терминал, Платформа, Событие, Код, Количество, ДатаПокупки, ВремяПокупки) as String
В VBA нужно в глобальном модуле объявить эту самую функцию EventsHandler.. чтобы она вызыывалась программой от весов..
как это сделать..
весы работаеют через COM порт.. Программа от весов OLE-объект..
вот код для создания обекта и получения данных с весов в форму:
Option Compare Database
Public objStaticScale As Object
Private Sub Form_Load()
Set objStaticScale = CreateObject("TB015.TB")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objStaticScale = Nothing
End Sub
Function ПолучитьВес() As Single
Dim fStWeight As Single
Dim nStatus As Integer
fStWeight = objStaticScale.GetWeight(1, 1)
ПолучитьВес= fStWeight
Exit Function
End Function
все работает.. обращаться к весам получается ..а обратно нет..
Public Function EventsHandler(Adr, ScNum, Events, Code, Weight, Dat, Tim) As String
EventsHandler = "ADR=" & Adr & "0D" & "Текст на экран весов"
End Function
в 1С все работает.. как сделать в VBA
Помогите пожалуйста люди добрые..
EventsHandler (Терминал, Платформа, Событие, Код, Количество, ДатаПокупки, ВремяПокупки) as String
В VBA нужно в глобальном модуле объявить эту самую функцию EventsHandler.. чтобы она вызыывалась программой от весов..
как это сделать..
весы работаеют через COM порт.. Программа от весов OLE-объект..
вот код для создания обекта и получения данных с весов в форму:
Option Compare Database
Public objStaticScale As Object
Private Sub Form_Load()
Set objStaticScale = CreateObject("TB015.TB")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objStaticScale = Nothing
End Sub
Function ПолучитьВес() As Single
Dim fStWeight As Single
Dim nStatus As Integer
fStWeight = objStaticScale.GetWeight(1, 1)
ПолучитьВес= fStWeight
Exit Function
End Function
все работает.. обращаться к весам получается ..а обратно нет..
Public Function EventsHandler(Adr, ScNum, Events, Code, Weight, Dat, Tim) As String
EventsHandler = "ADR=" & Adr & "0D" & "Текст на экран весов"
End Function
в 1С все работает.. как сделать в VBA
Помогите пожалуйста люди добрые..