vb3: работа с rs232
Есть проект на visual basic 3.0. Надо его чуть-чуть модифицировать, научить работать с железкой, подключаемой по rs232.
Делаю так:
а) На форме помещаю кнопку
б) в обработчике события Click помещаю такой код
ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)
If ComNum = -1 Then
MsgBox "Com Port " & ComNumber & " Не удалось открыть ;("
End If
в) После клика на кнопке выдаётся сообщение "File not found" и показывается строка "ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)".
г) Пробовал заменить COM1 на обычный файл, но получал то же сообщение об ошибке. Хотя файл точно существует.
Что я делаю не так? Есть проект на visual basic 3.0. Надо его чуть-чуть модифицировать, научить работать с железкой, подключаемой по rs232.
Делаю так:
а) На форме помещаю кнопку
б) в обработчике события Click помещаю такой код
ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)
If ComNum = -1 Then
MsgBox "Com Port " & ComNumber & " Не удалось открыть ;("
End If
в) После клика на кнопке выдаётся сообщение "File not found" и показывается строка "ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)".
г) Пробовал заменить COM1 на обычный файл, но получал то же сообщение об ошибке. Хотя файл точно существует.
Что я делаю не так?
Делаю так:
а) На форме помещаю кнопку
б) в обработчике события Click помещаю такой код
ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)
If ComNum = -1 Then
MsgBox "Com Port " & ComNumber & " Не удалось открыть ;("
End If
в) После клика на кнопке выдаётся сообщение "File not found" и показывается строка "ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)".
г) Пробовал заменить COM1 на обычный файл, но получал то же сообщение об ошибке. Хотя файл точно существует.
Что я делаю не так? Есть проект на visual basic 3.0. Надо его чуть-чуть модифицировать, научить работать с железкой, подключаемой по rs232.
Делаю так:
а) На форме помещаю кнопку
б) в обработчике события Click помещаю такой код
ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)
If ComNum = -1 Then
MsgBox "Com Port " & ComNumber & " Не удалось открыть ;("
End If
в) После клика на кнопке выдаётся сообщение "File not found" и показывается строка "ComNum = CreateFile("COM1", &HC0000000, 0, 0, 3, 0, 0)".
г) Пробовал заменить COM1 на обычный файл, но получал то же сообщение об ошибке. Хотя файл точно существует.
Что я делаю не так?