Vinnerliste

Tips fra @Andreas gjorde at jeg oppdaterte et gammelt (og ubrukelig) script slik at det nå er "brukelig" igjen. ResponsiveVoice.vb Sub Main(Byval input as Object) Dim speakThis as String = hs.ReplaceVariables(input.ToString) Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1" Dim localFile as String = hs.GetAppPath & "\tts.mp3" My.Computer.Network.DownloadFile(remoteFile, localFile, "", "", False, 3000, True) End Sub ... lagrer en MP3-fil som heter "tts.mp3" i HS3-katalogen din. Denne kan du spille av via Squeezebox, Sonos, eller HS3 Speaker client. "Paremeters" er selve strengen. Du kan bruke Replacement Variables. "Wait for script to finish before continuing" er viktig for å laste ned filen før du spiller den av. Jeg testet dette over kl. 11:15 og spilte av "Dette er en test! Klokken er kvart over elleve!". Imponerende.

Har ikke lyst til å kuppe tråden til @roarfred, så har bare lyst til å tenke litt høyt her. Det er jo utrolig imponerende det arbeidet som blir lagt ned å for kunne lese ut den informasjonen man kan hente ut fra HAN-grensesnittet. MEN! Er det kun jeg som er overrasket at det ikke finnes noen produkter som er plug and play og kan lese informasjonen? Eller, for å si det med andre ord, er det noen som vet om noen produkter som dette kan gjøres med? Sendte en mail til Norgesnett nå nylig og fikk dette svaret: Altså, rulles det ut pallevis med målere rundt om i Norge og så har vi ikke klare produkter til å lese denne informasjonen? Drit i displayet og S0-puls, det er HAN-grensesnittet som er interessant. Hvis noen har allerede klart å hente ut koden, håper jeg det blir informert om. Både de som har klart det og vil klare det framover.

Kjøpt, prøvd og kjøper ikke igjen. Siste gang den ble slått på, sa det pang og enheten ble rundt 1mm tykkere enn opprinnelig. Denne saken som (nok en) vennlig advarsel om Kina-produkter som settes i stikk

Har laget en platform til fryseskapet over vaskemaskinen i dag, frigjør plass til større rackskap i boden

Her finner du betaversjonen for Windows: https://www.dresden-elektronik.de/deconz/win/

Jepp. All merking til side, "kjøpt i Kina" og "produsert i Kina" er fort to forskjellige ting...

En liten PC, ja. I et kjøkkenskap 2 meter unna. Definer "litt plass"...

Det var Augustson Rammer og Glass, var en del av en ganske stor ordre ellers så kan være prisen blei veldig gunstig på noe jeg bare fikk slengt på når de var innom for å gjøre mål. Ruter-modulen gjør underverker på å komme seg til t-banen til riktig tid, har ca 5 minutter å gå så for å hindre at det ikke blir urealistisk løping for å nå en bane har jeg satt den opp til aldri å vise baner som går de nærmeste fem minuttene... :-)

Ja, skrev som det var, viste til tilbakekalling. Kombinert med en hyggelig tone [emoji2]

Vaktkatta på Lillestrøm er avslørt. Websidenene til HI-FI klubben i Lillestrøm burde vært retursjert før de la dem ut. Her er vaktselskapets årvåkne øyne avslørt i dagslys.

Lagde en Python-løsning i dag for å koble sammen strømforbruksdata fra Smappee-måleren (via API-modul fra github) og prisdata fra tibber sin API (Python3 API-modul), og beregne kumulativ daglig kostnad. Kostnaden er forsåvidt noenlunde teoretisk, da hva jeg faktisk betaler kun beregnes ut ifra månedlige manuelle strømavlesninger. Pandas-biblioteket i Python brukes til å gange sammen 5-minuttsforbruket fra Smappee med priser som er gitt på timesbasis.

Scriptet funket for meg en stund, men fikk seinere timeout og tts.mp3 ble aldri lagret på maskinen. Spilte ingen rolle om jeg økte timeout-verdien. Løsningen for meg, var å skrive om scriptet til å bruke WebClient i stedet: Imports System.Net Sub Main(Byval input as Object) Dim speakThis as String = hs.ReplaceVariables(input.ToString) Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1" Dim localFile as String = hs.GetAppPath & "\tts.mp3" Dim client = New WebClient() client.DownloadFile(remoteFile, localFile) client.Dispose() End Sub

Her er det behov for automasjon