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)