Vinnerliste

Da jeg var innom et shoppingsenter i Berlin i fjor sommer fant så jeg disse klokkene: Jeg ble kjempefasinert, særlig fordi det slo meg at dette var noe jeg selv kunne klare å lage. Da jeg kom hjem fant jeg dem på nettet hos Nordiska Galleriet og de var ikke akkurat billige 😮 (Sjekk DEN prisen) Enda en grunn til å lage dem selv. Jeg har alltid være fasinert (og litt stolt) over måten vi normenn angir tiden med "avstanden til nærmeste halve time": - 5 over 2 - 5 på halv 3 - 5 over halv 3 -5 på 4 osv Utlendinger går i fella hele tiden og mange tror at "halv 7" er 07:30 🙂 I tillegg ville jeg selvfølgelig ha minutters nøyaktighet (og ikke 5 min nøyaktighet som de kjøpeklokkene hadde) og også tekst på "halv" og "kvart". Etter å ha sittet noen kvelder og stablet sammen ord på rutepapir (Trenger ikke egen TO når du kan tenne de 2 første bokstavene i TOLV etc) endte jeg opp med en matrise på 12x12 bokstaver. Jeg hadde da også plass til "KLOKKA ER NÅ" og litt Service ord som "WIFI" og "DOT" Jeg var litt usikker på angivelsen av minuttene mellom xx:15 og xx:20 (og xx:40 og xx:45). -Sier vi "tolv minutter over halv" eller "atten minutter på" ? (Antakeligvis ingen av delene 🙂 ) Jeg tok en sjefsavgjørelse og bestemte meg for 1..19 minutter på og over hel time, og 1..10 minutter på/over halv time Å frese ut så små bokstaver i aluminium er ikke bare-bare og det prosjektet arbeider jeg fortsatt med, -MEN jeg har jo en laser 😉 ! Og laserskårene Times New Roman (Med seriff og greier) ble skikkelig fint i svart kartong (Fra Ark bokhandel) Måtte jobbe litt i CAD for å få bokstavene til å bli "stencil-type" men det ble jo ferdig til slutt. De nye adresserbare LED stripene er jo helt perfekte til slikt og jeg valgte en 5V stripe med RGBW slik at jeg kunne kjøre dem på en USB kabel og kunne få litt varmt gult lys. Med 30 stk på meteren ble det 3.33cm på hver bokstav som var helt passe. Så da var det bare å klippe dem opp og lime dem på bakplata og lodde dem sammen med strøm og data slik at alle kom etterhverandre: "Avstands plata" ble det jo en del arbeid med. Den måtte freses nøyaktig og ha utsparinger til loddingene: Her er et glimt fra produsjonen IMG_0096.mp4 Med plata montert og ESP32'en på plass så det slik ut: Hadde ikke lyst til å sette av noe plass til en "reset knapp" så den ble bare 2 kabler på baksiden 🙂 : For at kartong-bokstavene skulle holde seg flate måtte jeg ha plastplate både over og under. Jula hadde noen fine i 2mm og 4mm. Jeg prøvde meg med hvit plast fra Biltema for å gjøre lyset diffust men det "lakk" for mye over til nabobokstaven så løsningen ble faktisk helt vanlig printerpapir (2 x A3) som ble lagt under bokstavene: En venn av meg foreslo svart silkepapir som difusjonspapir og det ble også ganske fint. -Da ser en ikke bokstavene så godt før de lyser opp og det gir en annen effekt (men jeg synes det er litt kult å se dem ellers også) 2 x 6mm MDF + 2mm plast + 4mm plast = 18mm Til slutt hadde jeg litt flaks og fant alu-profiler hos Maxbo som var perfekte. Disse var rett under 18 og kunne klemmes på som eneste festemåte etter at de var skåret i gjerdesaga. Siden jeg bruke 5m USB kabler til strømforskyning var det jo ingen grunn til ikke å la den USB'en også være plugget i ESP32'en slik at en kan reprogrammere om en vil. Men jeg turte ikke å ta strøm til LED'ene fra ESP32'en så kablene ble klippet opp og tappet for 5V. Så var det programvaren da. Minimums konfigurasjonen fikk WiFi Manager som setter opp en SSID = "BokstavKlokke" med samme passord for å sette opp husets WiFi. Den leser så klokka fra nettet med NTP og "tidssone" = CET-1CEST,M3.5.0,M10.5.0/3 Det skal gi riktig sommertid også så vidt jeg forstår. Når du trykker "reset" (kortslutter de to kablene på baksiden) går den i AP mode igjen og viser "WIFI" på displayet Når den starter tester den alle LEDene i alle farger og så "tekster" den ut IP adressen 🙂 Untitled Video - Made With Clipchamp (2).mp4 Mulighetene herfra er mange: - Flere konfigurerings-parametere i WiFi Manager: Justering av bokstav-farger og intensitet Modi med andre farger om natta Feiring av hel/halv time med farger - MQTT support fra Smarthuset Blinker klokka om noe skjer Styrer fargene avhengig av sol opp/ned MEN alt dette må jeg jo spille ball med dere på forumet om ! Jeg opretter en tråd på Mikroprosessor-forumet og tar imot ideer og kode der. (Min kode skal dere selvfølgelig få). Jeg har brukt så mange timer på dette prosjektet at det ville være dumt å ikke dele det med flere. Så jeg har laget noen få komplette som er lagt ut på finn. (Søk på bokstavklokke) Til dere som liker å gjøre ting selv men ikke har fres og/eller laser tenkte jeg å tilby et "byggesett" med de delene som er vanskelige å lage. Egentlig er det bare de to MDF platene og bokstavkartongen men jeg er redd kartongen ikke overlever postgang om jeg ikke legger den mellom plastplatene. Kontakt meg her eller på Finn om dere er interessert. Og hva er neste skritt? Vel, jeg har ikke gitt opp å frese ut bokstavene i aluminiumsplate. Da kan den øverste plastplaten skippes og difusjonspapiret bør byttes ut med plastfolie. Jeg HAR allerede forsøkt å bruke noe annet enn svart kartong i laseren. Jeg har prøvd meg på tapet, både med og uten mønster. Det ble veldig kult men min laser er egentlig bare en fres med påmontert laser og brenner derfor et lite hull hver gang den starter en skjæring. Jeg har kjøpt inn en ny controller som kan ta M11P1/M10P1 koder (skru på laseren først når aksen begynner å bevege seg) så når den er montert får vi se mere på tapeter.

