mpavela2011 0 28 апреля, 2011 Опубликовано 28 апреля, 2011 (изменено) · Жалоба 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 и когда нет связи с девайсом и когда есть связь. Изменено 29 апреля, 2011 пользователем mpavela2011 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
Ruslan1 17 29 апреля, 2011 Опубликовано 29 апреля, 2011 · Жалоба Это что-то на PC запускаемое? или на чем? Ну написали бы хотя бы две строчки под названием "введение" в начале: что делаете и что не работает и что хотите чтобы было. А кусок кода это хорошо, но лучше выложить усеченный до минимума проект, в котором наблюдается ошибка. И неплохо упомянуть для чего все это писано и на чем. И что надо подать-подключить-нажать чтобы повторить эту ошибку у себя. Как говорится, дежурные телепаты ушли на майскую демонстрацию........... А без них даже не знаю, кто что сможет ответить если вопрос даже не задан. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
V_G 11 29 апреля, 2011 Опубликовано 29 апреля, 2011 (изменено) · Жалоба Рискну предположить, что по набору операторов это Basic, а судя по волшебным буквам, MSComm - объект Visual Basic. Непонятно, какие ошибки хочет обрабатывать топикстартер, но подозреваю, что Бэйсиковый оператор OnError обрабатывает далеко не все ошибки программы и аппаратуры и нуждается в конфигурировании. Если речь об ошибках компорта (overrun, frame и пр и пр), то очень может быть, что они не передаются в OnError и должны обрабатываться методами объекта MSComm. Итак, ув. топикстартер, какой процент Ваших мыслей я разгадал? P.S. А, вот написали, язык оказался точно VBA. Тогда еще вопрос - какими волшебными операторами определяется наличие/отсутствие связи с девайсом? Или у вас задействованы аппаратные сигналы типа DTR-DSR? Изменено 29 апреля, 2011 пользователем V_G Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться
DpInRock 0 30 апреля, 2011 Опубликовано 30 апреля, 2011 · Жалоба Человек создал собственный объект на основе MsComm. Но не смог передать события вверх. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться