10 мая 2024, 22:49

Новости:

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

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

Страницы 1 ... 6 7 8 9 10
71
Новости светомузыки / http://fourierart.com/
Последний ответ от Catcatcat - 10 декабря 2019, 09:50

http://fourierart.com/

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

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


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

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


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

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

Идентификатор конференции: 115 139 663
77
Свобода слова / 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
78
Свобода слова / 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
79
Проектирование печатных плат / Free assembly for 5 PCBs with ...
Последний ответ от Catcatcat - 22 ноября 2019, 09:41
https://www.seeedstudio.com/fusion_pcb.html







Считаю надо попробовать это предприятие, изготовить опытную партию плат.
80
Производители LED / http://www.newstar-ledstrip.co...
Последний ответ от Catcatcat - 21 ноября 2019, 21:29


http://www.newstar-ledstrip.com/


SK9826 16bit 5050 RGB Pixel LED Chip
SK9826 16bit 5050 RGB is the upgrade of SK9822 LEDs, it is High grayscale 65536 level than HD9822, economic type of NS107S 16bit.
SK9826 16bit with 4Khz PWM.
NS107S 16bit with 28Khz PWM.
Страницы 1 ... 6 7 8 9 10