Takk for lenken, da har jeg brukt din invitasjon og gitt oss begge 300,-. Hvis noen ønsker å bruke min lenke kommer den her. PS: Redigerer den bort når noen har brukt den. Hei! Jeg har Vibb som strømleverandør. De tjener ikke penger på strømforbruket mitt og jeg får full kontroll i appen ⚡️ Bytt til Vibb via linken, så får du 300 kr rabatt på strømregningen 💸 https://verving.vibb.no/id/5af4eec6-dc1a-4d42-b793-c30e35250194

Det er ikke løsningen du spør etter, men i Homeseer bruker jeg script som setter en device value, basert på hvilken kanal som er valgt i en annen device. På den måten får jeg opp metadata om sang, artist/program osv. I HS Touch vises logoen til radiokanalen som spilles, men jeg har ikke funnet noe måte å hente inn det bildet som kommer opp på DAB-radioer. Imports System.Collections.Generic Imports System.Net Imports System.Text ' ChatGPT - May 2, 2023 Sub Main(ByVal Parms As Object) Dim radioChannels As New Dictionary(Of Integer, String) radioChannels.Add(10, "https://lyd.nrk.no/nrk_radio_p1_buskerud_aac_h.xspf") radioChannels.Add(20, "https://lyd.nrk.no/nrk_radio_p2_aac_h.xspf") radioChannels.Add(30, "https://lyd.nrk.no/nrk_radio_p3_aac_h.xspf") radioChannels.Add(40, "https://lyd.nrk.no/nrk_radio_alltid_nyheter_aac_h.xspf") radioChannels.Add(45, "https://lyd.nrk.no/nrk_radio_p13_aac_h.xspf") radioChannels.Add(50, "https://lyd.nrk.no/nrk_radio_jazz_aac_h.xspf") radioChannels.Add(60, "https://lyd.nrk.no/nrk_radio_mp3_aac_h.xspf") radioChannels.Add(70, "https://lyd.nrk.no/nrk_super_aac_h.xspf") ' Add additional radio channels here Dim radioChannelDeviceRef As Integer = 964 Dim radioChannelValue As Integer = hs.DeviceValue(radioChannelDeviceRef) If radioChannels.ContainsKey(radioChannelValue) Then Dim xspfUrl As String = radioChannels(radioChannelValue) Dim xmlDoc As New XmlDocument() ' Download the XSPF file from the URL Using webClient As New WebClient() Dim xspfBytes As Byte() = webClient.DownloadData(xspfUrl) Dim xspfContent As String = Encoding.UTF8.GetString(xspfBytes) xmlDoc.LoadXml(xspfContent) End Using Dim nsManager As New XmlNamespaceManager(xmlDoc.NameTable) nsManager.AddNamespace("xspf", "http://xspf.org/ns/0/") Dim trackList As XmlNodeList = xmlDoc.SelectNodes("/xspf:playlist/xspf:trackList/xspf:track", nsManager) ' Example: Extract track titles and display them in HomeSeer Dim trackTitles As New List(Of String) For Each trackNode As XmlNode In trackList Dim titleNode As XmlNode = trackNode.SelectSingleNode("xspf:title", nsManager) If titleNode IsNot Nothing Then trackTitles.Add(titleNode.InnerText) End If Next ' Set a device string to display the track titles Dim deviceRef As Integer = 965 ' hs.WriteLog("XSPF-Mottaker", "Track titles: " & String.Join(", ", trackTitles)) ' hs.WriteLog("XSPF-Mottaker", "Device ref: " & deviceRef.ToString()) hs.SetDeviceString(deviceRef, String.Join(", ", trackTitles), True) 'Else ' hs.WriteLog("XSPF-Mottaker", "No URL found for the selected radio channel (Value: " & radioChannelValue.ToString() & ")") End If End Sub