Помогите пожалуйста с Mscomm

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

Возникла такая задачка надо отправить в ком порт 4 байта - E1 47 7F 59 используя MSCOMM32.OCX
код :
MSComm1.CommPort = 1 ' Set the port number
MSComm1.Settings = "9600,N,8,1" ' Set UART parameters
MSComm1.PortOpen = True ' Required, might lock port
' Send data E1477F59
s = ""
s = s + Chr(225) + Chr(71) + Chr(127) + Chr(89)
MSComm1.Output = s

чтото отправляет но не то что нужно :(
Подскажите пожалуйста где ошибка или как правильно это сделать
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Для посылки бинарных данных нужно использовать со свойством .Output не строку а переменную Variant содержащую байтовый массив
http://www.yes-tele.com/mscomm.html
http://support.microsoft.com/kb/154741
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

Спасибо за ответ
как оказалось проблема была не в коде (в устройство зашили фиксированную скорость для обмена)
Ответить