NetDuino Voor DataLogging en nog veel meer.

[Willie Wortel]

Stukje over Netduino,

De zonnepanelen en toebehoren hebben we gekocht bij Duurzame EnergieShop.
Hier een promotje, door ons gemaakt:

Ik heb zonnepanelen aangeschaft, een beetje uit interesse en om wat te knutselen te hebben.
Moest ook een nieuwe groepenkast komen, daar heb ik een elektricien laten komen.
De goede vakman had nog geen email, website en reclame materiaal.
Heb maar een eenvoudige website en een reclame filmpje voor hem in elkaar gehatseflatst.
http://www.bak-elektrotechniek.nl/

Met niet onbelangrijk in de meterkast, een S0 pulse KWH teller.
http://i1173.photobucket.com/albums/r593/JoopC/Meterkast.jpg

Maar ja, dan liggen ze op dak hè… de zonnepanelen…..Er valt zo weinig aan de zien.
Nou was ik me een beetje aan het oriënteren wat er zoal op de markt is aan data logging.
Moet zeggen, er was wel wat maar buiten mijn budget of niet wat ik zocht.
Dan maar zelf wat knutselen, een logisch gevolg de Netduino (what else).

De Netduino onderscheidt zich van de Arduino door een andere architectuur en de programmeertalen C# en Visual Basic.

---

Hier zijn een aantal interessante links:

De Netduino heb ik gekocht bij Floris.
http://www.pieterfloris.nl/shop/product.php?id_product=271
Binnen 1 dag had ik het pakje binnen.
Verder 2 servo’s
http://www.pieterfloris.nl/shop/product.php?id_product=38
en nog wat klein materiaal waaronder rj45 jacks
http://www.pieterfloris.nl/shop/product.php?id_product=659

De ontwikkel tools/editor, VB of C#, beide gratis programma’s kan je downloaden
http://www.microsoft.com/...cts/2010-editions/express

Welke taal je prefereer maakt niet uit, wat je zelf makkelijk vind. Conversie tussen de 2 talen is eenvoudig met deze internet tool:
http://www.developerfusion.com/tools/convert/csharp-to-vb/

Mocht er om welke reden dan ook je Netduino niet herkend worden door Win7, dan zijn hier vele tips.
http://wiki.netduino.com/...ecognize-my-Netduino.ashx

Wil je met VB aan de slag gaan dan moet je de nieuwste .NET Micro Framework 4.2 in je Netduino laden.
YouTube: Netduino VB Programming Setup
Het lijkt overweldigend maar na een tijdje doe je het net als ik met je ogen dicht.

De installatie procedure is later nog eens herhaald:
http://gathering.tweakers.net/forum/view_message/38757455


De website van de bouwer geeft een uitstekende ondersteuning en biedt de oplossing voor de meeste problemen.
http://www.netduino.com/downloads/
http://forums.netduino.com/

---

Nou, dan heb je de Netduino gekocht en de nieuwste Framework geïnstalleerd, wat nu ……
Allereerst Heb ik een paar netwerk kabels gekocht, 1 voor de Pulse uit de meterkast en 1 om de Netduino met internet te verbinden.
Ik heb van de netwerk kabel de rj45 jacks afgeknipt en verbonden met de Pulse in de meterkast, de andere kant aan port 13 van de Netduino.

http://i1173.photobucket....593/JoopC/PulseSchema.jpg
Input Computer is uiteraard de Netduino

De servo’s heb ik op een oud schilderij lijstje geplaatst evenals de display en ledjes (1 voor de pulse, 1 voor internet)
http://www.pieterfloris.nl/shop/product.php?id_product=490
http://www.pieterfloris.nl/shop/product.php?id_product=38
http://www.pieterfloris.nl/shop/product.php?id_product=652
Je moet in deze een beetje creatief zijn, een zaagje, een beetje hobby lijm en wat plakband.
Als je uiteindelijk je ontwerp helemaal af hebt dan kan je eventueel de draadjes solderen
http://www.pieterfloris.nl/shop/product.php?id_product=516
Of met een speciaal ontworpen bordje waar je de draadjes eenvoudig in kan prikken:
http://www.pieterfloris.nl/shop/category.php?id_category=18

Ik zal best wel een en ander vergeten zijn, maar in hoofdlijnen ben je al een eind op weg.
Ben je helemaal nieuw in deze materie dan kan ik je de video’s van Jeramy Blum aanbevelen.
http://www.jeremyblum.com/category/arduino-tutorials/
Het zijn 14 video’s over een Arduino, met de basics. Je krijgt dan in ieder geval een gevoel met waar je aan begonnen bent.

suc6

---

Niet onbelangrijk, de programmeer code geschreven in Visual Basic om mijn kunstwerkje te besturen.
http://i1173.photobucket.com/albums/r593/JoopC/IMG2_4054.jpg
http://i1173.photobucket.com/albums/r593/JoopC/IMG_4072.jpg


En...de data wordt automatisch naar Cosm
https://cosm.com/feeds/66777
alsook naar PVoutput geupload
http://www.pvoutput.org/intraday.jsp?id=12106&sid=10049

De programma code in een bestandje:
http://www.mijnbestand.nl/Bestand-PLPHOYRXBBLT.rar

---

Ik schrijf nog een snippet voor auto email indien er problemen met de installatie voordoen.
Hoop in ieder geval dat jullie het even leuk vinden als ik.

