Получение данных от Arduino Ethernet

@kleon-1 · Регистрация: 12.12.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Можно ли на VB6 организовать получение данных от модуля Arduino Ethernet минуя использование браузера? Браузер медленный, а мне нужно обновлять график каждую секунду. Пробовал через Winsock, но это похоже невозможно, поскольку этот элемент управления способен связываться только с аналогичным ему на другой машине. Подскажите разумные варианты, пожалуйста.

@Pro_grammer · 03.12.2020, 14:04

Сообщение от kleon-1

Браузер медленный, а мне нужно обновлять график каждую секунду.

Чего это он медленный? Люди в браузерах в игры играют.
Может просто Arduino Ethernet работает медленно с запросами?

@kleon-1 · 03.12.2020, 14:13 **[ТС]**

Я не про обычный браузер, а про элемент управления VB6. Если обращаюсь раз в 5 сек, то более менее точные данные, если через секунду, то мусор выходит. В Ардуино спецом delay на 0,5сек поставил, чтобы АЦП гарантированно успевало оцифровать сигналы с 4-х датчиков.

Добавлено через 4 минуты
Кстати, попробовал навскидку найти функции API для работы с портами и не нашёл.

@Pro_grammer · 03.12.2020, 16:03

Сообщение от kleon-1

API для работы с портами

Работа с COM портами в VB????
Работа с Com портом

@kleon-1 · 03.12.2020, 16:27 **[ТС]**

с Ethernet

@The trick · 03.12.2020, 17:24

kleon-1, какой протокол?

@kleon-1 · 03.12.2020, 17:31 **[ТС]**

TCP/IP. Скетч уже готов, а связь с ним установить не могу. Надо либо на СИ либо на Делфи, а я в них не очень.

@UBUNTU · 03.12.2020, 18:57

kleon-1, смотри ветку vb.net там чел на нем делал работу с Arduino тема свежая пара страниц всего + -

@kleon-1 · 03.12.2020, 19:28 **[ТС]**

спасибо, гляну

@locm · 03.12.2020, 19:41

Сообщение от kleon-1

TCP/IP

И в чем проблема? Если по какой-то причине не работают встроенные средства VB6 (скорее всего что-то неправильно делаете, проверьте IP, порт и протокол), всегда можно использовать WinAPI.

@The trick · 03.12.2020, 19:41

kleon-1, чем сокеты не устраивают, тот же winsock контрол?

@kleon-1 · 03.12.2020, 19:49 **[ТС]**

насколько я понял, winsock способен связывать с аналогичным элементом. Я лет 20 назад использовал это в клиент-серверном приложении для ЖКХ. Но а Ардуино нет этого элемента и связь не устанавливается.

@The trick · 03.12.2020, 19:55

kleon-1, это неверно сокеты как раз и работают с TCP/IP

@kleon-1 · 03.12.2020, 20:04 **[ТС]**

Я в курсе. Но у меня при попытке выполнения коннекта сокет висит в состоянии connecting сколь угодно долго. Все положенные назначения параметров сделаны и никакого результата.
1. Я должен отослать пустой запрос на адрес 192.168.0.200, порт 1001
2. Модуль Ардуино отвечает посылкой 7-ми значений с каналов АЦП в два приема, поскольку аналоговых выходов всего 6.
Для этого я сделал коммутатор аналоговых входов.
3. Я предполагаю, что Ардуино вышлет ответ на тот же порт по адресу запроса.
4. winsock после передачи слушает порт и получив пакет данных я в шоколаде. Но увы.
Если я из браузера отправляю запрос (порт 80), то все шикарно, а из барсика - облом.

@locm · 03.12.2020, 20:12

Сообщение от kleon-1

Я должен отослать пустой запрос на адрес 192.168.0.200, порт 1001

Сообщение от kleon-1

Если я из браузера отправляю запрос (порт 80), то все шикарно

Попробуйте из браузера отправить запрос на 1001 порт 192.168.0.200:1001

@kleon-1 · 03.12.2020, 20:18 **[ТС]**

минуточку

Добавлено через 4 минуты
все работает

@The trick · 03.12.2020, 20:20

kleon-1, давайте код, гадать можно долго.

@kleon-1 · 03.12.2020, 21:17 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Private Sub cmdSend_Click()
  wsk.Connect
  DoEvents
End Sub
 
Private Sub Form_Activate()
  With wsk
    .LocalPort = 1001
    .RemoteHost = "192.168.0.200"
    .RemotePort = 1001
  End With
