[V1.x] P1, S0 en Temperatuur logging met de Netduino Plus

[Willie Wortel]

Voederbietel schreef op woensdag 02 januari 2013 @ 16:34:
Sinds enkele dagen ben ik ook bezig met het koppelen van de Netduino Plus 2 aan de onlangs geplaatste ISKRA ME382. Helaas is het ook mij niet gelukt om er meer uit te krijgen als de beruchte garbage.
Vanmorgen ff een Netduino Plus geregeld en de zelfde software hier even ingeschoten en alles werkt.

Ook ik maak (ivm slechte leverbaarheid van de HD74LS04P) gebruik van een SN7404 DIP, hieruit komt dus geen garbage bij gebruik van de Plus en wel garbage bij de Plus 2. IC zit op een breadboard en alleen de draden naar de netduino zijn omgezet van de een naar de ander. Probleem zit hem dus in ieder geval niet in het gebruikte IC.

Verder uiteraard alle waardering voor JoopC, c70070540 en iedereen die hier verder zijn steentje aan bijdraagt, ik blijf het hier volgen en zal proberen om mezelf ook wat verder in te lezen/werken op VB gebied.

Zoals ik al eerder schreef, de V2 werkt niet met deze software omdat de verkeerde verwijzingen worden gebruikt met het aanroepen van de hardware. SecretLabs (Netduino) gebruikt nu de Microsoft Library's.
Als ik klaar ben met de aanpassingen van de core software voor de V1 en de bijbehorende web pagina's zal ik de software aanpassen voor de V2. De software is niet uitwisselbaar of (downwards compatible).

[Voederbietel]

@JoopC: het ging mij er voornamelijk om dat diverse mensen het probleem legden bij het IC, het vervangende IC geeft echter niet het probleem ,maar de dll's zoals je terecht al meldde.

[Willie Wortel]

Voederbietel schreef op donderdag 03 januari 2013 @ 08:34:
@JoopC: het ging mij er voornamelijk om dat diverse mensen het probleem legden bij het IC, het vervangende IC geeft echter niet het probleem ,maar de dll's zoals je terecht al meldde.

Ja, idd we kunnen beter duidelijk zijn dan dat er een aantal tweakers zwetend wakker worden of erger nog, niet stofzuigen en afwassen voor moeders.

[Gé Brander]

Ik kreeg wat last van afrondingsproblemen doordat er in de code gebruik gemaakt wordt van het type SINGLE. Dat zorgt er soms voor dat er getallen gebruikt worden als: 0.00000000001 etc.

Dit heb ik in de website (index.html) opgelost door het volgende:

JavaScript:

// varSolarWattNow.refresh(Math.round((varFieldsTwo.field1)*10)/10);
varConsumptionWattNow.refresh(Math.round((varFieldsOne.field2)*10)/10);
varSolarDeliverTotal.refresh(Math.round((varFieldsOne.field3-653.6)));
varElectraConsumedTotal.refresh(Math.round((varFieldsOne.field4-2787.5)));
varSolarDeliverToday.refresh(Math.round((varFieldsOne.field5)*10)/10);
varElectraConsumedToday.refresh(Math.round((varFieldsOne.field6)*10)/10);
varGasConsumedToday.refresh(Math.round((varFieldsOne.field7)*10)/10);
varGasConsumedTotal.refresh(Math.round((varFieldsOne.field8-510.7)));
// varSolarPanelsKWH.refresh(Math.round((varFieldsTwo.field9)*10)/10);   
// varTemperature.refresh(Math.round((varFieldsTwo.field10)*10)/10);

Bij regel drie, vier en acht worden er geen cijfers achter de komma weergegeven maar het wordt wel afgerond. Dan heb je dat probleem niet meer. De anderen heb ik tot op een cijfer achter de komma.

Het rare is dat als een getal precies afgerond is, dus ,00 op het eind, dat er dan geen cijfers achter de komma weergegeven worden. Weet iemand hoe ik dat kan forceren?

Edit: Ik heb wat gevonden met:

JavaScript:

var profits=2489.8237 
profits.toFixed(3) //returns 2489.824 (round up) 
profits.toFixed(2) //returns 2489.82 
profits.toFixed(7) //returns 2489.8237000 (padding) 

Maar hoe kan ik dat in bovenstaande coderegels combineren?

De getallen -653.6, -2787.5 en -510.7 zijn de meterstanden van 1 januari 2013 om 00:00 uur. Zo heb ik in de website mijn totalen voor dit jaar weer op nul gezet. De eerste regel en de laatste twee regels zijn uitgecommentarieerd (of hoe zeg je dat eigenlijk?) omdat die via de tweede Netduino Plus gemeten en gelogd worden.

[ Voor 135% gewijzigd door Gé Brander op 03-01-2013 16:16 . Reden: Verduidelijking ]

[Willie Wortel]

Het uitlezen van de log data op de sd Card van de Netduino is klaar.

Nu nog onderhoud van de sd Card .......Download van logfiles naar hard disk en verwijderen log files. Dit alles in een webpagina.

