Есть ли какое-либо ПО для последовательной связи для VB 6.0?

Question

Я компилирую код VB 6, который требует последовательной связи от портов. Для выполнения последовательной связи мне нужен какой-нибудь программный инструмент, такой как SAX Commstudio Active X или MSComm.ocx. Но проблема в том, что я скачал Sax Commstudio Active X с официального сайта commstudio, но это была пробная версия только на 1 день. Затем я попытался загрузить то же программное обеспечение с http://visualstudiogallery.msdn.microsoft.com/en-us/ Но ссылка недоступна. Теперь я действительно в курсе, как получить любое программное обеспечение для последовательной связи, совместимое с кодом VB 6. Будет лучше, если кто-нибудь предоставит мне ссылку для скачивания на sax commstudio или, если нет, ссылку для последовательной связи!

С уважением Асад

Answer 1

Добавление элемента управления VB6 MSComm на панель инструментов

В среде IDE VB6 выберите пункт меню Проект, затем выберите Компоненты.Откроется диалоговое окно «Компоненты».В этом диалоговом окне на вкладке «Элементы управления» установите флажок рядом с элементом «Microsoft Comm Control 6.0», а затем нажмите кнопку «ОК» в диалоговом окне.Это добавит компонент на вашу панель инструментов.

Прошло много времени с тех пор, как я использовал этот элемент управления, но, возможно, эта статья поможет вам начать:

Visual Basic: элемент управления MSComm

Если вы Google mscomm , вы найдете еще много статей.

Answer 2

добавьте элемент управления mscomm во вкладку компонентов: Проект - Компоненты - Microsoft Comm Control 6.0

затем добавьте элемент управления в форму и используйте следующий код для настройки и открытия:

with mscomm1
  .settings = "9600,N,8,1"
  .commport = 1
  .portopen = true
end with 'mscomm1

что-то отправить:

mscomm1.output = "output to send"

используйте событие oncomm для получения данных:

private sub mscomm1_oncomm()
  dim strinput as string
  select case mscomm1.commevent
    case comevreceive
      strinput = mscomm1.input
      processdata strinput 'process the data here
  end select
end sub

(код не проверен, только что набран, но я думаю, что он должен работать:))