MSComm + Модем

[kirrun]

Вот такой код:

Код: Выделить всё

Private Sub Comm1_OnComm()
a = Comm1.Input
MsgBox a
End Sub

Private Sub Command1_Click()
Comm1.PortOpen = True
End Sub

Private Sub Command2_Click()
Comm1.Output = "ATI4"
End Sub


Никакого толку от кода... И я не знаю то ли он не отправляет, то ли не принимает...

З.Ы. Открывается порт нормально

[bevaine2000]

Вместо

Код: Выделить всё

Private Sub Command2_Click()
Comm1.Output = "ATI4"
End Sub

Попробуй

Код: Выделить всё

Private Sub Command2_Click()
Comm1.Output = "ATI4" + Chr$(13)
End Sub

[kirrun]

Пасиб! Все вери гуд...

[kirrun]

Так... далее вопрос...

Я посылаю ему ат команду, по которой он возвращает свою модель (эт я посмотрел опросив его (да и в мануале..)). Посылаю ему команду (команда правильная и посылаю правильно), но событие OnComm не происходит...

Код: Выделить всё

Private Sub Comm1_OnComm()
MsgBox "!"
End Sub

Private Sub Command1_Click()
Comm1.PortOpen = True
End Sub

Private Sub Command2_Click()
Comm1.Output = "ATI2" + Chr$(13)
End Sub


[kirrun]

И сразу второй вопрос:

Ну набрал модем какой-то номер, а я вдруг передумал. Посылаю ему ATH0 он затыкается. Ждет немного (около секунды) и набирает опять этот номер (при чем сам, а не моя программа стопудов)

[alibek]

1. Посылай ATZ.
2. Почему бы тебе не поискать в интернете по словам "AT commands"? Это справочные вопросы.

[kirrun]

А че я буду искать в инете, когда на столе лежит мануал по модему, а тут такой чудесный форум?? =)

[kirrun]

Да, кста, на вопрос по чистому программированию я ответа не получил...

Так... далее вопрос...

Я посылаю ему ат команду, по которой он возвращает свою модель (эт я посмотрел опросив его (да и в мануале..)). Посылаю ему команду (команда правильная и посылаю правильно), но событие OnComm не происходит...

Код: Выделить всё

Private Sub Comm1_OnComm()
MsgBox "!"
End Sub

Private Sub Command1_Click()
Comm1.PortOpen = True
End Sub

Private Sub Command2_Click()
Comm1.Output = "ATI2" + Chr$(13)
End Sub


Почему событие OnComm не происходит? Проверено, оно происходит только когда звонит телефон...

[alibek]

А че я буду искать в инете, когда на столе лежит мануал по модему, а тут такой чудесный форум?? =)

Навряд-ли в мануале приводится пример использования и коды, что можно найти в инете.

[kirrun]

Не... речь шла об ат командах. А примеры добрые люди и здесь подкинут... А ответа так я и не получил...

З.Ы. проблема решилась так:

Код: Выделить всё

comm1.portopen = false
comm1.portopen = true


=)

[Inferno]

Я думаю что лучше использовать ATI6

[Konst_One]

а для начала утанови правильные параметры порта, а то по-умолчанию, кажется, 9600-n-1-8
и выполни первой команду ATZ - она установит стандартные натсройки для твоего модема.

[kirrun]

а для начала утанови правильные параметры порта, а то по-умолчанию, кажется, 9600-n-1-8
и выполни первой команду ATZ - она установит стандартные натсройки для твоего модема.

9600,n,8,1

А что надо поставить?

[learnet]

Разве не так?

Код: Выделить всё

With MSComm1
        .CommPort = 1
        .Settings = "9600,N,8,1"
        .InputLen = 0
        .PortOpen = True
        .DTREnable = True
        .RThreshold = 2
        .Handshaking = 1
    End With


[kirrun]

Ё!!!! СПАСИБА!!!!!!

Трабла была в RThreshold. он стоял 0, а нада было 2!

Пасиб, learnet!

[learnet]