визуальная базовая ошибка кода COM-кода 6.0

Я на самом деле пытаюсь получить данные из port1 , но генерируется ошибка Неверный номер порта .

Код:

Private Sub Command1_Click()
    MsgBox ("The port is open " & MSComm1.PortOpen)
    If (MSComm1.PortOpen = False) Then
    MSComm1.PortOpen = True
    End If
    Command1.Enabled = False
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
    If (MSComm1.PortOpen = True) Then
    MSComm1.PortOpen = False
    End If
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

Private Sub Form_Load()
    With MSComm1
    .CommPort = 1
    .RThreshold = 1
    .RTSEnable = True
    .Settings = "9600,N,8,1"
    .InputLen = 127
    .SThreshold = 1
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If (MSComm1.PortOpen = True) Then
    MSComm1.PortOpen = False
    End If
End Sub

Private Sub MSComm1_OnComm()
    Dim Buffer As String

    Select Case MSComm1.CommEvent
    Case comEvReceive
    'Text1.Text = " "
    Buffer = MSComm1.Input
    Text1.Text = Text1.Text & Buffer
    End Select
End Sub
0
nl ja de
Что вы получаете, когда нажимаете кнопку «Отладка»?
добавлено автор Csharp, источник
Возможно, у вас нет COM-порта 1 в вашей системе. Проверьте настройки системы.
добавлено автор MicSim, источник
Недопустимый номер порта @Csharp
добавлено автор user1963933, источник

2 ответы

Попробуйте использовать другой COM-порт. Число от 1 до 16 приемлемо.

' Open the serial port
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

«Свойство CommPort устанавливает, какой последовательный порт открывается. Предполагая, что модем подключен к COM2, приведенный выше пример устанавливает значение 2 (COM2) и подключается к модему. Вы можете установить значение свойства CommPort для любого номера между 1 и 16 (по умолчанию 1) .Если, однако, вы устанавливаете это значение на COM-порт, который не существует для системы, в которой выполняется ваше приложение, генерируется ошибка.

Sauce: dx.eng.uiowa.edu/eedesign/MScomm.doc

1
добавлено
почему я должен писать «" "" mscomm1.portopen = true "" "
добавлено автор user1963933, источник
моя ошибка: 8002: неверный номер порта
добавлено автор user1963933, источник
sir Я попробовал, у меня есть порт com1 и stil я нахожу ошибку, пожалуйста, любезно прошу u помочь мне в этом выпуске
добавлено автор user1963933, источник

посмотрите код, который я разместил в следующем ответе:

поиск доступных портов com

запуск этого кода даст вам список доступных COM-портов

используйте его в своем коде, и пусть ваш код выберет COM-порт из этого списка

0
добавлено
пожалуйста, примите этот ответ как ответ на вопрос об этой теме. значения нежелательной почты рассматриваются в другом вопросе.
добавлено автор Hrqls, источник
если вы получаете только ошибку 8002, то у вас нет com-порта в вашей системе ... вы видите какие-либо порты, когда вы смотрите в вашей системе: панель управления - система - devicemanager - ports (com & lpt) .. .. термины могут быть немного разными, потому что я вручную перевел их из моей голландской системы
добавлено автор Hrqls, источник
я буду завтра
добавлено автор Hrqls, источник
Вы также скопировали функцию CheckPort?
добавлено автор Hrqls, источник
извините, кажется, я забыл некоторые пробелы при публикации кода .. я отредактировал его сейчас, чтобы он показывал как 1 большой блок кода ..
добавлено автор Hrqls, источник
sir, я проверил это, но получаю следующий метод ошибок или элемент данных не найден (highlited word - checkport в «Select Case CheckPort (intIndex)»
добавлено автор user1963933, источник
я копировал его сэр
добавлено автор user1963933, источник
sir sir, stil am с ошибкой 8002, поэтому я получаю только два варианта - не используется и не используется, выбор любого из них не делает! [изображение после запуска программы] [1] что-то сделать, просьба просить вас помочь меня
добавлено автор user1963933, источник
на самом деле, что происходит после проверки comm1.portopen = true, он переходит к ошибке
добавлено автор user1963933, источник
все еще я не мог понять, как этот код мог бы справиться с ошибкой 8002, даже если у вас есть ошибка 8002 даже в вашей программе, я не подключил какое-либо оборудование во время запуска этого кода, должен ли я ?, как только я подключил оборудование и попытался запустить, та же ошибка была создана
добавлено автор user1963933, источник
спасибо, что помог мне
добавлено автор user1963933, источник
PLS помочь мне с ths вопрос @Hrqls
добавлено автор user1963933, источник
Помогите мне с этой проблемой
добавлено автор user1963933, источник
@George wud u, пожалуйста, помогите мне
добавлено автор user1963933, источник
сэр, так как у вас есть код, который может сделать его как проект и загрузить, может быть, моя ошибка в том, что wilbe rason для ошибки
добавлено автор user1963933, источник
но пока я получаю некоторые значения мусора
добавлено автор user1963933, источник