08 декабря 2019, 07:41

Новости:

Всем привет!!!


Добро пожаловать, Гость. Нажмите сюда для авторизации.
Не получили письмо для активации учётной записи?
  • Dot гостей: 7
  • Dot скрытый: 0
  • Dot пользователей: 0

There aren't any users online.

Статистика

  • stats Всего пользователей: 24
  • stats Всего сообщений: 66
  • stats Всего тем: 26
  • stats Всего категорий: 5
  • stats Всего разделов: 16
  • stats Максимум онлайн: 12

Календарь

Декабрь 2019
Вс. Пн. Вт. Ср. Чт. Пт. Сб.
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

No calendar events were found.

Добро пожаловать в клуб фанатов светомузыки.

Цель клуба разработка теории автоматического преобразования музыки в свет. Создания на основе этой теории новых проектов АСМУ. Конструирование ВОУ с применением светодиодных технологий.

Клуб представляет собой закрытое общество. Для гостей доступна информация только с открытых разделов.


Открыта регистрация для кандидатов.

Кандидат должен:

1) Сам конструировать или собирать АСМУ - с реальным представлением своих работ или на своём сайте, или материала по которому можно создать представление о его конструкции, проекте, и самом кандидате как специалисте. По предоставленному материалу будет зависеть будущий статус.

2) Разбираться в теме светомузыки - описать каким он видит будущее автоматических светомузыкальных установок, идеи, реальные предложения и т.д.

Для участия в проекте приглашаются психологи желающие принять участие в разработке темы синестезии - воздействия на человека светового сопровождения музыкального произведения, влияние его на психику человека, использование светомузыки в реабилитационных целях.

По всем интересующим вас вопросов с нами можно связаться через сайты -  http://catcatcat.d-lan.dp.ua/o-sayte/ или http://lightportal.at.ua/

или на почту catcatcat.electronics@gmail.com

Catcatcat
Вчера в 11:07 от Catcatcat
Views: 4 | Comments: 1

Интересные идеи.
Catcatcat
04 декабря 2019, 08:09 от Catcatcat
Views: 12 | Comments: 0



Качество изготовления sk6812 и ws2812B Pixel LED.

Новинка изготавливают панели 16*16 на sk6812 описание во вложении.
Catcatcat
30 ноября 2019, 17:46 от Catcatcat
Views: 16 | Comments: 0

Catcatcat приглашает вас на конференцию: Zoom.


Тема: Конференция "Схемотехника светомузыки"
Время: 4 декабря 2019 09:00 PM Киев

Подключиться к конференции Zoom
https://us04web.zoom.us/j/115139663

Идентификатор конференции: 115 139 663
Catcatcat
29 ноября 2019, 08:25 от Catcatcat
Views: 37 | Comments: 1


https://www.b4x.com/android/forum/threads/language-switcher-with-b4r-b4j-mqtt.111769/


B4J code:

Код
Code:
Sub Process_Globals
   Private broker As MqttBroker
   Private client As MqttClient
End Sub

Sub AppStart (Args() As String)
   broker.Initialize("", 51043)
   broker.Start
   client.Initialize("client", "tcp://localhost:51043", "pc")
   client.Connect
   StartMessageLoop
End Sub

Sub client_Connected (Success As Boolean)
   Log("connected: " & Success)
   If Success Then
       client.Subscribe("change language", 0)
   End If
End Sub

Sub client_Disconnected
   Log("disconnected")
   ExitApplication
End Sub

Sub Client_MessageArrived (Topic As String, Payload() As Byte)
   Log(Topic)
   If Topic = "change language" Then
       Dim langs As String
       If Payload(0) = 1 Then
           langs = "en-US, he"
       Else
           langs = "he, en-US"
       End If
       Dim shl As Shell
       shl.InitializeDoNotHandleQuotes("shl", "powershell", Array($"Set-WinUserLanguageList -LanguageList ${langs} -Force"$))
       shl.RunSynchronous(-1)
   End If
End Sub

B4R code:

Код
Code:
Sub Process_Globals
   Public Serial1 As Serial
   Dim p1 As Pin
   Private wifi As ESP8266WiFi
   Private mqtt As MqttClient
   Private client As WiFiSocket
   Private Connected As Boolean
   Private JoystickState As Int
   Private JoystickTimer As Timer
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   p1.Initialize(p1.A0, p1.MODE_INPUT)
   If wifi.Connect2("yyyyy", "xxxxx") Then
       Log("Connected to router.")
   Else
       Log("Failed to connect to router.")
       Return
   End If
   mqtt.Initialize(client.Stream, Array As Byte(192, 168, 0, 104), 51043, "esp8266", _
       "mqtt_MessageArrived", "mqtt_Disconnected")
   Connect(0)
   JoystickTimer.Initialize("JoystickTimer_Tick", 30)
   JoystickTimer.Enabled = True
End Sub

Sub Connect(unused As Byte)
   Log("trying to connect. Wifi? ", wifi.IsConnected)
   If mqtt.Connect = False Then
       Log("trying to connect again")
       CallSubPlus("Connect", 1000, 0)
       Return
   End If
   Log("Connected to broker")
   Connected = True
     mqtt.Subscribe("esp", 0)
End Sub

Sub Mqtt_MessageArrived (Topic As String, Payload() As Byte)
   Log("Message arrived. Topic=", Topic, " payload: ", Payload)
End Sub

Sub Mqtt_Disconnected
   Log("Disconnected")
   mqtt.Close
   Connect(0)
End Sub

Sub JoystickTimer_Tick
   If Connected = False Then Return
   Dim value As Int = p1.AnalogRead
   Dim NewState As Int = 0
   If value > 700 Then NewState = 1
   If value < 300 Then NewState = 2
   If NewState <> JoystickState Then
       Log("New state: ", NewState)
       JoystickState = NewState
       If JoystickState <> 0 Then
           mqtt.Publish("change language", Array As Byte(JoystickState))
       End If
   End If
End Sub

Hardware: ESP8266 + analog joystick
Catcatcat
22 ноября 2019, 09:41 от Catcatcat
Views: 44 | Comments: 0








Считаю надо попробовать это предприятие, изготовить опытную партию плат.
Страницы1
Catcatcat Catcatcat
58 Сообщений
Alexusanin
3 Сообщений
Reflect Reflect
2 Сообщений
doc.Nemo
2 Сообщений
Abby Abby
1 Сообщений