Получение данных от 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 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

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

	Получение данных от Arduino Ethernet 03.12.2020, 13:14. Показов 3889. Ответов 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