Er komt een andere trailer maar voor nu....
[YouTube: http://www.youtube.com/watch?v=mevyeKHXw2c]


Hier een stukje programmeer code...

Visual Basic .NET:

    Private Enum DisplayState
        DisplayTime
        DisplayKWH
        DisplayWattPeak
    End Enum

    Private Enum PVServer
        Cosm
        PVoutput
    End Enum

    Sub Main()


        Dim Display As DisplayState = DisplayState.DisplayTime

        'Stop toggle provider in the sourcecode when you do not want 1 of the servers
        Dim Provider As PVServer = PVServer.Cosm

        Const cnstHostPVoutput As String = "pvoutput.org"
        Const cnstApiPVoutput As String = "YOUR PVOUTPUT API KEY HERE"
        Const cnstSIDPVoutput As String = "YOUR SID HERE"

        Const cnstHOSTCosm As String = "api.pachube.com"
        Const constApiKeyCosm As String = "YOUR COSM API KEY HERE"
        Const constFeedIdCosm As String = "YOUR FEEDID HERE"
        Const cnstIdWattageCosm As String = "AC_Wattage,"   'change, do not forget the comma  -- YOUR FIRST LOG HERE
        Const cnstIdKWHCosm As String = "KiloWatt,"                     'YOUR SECOND LOG HERE
        Const cnstIdUitstootCO2Cosm As String = "MinderUitstootCO2,"    'YOUR THIRD LOG HERE

        Const cnstWattageTicks As Double = 1800.0                   '(3600 seconds in 1 hour / (2000 pulsen per KW  / 1000) )
        Const cnstKG_CO2_Saved As Double = 0.7

        'ticks are more precisely, reliable....  there are 10000 Ticks in a millisec, 1000 millicess in sec  
        Const cnstHowManyTicksBeforeUpdateInternet As Long = 300000000    '(30secs)
        Const cnstHowManyPulsesBeforeChange As Integer = 10

        'If there is a big change in Wattage, display, send and set the servo's
        Const cnstMAXHowManyWattageChange As Integer = 200

        Dim blnInitInternetAndSetTime As Boolean = True  'init
        Dim dblTotalWattage As Double = 0.0
        Dim dtStartTime As DateTime
        Dim dblTimeBetween2Pulses As Double = 0.0
        Dim intWattageAtPresent As Integer = 0
        Dim intwattageStatic As Integer = 0
        Dim intPulseCounter As Integer = 0
        Dim intTotalWattage As Integer = 0
        Dim intWattagePeak As Integer = 0
        Dim strFeeds As String = ""

        'put  0,005v current on the port 13 of the N+
        '= 5v with 100ohm resistor
        'on any other way it may have capricious, unreliable results
        Dim portElectricPulse_D13 As InputPort = New InputPort(Pins.GPIO_PIN_D13, False, InputPort.ResistorMode.Disabled)

[ Voor 1% gewijzigd door Willie Wortel op 22-08-2012 10:07 . Reden: Link toegevoegd. ]

[woekele]

Very interesting.

Vraag: werkt elke kWh-meter met s0 hetzelfde? Geven ze allemaal dezelfde soort 'pulses'? Voltage hetzelfde etc? Ik weet wel dat er 1000-ticks-versies zijn en 2000-ticks (zoals jij gebruikt). Dat lijkt me makkelijk aan te passen in de code (1800->3600?). Maar ergens moeten die pulses ook gedecteerd worden en dat lijkt me minder makkelijk te coden om de netduino precies te laten weten wat precies 'een tick' van de kWh-meter is.

En wat gebeurt er als internet/pvoutput een uurtje uit zou vallen? Ben je data dan kwijt? Of wordt het daarna alsnog weggeschreven? Is het ook nog mogelijk weg te schrijven naar SD-kaart voor de zekerheid?

[ Voor 19% gewijzigd door woekele op 31-07-2012 15:12 ]

[Domba]

Ik volg met belangstelling, maar het valt mij wel op dat er haperingen zitten in de upload.

31/07/12 2:45PM 3.101kWh 1.034kWh/kW 541W 540W 0.180kW/kW
31/07/12 2:35PM 3.011kWh 1.004kWh/kW 693W 696W 0.232kW/kW

Hier mist volgens mij 1 keer een upload naar PVoutput op andere moment is dit ook te zien.

Is er al een eerste indruk of het gelogde opgewekte vermogen bij PVoutput overeenkomt met de kWh-meter voor dezelfde dag?

[harold65]

woekele schreef op dinsdag 31 juli 2012 @ 14:57:
Vraag: werkt elke kWh-meter met s0 hetzelfde?

Ja, S0 is een standaard (EN 62053-31). De twee pinnen van de S0 uitgang van de meter zijn de collector en emitter van een optocoupler. Bij elke pulse gaat de transistor 20ms lang in geleiding.

[woekele]

Tnx hardold (en gefeliciteerd!) voor de uitleg.

Over die 'haperingen': JoopC heeft eerder aangegeven dat dat geen haperingen zijn, maar dat er gewoon geen nieuwe info is?

[Willie Wortel]

woekele schreef op dinsdag 31 juli 2012 @ 20:08:
Tnx hardold (en gefeliciteerd!) voor de uitleg.

Over die 'haperingen': JoopC heeft eerder aangegeven dat dat geen haperingen zijn, maar dat er gewoon geen nieuwe info is?

Nee, er zijn geen haperingen.

http://www.pvoutput.org/intraday.jsp?id=12106&sid=10049
is nu een auto upload vanaf Cosm.
Ga met je muis over 3.000KW naast SolarInKrimpen, dan komt er een popup en wat staat daar.....

Ik heb even een schaduwlog aangemaakt (uurtje geleden), voor de gemoedsrust:
http://www.pvoutput.org/intraday.jsp?id=12106&sid=10203

[Domba]

woekele schreef op dinsdag 31 juli 2012 @ 20:08:
Over die 'haperingen': JoopC heeft eerder aangegeven dat dat geen haperingen zijn, maar dat er gewoon geen nieuwe info is?

Sorry, maar term "geen nieuwe info" zegt me niets en kan ik niet plaatsen, geen idee wat je daarmee bedoelt.
De opbrengst van zonnepanelen is geheel afhankelijk van de weersomstandigheden en zeker met 2000 counts/kWh is de kans dat 2 opvolgende tijdsperiode van 5 minuten evenveel counts hebben klein en al helemaal minimaal voor meerdere keren per dag tenminste als je op basis van fixed time interval logt.

JoopC schreef op dinsdag 31 juli 2012 @ 20:28:
[...]
Nee, er zijn geen haperingen.

http://www.pvoutput.org/intraday.jsp?id=12106&sid=10049
is nu een auto upload vanaf Cosm.
Ik heb even een schaduwlog aangemaakt (uurtje geleden), voor de gemoedsrust:
http://www.pvoutput.org/intraday.jsp?id=12106&sid=10203

Zie ik het goed dat het criterium van verzending afhankelijk is van de integer van >= 200 counts (0,1kWh) , maar wel met een cycletime check per 300 sec.?

[Willie Wortel]

Domba schreef op woensdag 01 augustus 2012 @ 09:39:
[...]

[...]

Zie ik het goed dat het criterium van verzending afhankelijk is van de integer van >= 200 counts (0,1kWh) , maar wel met een cycletime check per 300 sec.?

Nee, dat zie je niet goed.
De UpdateTime is minimaal 30 seconden naar internet. (Dit is veel !)
De UpdateTime kan verlengt worden door te weinig pulsen (10). Dit is in mijn geval (2000 Pulsen/KWH) 5Watt. Bij zware bewolking bv.
De UpdateTime INTERN, dus de variabelen, kan ook bij een verschil in Wattage, in mijn geval 200Watt.
Dit verschijnsel is bv bij wolken zonnetje. De gevoeligheid van je programma/installatie zeg maar.
Feel free om een en ander eruit te slopen of te veranderen.

[ Voor 3% gewijzigd door Willie Wortel op 01-08-2012 10:42 ]

[smartsys]

Ik ben ook op zoek naar een manier om twee KWh meters uit te lezen waarbij er een (een driefase meter) het verbruik registreerd en de andere (een enkelfase meter) de opbrengst uit de PV installatie.
Ik weet zo mijn exacte verbruik over de drie fasen en ik weet hoeveel er is teruggeleverd.
Een deel van de teruglevering wordt echt teruggeleverd en een deel wordt verbruikt op de fase waarop wordt teruggeleverd. 100% nauwkeurig zien hoeveel er uiteindelijk betaald/terugontvangen moet worden kan niet, maar ik heb wel inzicht in verbruik per tijdseenheid en heb een nauwkeurige meting van de opbrengst.

Ik wil deze gegevens met een Arduino of een Netduino gaan registreren.
Ik zat te denken om de gegevens eerst naar een file op een SD kaart te schrijven en de inhoud van deze file iedere 5 minuten naar PVoutput.org te sturen. Bij een succesvolle upload wordt de file verwijdert. Lukt een upload niet dan wordt deze 5minuten later weer uitgevoerd en bevat de file simpelweg meer gegevens om te uploaden. Zodoende raak ik geen gegevens kwijt bij een internet of pvoutput storing en hersteld het systeem zichzelf.
Tevens wordt een archief file aangemaakt waar dezelfde gegevens in bijgehouden worden. Per dag moet een nieuwe archief file bestaan zodat er ook een lokaal archief ontstaat.

Is dit met de Arduino of Netduino mogelijk?

[Willie Wortel]

smartsys schreef op woensdag 01 augustus 2012 @ 14:21:

Is dit met de Arduino of Netduino mogelijk?

Met een Netduino is dit wel mogelijk echter is je routine van uploaden is erg omslachtig.
Je zou naast upload, alle data op een sd kaartje kunnen opslaan, iedere mnd een nieuw bestandje.
Kan je met een 8 gieg zo een 20 jaar vooruit. Heb je panne met je internet kan je altijd later nog een batch bestand uploaden.

Data logging met een arduino, ik ga niet terug naar het stenen tijdperk, is veel expertise bij :
http://www.wijhebbenzon.n...-arduino-meterkastlogging

suc6

[Willie Wortel]

Ik heb de code geoptimaliseerd (uitgebreid) voor logging naar ThingSpeak, bijna realtime.

https://www.thingspeak.com/channels/2871

Met Thingspeak is het mogelijk op een eenvoudige wijze http code aan te maken en uit te breiden met de Ontwikkelaars Tools van Google en zodoende alles op je eigen website pagina te pleppen.
https://developers.google...active/docs/gallery/gauge

Zelf host ik mijn website bij http://www.strato.nl/
Voor de Newbee's, video lessen, ontwerpen website's (tegen betaling) te bekijken bij http://www.lynda.com/

[woekele]

leuk man moet me er toch eens verder in verdiepen. Maar twijfel nog sterk tussen netduino of een arduino mega + ethernet shield.

[Willie Wortel]

woekele schreef op vrijdag 03 augustus 2012 @ 12:35:
leuk man moet me er toch eens verder in verdiepen. Maar twijfel nog sterk tussen netduino of een arduino mega + ethernet shield.

Woekele, waar twijfel je aan dan, kan je dat uitleggen.?.
De Mega, heb je zoveel vrije poorten nodig.?

[woekele]

De Mega heeft meer geheugen dan de Uno. En voordeel tov Netduino: Arduino is goedkoper (tenminste, de chinese varianten) en meer bestaande code, die ik tot nu toe heb kunnen vinden tenminste.

Voor beide geldt wel dat ik een zeer lange netwerkkabel moet gaan trekken/wegwerken

[ricdijk]

woekele schreef op vrijdag 03 augustus 2012 @ 16:13:
De Mega heeft meer geheugen dan de Uno. En voordeel tov Netduino: Arduino is goedkoper (tenminste, de chinese varianten) en meer bestaande code, die ik tot nu toe heb kunnen vinden tenminste.

Voor beide geldt wel dat ik een zeer lange netwerkkabel moet gaan trekken/wegwerken

Via de WiFly module kan je een arduino (of netduino) ook draadloos met je netwerk verbinden.

http://www.pieterfloris.nl/shop/product.php?id_product=523
http://www.iprototype.nl/...ations/RN-XV-WiFly-Module

Het makkelijks is om deze met een breakout board aan de sluiten (de pin afstand van de xbee modules is anders dan die van Arduino). En je kan het beste een level shifter gebruiken (de wifly werkt op 3.3V)

[woekele]

Okay, ik had gehoopt op een kant-en-klaar plug&play wifi-shieldje Zie deze wel op ebay ( http://cgi.ebay.nl/ws/eBa...iewItem&item=320899439629 ) staan, wel duurder dan deze module overigens. Hm, zoiets als http://www.iprototype.nl/...uino/shields/WiFly-Shield I guess, maar die op ebay is dus nog makkelijker.

En moet je dan nog code aanpassen om de arduino/netduino gebruik te laten maken van de wifi ipv ethernet? Of kiest hij 'automatisch' de beschikbare netwerk-interface?

[ Voor 27% gewijzigd door woekele op 03-08-2012 17:34 ]

[Willie Wortel]

Ik heb er ook aan gedacht om (ooit) draadloos te gaan maar dat is toch gewoon mogelijk met een WIFI Bridge?
http://www.conrad.nl/ce/n...0-EW-7228APn/?ref=detview
bv in de meterkast of zie ik dat verkeerd.

Ik heb hier voorbeeld code van Stefan Thoolen (http://www.netmftoolbox.com/), Netduino programmeur.
Heeft trouwens ook een eigen (hollandse) website.

http://netmftoolbox.codep...angeset/view/16291#197174
En staan vele voorbeelden programma's in C# en VB

Hij heeft veel geschreven oa kant en klare code voor deze:
http://www.pieterfloris.nl/shop/product.php?id_product=634
http://ladyada.net/make/rgblcdshield/

Dat display ga ik gebruiken, gaaf hè.

[ Voor 21% gewijzigd door Willie Wortel op 03-08-2012 18:23 ]

[ricdijk]

woekele schreef op vrijdag 03 augustus 2012 @ 17:23:
Okay, ik had gehoopt op een kant-en-klaar plug&play wifi-shieldje Zie deze wel op ebay ( http://cgi.ebay.nl/ws/eBa...iewItem&item=320899439629 ) staan, wel duurder dan deze module overigens. Hm, zoiets als http://www.iprototype.nl/...uino/shields/WiFly-Shield I guess, maar die op ebay is dus nog makkelijker.

En moet je dan nog code aanpassen om de arduino/netduino gebruik te laten maken van de wifi ipv ethernet? Of kiest hij 'automatisch' de beschikbare netwerk-interface?

Je zal wel wat code moet aanpassen, maar dat is niet erg ingewikkeld, er is een library inclusief voorbeelden (https://github.com/harlequin-tech/WiFlyHQ). Zal bij die andere kaartjes niet anders zijn.

[ricdijk]

JoopC schreef op vrijdag 03 augustus 2012 @ 17:57:
Ik heb er ook aan gedacht om (ooit) draadloos te gaan maar dat is toch gewoon mogelijk met een WIFI Bridge?
http://www.conrad.nl/ce/n...0-EW-7228APn/?ref=detview
bv in de meterkast of zie ik dat verkeerd.

Het is zeker ook mogelijk met een ethernet shield en een WIFI bridge. Heb je wel twee apparaten (duurder en meer stroomgebruik)

[woekele]

JoopC, wat ga je met het display doen? Ik vind je huidige analoge display juist zo gaaf

Wifi-client-bridge... Interesting. Goedkoper dan Wifi-modules tbh. En makkelijker omdat je bestaande code kunt gebruiken. Alleen wel meer stroomverbruik ja.

Edit: dit apparaatje claimt maar 1.2W te gebruiken en is klein en aantrekkelijk geprijsd: pricewatch: ICIDU Wireless Nano Router 150N
Erg gelijkend apparaat is pricewatch: TP-Link TL-WR702N

[ Voor 92% gewijzigd door woekele op 05-08-2012 15:54 ]

[Willie Wortel]

woekele schreef op vrijdag 03 augustus 2012 @ 20:20:
JoopC, wat ga je met het display doen? Ik vind je huidige analoge display juist zo gaaf

Wifi-client-bridge... Interesting. Goedkoper dan Wifi-modules tbh. En makkelijker omdat je bestaande code kunt gebruiken. Alleen wel meer stroomverbruik ja.

Ik ben een tweede aan de muur hang paneel aan het maken met PV, huiselijk verbruik, temperatuur en IR detectie. En het nieuwe digitale display (is heel klein) komt links onder op het schilderijtje, zeg maar. Wordt eeeeel mooi.

Het voordeel van een bridge is, send it and forget it. Je hoeft zelf de handling van verzenden niet meer te doen, wat weer processor tijd kost. Nogmaals, met xbee en andere breakout boards gaat het ook.

De Source code is uitgebreid met schrijven naar een SD kaart. Voor de data verkneuteraars.

Ik moet nog uitvogelen waar ik alle versies overzichtelijk kan uploaden. De upload site die ik ken heeft een retentie tijd van 3 maanden, daarna wordt het bestand gewist. Als ik een nieuwe site heb gevonden zal ik ook uitgeklede versies voor alleen naar PVoutput, Cosm en ThingSpeak neerzetten. Is makkelijker voor de Newbee programmeurs.

[Willie Wortel]

TemperatuurSensor voor de zonnepanelen aan de code toegevoegd.
De sensor gekocht bij :
http://www.pieterfloris.nl/shop/product.php?id_product=34

Verbonden met een UDP kabel (lekker goedkoop), 10 meter, gekocht bij een winkel van www.action.nl voor nog geen 3 euro.
De sensor aan de onderkant van een zonnepaneel getaped met duc tape.

Aansluit Schema:


Code:

Visual Basic .NET:

Dim TemperatureSensor As New SecretLabs.NETMF.Hardware.AnalogInput(Pins.GPIO_PIN_A0)

sub Main
  debug.print(MeasureTemperature())
end Sub

Function MeasureTemperature() As String
        Dim Temperature As Single = 0.0
        Dim t As Integer
        For t = 1 To 3
            Temperature += (((CSng(TemperatureSensor.Read()) / 1024.0F) * 3.3F) - 0.5F) * 100
            Thread.Sleep(20)
        Next
        Return (Temperature / 3).ToString("N1")
    End 

[ Voor 5% gewijzigd door Willie Wortel op 06-08-2012 10:17 ]

[ricdijk]

woekele schreef op vrijdag 03 augustus 2012 @ 20:20:


Wifi-client-bridge... Interesting. Goedkoper dan Wifi-modules tbh. En makkelijker omdat je bestaande code kunt gebruiken. Alleen wel meer stroomverbruik ja.

Edit: dit apparaatje claimt maar 1.2W te gebruiken en is klein en aantrekkelijk geprijsd: pricewatch: ICIDU Wireless Nano Router 150N
Erg gelijkend apparaat is pricewatch: TP-Link TL-WR702N

De prijs van de wifi-client-bridges zijn wel wat lager dan de wifly, je hebt wel een arduino/netduino met ethernet nodig, die zijn weer ruim 23 euro duurder. Bij de wifly komt nog wel een print plaatje en level shifter.

Die kleine routers met laag stroomverbruik zijn wel heel interessant!

[ Voor 3% gewijzigd door ricdijk op 05-08-2012 23:17 ]

[woekele]

Op ebay maar 9 euro voor ethernet/sd-shield. Moet alleen nog afwachten of ze werken

[Willie Wortel]

ProgrammaCode snippet aangepast voor schrijven naar een SD micro card.

Visual Basic .NET:

If DateTime.Now > dtWriteToSD Then 'every 5 minutes we will write to SD card
        'reset loop time to the new time        
        dtWriteToSD = DateTime.Now.AddMinutes(5)

        '***Uncomment this line when you leave the Netduino running 24/7
        ' strFileName = "\" & DateTime.Now.ToString("dd-MM-yyyy") & ".log"  ' Init filename 

        If Not File.Exists(strFileName) Then
            Using writer As New StreamWriter(strFileName, True)
                writer.WriteLine("Time " & Constants.vbTab & "Wattage" & Constants.vbTab & "KWH    " & Constants.vbTab & "PeakWatt")
            End Using
        End If

        Using writer As New StreamWriter(strFileName, True)
            strFeeds = DateTime.Now.ToString("HH:mm") & Constants.vbTab
            strTmp = "       " & intWattageAtPresent.ToString()
            strFeeds += strTmp.Substring(strTmp.Length - 7) & Constants.vbTab
            strTmp = "       " & dblTotalWattage.ToString("N2")
            strFeeds += strTmp.Substring(strTmp.Length - 7) & Constants.vbTab
            strTmp = "       " & intWattagePeak.ToString()
            strFeeds += strTmp.Substring(strTmp.Length - 7) & Constants.vbTab
            writer.WriteLine(strFeeds)
        End Using

    End If

[woekele]

Je bent lekker bezig, JoopC

[Willie Wortel]

En als je dan upload naar pvOutput dan is het eenvoudig om de data weer op te halen.

[Willie Wortel]

Ik heb de metertjes geprogrameerd in een eenvoudige html file.
De data haal ik van ThingSpeak want ik upload met mijn Netduino ook naar die server.
https://www.thingspeak.com/channels/2871

De data had ik ook wel willen halen vanaf PVoutput maar ik heb mijn vinger er niet achter kunnen krijgen hoe dat te doen. Email met PVoutput over HowTo leverde wat (voor mij) warrige berichten.
In de handleiding van PVoutput staat eea maar heb het op allerhande manieren geprobeerd, zonder resultaat.
Ben namelijk geen web programmeur.




Download het bestandje en pas de gegevens aan naar je eigen situatie.
http://www.mijnbestand.nl/Bestand-DWSZFGNQQU4T.rar

[Rol-Co]

joop
Ik heb sinds gisteren zo'n inpro metertje in mijn abb kast en volgensmij het zelfde type als jij , wat heb ik nu minimaal nodig om automatisch te uploaden bij PVoutput?

[Willie Wortel]

Rol-Co schreef op zaterdag 11 augustus 2012 @ 10:12:
joop
Ik heb sinds gisteren zo'n inpro metertje in mijn abb kast en volgensmij het zelfde type als jij , wat heb ik nu minimaal nodig om automatisch te uploaden bij PVoutput?

Het minimale is alleen de Netduino, een voeding voor je netduino (ik had zelf nog een oud trafotje van een halogeen buro lamp), een kabeltje vanaf je meterkast naar de Netduino en een utp netwerk kabel naar je router. Ik zal een aangepaste kaal programma code ter beschikking stellen indien daar behoefte voor is.

[Rol-Co]

ok, dan zal ik even zo'n netduino bestellen, voedingkje heb ik ook nog wel ergens.
kaal programma zal dan handig zijn inderdaad, alvast bedankt.

[harold65]

Als je ethernet gaat gebruiken heb je de Netduino-Plus nodig.
De normale Netduino heeft geen ethernet.

[Rol-Co]

ja had ik al gezien inderdaad. moet de + hebben.

[Willie Wortel]

Rol-Co schreef op zaterdag 11 augustus 2012 @ 13:33:
ok, dan zal ik even zo'n netduino bestellen, voedingkje heb ik ook nog wel ergens.
kaal programma zal dan handig zijn inderdaad, alvast bedankt.

Ik zal het programma aanpassen voor logging naar PVoutput, zal het hier plaatsen.

[WouterG]

Vandaag mijn panelen op het dak gelegd en vanmiddag is ook mijn netduino binnengekomen.

Plan is om te gaan loggen naar de sd kaart en die logging dan met behulp van ethernet uit te kunnen lezen.

Ik verveel me voorlopig niet.

[Willie Wortel]

Hier is de code voor alleen naar PVoutput te schrijven: Copy and Paste

Visual Basic .NET:

Imports System.Net
Imports System.Math
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.SPOT
Imports Microsoft.SPOT.Hardware
Imports SecretLabs.NETMF.Hardware
Imports SecretLabs.NETMF.Hardware.NetduinoPlus
Imports System
Imports System.IO
Imports Microsoft.SPOT.Net.NetworkInformation
Imports Microsoft.SPOT.Net


Module PVoutput

    Dim blnInitWebOrRebootAndSetTime As Boolean = True  'init

    Sub Main()

        Const cnstHostPVoutput As String = "pvoutput.org"
        Const cnstApiPVoutput As String = "HERE YOUR API"
        Const cnstSIDPVoutput As String = "HERE YOUR SID"

        '********************************************************************************************************
        '* Here you MUST modify the pulse counter Howmany pulses give your KWH SO in 1 KW (for me 2000 pulses per KW) 
        ' so  calculate (3600 seconds in 1 hour / (2000 pulsen per KW  / 1000) ) = 1800
        ' 3600 / ( PULSES / 1000 )
        Const cnstWattagePulses As Integer = 1800
        Dim sglPulseWattage As Single = 1 / 2000  '  (2000 pulses in 1 KWH)

        'Delay seconds, time interval for writing to PVoutput
        Const cnstHowmanySecondsBeforeUpdatePVOutput As Integer = 240    'In SECONDs = 4 minuten
        Const cnstFirstTimeWriteToInternet As Integer = 120      'In SECONDs   first time a delay to init the router etc...
        Const cnstDelayWriteToInternetONError As Integer = 600          'In SECONDs

        Dim sglTotalWattage As Single = 0.0
        Dim intWattageNow As Integer = 0
        Dim sbFeeds As New StringBuilder

        'put  0,005v current on the port 13 of the N+
        '= 5v with 100ohm resistor
        'on any other way it may have capricious, unreliable results
        Dim portElectricPulse_D13 As InputPort = New InputPort(Pins.GPIO_PIN_D13, False, InputPort.ResistorMode.Disabled)

        Dim dtWriteToPVOutput As DateTime = DateTime.Now.AddSeconds(cnstFirstTimeWriteToInternet) 'first time before write
        Dim dtStartTime As DateTime = DateTime.Now

        Do While True  'forever loop

            Try    'error handling will resolve the error without intervention.

                If Not portElectricPulse_D13.Read() Then   'now it's simple, just count the pulses

                    'calculate the PV wattage, the time between 2 pulses
                    intWattageNow = CInt(cnstWattagePulses / ((DateTime.Now.Ticks - dtStartTime.Ticks) / TimeSpan.TicksPerSecond))
                    dtStartTime = DateTime.Now

                    sglTotalWattage += sglPulseWattage

                    If DateTime.Now > dtWriteToPVOutput Then   'write to internet

                        If blnInitWebOrRebootAndSetTime Then 'only once

                            If checkInternetAvailable() Then

                                '  http://tf.nist.gov/tf-cgi/servers.cgi     'address of all the time servers

                                Utility.SetLocalTime(NTPTime("nist1-ny.ustiming.org"))  'sync UTC time with Netduino time

                                blnInitWebOrRebootAndSetTime = False   'no need to set the time twice, or reboot

                            End If

                        End If

                        Using PVoutputConnection As Socket = Connect(cnstHostPVoutput, 5000)   'make a connection

                            'we use the stringbuilder for speed and better memory management
                            sbFeeds.Clear()

                            sbFeeds.Append("GET /service/r2/addstatus.jsp" & "?key=" & cnstApiPVoutput)
                            sbFeeds.Append("&sid=" & cnstSIDPVoutput & "&d=" & DateTime.Now.ToString("yyyyMMdd"))
                            sbFeeds.Append("&t=" & DateTime.Now.ToString("HH:mm") & "&v1=" & CInt(sglTotalWattage * 1000).ToString)
                            sbFeeds.Append("&v2=" & intWattageNow.ToString)

                            SendRequestToPVoutput(PVoutputConnection, sbFeeds.ToString, cnstHostPVoutput)

                        End Using

                   'update the delay time for the next write
                    dtWriteToPVOutput = DateTime.Now.AddSeconds(cnstHowmanySecondsBeforeUpdatePVOutput)
                    End If
                   Thread.Sleep(100)       'do not delete this time delay!
                   
                End If
            Catch Ex As Exception   'trouble in town...... error 

                checkInternetAvailable()     'init the internet
                dtWriteToPVOutput = DateTime.Now.AddSeconds(cnstDelayWriteToInternetONError)  'delay write to internet on error

            End Try
        Loop

    End Sub

    Private Function Connect(ByVal host As String, ByVal timeout As Integer) As Socket
        Dim hostEntry As IPHostEntry = Dns.GetHostEntry(host)
        Dim hostAddress As IPAddress = hostEntry.AddressList(0)
        Dim remoteEndPoint As New IPEndPoint(hostAddress, 80)
        Dim connection = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        connection.Connect(remoteEndPoint)
        connection.SetSocketOption(SocketOptionLevel.Tcp, SocketOptionName.NoDelay, True)
        connection.SendTimeout = timeout
        Return connection
    End Function


    Private Sub SendRequestToPVoutput(ByVal s As Socket, ByVal strContent As String, ByVal strHost As String)

        '&d=   date
        '&t=   time
        '&v1=  Energy Generation KWH
        '&v2=  Power generation watts
        '&v3=  Energy Consumpion
        '&v4=  Power Consumption
        '&v5=  Temperature
        '&v6=  Voltage
        '&c1=  Cumulative flag

        Dim response As String = strContent & Constants.vbCrLf & "Host: " & strHost & Constants.vbCrLf & Constants.vbCrLf
        s.Send(Encoding.UTF8.GetBytes(response), response.Length, SocketFlags.None)
        s.Poll(500000, SelectMode.SelectRead)
    End Sub


    Function checkInternetAvailable() As Boolean
        Dim Interfaces() As NetworkInformation.NetworkInterface = NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
        Dim Eth0 As NetworkInformation.NetworkInterface = Interfaces(0)
        Dim Retries As Integer = 0

        Do
            ' Fetches the current IP address
            Dim IPAddress As String = Eth0.IPAddress.ToString()
            If IPAddress <> "0.0.0.0" Then Return True
            Thread.Sleep(1000)
            Retries += 1

            If Retries = 5 OrElse Retries = 10 Then
                Eth0.ReleaseDhcpLease()
                Thread.Sleep(100)
                Eth0.RenewDhcpLease()
                Thread.Sleep(100)
            End If

            If Retries > 10 Then
                If blnInitWebOrRebootAndSetTime Then
                    PowerState.RebootDevice(False)
                End If
                Return False
            End If
        Loop

    End Function

    Function NTPTime(ByVal TimeServer As [String]) As DateTime

        Dim ep As New IPEndPoint(Dns.GetHostEntry(TimeServer).AddressList(0), 123)
        Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim ntpData As Byte() = New Byte(47) {}
        Array.Clear(ntpData, 0, 48)

        ntpData(0) = &H1B
        s.SendTimeout = 5000

        s.SendTo(ntpData, ep)
        s.Receive(ntpData)

        Dim offsetTransmitTime As Byte = 40

        Dim intpart As Long = 0
        Dim fractpart As Long = 0

        For i As Integer = 0 To 3
            intpart = (intpart << 8) Or ntpData(offsetTransmitTime + i)
        Next

        For i As Integer = 4 To 7
            fractpart = (fractpart << 8) Or ntpData(offsetTransmitTime + i)
        Next

        Dim milliseconds As Long = CLng(intpart * 1000 + (fractpart * 1000) / &H100000000L)

        s.Close()

        Dim timeSpan__1 As TimeSpan = TimeSpan.FromTicks(CLng(milliseconds) * TimeSpan.TicksPerMillisecond)
        Dim dT As New DateTime(1900, 1, 1)
        dT += timeSpan__1

        'daylight saving
        If dT.Month < 3 OrElse dT.Month > 10 Then
            Return dT.AddHours(1)
        End If
        If dT.Month > 3 AndAlso dT.Month < 10 Then
            Return dT.AddHours(2)
        End If
        If dT.Month = 3 Then
            '      in march
            If (dT.Day - CInt(dT.DayOfWeek)) < 25 Then
                Return dT.AddHours(1)
            End If
            If (CInt(dT.DayOfWeek) = 0) AndAlso (dT.Hour < 2) Then
                Return dT.AddHours(1)
            End If
            Return dT.AddHours(2)
        End If
        '      in october
        If (dT.Day - CInt(dT.DayOfWeek)) < 25 Then
            Return dT.AddHours(2)
        End If
        If (CInt(dT.DayOfWeek) = 0) AndAlso (dT.Hour < 2) Then
            Return dT.AddHours(2)
        End If

        Return dT.AddHours(1)
    End Function

End Module

[ Voor 0% gewijzigd door Willie Wortel op 20-08-2012 09:13 . Reden: code veranderd ]

[Rol-Co]

Mooi joop, nu nog even wachten op de netduino, temp sensor ook maar meebesteld.

[Rol-Co]

met een beetje mazzel is ie er morgen

[Willie Wortel]

Rol-Co schreef op dinsdag 14 augustus 2012 @ 20:05:
met een beetje mazzel is ie er morgen

Ik heb nieuwe routines geschreven, ben het aan het uittesten.

Er is ook een nieuwe software update firmware voorhanden.
http://forums.netduino.co...duino-plus-firmware-v420/

En hoe je die precies moet installeren heb ik in de eerste post geschreven.

[Rol-Co]

Die hoef ik toch niet perse te hebben joop, hij heeft 4.1 firmware en daar kan hij toch ook mee werken?

ik heb nieuw project gestart, jou text gkopieerd en plakken maar 86 errors geeft het programma aan.

wat gaat er mis?

veel error over too many caracters.......

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 17:07:
Die hoef ik toch niet perse te hebben joop, hij heeft 4.1 firmware en daar kan hij toch ook mee werken?

ik heb nieuw project gestart, jou text gkopieerd en plakken maar 86 errors geeft het programma aan.

wat gaat er mis?

veel error over too many caracters.......

Dat gaat niet met 4.1, volg de instrukties met Youtube ,het lijkt overweldigend maar is het niet:

YouTube: Netduino Firmware Upgrade Tutorial

http://forums.netduino.co...duino-plus-firmware-v420/

[Rol-Co]

heb jij die atmel sam-ba op schijf joop, die website is ofline

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 19:52:
heb jij die atmel sam-ba op schijf joop, die website is ofline

Nee, ik heb ook de oude versie nooit gedacht om het op te slaan, je moet 2.12+ hebben. Ik ga verder zoeken.

Hier heb je meer info:
http://wiki.netduino.com/...pressor-step-by-step.ashx

[ Voor 15% gewijzigd door Willie Wortel op 15-08-2012 20:55 ]

[Rol-Co]

JoopC schreef op woensdag 15 augustus 2012 @ 19:09:
[...]


Dat gaat niet met 4.1, volg de instrukties met Youtube ,het lijkt overweldigend maar is het niet:

YouTube: Netduino Firmware Upgrade Tutorial

http://forums.netduino.co...duino-plus-firmware-v420/

niet extreem moeilijk maar gaat ook niet vanzelf bij iedereen denk ik, atmel website ofline dus kan je programma's niet downloaden.
heb een sam-ba 2,6 gevonden maar als ik verbinding wil maken zegt hij no valid processor id found

geen idee even waarom, heb met jailbreaken van apple tv dit nooit, werkt beetje het zelfde

[Willie Wortel]

Nee, komt goed, gebruik alleen de originele software.. Ik vraag wel even.

[Rol-Co]

ja die wiki had ik al , nou die software nog ergens vinden

die 2,6 is niet goed denk je, de processor type staat wel in de lijst.

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 20:59:
ja die wiki had ik al , nou die software nog ergens vinden

die 2,6 is niet goed denk je, de processor type staat wel in de lijst.

Geen idee, waar heb je hem vandaan, ik heb hier meerdere N+ liggen, pomp het er zo in, test wel met je mee.

[Willie Wortel]

De site is weer online

[Rol-Co]

hier niet

staat in jouw temperary internet files denk ik

[Willie Wortel]

Ik heb de file voor je, wacht 5 minuten

[Willie Wortel]

Hier is Samba 2.12
http://www.mijnbestand.nl/Bestand-IKX3PYGBM8ZG.rar

[Rol-Co]

het was alsnog pielen maar werkt
die usb serial converter net als mijn vag-com


nu updaten

[Rol-Co]

nu is hij 4.2 maar als ik jou text plak krijg ik nog de 86 fouten

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 21:39:
nu is hij 4.2 maar als ik jou text plak krijg ik nog de 86 fouten

Heb je Visual Basic Express installed, maak een nieuwe project netduino plus, open module1.vb
selecteer alle tekst en verwijder die, daarna copy paste wat ik heb geschreven.
Ik heb het net geprobeerd en 0 fouten.

[Rol-Co]

visual c# 2010 express heb ik en open nieuw project, haal de text we of selecteer en ctrl-v

en dan krijg ik 86 meldingen over te lange text

[Willie Wortel]

Alle programma's zijn geschreven in Visual Basic .NET, hier een demo:
YouTube: Netduino VB Blink Tutorial

Als je in C# wil programmeren moet je alles door een converter halen:
http://www.developerfusion.com/tools/convert/csharp-to-vb/

Ik zou het niet converten maar VB downloaden.

[Rol-Co]

ja was al bezig, dat converteren werkt ook niet super

dus het had wel kunnen werken met 4.1 of niet, 4.2 is van 13 aug en jij hebt het toch al langer?

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 21:55:
ja was al bezig, dat converteren werkt ook niet super

dus het had wel kunnen werken met 4.1 of niet, 4.2 is van 13 aug en jij hebt het toch al langer?

Nee, je moet naar de 4.2 als je SD card wil gebruiken.

[Rol-Co]

Const cnstHostPVoutput As String = "pvoutput.org"
Const cnstApiPVoutput As String = "HERE YOUR API" (inlognaam of email)
Const cnstSIDPVoutput As String = "HERE YOUR SID (wachtwoord)

deze 2 moet ik aanpassen toch? nog meer?

[Rol-Co]

sd kaart, nee nog niet, misschien later, alleen naar pvoutput , meer niet.

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 21:57:
Const cnstHostPVoutput As String = "pvoutput.org"
Const cnstApiPVoutput As String = "HERE YOUR API" (inlognaam of email)
Const cnstSIDPVoutput As String = "HERE YOUR SID (wachtwoord)

deze 2 moet ik aanpassen toch? nog meer?

Nee, echt je API key, en je SID , dan moet je Netduino werken.
Je SID is je Systeem ID, beneden staat het in je settings.

[Rol-Co]

JoopC schreef op woensdag 15 augustus 2012 @ 21:46:
[...]


Heb je Visual Basic Express installed, maak een nieuwe project netduino plus, open module1.vb
selecteer alle tekst en verwijder die, daarna copy paste wat ik heb geschreven.
Ik heb het net geprobeerd en 0 fouten.

bij c# heb ik de optie voor een netduino project , die heb ik hier niet, welke pak ik nu?

wpf application
console application
class library
windows forms application
wpf browser application

[Willie Wortel]

Dan heb je niet alles geinstalleerd:

http://forums.netduino.com/index.php?showtopic=5117

[Willie Wortel]

Dus:
.NET Micro Framework SDK v4.2
en daarna
Netduino SDK v4.2.0.1 (64-bit)

[Rol-Co]

waarom de 64bit , ik draai 32 os

[tw_eek]

Leuke helpdesk heb je Joop

Voor mijn bemetering heb ik de knoop doorgehakt en gekozen voor NetDuino plus.

In ieder geval voor de PV met twee S0 kwh meters maar als het kan ook de BPM meter en twee temperatuursensors voor de WTW http://www.conrad.nl/ce/nl/product/188103/

[Rol-Co]

gvd , nou kan ik weer niet een nieuw project starten wat een gez%$#k met dat vb man, zeker van microsoft.

edit:
ligt in de kliko vul het wel met de hand in, minder werk

[ Voor 25% gewijzigd door Rol-Co op 15-08-2012 22:42 ]

[Willie Wortel]

Rol-Co schreef op woensdag 15 augustus 2012 @ 22:21:
gvd , nou kan ik weer niet een nieuw project starten wat een gez%$#k met dat vb man, zeker van microsoft.

edit:
ligt in de kliko vul het wel met de hand in, minder werk

Met alle respect maar je hebt niet de juiste software in de juiste volgorde geinstalleerd, Microsoft is erg strikt hierin en heeft niets te maken met een Netduino.

Hier nogmaals de stappen (geeuw geeuw):

De PC afdeling:
Installeer Microsoft VB express (gratis).
http://www.microsoft.com/...cts/2010-editions/express
Daarna op de Netduino site het Framework en de SDK:
http://forums.netduino.com/index.php?showtopic=5117
Dus:
.NET Micro Framework SDK v4.2
en daarna
Netduino SDK v4.2.0.1

De Netduino afdeling:
De Netduino heb je niet gekocht met de laatste nieuwe futures dus een nieuwe firmware is noodzakelijk.
De tool heet Samba, is een tooltje om je firmware (dit is de instruktie set) van de Netduino te upgraden.

Dit is de site:
http://www.atmel.com/tool...AIN-SYSTEMPROGRAMMER.aspx
HIER staat Samba tijdelijk: http://www.mijnbestand.nl/Bestand-IKX3PYGBM8ZG.rar

En hier de instrukties voor je SAMBA firmware update HowTo op youtube.
YouTube: Netduino Firmware Upgrade Tutorial

Nu VB starten , nieuw project, NetduinoPLUS, en plak mijn code in Module1.vb
PPPPFFFffffffffffff, lezen is niet moeilijk, toch...

[Willie Wortel]

tw_eek schreef op woensdag 15 augustus 2012 @ 22:19:
Leuke helpdesk heb je Joop

Voor mijn bemetering heb ik de knoop doorgehakt en gekozen voor NetDuino plus.

In ieder geval voor de PV met twee S0 kwh meters maar als het kan ook de BPM meter en twee temperatuursensors voor de WTW http://www.conrad.nl/ce/nl/product/188103/

Pas op met aankopen van allerhande ADons, waar zijn de drivers of Install instrukties.?.
Drivers is een instruktie set om de tool aan te sturen/uit te lezen.

[tw_eek]

JoopC schreef op donderdag 16 augustus 2012 @ 08:09:
[...]

Pas op met aankopen van allerhande ADons, waar zijn de drivers of Install instrukties.?.
Drivers is een instruktie set om de tool aan te sturen/uit te lezen.

Dat komt wel goed.
De temperatuursensor is niet meer dan een weerstand. Er moet een schakeling komen om de ohmse weerstand te meten en die waarde door te geven aan de netduino. Er zijn analoge ingangen dus moet dat lukken.
Het is niet in 1 uurtje klaar. De reis is leuker dan het eindresultaat.

[Rol-Co]

JoopC schreef op donderdag 16 augustus 2012 @ 08:06:
[...]

Met alle respect maar je hebt niet de juiste software in de juiste volgorde geinstalleerd, Microsoft is erg strikt hierin en heeft niets te maken met een Netduino.

Hier nogmaals de stappen (geeuw geeuw):

De PC afdeling:
Installeer Microsoft VB express (gratis).
http://www.microsoft.com/...cts/2010-editions/express
Daarna op de Netduino site het Framework en de SDK:
http://forums.netduino.com/index.php?showtopic=5117
Dus:
.NET Micro Framework SDK v4.2
en daarna
Netduino SDK v4.2.0.1

De Netduino afdeling:
De Netduino heb je niet gekocht met de laatste nieuwe futures dus een nieuwe firmware is noodzakelijk.
De tool heet Samba, is een tooltje om je firmware (dit is de instruktie set) van de Netduino te upgraden.

Dit is de site:
http://www.atmel.com/tool...AIN-SYSTEMPROGRAMMER.aspx
HIER staat Samba tijdelijk: http://www.mijnbestand.nl/Bestand-IKX3PYGBM8ZG.rar

En hier de instrukties voor je SAMBA firmware update HowTo op youtube.
YouTube: Netduino Firmware Upgrade Tutorial

Nu VB starten , nieuw project, NetduinoPLUS, en plak mijn code in Module1.vb
PPPPFFFffffffffffff, lezen is niet moeilijk, toch...

Lezen is niet moeilijk joop, ik heb het in die volgorde gedaan, zelfs alles er af gegooit en nog een keer opnieuw maar bij nieuw project openen krijg ik een melding dat hij het bestand (ja nieuw project en waarschijnlijk nog van C# ) niet kan openen. De help heeft het over oude en nieuwe versie.
Ik krijg de indruk dat het alleen met een betaalde versie kan, gebruik jij die soms?
Ook het verwijderen van dat bestand van C# maakt hij geen nieuwe aan en blijft de zelfde melding.

Ik snap best dat het bij jou werkt, ik heb dat vaak zat gehad met andere dingen ook dat het hier prima werkt maar niet bij andere mensen, andere pc, software, save files enz enz

Firmware is overigens al 4,2

[Willie Wortel]

>>bij nieuw project openen krijg ik een melding dat hij het bestand (ja nieuw project en waarschijnlijk nog van C# ) niet kan openen.

Je hebt gewoon iets over het hoofd gezien, Welk bestand zou Microsoft VB moeten openen dan.?
Dan weet ik waar de fout zit.
Het enige wat ik kan bedenken (weet het bijna wel zeker) is dat je SDK qf1 geinstalleerd heb, (oude versie) en Netduino aug2012.

[ Voor 28% gewijzigd door Willie Wortel op 16-08-2012 20:22 ]

[Rol-Co]

joop
moet ik een primary device voor automatic uploads instellen bij pv output? ik neem aan van wel? welke pak ik dan daarvoor?

Laat maar

http://pvoutput.org/intraday.jsp?id=12038&sid=9982

echt lekker werkt ie nog niet

[ Voor 29% gewijzigd door Rol-Co op 17-08-2012 19:56 ]

[Rol-Co]

nog 2 probleempjes

1) ik zie hem niet in de router, kan hem wel pingen, dat schijnt een probleem te zijn bij netduino en 4.2
2) hij gaf even data maar alleen als ik de 5v connector even los haal en verbind, misschien is de voeding wel wat aan de lage kant , 7,5v

morgen even kijken of er iets gebeurd, ik denk niet dat hij wat doet in de nacht.

[Willie Wortel]

Rol-Co schreef op vrijdag 17 augustus 2012 @ 23:38:
nog 2 probleempjes

1) ik zie hem niet in de router, kan hem wel pingen, dat schijnt een probleem te zijn bij netduino en 4.2

Het enige probleem dat de Netduino heeft is de gebruiker die denkt te weten maar niet weet.
Ik heb begrepen dat je de software aan de praat hebt gekregen, ligt natuurlijk aan Microsoft of aan de Netduino...... Right.?

Je netwerk probleem:
Static of DHCP lease in je router tabel.?
Als je je Netduino mac adres niet hebt ingevoerd zie je hem nooit!
Mac adres, onderkant Netduino, met mfdeploy target/configuration/network je mac adres invoeren.
Kies voor static (vul je netwerk settings in) of DHCP (aanvinken).

MFDEPLOY is het microsoft progje waarmee je de Netduino kan configureren.
Microsoft .NET Micro Framework 4.2/tools/mfdeploy

suc6

[Rol-Co]

JoopC schreef op zaterdag 18 augustus 2012 @ 08:03:
[...]


Het enige probleem dat de Netduino heeft is de gebruiker die denkt te weten maar niet weet.
Ik heb begrepen dat je de software aan de praat hebt gekregen, ligt natuurlijk aan Microsoft of aan de Netduino...... Right.?

Je netwerk probleem:
Static of DHCP lease in je router tabel.?
Als je je Netduino mac adres niet hebt ingevoerd zie je hem nooit!
Mac adres, onderkant Netduino, met mfdeploy target/configuration/network je mac adres invoeren.
Kies voor static (vul je netwerk settings in) of DHCP (aanvinken).

MFDEPLOY is het microsoft progje waarmee je de Netduino kan configureren.
Microsoft .NET Micro Framework 4.2/tools/mfdeploy

suc6

static geprobeerd maar werkte niet, daarna dhcp en zag hij hem heel even als ik de andere 3 uit de router trok.
natuurlijk mac adres ingevoerd, evenals dhcp aangevinkt, en dns ingevuld.

De software lijkt te werken ja, wel andere pc voor nodig gehad en nieuwe windows + programmas geinstalleerd anders werkte het niet op de andere pc.

kijk op de forums van de netduino, veel mensen problemen met de netwerk verbinding, ik roep het niet zomaar.
http://forums.netduino.co...nsights-into-dhcp-issues/
http://forums.netduino.co...904-dhcp-startup-problem/
http://forums.netduino.co...079-network-loss-problem/
http://forums.netduino.co...ernet-cable-is-connected/

Ze geven ook aan dat ze het bij firmware versie 4.3 gaan oplossen, jij hebt natuurlijk geen last
Zoals ik al riep, wat bij jou goed kan werken wil niet zeggen dat het met andere spullen ook zo werkt, als je dan een "handleiding" maakt en vind dat het zo'n geweldig ding is zorg dan dat het compleet is en niet half.
maar je zal jezelf wel erg goed vinden en het graag voor jezelf houden denk ik.

[tw_eek]

Hoe hebben jullie de S0 meter aangesloten op de netduino?

Op de een of andere manier kan ik geen goede link vinden naar de juiste informatie.

[Rol-Co]

http://i1173.photobucket....593/JoopC/PulseSchema.jpg

staat in startpost

[tw_eek]

Heb ik het goed dat je de s0(+) via een pullup van 100 ohm naar de digitale ingang sluist en de s0(-) naar de ground?

[Willie Wortel]

Rol-Co schreef op zaterdag 18 augustus 2012 @ 11:25:
[...]


static geprobeerd maar werkte niet, daarna dhcp en zag hij hem heel even als ik de andere 3 uit de router trok.
natuurlijk mac adres ingevoerd, evenals dhcp aangevinkt, en dns ingevuld.

De software lijkt te werken ja, wel andere pc voor nodig gehad en nieuwe windows + programmas geinstalleerd anders werkte het niet op de andere pc.

kijk op de forums van de netduino, veel mensen problemen met de netwerk verbinding, ik roep het niet zomaar.
http://forums.netduino.co...nsights-into-dhcp-issues/
http://forums.netduino.co...904-dhcp-startup-problem/
http://forums.netduino.co...079-network-loss-problem/
http://forums.netduino.co...ernet-cable-is-connected/

Ze geven ook aan dat ze het bij firmware versie 4.3 gaan oplossen, jij hebt natuurlijk geen last
Zoals ik al riep, wat bij jou goed kan werken wil niet zeggen dat het met andere spullen ook zo werkt, als je dan een "handleiding" maakt en vind dat het zo'n geweldig ding is zorg dan dat het compleet is en niet half.
maar je zal jezelf wel erg goed vinden en het graag voor jezelf houden denk ik.

Ik geloof je zomaar al is het probleem zoals beschreven op het forum niet jou probleem.
I heb nog een ander idee wat misschien wel werkt voor je, ga terug naar 4.2, QFE1
http://www.netduino.com/d...eworkSDK_NETMF42_QFE1.msi
http://www.netduino.com/d...uinosdk_32bit_NETMF42.exe
Vervolgens je Netduino met samba etc....
misschien heb je meer succes hiermee, weet ik veel, en garantie tot aan de deur.

[Rol-Co]

Hij lijkt verbinding te hebben al zie ik hem niet altijd in de router, why? Geen idee.
Ik heb overdag ook gewoon de live tab in pv output maar hij stuurt geen data, wel als ik de pin van 5v er een keer uit trek en in plug dat hij soms wat data stuurt., wat niet klopt kwa gegevens natuurlijk.

[Willie Wortel]

Rol-Co schreef op zaterdag 18 augustus 2012 @ 21:45:
Hij lijkt verbinding te hebben al zie ik hem niet altijd in de router, why? Geen idee.
Ik heb overdag ook gewoon de live tab in pv output maar hij stuurt geen data, wel als ik de pin van 5v er een keer uit trek en in plug dat hij soms wat data stuurt., wat niet klopt kwa gegevens natuurlijk.

Je hebt verbinding met internet, ik heb je log naar PVoutput gezien.

Het werkt nog niet goed, je puls count klopt niet, het is niet goed aangesloten.

De 5v output op je netduino met weerstand naar de KWH meter, ook naar je Digital input, de draad die weer terugkomt van je kwh naar ground op je netduino.
Werkt het niet, de draad op je kwh omdraaien (+ op - zeg maar).
Vergeet de weerstand niet.

[Rol-Co]

Ja heb ik, van de 5v naar de weerstand van de weerstand zit een draad naar pin 13 en naar de + van de meter.
min van de meter naar de ground naast pin 13

vandaag vanaf vanmorgen had ik hem andersom omdat het gisteren ook niet werkte maar na 8 uur thuis van werk nog geen data dus maar weer terug gedraaid.
Ook andere adapter gebruikt van 9v maar die geeft onbelast bijna 13v en daardoor word de netduino alleen maar warm van dus ook die weer terug.

enige keer dat hij data (weliswaar foute) geeft is als ik de 5v onderbreek en/of pulserend verbind, maar dan heb ik gelijk iets van 19kwh opgewekt met 4w

de meter is een 2000 pulsen en heb daar niets veranderd in jouw code, die staat op 2000 zover ik het zie.

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 00:45:

de meter is een 2000 pulsen en heb daar niets veranderd in jouw code, die staat op 2000 zover ik het zie.

Een en ander had al lang moeten werken.

Ik heb je code een beetje aangepast zodat je een en ander kunt zien.

Als je een puls ontvang gaat het ledje op de netduino aan en uit.
als je op de button op de netduino drukt word er data naar pvoutput verzonden.
als er data wordt verzonden gaat het ledje een aantal keer blinken.
(wees zuinig met het drukken!)

Als dat allemaal geen duidelijkheid biedt moet je gaan debuggen met je laptop aangesloten op de netduino en aan het internet.
De data die je wilt zien op je computer maak je zichtbaar met DEBUG.PRINT( ...........)
Als je daar niet uitkomt maak ik ook een debug versie voor je.
Maar zet in het test bestandje net onder de regel sub Main()

Visual Basic .NET:

sub main()
     'DEZE REGEL tijdelijk
     Utility.SetLocalTime(NTPTime("nist1-ny.ustiming.org"))  '(dit zet de tijd juist)

Hier het bestand:
http://www.mijnbestand.nl/Bestand-JRMUHCW7NBVK.rar

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

[ Voor 13% gewijzigd door Willie Wortel op 19-08-2012 10:45 . Reden: bestand toegevoegd ]

[Rol-Co]

Dat is een stuk handiger dat je wat kan zien joop,

de blauwe led gaat niet aan, dus draad losgehaald bij de kwh meter en met de hand bedienen, dan werkt het, maar op beide kanten op de meter niet.
Multimeter aan de kwh meter gehangen en schakelt netjes al lijkt het kort, maar komt ook omdat ik een digitale meter heb die toch trager reageerd (fluke)

Kortom, de kwh meter schakelt, de duino ook met de hand.

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 11:01:
Dat is een stuk handiger dat je wat kan zien joop,

de blauwe led gaat niet aan, dus draad losgehaald bij de kwh meter en met de hand bedienen, dan werkt het, maar op beide kanten op de meter niet.
Multimeter aan de kwh meter gehangen en schakelt netjes al lijkt het kort, maar komt ook omdat ik een digitale meter heb die toch trager reageerd (fluke)

Kortom, de kwh meter schakelt, de duino ook met de hand.

Op de netduino kan je ook zien of je verbonden bent met het internet aan de 3 gekleurde lampjes. Deze branden niet als er geen verbinding is. Lees mijn eerder post even ik heb een kleine verandering voor je gemaakt, 1 regel erbij (tijdelijk)

Kan je me een link geven van je kwh meter?

[ Voor 6% gewijzigd door Willie Wortel op 19-08-2012 11:09 ]

[harold65]

Rol-Co schreef op zondag 19 augustus 2012 @ 11:01:
Dat is een stuk handiger dat je wat kan zien joop,

de blauwe led gaat niet aan, dus draad losgehaald bij de kwh meter en met de hand bedienen, dan werkt het, maar op beide kanten op de meter niet.
Multimeter aan de kwh meter gehangen en schakelt netjes al lijkt het kort, maar komt ook omdat ik een digitale meter heb die toch trager reageerd (fluke)

Kortom, de kwh meter schakelt, de duino ook met de hand.

Probeer de 100 ohm weerstand eens wat groter te maken. 1K of zo.
Het kan zijn dat de S0 uitgang op je S0 meter de 50mA niet kan leveren om de spanning op pin 13 omlaag te krijgen.
100 ohm is zowiezo erg laag voor een pullup.
Je kan de weerstand ook weglaten en de interne weerstand op de netduino aanzetten.
Deze regel:

C#:

Dim portElectricPulse_D13 As InputPort = New InputPort(Pins.GPIO_PIN_D13, False, InputPort.ResistorMode.Disabled)

vervangen door

C#:

Dim portElectricPulse_D13 As InputPort = New InputPort(Pins.GPIO_PIN_D13, False, InputPort.ResistorMode.Enabled)

[Rol-Co]

JoopC schreef op zondag 19 augustus 2012 @ 11:07:
[...]

Op de netduino kan je ook zien of je verbonden bent met het internet aan de 3 gekleurde lampjes. Deze branden niet als er geen verbinding is. Lees mijn eerder post even ik heb een kleine verandering voor je gemaakt, 1 regel erbij (tijdelijk)

Kan je me een link geven van je kwh meter?

http://www.elektrowestlan...m-1f-n-32a-kwh1050-p.html

bij inepro vind ik hem zo snel niet, heb wel een pdf

[Rol-Co]

Puls werkt ook nu, die 1k deed het hem, blauwe led licht netjes op nu.

maar upload nog niets (of moet ik eerst terug naar de vorige code? ), ik heb het 2x met de knop gedaan nu.

http://www.pvoutput.org/intraday.jsp?id=12038&sid=9982

klopt ook niet echt.

[ Voor 74% gewijzigd door Rol-Co op 19-08-2012 13:03 ]

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 12:34:
Puls werkt ook nu, die 1k deed het hem, blauwe led licht netjes op nu.

maar upload nog niets (of moet ik eerst terug naar de vorige code? ), ik heb het 2x met de knop gedaan nu.

http://www.pvoutput.org/intraday.jsp?id=12038&sid=9982

klopt ook niet echt.

Rolco, ik heb het gezien dat je het met de knop hebt gedaan. Die testdata klopt wel.

Jij zegt, hij pulst wel maar schrijft niets. Wacht even, ik kijk even.

Moet je dit bestand in je netduino plaatsen.
Dit is nog niet je definitieve source maar ik denk dat je een goede kans hebt dat het gaat lukken.
Alle debug code zit er nog in en kijk uit dat je niet op de button drukt want dan gaat ie vaste data uploaden en dat wil je niet. Maar zo kon ik zien of de Netduino werkte.

http://www.mijnbestand.nl/Bestand-KBEFT83YXHPS.zip
Ik kijk mee op pvoutput

[ Voor 27% gewijzigd door Willie Wortel op 19-08-2012 13:39 ]

[Rol-Co]

eerste upload komt 5 min na aansluiten neem ik aan?

nieuwe zit er in nu

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 13:54:
eerste upload komt 5 min na aansluiten neem ik aan?

nieuwe zit er in nu

Hij staat nu op elke minuut wegschrijven, en dat zie je iedere 5 minuten op pvoutput.
ik zie de eerste data binnenkomen. 988 watt

[Rol-Co]

ja hij schrijft wat weg nu inderdaad

die 988 kan goed kloppen atm

[ Voor 30% gewijzigd door Rol-Co op 19-08-2012 14:00 ]

[Rol-Co]

De opbrengst is zwaar optimistisch , i wish it was like that

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 14:12:
De opbrengst is zwaar optimistisch , i wish it was like that

Zie het, ben aan het kijken.
Kan je later verwijderen.

[Rol-Co]

ok
volgensmij update hij niet meer na 14:05

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 14:22:
ok
volgensmij update hij niet meer na 14:05

Je bent eruit gegooid lijkt me, wacht even.
Het beste wat je kan doen is een nieuw systeem toevoegen bij pvoutput. Onder settings en dan beneden add new system. De SID overnemen met je eigen API key. Zo kun je testen. Er zit iets vreemds in, of het nu de code is (geloof ik niet)......... De code is wel zo weinig en zo overzichtelijk
http://www.mijnbestand.nl/Bestand-XTLS68OFJKWM.rar

[ Voor 45% gewijzigd door Willie Wortel op 19-08-2012 14:50 ]

[Rol-Co]

Misschien deze outputs wissen?

Is dat een nieuwe code voor de netduino dat rar file?

[ Voor 48% gewijzigd door Rol-Co op 19-08-2012 14:57 ]

[Willie Wortel]

Rol-Co schreef op zondag 19 augustus 2012 @ 14:55:
Misschien deze outputs wissen?

Is dat een nieuwe code voor de netduino dat rar file?

ja , deze code zal goed zijn.
Wissen is ook goed.... als het maar werkt
Leuk hè

[Rol-Co]

als je pc meewerkt is het fun idd

alles gewist, nieuwe code, heb je de pulsen ook goed joop, hij begint met 1500w opbrengst.