Как я могу получить данные из usb-порта?

---

я не могу получить никаких данных от моего монетоприемника. эта программа может идентифицировать com - порт моего периферийного устройства. я проверил четность, биты данных и т. д., Но он все еще не может работать. пожалуйста, помогите мне.

Что я уже пробовал:

Система Импорта
Импортирует System.IO.Ports для доступа к объекту SerialPort

Модуль SerialCommRead
Суб Основной()
Dim MyCOMPort Как SerialPort
Дим Имя_порта Как Строку
Дим Скорость Передачи Данных Как Integer
Dim DataReceived Как Строка
Dim AvailablePorts() As String = SerialPort.GetPortNames()
Приставка.WriteLine("Доступные Порты ::")
Тусклый Порт В Виде Строки
Для Каждого Порта В Доступных Портах
Приставка.WriteLine(Порт)
следующий порт
Приставка.метод WriteLine()
Приставка.WriteLine("введите свой порт ->")
Имя Порта = Консоль.Линия чтения()
Приставка.WriteLine("введите Baudrate ->")
Скорость = Конвертировать.ToInt32(Консоль.Линия чтения())
MyCOMPort = Новый Сериальный Порт()
MyCOMPort.Имя_порта = Имя_порта
MyCOMPort.Скорость = Скорость
MyCOMPort.Parity = Четность.Нет
MyCOMPort.DataBits = 8
MyCOMPort.StopBits = StopBits.One
MyCOMPort.Открыть()
Приставка.WriteLine("ожидание получения данных")
DataReceived = MyCOMPort.ReadLine()
MyCOMPort.Close()
Приставка.метод WriteLine()
Приставка.WriteLine("данные получены -> {0}", DataReceived)
Приставка.метод WriteLine("+---------------------------------------------+")
Приставка.Линия чтения()
Конец Подводной Лодки

Конечный Модуль

---