реклама на сайте
подробности

 
 
> On error GoTo не работает, когда нет связи по COM порту
mpavela2011
сообщение Apr 28 2011, 14:38
Сообщение #1


Участник
*

Группа: Участник
Сообщений: 44
Регистрация: 7-12-10
Пользователь №: 61 453



Private Sub btnOK_Click()

Recon.Boud = Combo1.Text
a1 = InStr(Combo2.Text, " ")
Recon.Port = Int(Mid(Combo2.Text, a1 + 1, Len(Combo2.Text) - a1))

On Error GoTo Er1

MsgBox ("Связь установлена!") ' Display error message.

If ToolRele.MSComm1.PortOpen Then
ToolRele.MSComm1.PortOpen = False
End If
ToolRele.MSComm1.CommPort = Recon.Port
ToolRele.MSComm1.Settings = Combo1.Text + ",E,7,1"
ToolRele.MSComm1.PortOpen = True

Open BeginDir + "\CONFIG.SPA" For Random As #1 Len = ConfLen
Put #1, 1, Recon
Close #1
Unload FormCommPar
Exit Sub

Er1:
MsgBox ("Порт не доступен!") ' Display error message.
Resume Next ' Resume procedure.

End Sub

Сначала вываливается окно связь установлена, а потом окно порт не доступен, пишу на VBA и когда нет связи с девайсом и когда есть связь.

Сообщение отредактировал mpavela2011 - Apr 29 2011, 04:42
Go to the top of the page
 
+Quote Post
 
Start new topic
Ответов
Ruslan1
сообщение Apr 29 2011, 19:50
Сообщение #2


Гуру
******

Группа: Свой
Сообщений: 2 360
Регистрация: 6-03-06
Из: Кишинев
Пользователь №: 15 025



Это что-то на PC запускаемое? или на чем?
Ну написали бы хотя бы две строчки под названием "введение" в начале: что делаете и что не работает и что хотите чтобы было. А кусок кода это хорошо, но лучше выложить усеченный до минимума проект, в котором наблюдается ошибка. И неплохо упомянуть для чего все это писано и на чем. И что надо подать-подключить-нажать чтобы повторить эту ошибку у себя.
Как говорится, дежурные телепаты ушли на майскую демонстрацию........... А без них даже не знаю, кто что сможет ответить если вопрос даже не задан.
Go to the top of the page
 
+Quote Post



Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 


RSS Текстовая версия Сейчас: 23rd July 2025 - 12:03
Рейтинг@Mail.ru


Страница сгенерированна за 0.01381 секунд с 7
ELECTRONIX ©2004-2016