[YouTube: http://youtu.be/WXMgv_SrvTE]

Hier een demo van het uitlezen en in een diagram plaatsen. Omdat ik geen log bestanden heb op de sdcard , heb ik er een progje geschreven die random data creëert. De data is dus volkomen fictief.
Je ziet er niet veel van, van het uitlezen maar dat is nu juist de kneep zeg maar. Je ziet het niet maar is er wel. Die pagina is een kleine 1000 regels code.

[Gé Brander]

Top!

[Willie Wortel]

c70070540 schreef op donderdag 03 januari 2013 @ 15:25:
Maar hoe kan ik dat in bovenstaande coderegels combineren?

Zo is een mogelijkheid ( varFieldsOne.field8 ).toFixed(2)
toFixed is een methode.

[Rol-Co]

Zie wat ik aan tref



kon de code zo deployen, nu nog kijken of ie werkt, geen idee of er al een ip in stond eigenlijk ik had hem gelijk aan de laptop gehangen.

[Tafkar]

JoopC schreef op donderdag 03 januari 2013 @ 16:33:
Het uitlezen van de log data op de sd Card van de Netduino is klaar.

Nu nog onderhoud van de sd Card .......Download van logfiles naar hard disk en verwijderen log files. Dit alles in een webpagina.

[video]

Hier een demo van het uitlezen en in een diagram plaatsen. Omdat ik geen log bestanden heb op de sdcard , heb ik er een progje geschreven die random data creëert. De data is dus volkomen fictief.
Je ziet er niet veel van, van het uitlezen maar dat is nu juist de kneep zeg maar. Je ziet het niet maar is er wel. Die pagina is een kleine 1000 regels code.

Ziet er goed uit!

[Verwijderd]

Hallo ik heb in Netduino Plus 2 Serial link aan het werk. Blijkbaar wordt tijdens het uitlezen van de bytes met v2 het paritybit ook meegenomen. Nu had ik al in documentatie van de Microchip gelezen dat alleen 8bit en 9bit is toegestaan. Echter in de manual staat wel een voorbeeld van 7bit data en een paritybit.

Ik heb het volgende aangepast:

Visual Basic .NET:

 
bSingleByte = spSerialPort.ReadByte() And 127 'remove parity bit (and 127)

Hier de data voor de aanpassing :

0-0:96.±.±(²05A´±´²´630303±3·3��30333±33393±3²©
±-0:±.¸.±(00±·².3·²ªë×詍
±-0:±.¸.²(000¸·.¸´6ªë×詍
±-0:².¸.±(00000.000ªë×詍
±-0:².¸.²(00000.000ªë×詍
0-0:96.±´.0(000²©
±-0:±.·.0(000±.03ªëש
±-0:².·.0(0000.00ªëש
0-0:±·.0.0(999ªA©
0-0:96.3.±0(±©
0-0:96.±3.±(©
0-0:96.±3.0(©
0-±:²´.±.0(3©
0-±:96.±.0(3²3¸3±303±353´3±30303·3²363¸3±3±3²©
0-±:²´.3.0(±30±03²00000©(00©(60©(±©(0-±:²´.².±©(í3©
(00±0·.··3©
0-±:²´.´.0(±©
!


En na de aanpassing:
/KMP5 ZABF001740313912

0-0:96.1.1(205A414246303031373430333133393132)
1-0:1.8.1(00172.372*kWh)
1-0:1.8.2(00087.798*kWh)
1-0:2.8.1(00000.000*kWh)
1-0:2.8.2(00000.000*kWh)
0-0:96.14.0(0002)
1-0:1.7.0(0001.01*kW)
1-0:2.7.0(0000.00*kW)
0-0:17.0.0(999*A)
0-0:96.3.10(1)
0-0:96.13.1()
0-0:96.13.0()
0-1:24.1.0(3)
0-1:96.1.0(3238313031353431303037323638313132)
0-1:24.3.0(130103200000)(00)(60)(1)(0-1:24.2.1)(m3)
(00107.773)
0-1:24.4.0(1)
!

[Voederbietel]

@LudoS
Bedankt voor deze waardevolle info, heb het gelijk toegepast op mijn Netduino Plus 2 en ook hier werkt het nu.
Voor de andere gebruikers: de aanpassing moet gedaan worden in regel 1848.

[Willie Wortel]

Even een vraag aan jullie, hebben jullie de pariteit veranderd in:


SerialPort(SerialPorts.COM2, BaudRates.Baud9600, Parity.Even, 7, StopBits.One)

Bij mij staat de pariteit op even.
Dit is te veranderen, hebben jullie dit geprobeerd?

[Voederbietel]

@JoopC
Ik ga het even proberen, je hoort zo van me

Edit: Ik heb de diverse mogelijkheden van de parity even geprobeerd, meeste opties leveren als resultaat iets in de trant van what do you mean: telegram? (Sorry, weet de exacte tekst zo snel niet)
Als ik de parity weer op "even" en de aanpassing van LudoS doe, zet dan zijn de resultaten van het telegram wel weer goed.

[ Voor 76% gewijzigd door Voederbietel op 03-01-2013 22:18 ]

[Dylantje2]

Rol-Co schreef op donderdag 03 januari 2013 @ 17:37:
Zie wat ik aan tref

[afbeelding]

kon de code zo deployen, nu nog kijken of ie werkt, geen idee of er al een ip in stond eigenlijk ik had hem gelijk aan de laptop gehangen.

Mooi ding zeg

[Voederbietel]

@JoopC
Mocht ik nog wat kunnen proberen voor je dan lees ik het wel, heb morgen nog wel wat tijd om eea te testen.

[Verwijderd]

Ik heb de parity geprobeerd te veranderen, maar dit hielp niet. (dan klopt de data helemaal niet)
Dit was ook mijn eerste gedachte.
Met databits =8 and parity none krijg je volgens mij hetzelfde resultaat (+ and 127)

De regel:

Visual Basic .NET:

 
SerialPort(SerialPorts.COM2, BaudRates.Baud9600, Parity.Even, 7, StopBits.One)

heb ik uiteindelijk niet aangepast

De Microchip op de PLUS 2 is van complete andere makelij. Zeker op het gebied van serial interfaces. Ik denk zelfs dat je de aanpassing die ik heb gedaan ook kunt toepassen op een PLUS v1, omdat het telegram alleen bestaat uit ascii characters van 0 t/m 127.

[ Voor 55% gewijzigd door Verwijderd op 03-01-2013 22:57 ]

[Verwijderd]

Door de briliante tip van Voederbietel is de P1 logging nu ook bij mij aan de praat!
De telegrams zijn leesbaar, de website toont wat real data en de upload naar Cosm werkt nu ook.

Echter ik heb nog een probleem met PVoutput.
Mijn doel is om de slimme meter data te integreren met de pv data dat ik al enige tijd upload naar PVoutlput via een andere tool.
Ik heb de bestaande en werkende SID en APIkey van mijn andere tool ge-paste in dit project.
Helaas verschijnt er geen nieuwe slimme meter data in mijn bestaande pvoutput project.

Nu las ik iets in de eerste regels van ReadP1PoortMain.vb dat PVoutput.org alleen werkt met S0 pulse meter. Is dit waar en waarom wellicht deze restrictie?

Als alternatief heb ik het idee om de Cosm data door te sturen naar PVoutput (cosm is ook ondersteund in PVoutput). Maar in Cosm heb ik een niet echt duidelijke beschrijving kunnen vinden of dit daadwerkelijk kan en hoe.
Zijn er andere die (met success) P1 data uploaden naar PVoutput?

Ik gebruik een N+ v2 device.

[Voederbietel]

Verwijderd schreef op vrijdag 04 januari 2013 @ 16:27:
Door de briliante tip van Voederbietel LudoS is de P1 logging nu ook bij mij aan de praat!

Ere wie ere toekomt

Zijn er meer mensen die een probleempje hebben met het openen van de grafieken van Cosm.
Ik draai hier met webpages 1.03, soms zie ik op de Cosm pagina wel een streaam staan, soms ook niet.
Na een paar keer refresh (F5) verschijnt de stream soms weer, bij de volgende refresh is hij weer verdwenen en kun je dus ook geen charts maken.
Heb ik een (kleine) instelling vergeten of is dit een probleem in de communicatie met de Cosm site?

(Site is tijdelijk te vinden http://www.verbruik.trekkerslep.info )
(Local zal waarschijnlijk nog niet werken ivm probleempje met portforwarding, heb het zelf nog niet vanaf een externe verbinding kunnen testen. Cosm feed doet het op de hoofdpagina overigens wel)

[ Voor 63% gewijzigd door Voederbietel op 04-01-2013 19:42 . Reden: Probleempje website toegevoegd ]

[Rol-Co]

Zijn de Ts nog van plan een appart topic te maken voor de plus 2 of houden jullie dat hier?

[Verwijderd]

Voederbietel schreef op vrijdag 04 januari 2013 @ 16:40:
[...]


Ere wie ere toekomt

Zijn er meer mensen die een probleempje hebben met het openen van de grafieken van Cosm.
Ik draai hier met webpages 1.03, soms zie ik op de Cosm pagina wel een streaam staan, soms ook niet.
Na een paar keer refresh (F5) verschijnt de stream soms weer, bij de volgende refresh is hij weer verdwenen en kun je dus ook geen charts maken.
Heb ik een (kleine) instelling vergeten of is dit een probleem in de communicatie met de Cosm site?

(Site is tijdelijk te vinden http://www.verbruik.trekkerslep.info )
(Local zal waarschijnlijk nog niet werken ivm probleempje met portforwarding, heb het zelf nog niet vanaf een externe verbinding kunnen testen. Cosm feed doet het op de hoofdpagina overigens wel)

Ik heb het zelfde probleem.
geprobeerd met Chrome 23 en IE9 (IE10 is niet nog beschikbaar op vista)
In Cosm: "Data Streams" is in Chrome wel altijd beschikbaar. "Select Stream" echter nooit. Daarom heb ik ook nog geen grafiekjes kunnen tekenen.
In de youtube filmpjes van joop waren er ook wat pull downs in the header van de website ( die met "home,cosm,options en live data"). Deze heb ik echter ook nog niet gezien. Ik gebruik v1.0.3 en heb de aanpassingen volgens de manual uitgevoerd.

Iemand nog een brilliante ingeving waar ik zou kunnen zoeken?

[Voederbietel]

@Jovo123
Het filmpje dat jij bedoeld gaat volgens mij over de volgende (nog in ontwikkeling zijnde) versie van de webpages, die er overigens veelbelovend uitzien.

Wat betreft de Cosm grafieken heb ik het idee dat dit niet alleen aan IE9 ligt, er zijn soms ook momenten dat ik wel gewoon grafieken kan maken. Een volgende keer lukt het echter weer niet, of alleen na het meerdere malen refreshen. In Chrome heb ik idd hetzelfde resultaat wel een datastream echter geen mogelikheid een stream te selecteren. Ben nog druk aan het zoeken naar een oplossing en anders is het gewoon geduldig afwachten of een volgende versie beter werkt.

Update: Zojuist ff IE10 geïnstalleerd en hier lijkt het wel te werken, ben alleen bang dat lang niet iedereen op IE10 kan (en wil) overschakelen op dit moment. (Er draaien nog steeds veel mensen met XP en Vista, hiervoor is IE10 nog niet beschikbaar en zal voor XP waarschijnlijk ook niet beschikbaar komen)

[ Voor 19% gewijzigd door Voederbietel op 04-01-2013 21:27 . Reden: Info aangevuld ]

[Willie Wortel]

Verwijderd schreef op vrijdag 04 januari 2013 @ 20:17:
[...]


Ik heb het zelfde probleem.
geprobeerd met Chrome 23 en IE9 (IE10 is niet nog beschikbaar op vista)
In Cosm: "Data Streams" is in Chrome wel altijd beschikbaar. "Select Stream" echter nooit. Daarom heb ik ook nog geen grafiekjes kunnen tekenen.
In de youtube filmpjes van joop waren er ook wat pull downs in the header van de website ( die met "home,cosm,options en live data"). Deze heb ik echter ook nog niet gezien. Ik gebruik v1.0.3 en heb de aanpassingen volgens de manual uitgevoerd.

Iemand nog een brilliante ingeving waar ik zou kunnen zoeken?

Ik weet precies hoe het komt, dit is een beveiliging in Chrome (cross origin) en deze ondersteund vele functies niet, waarom geen IE10?

[Voederbietel]

@JoopC
Zoals hierboven al gemeld is IE10 niet beschikbaar voor de oudere besturingssystemen (Vista, XP)
Ik ben zelf vanavond pas overgestapt op IE10 (Win 7 64) en moet zeggen dat alles er gelikt uitziet, ook de webpages 1.03. Echter lang niet iedereen draait al met Win 7 of 8. (Zelfs alle tweakers niet ;-) )
Kan zelf de pagina's ook niet goed openen op m'n oude trouwe EEE PC'tje helaas.

[Verwijderd]

Cool... effe Firefox 17 geinstalleerd (IE10 bestaat nog niet voor vista). Firefox lijkt het wel te doen....

[Rol-Co]

JoopC schreef op zondag 30 december 2012 @ 15:30:
Ik weet nu ook, de code loopt niet op een V2, die moet aangepast worden.

Sdk geupdate en dll veranderd, debuggen zonder probleem of error maar werkt niet inderdaad, blinky geen probleem maar S0 werkt niet. Tenminste, geen led met een simpele test.

[Willie Wortel]

Verwijderd schreef op vrijdag 04 januari 2013 @ 22:01:
Cool... effe Firefox 17 geinstalleerd (IE10 bestaat nog niet voor vista). Firefox lijkt het wel te doen....

De webpagina's zijn volop in ontwikkeling, er komen nieuwe pagina's aan met een hoop verbeteringen.
Van mij mag er een web programmeur even helpen.

[Willie Wortel]

Rol-Co schreef op vrijdag 04 januari 2013 @ 22:31:
[...]


Sdk geupdate en dll veranderd, debuggen zonder probleem of error maar werkt niet inderdaad, blinky geen probleem maar S0 werkt niet. Tenminste, geen led met een simpele test.

De V2 kan het niet doen omdat de software voor de V2 verkeerde enummeraties aanroept.
Dat is niet veel werk maar als ik het moet schrijven en testen moet ik alles omgooien.
Het is of het een of het ander.

[Rol-Co]

als jij het schrijft of me een beetje opweg helpt joop kan ik het hier wel testen. mag eventueel S0 only als dat minder werk is.

[Willie Wortel]

Rol-Co schreef op vrijdag 04 januari 2013 @ 22:51:
als jij het schrijft of me een beetje opweg helpt joop kan ik het hier wel testen. mag eventueel S0 only als dat minder werk is.

zoek deze regel en als VOORBEELD:

Visual Basic:

InterruptPort(Pins.GPIO_PIN_D13 .............)

je moet pins.gpio gebruiken, de rest hetzelfde laten dan testen !
MAAR:

Also, if upgrading an application for Netduino Plus to Netduino Plus 2...be sure to swap out the SecretLabs.NETMF.Hardware.NetduinoPlus.dll for SecretLabs.NETMF.Hardware.Netduino.dll. Otherwise the Pins enumeration will point to the wrong pins and you could experience exceptions or debugger lockouts.

We're working on an update to the SDK which automatically takes care of that for you, but in the meantime that's the standard procedure for switching boards in NETMF.

suc6

[Rol-Co]

JoopC schreef op vrijdag 04 januari 2013 @ 23:25:
[...]


zoek deze regel en als VOORBEELD:

Visual Basic:

InterruptPort(Pins.GPIO_PIN_D13 .............)

je moet pins.gpio gebruiken, de rest hetzelfde laten dan testen !
MAAR:

Also, if upgrading an application for Netduino Plus to Netduino Plus 2...be sure to swap out the SecretLabs.NETMF.Hardware.NetduinoPlus.dll for SecretLabs.NETMF.Hardware.Netduino.dll. Otherwise the Pins enumeration will point to the wrong pins and you could experience exceptions or debugger lockouts.

We're working on an update to the SDK which automatically takes care of that for you, but in the meantime that's the standard procedure for switching boards in NETMF.

suc6

Dat laatste gedeelte al gedaan, en dat geeft geen uitroeptekens bij de pins.gpio meer, echter werkt het nog niet.
dus nu jouw tip proberen

[Willie Wortel]

Rol-Co schreef op vrijdag 04 januari 2013 @ 23:30:
[...]


Dat laatste gedeelte al gedaan, en dat geeft geen uitroeptekens bij de pins.gpio meer, echter werkt het nog niet.
dus nu jouw tip proberen

Rolco, dat moet je HARD in de class zetten, dus zoek de class op en kijk waar de variabele pin

je moet pin tijdelijk veranderen

Me.m_pulse = New InterruptPort(pin, False, Port.ResistorMode.Disabled, Port.InterruptMode.InterruptEdgeLevelHigh

[Rol-Co]

Zo joop?

Visual Basic:

Me.m_pulse = New InterruptPort(Pins.GPIO_PIN_D12, False, Port.ResistorMode.Disabled, Port.InterruptMode.InterruptEdgeLevelHigh)
            AddHandler Me.m_pulse.OnInterrupt, AddressOf PulseMeter

Ik krijg 82 warnings na debuggen namelijk. geen uitroeptekens in de code, D12 uit het drop downtje geselecteerd.

[Voederbietel]

Hebben er meer mensen last van dat de NetDuino V2 regelmatig vastloopt?
Hij loopt bij mij om de paar uur vast, ook de webserver is dan niet meer bereikbaar.
Ik heb het programma inmiddels weer opnieuw in de NetDuino geschoten met alleen schrijven naar Cosm en SD op True, kijken of hij nu langer blijft draaien.
(Probleem kan natuurlijk ook veroorzaakt worden doordat de software niet geschreven is voor V2, dan zoek ik zelf nog ff verder en anders is het gewoon afwachten tot de nieuwe versie komt.)

[Verwijderd]

Voederbietel schreef op zaterdag 05 januari 2013 @ 10:18:
Hebben er meer mensen last van dat de NetDuino V2 regelmatig vastloopt?
Hij loopt bij mij om de paar uur vast, ook de webserver is dan niet meer bereikbaar.
Ik heb het programma inmiddels weer opnieuw in de NetDuino geschoten met alleen schrijven naar Cosm en SD op True, kijken of hij nu langer blijft draaien.
(Probleem kan natuurlijk ook veroorzaakt worden doordat de software niet geschreven is voor V2, dan zoek ik zelf nog ff verder en anders is het gewoon afwachten tot de nieuwe versie komt.)

Die van mij blijft vrolijk door hobbelen tot dusver (data in cosm onafgebroken sinds gisterenmiddag).

[Willie Wortel]

Verwijderd schreef op zaterdag 05 januari 2013 @ 10:56:
[...]


Die van mij blijft vrolijk door hobbelen tot dusver (data in cosm onafgebroken sinds gisterenmiddag).

Graag even vermelden waarmee je logt, de SO meter, of P1 poort.

Hoe meer ik lees des te makkelijker voor mij om straks te zoeken.

[Willie Wortel]

Rol-Co schreef op zaterdag 05 januari 2013 @ 00:34:
Zo joop?

Visual Basic:

Me.m_pulse = New InterruptPort(Pins.GPIO_PIN_D12, False, Port.ResistorMode.Disabled, Port.InterruptMode.InterruptEdgeLevelHigh)
            AddHandler Me.m_pulse.OnInterrupt, AddressOf PulseMeter

Ik krijg 82 warnings na debuggen namelijk. geen uitroeptekens in de code, D12 uit het drop downtje geselecteerd.

Kan je een paar warnings plaatsen?

[Voederbietel]

@JoopC
Bij mij draait hij alleen op P1 (Heb geen zonnepnaelen etc)
Ik heb schrijven naar OpenEnergy en Thingspeak gedisabled, hij schrijft op dit moment alleen nog naar Cosm. Kijken of ik dingen kan uitsluiten.

[ Voor 51% gewijzigd door Voederbietel op 05-01-2013 11:42 ]

[Verwijderd]

JoopC schreef op zaterdag 05 januari 2013 @ 11:02:
[...]

Graag even vermelden waarmee je logt, de SO meter, of P1 poort.

Hoe meer ik lees des te makkelijker voor mij om straks te zoeken.

@Joopc
Ik gebruik alleen P1 logging, met upload naar cosm en PVoutput.
Kan je nog even reageren of PVoutput logging zou moeten werken icm P1 logging (of werkt het alleen met S0)?

[Willie Wortel]

Voederbietel schreef op zaterdag 05 januari 2013 @ 11:40:
@JoopC
Bij mij draait hij alleen op P1 (Heb geen zonnepnaelen etc)
Ik heb schrijven naar OpenEnergy en Thingspeak gedisabled, hij schrijft op dit moment alleen nog naar Cosm. Kijken of ik dingen kan uitsluiten.

Heel goed, begin met zo min mogelijk instellingen om problemen te isoleren. Zo doe ik dat ook.

[Willie Wortel]

Verwijderd schreef op zaterdag 05 januari 2013 @ 11:54:
[...]


@Joopc
Ik gebruik alleen P1 logging, met upload naar cosm en PVoutput.
Kan je nog even reageren of PVoutput logging zou moeten werken icm P1 logging (of werkt het alleen met S0)?

Ja, dat is mogelijk met een hele kleine aanpassing in de software.
Nou wil jij gelijk de oplossing....dacht het al.

Het is wel zo dat de P1 poort verbruik tijdens de levering van de panelen niet registreert omdat de electra direct wordt geconsumeerd. De opbrengst van de panelen wordt is dus niet juist weergegeven. daar heb je toch echt een pulsemeter a 30 euro voor nodig.

En nog wat vergeten PVouput is een betaal site, daar moet je betalen voor extra data zoals Electra logging.
Rolco weet van de hoed en de rand.

[ Voor 32% gewijzigd door Willie Wortel op 05-01-2013 12:04 ]

[Willie Wortel]

In de nieuwe code, 15 datastreams met de provider eraan geplakt om code te vereenvoudigen.

Visual Basic .NET:

arrDataStreams[0] = 'SolarWattNowPin13'         sdcard field    9
arrDataStreams[1] = 'ConsumptionWattNowP1'      sdcard field    2
arrDataStreams[2] = 'SolarDeliverTotalP1'       sdcard field    5+6
arrDataStreams[3] = 'ElectraConsumedTotalP1'    sdcard field    3+4
arrDataStreams[4] = 'SolarDeliverTodayP1'       sdcard field    5+6  - start 5+6
arrDataStreams[5] = 'ElectraConsumedTodayP1'    sdcard field    3+4  - Start 3+4
arrDataStreams[6] = 'GasConsumedTodayP1'        sdcard field    7    - Start 7
arrDataStreams[7] = 'GasConsumedTotalP1'        sdcard field    7
arrDataStreams[8] = 'SolarPanelsKWHPin13'       sdcard field    8
arrDataStreams[9] = 'TemperaturePanels'         sdcard field    10
arrDataStreams[10] = 'ElectraHighP1'            sdcard field    3      
arrDataStreams[11] = 'ElectraLowP1'             sdcard field    4
arrDataStreams[12] = 'SolarHighP1'              sdcard field    5
arrDataStreams[13] = 'SolarLowP1'               sdcard field    6
arrDataStreams[14] = 'SolarDeliveryNowP1'       sdcard field    1

[Rol-Co]

JoopC schreef op zaterdag 05 januari 2013 @ 11:04:
[...]

Kan je een paar warnings plaatsen?

Warning 1 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2283 25 NetduinoMonitoring
Warning 2 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2283 25 NetduinoMonitoring
Warning 3 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2302 17 NetduinoMonitoring
Warning 4 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 394 9 NetduinoMonitoring
Warning 5 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 504 13 NetduinoMonitoring
Warning 6 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 576 33 NetduinoMonitoring
Warning 7 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 598 25 NetduinoMonitoring
Warning 8 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 599 25 NetduinoMonitoring
Warning 9 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 599 25 NetduinoMonitoring
Warning 10 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 600 21 NetduinoMonitoring
Warning 11 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 629 77 NetduinoMonitoring
Warning 12 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 629 77 NetduinoMonitoring
Warning 13 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 687 9 NetduinoMonitoring
Warning 14 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 690 13 NetduinoMonitoring
Warning 15 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 690 13 NetduinoMonitoring
Warning 16 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 708 17 NetduinoMonitoring
Warning 17 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 718 9 NetduinoMonitoring
Warning 18 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 733 13 NetduinoMonitoring
Warning 19 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2091 21 NetduinoMonitoring
Warning 20 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2091 21 NetduinoMonitoring
Warning 21 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2095 21 NetduinoMonitoring
Warning 22 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1752 9 NetduinoMonitoring
Warning 23 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1775 13 NetduinoMonitoring
Warning 24 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1776 9 NetduinoMonitoring
Warning 25 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1778 13 NetduinoMonitoring
Warning 26 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1779 9 NetduinoMonitoring
Warning 27 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 28 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 29 opcode 'conv.ovf.i8' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 30 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1782 13 NetduinoMonitoring
Warning 31 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1796 13 NetduinoMonitoring
Warning 32 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1806 9 NetduinoMonitoring
Warning 33 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2194 21 NetduinoMonitoring
Warning 34 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2283 25 NetduinoMonitoring
Warning 35 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2283 25 NetduinoMonitoring
Warning 36 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2302 17 NetduinoMonitoring
Warning 37 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 394 9 NetduinoMonitoring
Warning 38 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 504 13 NetduinoMonitoring
Warning 39 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 576 33 NetduinoMonitoring
Warning 40 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 598 25 NetduinoMonitoring
Warning 41 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 599 25 NetduinoMonitoring
Warning 42 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 599 25 NetduinoMonitoring
Warning 43 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 600 21 NetduinoMonitoring
Warning 44 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 629 77 NetduinoMonitoring
Warning 45 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 629 77 NetduinoMonitoring
Warning 46 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 687 9 NetduinoMonitoring
Warning 47 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 690 13 NetduinoMonitoring
Warning 48 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 690 13 NetduinoMonitoring
Warning 49 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 708 17 NetduinoMonitoring
Warning 50 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 718 9 NetduinoMonitoring
Warning 51 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 733 13 NetduinoMonitoring
Warning 52 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2091 21 NetduinoMonitoring
Warning 53 opcode 'conv.ovf.i4' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2091 21 NetduinoMonitoring
Warning 54 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2095 21 NetduinoMonitoring
Warning 55 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1752 9 NetduinoMonitoring
Warning 56 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1775 13 NetduinoMonitoring
Warning 57 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1776 9 NetduinoMonitoring
Warning 58 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1778 13 NetduinoMonitoring
Warning 59 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1779 9 NetduinoMonitoring
Warning 60 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 61 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 62 opcode 'conv.ovf.i8' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1780 13 NetduinoMonitoring
Warning 63 opcode 'mul.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1782 13 NetduinoMonitoring
Warning 64 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1796 13 NetduinoMonitoring
Warning 65 opcode 'sub.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 1806 9 NetduinoMonitoring
Warning 66 opcode 'add.ovf' -- overflow will not throw exception C:\Users\Rob\Desktop\V1.0.1__Release\V1.0.1__Release\NetDuinoReleaseV1\NetduinoMonitoring\ReadP1poortMain.vb 2194 21 NetduinoMonitoring

[Appie Heijn]

Maakt het nog uit wat voor monitoring je gebruikt? Ik ging tot heden er van uit dat ik P1 kon gebruiken. Ik krijg 1e week februari zonnepanelen namelijk, lees nu iets met S0 en zonnepanelen, vandaar dat ik nu begin te twijfelen. Ik heb een ISKRA ME382

[ Voor 23% gewijzigd door Appie Heijn op 05-01-2013 12:55 ]

[Rol-Co]

Appie Heijn schreef op zaterdag 05 januari 2013 @ 12:51:
Maakt het nog uit wat voor monitoring je gebruikt? Ik ging tot heden er van uit dat ik P1 kon gebruiken. Ik krijg 1e week februari zonnepanelen namelijk, lees nu iets met S0 en zonnepanelen, vandaar dat ik nu begin te twijfelen. Ik heb een ISKRA ME382

JoopC schreef op zaterdag 05 januari 2013 @ 11:56:
[...]

Ja, dat is mogelijk met een hele kleine aanpassing in de software.
Nou wil jij gelijk de oplossing....dacht het al.

Het is wel zo dat de P1 poort verbruik tijdens de levering van de panelen niet registreert omdat de electra direct wordt geconsumeerd. De opbrengst van de panelen wordt is dus niet juist weergegeven. daar heb je toch echt een pulsemeter a 30 euro voor nodig.

dat is wat joop hier uitlegt

[Gé Brander]

Appie Heijn schreef op zaterdag 05 januari 2013 @ 12:51:
Maakt het nog uit wat voor monitoring je gebruikt? Ik ging tot heden er van uit dat ik P1 kon gebruiken. Ik krijg 1e week februari zonnepanelen namelijk, lees nu iets met S0 en zonnepanelen, vandaar dat ik nu begin te twijfelen. Ik heb een ISKRA ME382

Wat je opwekt met zonnepanelen is niet automatisch ook wat je terug levert. Wat je terug levert is afhankelijk van wat je verbruik is op het moment van opwekken.

Terug levering/Verbruik = Verbruik - Opwek.

In geval van Verbruik wordt het op meterstand 1 en/of 2 gelogd.
In geval van Terug levering wordt het op meterstand 3 en/of 4 gelogd.

Of het op 1 of 2 meterstanden gelogd wordt hangt weer af van of je hoog en laag tarief hebt.

[Willie Wortel]

Rolco, dat zijn geen errors, dat zijn suggesties/aandachtspunten voor de programmeur.

[Appie Heijn]

Rol-Co schreef op zaterdag 05 januari 2013 @ 12:58:
[...]


[...]


dat is wat joop hier uitlegt

Ah merci, heb ik daar over heen gelezen. Ik heb al zo'n digitale opbrengst/verbruik meter welke naast de "stop" komt te zitten. En kan ook mijn SMA omvormer via BT uitlezen.

[Willie Wortel]

en anders praat je over een investering van 30 euro

[Willie Wortel]

Bij mij draait nu de nieuwe web page.....MOOOOOOOOOOOIIIIIIIII

[Rol-Co]

JoopC schreef op zaterdag 05 januari 2013 @ 13:06:
Rolco, dat zijn geen errors, dat zijn suggesties/aandachtspunten voor de programmeur.

Ok
maar zonder de pins.gpio aanpassing heb ik ze niet, en erger nog , het lijkt niet te werken nog.
nu zeg ik "lijkt" omdat ik de netduino op de tafel heb liggen met 2 draadjes en een 1k weerstand over 5v maar er gaat geen led aan bij contact dus ga ik daar nog even van uit.

Ik zal ook eens meten wat voor voltage's ik heb , misschien is dat veranderd oid en hebben we een andere weerstand nodig.

[Gé Brander]

Rol-Co schreef op zaterdag 05 januari 2013 @ 13:12:
[...]


Ok
maar zonder de pins.gpio aanpassing heb ik ze niet, en erger nog , het lijkt niet te werken nog.
nu zeg ik "lijkt" omdat ik de netduino op de tafel heb liggen met 2 draadjes en een 1k weerstand over 5v maar er gaat geen led aan bij contact dus ga ik daar nog even van uit.

Ik zal ook eens meten wat voor voltage's ik heb , misschien is dat veranderd oid en hebben we een andere weerstand nodig.

Bij het deployen van de code naar de Netduino Plus V1 heb ik dezelfde soort warnings en alles werkt prima. Die kan je echt negeren, dat zijn niet de oorzaken dat het niet zou werken.

[Voederbietel]

JoopC schreef op zaterdag 05 januari 2013 @ 13:09:
Bij mij draait nu de nieuwe web page.....MOOOOOOOOOOOIIIIIIIII

Kan haast niet wachten, promofilmpje ziet er goed uit in ieder geval.

[Willie Wortel]

Voederbietel schreef op zaterdag 05 januari 2013 @ 13:21:
[...]


Kan haast niet wachten, promofilmpje ziet er goed uit in ieder geval.

[Rol-Co]

c70070540 schreef op zaterdag 05 januari 2013 @ 13:19:
[...]

Bij het deployen van de code naar de Netduino Plus V1 heb ik dezelfde soort warnings en alles werkt prima. Die kan je echt negeren, dat zijn niet de oorzaken dat het niet zou werken.

Ah, ja ik heb ze hier niet op de V1 vandaar, ook niet als ik de V1 versie in de V2 stop.

Ik heb zelf al met VS2012 geprobeerd en NF4,3 maar dan nog houd ik 16 warnings over, maar ook 1 error vanwege het verschil in versie 4,3-4,2 dus dat kan (nog) niet.

[Gé Brander]

Rol-Co schreef op zaterdag 05 januari 2013 @ 13:32:
[...]


Ah, ja ik heb ze hier niet op de V1 vandaar, ook niet als ik de V1 versie in de V2 stop.

V1 of V2 maakt niet uit bij warnings. Dat zijn tips voor code optimalisatie voor de developer. Verder negeren graag

Ik heb zelf al met VS2012 geprobeerd en NF4,3 maar dan nog houd ik 16 warnings over, maar ook 1 error vanwege het verschil in versie 4,3-4,2 dus dat kan (nog) niet.

Errors moeten natuurlijk wel opgelost worden.

[Appie Heijn]

JoopC schreef op zaterdag 05 januari 2013 @ 13:09:
en anders praat je over een investering van 30 euro

Ah ok, volgens mij lees ik ook nog een typevoutje in de handleiding. Blz 10/43

Schema connecting S0 port to the Netduino Plus
With the schema below you should be able to connect the P1 port to the Netduino.

[Willie Wortel]

c70070540 schreef op zaterdag 05 januari 2013 @ 13:36:
[...]

V1 of V2 maakt niet uit bij warnings. Dat zijn tips voor code optimalisatie voor de developer. Verder negeren graag

[...]

Errors moeten natuurlijk wel opgelost worden.

Dat gaat helemaal niet 4.3 de sdk is nog niet voorhanden.

[Rol-Co]

JoopC schreef op zaterdag 05 januari 2013 @ 13:39:
[...]

Dat gaat helemaal niet 4.3 de sdk is nog niet voorhanden.

Inderdaad.

c70070540 schreef op zaterdag 05 januari 2013 @ 13:36:
[...]

V1 of V2 maakt niet uit bij warnings. Dat zijn tips voor code optimalisatie voor de developer. Verder negeren graag

Maar nu nog zoeken waarom die led niet oplicht, blinky werkt perfect dus daar is alles goed.

[ Voor 47% gewijzigd door Rol-Co op 05-01-2013 13:47 ]

[Gé Brander]

JoopC schreef op zaterdag 05 januari 2013 @ 13:39:
[...]

Dat gaat helemaal niet 4.3 de sdk is nog niet voorhanden.

Het was meer algemeen bedoeld hoor JoopC, niet als opmerking dat we nu iets moeten oplossen

[Voederbietel]

Maar nu nog zoeken waarom die led niet oplicht, blinky werkt perfect dus daar is alles goed.

Had hetzelfde probleem hier, led werkt inmiddels weer na van regel 34 in het programma,
"Imports SecretLabs.NETMF.Hardware.NetduinoPlus" hier heb ik het woordje plus verwijderd en het programma weer in V2 geschoten en voila het ledje werkt weer.
(Nu ff testen of alles verder ook nog goed werkt.)

Ik had de aanpassing oorspronkelijk alleen gedaan in de references
"SecretLabs.NETMF.Hardware.NetduinoPlus" op false gezet en
"SecretLabs.NETMF.Hardware.Netduino" op true, had verwacht dat dat alles zou zijn dat gewijzigd moest worden van NetDuinoPlus naar NetDuino.

Weer wat geleerd dus, ben nieuw in deze materie, maar al doende leert men.
(Misschien was dit ook de reden van het vastlopen, maar dat zien we komende nacht wel weer)

Edit: Zie nu pas dat JoopC dit op 28 December 10.18 dit al in zijn post meldde, toen draaide bij mij de V2 nog niet en had ik dit probleem dus ook nog niet. Had op dat moment überhaupt nog geen idee waar ik aan begonnen was, maar het begint beetje bij beetje te komen.

[ Voor 18% gewijzigd door Voederbietel op 05-01-2013 15:47 . Reden: Aanvulling ]

[Rol-Co]

Voederbietel schreef op zaterdag 05 januari 2013 @ 15:40:
[...]


Had hetzelfde probleem hier, led werkt inmiddels weer na van regel 34 in het programma,
"Imports SecretLabs.NETMF.Hardware.NetduinoPlus" hier heb ik het woordje plus verwijderd en het programma weer in V2 geschoten en voila het ledje werkt weer.
(Nu ff testen of alles verder ook nog goed werkt.)

Ik had de aanpassing oorspronkelijk alleen gedaan in de references
"SecretLabs.NETMF.Hardware.NetduinoPlus" op false gezet en
"SecretLabs.NETMF.Hardware.Netduino" op true, had verwacht dat dat alles zou zijn dat gewijzigd moest worden van NetDuinoPlus naar NetDuino.

Weer wat geleerd dus, ben nieuw in deze materie, maar al doende leert men.
(Misschien was dit ook de reden van het vastlopen, maar dat zien we komende nacht wel weer)

Ah ik had al even snel wat gekeken maar zag zo even snel niets bij de led regels.
Nou gooien jullie steeds met regel nummers maar die zie ik nergens als het open staat, is dat een instelling of zie ik wat anders over het hoofd?

[Voederbietel]

Is een instelling in Microsoft Visual Basic, zal het ff voor je opzoeken. (Kon het zelf eerst ook niet vinden)

Edit: Je vindt deze optie onder Tools -> Options -> Tekst Editor -> Basic -> General -> Line Numbers aanvinken.

[ Voor 34% gewijzigd door Voederbietel op 05-01-2013 15:59 . Reden: Info aangevuld. ]

[Willie Wortel]

Rol-Co schreef op zaterdag 05 januari 2013 @ 15:48:
[...]

Ah ik had al even snel wat gekeken maar zag zo even snel niets bij de led regels.
Nou gooien jullie steeds met regel nummers maar die zie ik nergens als het open staat, is dat een instelling of zie ik wat anders over het hoofd?

Nou zonder regelnummers kan ik eigenlijk niks.

[Rol-Co]

Daarom wil ik het ook aan hebben, kan ik regel nummers roepen als ik iets heb/weet.


@voederbietel
Dank je, ga ik instellen.

[Appie Heijn]

Heb ik het goed dat ik met onderstaande meter een S0 meting kan doen?

[Rol-Co]

Inderdaad dat kan, heeft 1000 pulse per kWh

[Appie Heijn]

Rol-Co schreef op zaterdag 05 januari 2013 @ 16:26:
Inderdaad dat kan, heeft 1000 pulse per kWh

Thanks voor de bevestiging! Toch leuk, gratis ontvangen

[Tafkar]

Rol-Co schreef op zaterdag 05 januari 2013 @ 16:26:
Inderdaad dat kan, heeft 1000 pulse per kWh

De led heeft 1000, S0 heeft er 100!

[Verwijderd]

JoopC schreef op zaterdag 05 januari 2013 @ 11:56:
[...]

Ja, dat is mogelijk met een hele kleine aanpassing in de software.
Nou wil jij gelijk de oplossing....dacht het al.

Het is wel zo dat de P1 poort verbruik tijdens de levering van de panelen niet registreert omdat de electra direct wordt geconsumeerd. De opbrengst van de panelen wordt is dus niet juist weergegeven. daar heb je toch echt een pulsemeter a 30 euro voor nodig.

En nog wat vergeten PVouput is een betaal site, daar moet je betalen voor extra data zoals Electra logging.
Rolco weet van de hoed en de rand.

hehe je begint me al aardig te kennen... tuurlijk wil ik gelijk een oplossing... geintje :-)
Nee, ik was alleen op zoek naar een bevestiging dat het niet aan mijn configuratie ligt zodat ik er geen extra tijd in hoeft te steken om een mogelijk probleem aan mijn kant uit te sluiten.
Nu zal ik rustig wachten tot je deze kleine aanpassing doorvoer in een nieuwe versie (voor de v2 in mijn geval)

Betreft waarom ik dit wil, ik heb PVoutput al ingeregeld voor het registeren van de opbrengst van mijn panelen. Het kan mooie grafieken en statestieken toveren + een leuke app op mijn smartphone
De gratis versie van PVoutput ondersteunt ook zaken als opwekken dmv panelen, gebruik en teruglevering aan het net, maar je moet betalen als je meer wilt, zoals bv je gasmeter in de statestieken displayen.
Mijn plan was dus om de consumption van energie aan PVoutput door te geven om zo een mooi beeld te krijgen.

Een alternatief is om dmv een S0 alles uit dit project te halen.
voordelen: alles onder 1 dak
nadelen: geen smartphone app en een iets minder nauwkeurige meeting uit de S0 ipv data rechtstreeks uit de SMA.
Ik heb alle data uit de SMA al in een MySQL DB staan, dus ik zou dit op een of andere manier ook in COSM moeten weten te pompen om het nauwkeurig uit dit project te kunnen halen....Misschien nog een een leuk projectje voor een regenachtige avond :-)

[Rol-Co]

Tafkar schreef op zaterdag 05 januari 2013 @ 16:35:
[...]


De led heeft 1000, S0 heeft er 100!

Huh? Led en S0 niet gelijk? Naja 100 kan ook natuurlijk al is 10w per pulse laag, op een groot systeem minder erg.

[Rol-Co]

Verwijderd schreef op zaterdag 05 januari 2013 @ 16:39:
[...]

nadelen: geen smartphone app en een iets minder nauwkeurige meeting uit de S0 ipv data rechtstreeks uit de SMA.

Op elke telefoon te zien via pvoutput, en nauwkeuriger als de sma omdat je Netto opbrengst logt ipv een optimistische inverter en zonder kabelverlies.

[klump4u]

Moet ik bij Pvoutput op de site ook nog iets veranderen als ik live wil uploaden met de netduino?
Of hoef ik alleen de API enFeedID in te vullen op de netduino?

[Rol-Co]

Alleen de api settings in de netduino en sid
Verder kan je wel je live settings aanpassen onder edit system

[klump4u]

Rol-Co schreef op zaterdag 05 januari 2013 @ 18:31:
Alleen de api settings in de netduino en sid
Verder kan je wel je live settings aanpassen onder edit system

Ok bedankt,ik zie dat het werkt.
Ben ook aan het proberen met de v2

[ Voor 6% gewijzigd door klump4u op 05-01-2013 18:51 ]

[Rol-Co]

Voederbietel schreef op zaterdag 05 januari 2013 @ 15:40:
[...]


Had hetzelfde probleem hier, led werkt inmiddels weer na van regel 34 in het programma,
"Imports SecretLabs.NETMF.Hardware.NetduinoPlus" hier heb ik het woordje plus verwijderd en het programma weer in V2 geschoten en voila het ledje werkt weer.
(Nu ff testen of alles verder ook nog goed werkt.)

Regels zien we nu, tnx maar de led is onveranderd.....vreemd maar begin te denken dat het iets anders is.

[klump4u]

Ik heb deze gedownload http://forums.netduino.co...logging-with-source-code/ toen de fouten verwijderd of veranderd en op de Netduino plus 2 gezet.
Verde ben ik een leek op dit gebied maar S0 pulse werkt hier wel.
Deze geeft wel een blinkende led onboard en verstuurt ook data naar PVoutput.
Misschien iets voor de gevorderde mensen hier.

[Rol-Co]

klump4u schreef op zaterdag 05 januari 2013 @ 22:02:
Ik heb deze gedownload http://forums.netduino.co...logging-with-source-code/ toen de fouten verwijderd of veranderd en op de Netduino plus 2 gezet.
Verde ben ik een leek op dit gebied maar S0 pulse werkt hier wel.
Deze geeft wel een blinkende led onboard en verstuurt ook data naar PVoutput.
Misschien iets voor de gevorderde mensen hier.

Appart, volgensmij is die code ook van joopc.

[Willie Wortel]

klopt helemaal, geschreven voor en geplaatst door een bekende van me.
Hieruit blijkt trouwens dat de interrupt niet naar behoren werkt of uitstaat.

[ Voor 37% gewijzigd door Willie Wortel op 05-01-2013 23:11 ]

[Willie Wortel]

Ik ben nu het file system aan het schrijven voor de sd card bestanden, werkt voorlopig alleen in IE 10 maar wordt later aangepast voor andere browsers. Ik moet een paar logbestandjes hebben voor een laatste check. Die browsers hebben alles wel erg goed beveiligd.

[ Voor 10% gewijzigd door Willie Wortel op 05-01-2013 23:12 ]

[Gé Brander]

JoopC schreef op zaterdag 05 januari 2013 @ 22:47:
Ik ben nu het file system aan het schrijven voor de sd card bestanden, werkt voorlopig alleen in IE 10 maar wordt later aangepast voor andere browsers. Ik moet een paar logbestandjes hebben voor een laatste check. Die browsers hebben alles wel erg goed beveiligd.

Logbestandjes zitten in je mail. Ik ben zeer benieuwd naar de functionaliteit. Goed bezig!

By the way, de hele discussie over linenumbers snap ik niet helemaal. Daar hoef je niets voor in te stellen, het staat ook gewoon rechtsonder in beeld op welke regelnummer je je bevind.

[ Voor 29% gewijzigd door Gé Brander op 06-01-2013 11:12 ]

[Willie Wortel]

c70070540 schreef op zondag 06 januari 2013 @ 09:54:
[...]

Logbestandjes zitten in je mail. Ik ben zeer benieuwd naar de functionaliteit. Goed bezig!

By the way, de hele discussie over linenumbers snap ik niet helemaal. Daar hoef je niets voor in te stellen, het staat ook gewoon rechtsonder in beeld op welke regelnummer je je bevind.

ja maar het is voor mij een indicatie hoeveel code dat ik schrijf. Dan kijk ik links..........En naar de functie begin tm eind.
In de Netduino v1 is maar plaats voor 25k.
Ik vind mezelf knap, al zeg ik het zelf, dat ik alles daarin gepropt krijg. Zeker gezien naar de functionaliteit.

[Gé Brander]

JoopC schreef op zondag 06 januari 2013 @ 11:19:
[...]

ja maar het is voor mij een indicatie hoeveel code dat ik schrijf. Dan kijk ik links..........En naar de functie begin tm eind.
In de Netduino v1 is maar plaats voor 25k.
Ik vind mezelf knap,

Je bent niet de enige...

al zeg ik het zelf,

En dan heb ik het niet over je uiterlijk, daar kan ik geen uitspraken over doen

dat ik alles daarin gepropt krijg. Zeker gezien naar de functionaliteit.

[Willie Wortel]

Ik moet nog een paar dingen nakijken, niet alle directory's voor het ophalen van datum data staan goed in de date picker, local gaat het goed maar op de server niet.

[gekkie]

whoot ... eindelijk krijg ik de meuk ook geparsed :-)

Klein dongle'tje gemaakt van een: bluetooth module (http://dx.com/p/wireless-...-transceiver-module-80711) en een 7404, geen complete arduino nodig zo .. server leest hem vrolijk uit via bluetooth

Probleem zat hem uiteindelijk in de parity .. kreeg er maar semi leesbare zooi uit :-)
Maarrr masken van bit7 in de data doet wonderen :-p

[Voederbietel]

De NetDuino V2 lijkt niet meer vast te lopen als ik alleen wegschrijf naar SD en Cosm.
Vandaag nog ff wat mee aan het stoeien geweest, draait nu goed dus daar nu maar ff afblijven.
Nu met een 2e V2 eens ff kijken wat deze doet als ik alleen wegschrijf naar SD en OpenEnergyMonitor.

[Dylantje2]

Heb ook nog een voltcraft S0 meter te koop....
Klik
Hij werkt goed alleen niet icm de solarmeter, en is paar weekjes oud

Doe een bod via Pm en ik stuur hem op....

[jp73]

Wat is op het moment de status van de Netduino plus V2 i.c.m. de slimme meter en een s0 teller ?

Heeft iemand het nu werkend of kan ik hem beter op marktplaats zetten en een netduino plus kopen ?

Morgen krijg ik een nieuwe meter en ik wil dan wel graag beginnen met loggen :-)

[Gé Brander]

jp73 schreef op maandag 07 januari 2013 @ 09:01:
Wat is op het moment de status van de Netduino plus V2 i.c.m. de slimme meter en een s0 teller ?

Heeft iemand het nu werkend of kan ik hem beter op marktplaats zetten en een netduino plus kopen ?

Morgen krijg ik een nieuwe meter en ik wil dan wel graag beginnen met loggen :-)

Het is werkend te krijgen. Lees dit topic even door. Als je nog vragen hebt daarna, stel ze hier dan maar.

Meer informatie wordt later toegevoegd aan de Topic Start.

[ Voor 5% gewijzigd door Gé Brander op 07-01-2013 11:28 ]

[Voederbietel]

@jp73
Ik heb geen ervaring met de S0, maar de P1 draait hier inmiddels prima met de Plus V2.
Heb je er aan gedacht om een 7404 te regelen? Anders kun je morgen nog niets met je P1 poort.

[jp73]

Voederbietel schreef op maandag 07 januari 2013 @ 17:41:
@jp73
Ik heb geen ervaring met de S0, maar de P1 draait hier inmiddels prima met de Plus V2.
Heb je er aan gedacht om een 7404 te regelen? Anders kun je morgen nog niets met je P1 poort.

ik heb 3 van die 7404 gekocht, p versies, die zijn al een aantal weken onderweg, ik moet morgen weer werken dus dan heb ik een week toch geen tijd, zal me in die tussentijd nog maar weer eens met de manual bezighouden en dan hopelijk volgende week...

ik ban al wel bezig geweest met mijn kwhmeter en de s0, maar daar kwam ik niet verder mee, maar er zijn inmiddels wat andere aanpassingen voor de v2 versie heb ik gelezen dus ga daar vanavond nog maar even mee aan de gang..

[ Voor 16% gewijzigd door jp73 op 07-01-2013 18:58 ]

[Willie Wortel]

Ik heb nog wel een paar dagen nodig om een en ander aan te passen.
Ben vandaag bezig geweest met de web pagina's compatible te maken met andere browsers, is ten dele gelukt omdat Chrome barst van de bugs

http://stackoverflow.com/...ick-doesnt-work-in-chrome
Staat bij Chrome, status solved. Nou mooi niet.

http://googlechromereleas...le-channel-update_25.html

De onclick waarmee ik data providers selecteer werkt niet in chrome van google. Nou zou dat voor mij geen fuck uitmaken, maar er zijn meer apparaten die met die kloote browser werken.

Microsoft is met zijn software lichtjaren vooruit op de rest Wat een troep dat andere zeg....het lijkt wel of ik 10 jaar terug ga in de tijd.

Ik ga natuurlijk niet tijd in goede Visual Basic code steken en sjebbie web pagina's neerzetten, dat is mijn eer te na.

[ Voor 7% gewijzigd door Willie Wortel op 07-01-2013 20:57 ]

[aa4711]

Heeft iemand al geprobeerd om de ND+2 tevens als webserver voor de webpaginas van JoopC te laten fungeren?
In principe kun je met Neonmika een "redelijk complete" webserver draaien en de ND+2 zou mogelijk groot en snel genoeg zijn om beide taken tegelijk te doen.

[Verwijderd]

aa4711 schreef op maandag 07 januari 2013 @ 22:11:
Heeft iemand al geprobeerd om de ND+2 tevens als webserver voor de webpaginas van JoopC te laten fungeren?
In principe kun je met Neonmika een "redelijk complete" webserver draaien en de ND+2 zou mogelijk groot en snel genoeg zijn om beide taken tegelijk te doen.

de webserver werkt volgens mij gewoon, althans de "standaard commando's" die zijn geprogrammeerd om rechtsreeks parameters op tehalen en files te downloaden, wat joopC bedoeld is denk dat in chrome bepaalde onclick niet werken (voor Cosm denk). Was me wel opgevallen dat dit bij mij niet werkt, heb de website nog niet echt gebruikt.

[Verwijderd]

Ik heb helaas geen temperatuur TMP36 sensor, ik heb wel een onwire DS18B20 sensor. En is volgens mij erg nauwkeurig, weinig fluctuatie.

Heb met wat onderzoek op internet in VB geprogrammeerd.
Mocht iemand interesse hebben, hier is de code van een "test", de class zou je kunnen gebruiken in dit project (met wat aanpassingen natuurlijk.....)

Ik heb het werkend op een Netduino Plus 2, je moet wel de reference "Microsoft.SPOT.Hardware.OneWire" toevoegen aan je project.

zo aansluiten:
Pin 1 to ground
Pin 2 to digital input (heb SDA pin gebruikt)
Pin 3 to ground (same as pin 1)
And a 4.7K resistor from pin 2 to 5V

TEST projectje:

code:

 Imports Microsoft.SPOT
Imports Microsoft.SPOT.Hardware
Imports SecretLabs.NETMF.Hardware
Imports SecretLabs.NETMF.Hardware.Netduino


Module OneWireTemperature
    Public MyTempMeter As TemperatureOneWire.OneWireSensor

    Sub Main()
        ' write your code here
        MyTempMeter = New TemperatureOneWire.OneWireSensor
        MyTempMeter.Start()

        While True
            'do something
            Thread.Sleep(1000)
            Debug.Print("My temp raw : " & MyTempMeter.Raw.ToString)
            Debug.Print("My temp now : " & MyTempMeter.NowCelcius.ToString)
            Debug.Print("My temp now : " & MyTempMeter.NowFahr.ToString)
            Debug.Print("My temp ave : " & MyTempMeter.AveCelcius.ToString)
            Debug.Print("My temp ave : " & MyTempMeter.AveFahr.ToString)
            Thread.Sleep(9000)
        End While
    End Sub

End Module

En de class.....

code:

#Region "Class, Temperature measuring with a OneWire (DS18B20)"

Namespace TemperatureOneWire

    Public Class OneWireSensor

        '----------------------------------------------------------------------
        'DS18B20 Commands
        'http://datasheets.maximintegrated.com/en/ds/DS18B20.pdf
        '----------------------------------------------------------------------
        Private Enum OneWireCommand As Byte
            'ROM commands
            SearchROM = &HF0        'Search slave devices
            ReadRom = &H33          'Read slave on bus (only when 1 device is connected)
            MatchRom = &H55         'Address a specific slave device
            SkipRom = &HCC          'Address all slave devices
            AlarmSearch = &HEC      'Find devices in alarm
            'Function commands (DS18B20)
            ConvertTemp = &H44     'initiates single temperature conversion
            WriteScratchPad = &H4E 'Write Th, Tl and config in temperature slave RAM register (3 bytes)
            ReadScratchPad = &HBE  'Read slave register (9 bytes)
            CopyScratchPad = &H48  'Copy Th, Tl and Config in EEPROM
            RecallE2 = &HB8        'Copy Th, Tl and Config from EEPROM to RAM register
            ReadPwrSuplly = &HB4   'Read power externally powered slave devices 
        End Enum
        '----------------------------------------------------------------------
        'DS18B20 Constants
        '----------------------------------------------------------------------
        Const cnstConversionTime As Integer = 750  '12 bit conversion time
        Const cnstSleeptime As Integer = 10000     'Sleep this thread
        Const UnknownValue As Integer = &HAAA      'Initial value after power up
        Const SignBit As Integer = &H800           'First Sign Mask is defined here
        Const Resolution As Single = 0.0625        'Bit resolution this sensor

        Private TemperatureThread As Thread = Nothing
        Private RawData As Integer
        Private HisData(7) As Integer


        Public Sub New()
            Me.TemperatureThread = New Thread(AddressOf ReadTemperatureOneWireSensor)
            Me.TemperatureThread.Priority = ThreadPriority.Lowest
        End Sub

        Public Sub Start()
            TemperatureThread.Start()
        End Sub
        '----------------------------------------------------------------------
        'Main routine to read tempurature for a SINGLE!! connected device
        'I/O to SDA PIN
        '----------------------------------------------------------------------

        Private Sub ReadTemperatureOneWireSensor()

            Dim TemperaturePort As New OutputPort(Pins.GPIO_PIN_SDA, False)
            Dim OneWireBus As New OneWire(TemperaturePort)
            Dim Data(8) As Integer
            Dim Counter As Integer

            Counter = 0
            For item As Integer = 0 To 7
                HisData(item) = UnknownValue
            Next

            Try
                Do While True
                    OneWireBus.TouchReset()
                    OneWireBus.WriteByte(OneWireCommand.SkipRom)     'Read single device only
                    OneWireBus.WriteByte(OneWireCommand.ConvertTemp) 'Start temperature reading/conversion
                    Thread.Sleep(cnstConversionTime)

                    OneWireBus.TouchReset()
                    OneWireBus.WriteByte(OneWireCommand.SkipRom)        'Read single device only
                    OneWireBus.WriteByte(OneWireCommand.ReadScratchPad) 'Command to read register
                    For item As Integer = 0 To 8
                        Data(item) = OneWireBus.ReadByte()              'Read data from register
                    Next


                    If (Data(0) = &HFF) And (Data(1) = &HFF) And (Data(2) = &HFF) Then           'No data receieved, or crap
                        RawData = UnknownValue
                    Else
                        RawData = (Data(0) + (Data(1) << 8))                   'Raw Temperature data
                        'RawData = &HFE6F                                       'Test value = -25.0625
                        If (RawData And SignBit) = SignBit Then                'Negative value (sign bit is high)
                            RawData = (RawData Or &HFFFF0000)                  'Convert to Negative integer (32bit)

                        End If
                    End If

                    'Collect data for average calculation (shift data)
                    If Counter < 8 Then Counter += 1
                    If Counter > 1 Then
                        For item As Integer = Counter - 1 To 1 Step -1
                            HisData(item) = HisData(item - 1)                                     'shift data
                        Next
                    End If
                    HisData(0) = RawData

                    Thread.Sleep(cnstSleeptime - cnstConversionTime)
                Loop
            Catch ex As Exception

            End Try



        End Sub
        '----------------------------------------------------------------------
        'Convert raw data temperature to Deg Celcius
        '----------------------------------------------------------------------
        Private Function ConvertTemp(myData As Integer) As Single
            If myData = UnknownValue Then
                Return 999
            Else
                Return CSng(myData * Resolution)
            End If

        End Function
        '----------------------------------------------------------------------
        'Convert raw temperature to Deg Fahrenheit
        '----------------------------------------------------------------------
        Private Function ConvertToFahr(myData As Single) As Single
            If myData = 999 Then
                Return 999
            Else
                Return myData * 9 / 5 + 32
            End If

        End Function
        '----------------------------------------------------------------------
        'Calculate Average tempurature from last 8 readings
        '----------------------------------------------------------------------
        Private Function CalcAve() As Single
            Dim cnt As Integer
            Dim total As Single
            For item As Integer = 0 To 7
                If HisData(item) <> UnknownValue Then
                    cnt += 1
                    total += ConvertTemp(HisData(item))
                End If
            Next
            If cnt > 0 Then
                Return (total / cnt)
            Else
                Return 999
            End If

        End Function
        '----------------------------------------------------------------------
        'Callup raw data
        '----------------------------------------------------------------------
        Public ReadOnly Property Raw As Integer
            Get
                Return Me.RawData
            End Get
        End Property
        '----------------------------------------------------------------------
        'Last known value in deg C
        '----------------------------------------------------------------------
        Public ReadOnly Property NowCelcius As Single
            Get
                Return ConvertTemp(Me.RawData)
            End Get
        End Property
        '----------------------------------------------------------------------
        'Last known value in deg F
        '----------------------------------------------------------------------
        Public ReadOnly Property NowFahr As Single
            Get
                Return ConvertToFahr(ConvertTemp(Me.RawData))
            End Get
        End Property
        '----------------------------------------------------------------------
        'Average value in deg C
        '----------------------------------------------------------------------
        Public ReadOnly Property AveCelcius As Single
            Get
                Return CalcAve()
            End Get
        End Property
        '----------------------------------------------------------------------
        'Average value in deg F
        '----------------------------------------------------------------------
        Public ReadOnly Property AveFahr As Single
            Get
                Return ConvertToFahr(CalcAve())
            End Get
        End Property
    End Class

End Namespace

#End Region

En uh.... o ja suggusties zijn welkom

[Willie Wortel]

Hallo Ludo, je code ziet er goed uit zeg, alleen kan deze niet in de V1 maar wel in de V2 geïmplementeerd worden. Waarom de V1 niet, geen voldoende geheugen.
Ik denk wel dat een hoop tweakers blij zullen zijn met deze uitbreiding.

Ik zie wel dat de meter een gemiddelde hanteert uit 8 metingen.

[ Voor 12% gewijzigd door Willie Wortel op 08-01-2013 08:18 ]

[Gé Brander]

Misschien een idee om ook uit te zoeken hoe een watermeter uitgelezen kan worden?
http://www.branderonline.com/SiteImages/WP_20130108_001.jpg
Dit is het type meter wat ik heb. Iemand een idee hoe dat zou kunnen?

[Mike70]

c70070540 schreef op dinsdag 08 januari 2013 @ 09:10:
Misschien een idee om ook uit te zoeken hoe een watermeter uitgelezen kan worden?
http://www.branderonline.com/SiteImages/WP_20130108_001.jpg
Dit is het type meter wat ik heb. Iemand een idee hoe dat zou kunnen?

http://www.vip-ltd.co.uk/catalogue/datasheets/45_0453.pdf

[Gé Brander]

Mike70 schreef op dinsdag 08 januari 2013 @ 09:16:
[...]


http://www.vip-ltd.co.uk/catalogue/datasheets/45_0453.pdf

Heb jij die? Zo ja, waar heb je die gekocht?
Na wat zoeken ben ik op deze site terechtgekomen:
http://www.pipersberg.de/Wasserzahler/cyble/cyble.html

Ik heb een mail gestuurd voor een prijsopgave.

Mike70 schreef op dinsdag 08 januari 2013 @ 10:49:
[...]


Ik heb niet zo'n meter.
Wou alleen maar behulpzaam zijn en vond dit dus.

Thanks!

[ Voor 46% gewijzigd door Gé Brander op 08-01-2013 11:27 ]

[Mike70]

c70070540 schreef op dinsdag 08 januari 2013 @ 09:24:
[...]

Heb jij die? Zo ja, waar heb je die gekocht?
Na wat zoeken ben ik op deze site terechtgekomen:
http://www.pipersberg.de/Wasserzahler/cyble/cyble.html

Ik heb een mail gestuurd voor een prijsopgave.

Ik heb niet zo'n meter.
Wou alleen maar behulpzaam zijn en vond dit dus.

[Speedfightserv]

ik kwam dit toevallig tegen op het internet. Misschien heeft iemand er wat aan. Led pulsen meten:
http://openenergymonitor....duction-to-pulse-counting