End Sub
 
Private Sub Text1_Change()
  If wsk.State = 7 Then
    wsk.SendData Text1.Text
  End If
  wsk.close
  wsk.listen
End Sub
 
Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
  If wsk.State <> sckClosed Then wsk.Close
  wsk.Accept requestID
End Sub
 
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
  Dim strGetData As String
  wsk.GetData strGetData, vbString 
  Text1.Text = strGetData
End Sub

Добавлено через 50 минут

Исправил опечатку в Text1_Change. Вместо wskOut должно быть wsk.

@Pro_grammer · 03.12.2020, 21:42

Сообщение от kleon-1

With wsk
.LocalPort = 1001
.RemoteHost = "192.168.0.200"
.RemotePort = 1001
End With
End Sub

У вас клиент? Тогда .LocalPort = 1001 это лишнее.

@kleon-1 · 03.12.2020, 21:46 **[ТС]**

Да, у меня клиент, который отправляет запрос на RemoteHost:RemotePort.
А какой порт я должен случать в таком случае? LocalPort это порт на машине с прогой, если я ничего не путаю и именно для него wsk.Listen

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46

	Получение данных от Arduino Ethernet 03.12.2020, 13:14. Показов 3882. Ответов 37 Метки нет (Все метки) Здравствуйте. Можно ли на VB6 организовать получение данных от модуля Arduino Ethernet минуя использование браузера? Браузер медленный, а мне нужно обновлять график каждую секунду. Пробовал через Winsock, но это похоже невозможно, поскольку этот элемент управления способен связываться только с аналогичным ему на другой машине. Подскажите разумные варианты, пожалуйста. 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 14:13 [ТС]
	Я не про обычный браузер, а про элемент управления VB6. Если обращаюсь раз в 5 сек, то более менее точные данные, если через секунду, то мусор выходит. В Ардуино спецом delay на 0,5сек поставил, чтобы АЦП гарантированно успевало оцифровать сигналы с 4-х датчиков. Добавлено через 4 минуты Кстати, попробовал навскидку найти функции API для работы с портами и не нашёл. 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 16:27 [ТС]
	с Ethernet 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	03.12.2020, 17:24
	kleon-1, какой протокол? 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 17:31 [ТС]
	TCP/IP. Скетч уже готов, а связь с ним установить не могу. Надо либо на СИ либо на Делфи, а я в них не очень. 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	03.12.2020, 18:57
	kleon-1, смотри ветку vb.net там чел на нем делал работу с Arduino тема свежая пара страниц всего + - 1

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 19:28 [ТС]
	спасибо, гляну 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	03.12.2020, 19:41
	kleon-1, чем сокеты не устраивают, тот же winsock контрол? 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 19:49 [ТС]
	насколько я понял, winsock способен связывать с аналогичным элементом. Я лет 20 назад использовал это в клиент-серверном приложении для ЖКХ. Но а Ардуино нет этого элемента и связь не устанавливается. 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	03.12.2020, 19:55
	kleon-1, это неверно сокеты как раз и работают с TCP/IP 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 20:04 [ТС]
	Я в курсе. Но у меня при попытке выполнения коннекта сокет висит в состоянии connecting сколь угодно долго. Все положенные назначения параметров сделаны и никакого результата. 1. Я должен отослать пустой запрос на адрес 192.168.0.200, порт 1001 2. Модуль Ардуино отвечает посылкой 7-ми значений с каналов АЦП в два приема, поскольку аналоговых выходов всего 6. Для этого я сделал коммутатор аналоговых входов. 3. Я предполагаю, что Ардуино вышлет ответ на тот же порт по адресу запроса. 4. winsock после передачи слушает порт и получив пакет данных я в шоколаде. Но увы. Если я из браузера отправляю запрос (порт 80), то все шикарно, а из барсика - облом. 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 20:18 [ТС]
	минуточку Добавлено через 4 минуты все работает 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	03.12.2020, 20:20
	kleon-1, давайте код, гадать можно долго. 0

@kleon-1 1 / 1 / 0 Регистрация: 12.12.2011 Сообщений: 46
	03.12.2020, 21:46 [ТС]
	Да, у меня клиент, который отправляет запрос на RemoteHost:RemotePort. А какой порт я должен случать в таком случае? LocalPort это порт на машине с прогой, если я ничего не путаю и именно для него wsk.Listen 0