Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с последовательным портом 
:(
    Опции темы
Алексей Краюшкин
Дата 16.5.2003, 14:05 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Если кто знает - подскажите где найти информацию по следующим вопросам:

1. Как проконтролировать что выводится/вводится в/из COM-порт (другой программой)?
2. Собственно ввод/вывод из/в COM-порт

Буду крайне благодарен за примеры!
  Вверх
vickr
Дата 21.5.2003, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 183
Регистрация: 13.5.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Цитата
Если кто знает - подскажите где найти информацию по следующим вопросам:

1. Как проконтролировать что выводится/вводится в/из COM-порт (другой программой)?
2. Собственно ввод/вывод из/в COM-порт

В VB самый простой путь работы с COM-портом - использование элемента управления MSComm.
Вот тебе пример из MSDN:
Код

Private Sub Form_Load ()
  ' Buffer to hold input string
  Dim Instring As String
  ' Use COM1.
  MSComm1.CommPort = 1
  ' 9600 baud, no parity, 8 data, and 1 stop bit.
  MSComm1.Settings = "9600,N,8,1"
  ' Tell the control to read entire buffer when Input
  ' is used.
  MSComm1.InputLen = 0
  ' Open the port.
  MSComm1.PortOpen = True
  ' Send the attention command to the modem.
  MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
  ' the modem responds with "OK".
  ' Wait for data to come back to the serial port.
  Do
     DoEvents
  Buffer$ = Buffer$ & MSComm1.Input
  Loop Until InStr(Buffer$, "OK" & vbCRLF)
  ' Read the "OK" response data in the serial port.
  ' Close the serial port.
  MSComm1.PortOpen = False
End Sub


--------------------
Каждую секунду, тыкая в клавиши, мы давим насмерть не менее 1000 микробов =:)
PM MAIL   Вверх
iff
  Дата 3.11.2007, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
У меня проблема: сразу же выдаёт ошибку на первой строчке с использованием MSComm:
Код

MSComm1.CommPort = 1

И ещё: очень интересно (скорее нужно) а на каких контактах будет менятся напрежение и по какому принципу?

Это сообщение отредактировал(а) iff - 3.11.2007, 18:29


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Akina
Дата 3.11.2007, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(iff @  3.11.2007,  19:25 Найти цитируемый пост)
на каких контактах будет менятся напрежение и по какому принципу?

Вопрос не относится к данному разделу. И вообще он не по тематике форума - это вопрос к схемотехнике. Ответ на него, кстати, дан в стандарте на реализацию интерфейса RS-232.
Цитата(iff @  3.11.2007,  19:25 Найти цитируемый пост)
сразу же выдаёт ошибку на первой строчке 

Есть подозрение, что ты не подключил объект. Или ограничился референсом на тип, не создав собственно объекта. Впрочем, возможны и другие варианты.
PS. Надеюсь, ты не просто содрал отсюда код, а нашел первоисточник и сделал все что там написано от самого начала?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
iff
Дата 3.11.2007, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
В MSDN только про VB.NET.
А что это за объект должен быть, наверно как значок таймера, что ли?


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
iff
Дата 4.11.2007, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
Ну вот выбрал компонент Microsoft Comm Control, поставил телефончик на форму, в коде появилось такое:
Код

Private Sub MSComm1_OnComm()

End Sub

И как теперь сделать что бы Command1 нажал, и выполнелись такие команды:
Код

MSComm1.PortOpen = True
MSComm1.Output = text1.Text
MSComm1.PortOpen = False


Это сообщение отредактировал(а) iff - 4.11.2007, 19:48


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Akina
Дата 4.11.2007, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
http://download.microsoft.com/download/vb6...s/NewVBTerm.exe


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
iff
  Дата 5.11.2007, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
Akina,Эта прога выдаёт ошибку на пример когда в менюшке выбераеш "открать порт".

Цитата

И как теперь сделать что бы Command1 нажал, и выполнелись такие команды:
Я придумал, как сделать. Когда кнопку нажимаешь, x становится равным 1, а в подпрограмме MSComm1 стоит каманда, что если  x = 1, то посалай в порт данные, а потом x сделать опять равным 0.

Это сообщение отредактировал(а) iff - 5.11.2007, 16:35


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
iff
Дата 6.11.2007, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
Не знаю чё он раньше ошибку выдавал если исползовать команду "послать данные в СОМ-порт" в подпрограмме кнопки, щас вроде нормально.

А где найти стандарт на реализацию интерфейса RS-232?


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Akina
Дата 6.11.2007, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(iff @  6.11.2007,  18:11 Найти цитируемый пост)
где найти стандарт на реализацию интерфейса RS-232?

 smile http://www.google.ru/search


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1640 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.