Конференция VBStreets

**ajk** » 10.01.2005 (Пн) 22:46

com-port как доступиться

Можно минимальный примерчик

или ссылку по-русски?

**GSerg** » 11.01.2005 (Вт) 5:29

open "COM1" for output as #1
? #1, "Гы!"
close #1

**tyomitch** » 11.01.2005 (Вт) 5:30

А что конкретно надо?

**Sejou** » 11.01.2005 (Вт) 14:49

Подключить элемент "Microsoft Comm Control"
Меню Project - Components
Вставить элемент в проект
Далее пример из Helpa

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

Пример не очень красивый, так что лучше использавать событие MSComm1_OnComm

**ajk** » 11.01.2005 (Вт) 21:21

Sejou писал(а):Подключить элемент "Microsoft Comm Control"
Меню Project - Components
Вставить элемент в проект

Спасибо, сейчас погляжу. Пример я встречал, но некоторые самые простые вещи совершенно непонятны

P.S.Если честно, я бывшый давно программист. Нынешние виндовые навороты меня ломают, но пытаюсь поднатаскать сына. Пора чем позаниматься

**ajk** » 11.01.2005 (Вт) 21:25

GSerg писал(а):open "COM1" for output as #1
? #1, "Гы!"
close #1

это работает в VB?

мне нужно посмотреть, что на входе устройства из http://www.measur.narod.ru
[/code]

**GSerg** » 11.01.2005 (Вт) 21:36

Да, это работает в VB.
И на Input в VB это тоже работает...

**Zer** » 11.01.2005 (Вт) 22:11

mscomm.InputLen=0 :?:

Хрент тогда оттуда чего считаешь... ...так в буфере до закрытия и останется...

**tyomitch** » 12.01.2005 (Ср) 4:13

Zer писал(а):mscomm.InputLen=0
Хрент тогда оттуда чего считаешь... ...так в буфере до закрытия и останется...

The default value for the InputLen property is 0. Setting InputLen to 0 causes the MSComm control to read the entire contents of the receive buffer when Input is used.

**ajk** » 13.01.2005 (Чт) 20:35

на строке MSComm1.CommPort = 1 пишет Jbject required

а порт есть.... или я не понял ответ?

**tyomitch** » 14.01.2005 (Пт) 3:53

А контрол MSComm1 на форме лежит?

**Zer** » 15.01.2005 (Сб) 20:30

To tyomitch: Нифига он у меня при InputLen=0 не считывал! Проверял!

**tyomitch** » 16.01.2005 (Вс) 3:08

Zer писал(а):To tyomitch: Нифига он у меня при InputLen=0 не считывал! Проверял!

Я не проверял, но MSDN-у обычно предпочитаю верить...

**tekila** » 16.01.2005 (Вс) 4:04

Как настроить порт на 50 бод и считать с него???

**tyomitch** » 16.01.2005 (Вс) 4:59

Никак.

The following table lists the valid baud rates.

Setting

110
300
600
1200
2400
4800
9600 (Default)
14400
19200
28800
38400
56000
57600
115200
128000
256000

**Zer** » 16.01.2005 (Вс) 19:13

По-моему даже в QB минимальная скорость 150 бод...

**tekila** » 17.01.2005 (Пн) 13:03

Хорошо используя MSComm нельзя настроить на 50, если при помощи API...

**tyomitch** » 17.01.2005 (Пн) 13:15

Тоже нельзя.

BaudRate
Specifies the baud rate at which the communications device operates. This member can be an actual baud rate value, or one of the following baud rate indexes:

CBR_110
CBR_19200
CBR_300
CBR_38400
CBR_600
CBR_56000
CBR_1200
CBR_57600
CBR_2400
CBR_115200
CBR_4800
CBR_128000
CBR_9600
CBR_256000
CBR_14400

**tekila** » 17.01.2005 (Пн) 13:56

Ясно в лоб не прокатит...КАК обойти???

**tyomitch** » 17.01.2005 (Пн) 14:08

А 110 бод точно не пойдёт?
Откуда вообще эта цифра - 50?

**tekila** » 17.01.2005 (Пн) 14:16

Телеграфный канал связи (50 бод) и 110 не подойдет

**tyomitch** » 17.01.2005 (Пн) 14:17

Ну, тогда видимо не получится :-(

Конференция VBStreets

com-port как доступиться

com-port как доступиться

Кто сейчас на конференции