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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Чтение из порта на VB, Как прочитать данные из порта на VB? 
:(
    Опции темы
Shekspir
Дата 20.7.2003, 08:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Никак не могу откопать информацию по чтению из порта на Visual Basic
Об этом нигде не упоминается ни слова.
Может быть такого там вообще нету butbut.gif
Подскажите что-нибудь...
На Delphi есть ф-ция
Код

a:=port[b]

Есть ли что-нибудь подобное на VB?

Буду очень признателен.

--------------------
Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....
PM MAIL ICQ   Вверх
cardinal
Дата 20.7.2003, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Да вопрос интересный, у меня у самого был такой вопрос, но руки не дошли тогда до этого. А как вообще задача стоит? Что читать, и что с вычитанным делать? Тут просто могут быть нюансы. Ты же наверно не знаешь когда что-то из порта придет, а это значит что надо время от времени смотреть есть что-то или нет. Если ты делаешь запрос и читашеь на него ответ, то тогда проще. Ну вообщем напиши попробней, будем смотреть.


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Plamenk
Дата 21.7.2003, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
А о каких портах идёт речь? Если о СОМ и LPT, то есть специальный компонент Microsoft Comm Control (вообще создан для работы с модемом, но подойдёт и для других целей). Если о TCP/IP портах, то Winsock.
Или какие нибудь - другие порты?
PM MAIL   Вверх
Kitovras
Дата 23.7.2003, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А вот к примеру для работы с USB есть какие нить фитчи confused.gif
PM MAIL   Вверх
Plamenk
Дата 24.7.2003, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Я слышал что есть. Попробую поискать по интернету что-то типа "USB.OCX"
PM MAIL   Вверх
Shekspir
Дата 26.7.2003, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Есть конкретный номер порта , допустим, порт клавиатуры
96, или 60h,если не ошибаюсь.
мне просто нужно получить из него байт.
(без запроса, просто прочитать. Как на Delphi )

--------------------
Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....
PM MAIL ICQ   Вверх
Plamenk
Дата 29.7.2003, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Такого в VB среди стандартных команд точно нет. Может есть какой-нибудь ActiveX, хотя сомневаюсь.
PM MAIL   Вверх
Гость_Elena
Дата 25.4.2005, 06:50 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите плиз. Мне нужно отправить информацию в сом порт... например с актив икс компонента...
  Вверх
~FoX~
Дата 25.4.2005, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
DeviceIOControl


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Voldemar2004
Дата 25.4.2005, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 23
Код

Private Sub Form_Load()
Winsock1.LocalPort = 101 ' Указываем порт который будет слушать Сервер
Winsock1.Listen ' Начинаем Слушать порт
Form1.Caption = "Сервер" 
End Sub 

Private Sub Text1_Change() ' При изменении текста в текстовом поле:
Winsock1.SendData Text1.Text ' Посылаем клиенту текст который введен в текстовое поле
End Sub 

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close ' Если сервер не закрыт, то закрываем его(подробнее смотри ниже)
Winsock1.Accept requestID ' Принимаем запрос
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' Если Клиент посылает текст то:
Dim D As String ' Объявляем переменную для работы со строками
Winsock1.GetData D ' Записываем в переменную текст, который был послан Клиентом
Text2.Text = D ' Здесь все понятно, скажу только что нельзя напрямую писать Winsock1.GetData Text1.Text, надо обязательно через переменную
End Sub


Константа Описание
sckClosed Такое значение стоит при запуске программы или когда порт закрыт
sckOpen Порт открыт
sckListening Порт прослушивается
sckConnectionPending Ожидание связи
sckConnecting Подключение к хосту
sckConnected Связь установлена
sckClosing Связь закрывается...
sckError Ошибка
Добавлено @ 09:03
Другой примерчик для Ip:
Код


Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1" 
' Указываем IP компа, на котором запущен сервер(В место IP`a можно указать имя 'компа(Мой Компьютер>>Панель управления>>Сеть>>Индефикация(Winsock1.'RemoteHost = "Komp")))(если ты сейчас не в сети(ил в локалке), то твой IP всегда будет '127.0.0.1)
Winsock1.RemotePort = 101 ' Указываем порт сервера
Winsock1.Connect ' Подключаемся
Form1.Caption = "Клиент"
End Sub

Private Sub Text1_Change() ' При изменении текста:
Winsock1.SendData Text1.Text ' Отправляем текст
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' Если сервер посылает текст то:
Dim DD As String ' Объявляем переменную для работы со строками
Winsock1.GetData DD ' Записываем в переменную текст, который был послан Сервером
Text2.Text = DD
End Sub


не знаю может это чем-то поможет smile


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Naghual
Дата 25.4.2005, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Voldemar2004 Ты вообще не о том!
Имеются в виду аппаратные порты устройств компьютера, а ты привел пример на сетевые порты интерфейса.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 25.4.2005, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Напрямую с аппаратными портами работать не получится... или надо использовать спецдрайвер (типа ioport)...


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


Эксперт
***


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

Репутация: 7
Всего: 23
Я помню как кто-то спросил можно ли в VB писать проги под железо, на что Cardinal ответил, что это равносильно порнографии. А реально ли это в VB .Net?

почитайте кому интересно статейку:
http://vbkoders.net.ru/info/info.asp?type=articles&id=74


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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