22 ноября 2024, 05:40

Новости:

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

Последние сообщения

Страницы 1 ... 6 7 8 9 10
71
Новости светомузыки / Re: http://fourierart.com/
Последний ответ от Reflect - 12 декабря 2019, 19:04
Только не понял что за экран ? Монитор ? Не светодиодная панель ?
72
Новости светомузыки / Re: http://fourierart.com/
Последний ответ от Reflect - 12 декабря 2019, 18:51
Цитата: Catcatcat от 10 декабря 2019, 09:50занимаются именно этой темой
Да. Интересное решение. В добавок два канала ( стерео ) Правда если бы реальная музыка смотрелось бы иначе.
Мне нравится. Примерно в этом ключе и мои мысли. Логические построения более понятны. Думаю что несколько таких матриц объединённых в одно поле дадут очень интересный результат.
                                                                    Как Вы думаете ?
73
Новости светомузыки / http://fourierart.com/
Последний ответ от Catcatcat - 10 декабря 2019, 09:50

http://fourierart.com/

ЦитироватьЭта идея лежит в основе недавней разработки многих визуализаторов музыки в реальном времени, в которых любая форма способна танцевать в ритме музыки, связывая изменения интенсивности и частоты звука с изменениями коэффициентов Фурье различных гармоник. Окраска здесь выполняется автоматически посредством комбинации нескольких форм для каждого канала (RGBA) и использования режимов наложения .

По идее как я понял серьезно занимаются именно этой темой.
74
Свобода слова / Light Balance FINALIST | ALL P...
Последний ответ от Catcatcat - 08 декабря 2019, 12:23
75
Свобода слова / Re: Добываем огонь из светодио...
Последний ответ от Catcatcat - 07 декабря 2019, 11:15
https://alexgyver.ru/firefx/
76
Свобода слова / Добываем огонь из светодиодной...
Последний ответ от Catcatcat - 07 декабря 2019, 11:07
Интересные идеи.
77
Производители LED / rose-lighting
Последний ответ от Catcatcat - 04 декабря 2019, 08:09


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

Новинка изготавливают панели 16*16 на sk6812 описание во вложении.
78
Новости светомузыки / Конференция "Схемотехника свет...
Последний ответ от Catcatcat - 30 ноября 2019, 17:46
Catcatcat приглашает вас на конференцию: Zoom.


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

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

Идентификатор конференции: 115 139 663
79
Свобода слова / Re: B4X - Language switcher wi...
Последний ответ от Catcatcat - 29 ноября 2019, 08:30
Erel Teaches Programming - Video Tutorials: https://www.b4x.com/etp.html

All Android devs should read: https://www.b4x.com/android/forum/threads/android-jar-targetsdkversion-minsdkversion.87610/#content
80
Свобода слова / B4X - Language switcher with E...
Последний ответ от Catcatcat - 29 ноября 2019, 08:25

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
Страницы 1 ... 6 7 8 9 10