Vinnerliste

Så bra! seconds-linjene dine fungerer, men ser litt snåle ut. Jeg hadde gjort det slik: Dim seconds As Integer = totalSeconds - hs.DeviceValue(timerDeviceRef) ... men alt fungerer!

En "on/off" varmepumpe fungerer slik. Det er gjerne de billigste. De fleste som selges nå er av typen "inverter". De regulerer seg trinnløst, avhengig av belastning og stopper kun i kortere perioder for avriming. Jeg forsøker kun å videreformidle hva jeg har erfart og hva jeg husker av kjøleteori samt senere blitt fortalt av fagfolk. Men gjør som du vil.

Gjenbruk av kode er alltid en god ide! Det er mulig å sende flere parametere, men du må ta en omvei. Som du ser tar en sub eller funksjon kun én parameter, men siden dette er en string så kan vi herje litt med den. Legg dette til i begynnelsen under Sub Main(Byval params as Object) (main krever i utgangspunktet et object som parameter-type): Dim parameters() as String = params.ToString.Split(",") Dim timerDeviceRef as Integer = parameters(0) Dim virtualDeviceRef as Integer = parameters(1) Dim totalSeconds as Integer = parameters(2) Dim timeFormat as String = parameters(3)

Etter at vi bygde garasjen ble det fort klart at det store tomme feltet over døra burde dekoreres med noe. - Et monogram ? - Et "tårn ur" kanskje ? Men det er vanskelig å finne et urverk som kan drive så store visere og som kan fungere i snø og kulde. Jeg vurderte laser men vinkelen mellom huset og garasjen ville by på en del justerings problematikk som kunne bli en hodepine. Jeg husker en gang på Epcot at det var støpt ned lysfiber i bakken som lyste veldig sterkt i Florida natta og gled sakte over i nye lyspunkter ettersom lyskilden aktiverte stadig flere fibere. Men her måtte jo hvert punkt adresseres separat, -det var verre. Jeg fant et hyggelig firma på Vestlandet som kunne selge meg fiber men etter å ha testet å mate fiberen med separate lysdioder (og litt felt testing) fant jeg ut at jeg skulle gå for separate lysdioder. Jeg bygget et prototype med LED på papp og koblet det hele sammen med en Arduino Mega (den har jo mange PWM porter som kunne brukes til dimming). Spec'en var sånn: 12 Dioder som lyser svakt for å vise de 12 "tallene" Times viseren lyser fast med sterkt lys Minutt viserer blinker i sekund takt med sterkt lys. 12 dioder mellom de 12 hoved diodene for å kunne vise "halv åtte" Når kort og lang viser faller sammen så starter sekund viser å blinke i 1/2 sekund takt Litt ekstra fest blink på hel og halv time Arduinoen ble bygget inn i en boks sammen med en klokke chip (DS3231) og LED motstandene: Det hele så veldig bra ut så jeg kjøpte en stor klokke på Jysk og slaktet den for å få ut den store metallringen. Den ble malt hvit og det ble boret inn 24 lysdioder i den. 24 kabler er mye så 3 x Rj45 ble brukt for koblingen til Mikroprosessoren Resultatet ble litt for lite i forhold til visjonen jeg hadde og klokka ble hengende inne i garasjen i et år (for liksom å teste at den tålte vintertemperaturene eller noe sånn...) Men i høst tok jeg meg sammen og boret 24 hull i garasjeveggen og monterte diodene i noen fine plastrør jeg hadde fått tak i på Maxbo på Hvam: Hver diode ble loddet og krympet på pluss beinet. Og krympet totalt: Til sammenkoblingen brukte jeg noen "telefon plint" som jeg hadde funnet på jobben. Nå står klokka der og lyser og det ser ganske bra ut, både i mørket og i dagslys (Diodene er på 13000 mcd) Her er klokka 20 minutter over 7 : Og her er den 20:10 : På hel og halv time skjer dette: Og når minutt og time faller sammen starter sekund blinkene (her blir klokka 21:15) : Jeg legger ved source koden om noen er interessert : LED_Klokke_Arduino_Mega.txt