18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Dus toch de draadjes op een bepaalde manier aansluiten, als je ze verkeerd om aansluit krijg je geen puls(ten minste bij mij) wilde dit duidelijk maken
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Ah, maar op het shield zitten maar 2 aansluitingen. Ik ga er van uit dat de weerstand op het shield verwerkt is. En dan maakt het niet uit (KKDWD versie:
[...]
Dus toch de draadjes op een bepaalde manier aansluiten, als je ze verkeerd om aansluit krijg je geen puls(ten minste bij mij) wilde dit duidelijk maken
).
. !!
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
Zie foto.
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
[ Voor 109% gewijzigd door zonnebaas op 19-02-2016 22:03 ]
Omnik 4.0 - 1e string- 1755 W - 2e string 2500 W Oost
[ Voor 40% gewijzigd door Aegle op 19-02-2016 22:57 ]
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
.33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
.
.
[ Voor 78% gewijzigd door Aegle op 25-02-2016 22:35 ]
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
Ben de spatborden aan het uitdeuken. 
Omnik 3.0 15 Eging panelen 195wp
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
[ Voor 48% gewijzigd door Willie Wortel op 07-04-2016 14:15 ]
[ Voor 109% gewijzigd door Willie Wortel op 31-03-2016 09:04 ]
[ Voor 47% gewijzigd door Willie Wortel op 28-03-2016 20:17 ]
. .33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
[ Voor 135% gewijzigd door Willie Wortel op 06-04-2016 13:38 ]
[ Voor 47% gewijzigd door Willie Wortel op 06-04-2016 13:28 ]
With so many things coming back in style, I can't wait till loyalty, intelligence and morals become a trend again.......
Verwijderd
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
With so many things coming back in style, I can't wait till loyalty, intelligence and morals become a trend again.......
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
With so many things coming back in style, I can't wait till loyalty, intelligence and morals become a trend again.......
With so many things coming back in style, I can't wait till loyalty, intelligence and morals become a trend again.......
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
[ Voor 9% gewijzigd door Cyberpope op 04-05-2016 21:27 ]
With so many things coming back in style, I can't wait till loyalty, intelligence and morals become a trend again.......
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Apple | BYD | HomeWizard Plug-In Battery | UniFi | 4.880wp zonnepanelen
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
.
[ Voor 10% gewijzigd door Aegle op 08-08-2016 23:04 ]
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
Noord-Oost-Zuid-West 11640Wp Totaal Live, Netduino advanced pv logging
Chris Walker (Netduino) is verwikkeld in een juridische strijd rond een crowdfunding project wat, in mijn ogen, mislukt is. Het project is nog operationeel alleen vinden degenen die betaald hebben, terecht, dat de ontwikkeling te lang duurt. Ik denk echter dat het project goedbedoeld van start is gegaan maar gestrand is in onkunde. Daarnaast is Chris zelf ook, binnen het project, door een kompaan opgelicht waar weer een zaak over loopt, het is dus een soort soap. Ik zou zeggen stekker uit het project, wonden likken en verder gaan.
)18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
.
33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Ja klopt, de resolutie is 0.5 in tegenstelling tot de tmp36 die een gemiddelde van 10 meetwaarden terug geeft. Maar is dat erg dan 0,5?, ik bedoel ....
Waarom dat het bij jou niet goed gaat weet ik niet, is überhaupt moeilijk om de oorzaak te achterhalen. Wat waarschijnlijk is dat je netwerk~modem niet lekker samenwerkt met je Netduino.
[ Voor 4% gewijzigd door Willie Wortel op 10-08-2016 21:08 ]
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
[ Voor 60% gewijzigd door Willie Wortel op 12-10-2016 14:44 ]
. 33 x ET Solar 270Wp = 8910Wp @ SMA Sunny TriPower STP 8000TL-20 Live: PVOutput
...
[ Voor 34% gewijzigd door Willie Wortel op 14-10-2016 21:53 ]
[ Voor 62% gewijzigd door Willie Wortel op 17-10-2016 12:22 ]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
| ' written and tested for Netduino DaL by Willie Wortel
'
''' <summary>
''' Reads the specified ADC channel and returns value
'''
''' </summary>
''' <param name="inputNumber"></param>
''' <returns></returns>
'''
Public Class ADS1115
Inherits I2C.MultiI2C
'/*=========================================================================
' POINTER REGISTER
' -----------------------------------------------------------------------*/
Const ADS1115_REG_POINTER_CONFIG = (&H1)
'/*=========================================================================
' CONFIG REGISTER
' -----------------------------------------------------------------------*/
Const ADS1115_REG_CONFIG_OS_SINGLE As UInteger = (&H8000) ' Write: Set to start a single-conversion
Const ADS1115_REG_CONFIG_MUX_SINGLE_0 As UInteger = (&H4000) 'Single-ended AIN0
Const ADS1115_REG_CONFIG_MUX_SINGLE_1 As UInteger = (&H5000) 'Single-ended AIN1
Const ADS1115_REG_CONFIG_MUX_SINGLE_2 As UInteger = (&H6000) 'Single-ended AIN2
Const ADS1115_REG_CONFIG_MUX_SINGLE_3 As UInteger = (&H7000) 'Single-ended AIN3
Const ADS1115_REG_CONFIG_PGA_6_144V As UInteger = (&H0) '+/-6.144V range = Gain 2/3
Const ADS1115_REG_CONFIG_PGA_4_096V As UInteger = (&H200) '+/-4.096V range = Gain 1
Const ADS1115_REG_CONFIG_PGA_2_048V As UInteger = (&H400) '+/-2.048V range = Gain 2 (default)
Const ADS1115_REG_CONFIG_PGA_1_024V As UInteger = (&H600) '+/-1.024V range = Gain 4
Const ADS1115_REG_CONFIG_PGA_0_512V As UInteger = (&H800) '+/-0.512V range = Gain 8
Const ADS1115_REG_CONFIG_PGA_0_256V As UInteger = (&HA00) '+/-0.256V range = Gain 16
Const ADS1115_REG_CONFIG_DR_490SPS As UInteger = (&H40) '490 samples per second
Const ADS1115_REG_CONFIG_CQUE_NONE As UInteger = (&H3)
Const ADS1115_REG_CONFIG_CLAT_NONLAT As UInteger = (&H0)
Const ADS1115_REG_CONFIG_CPOL_ACTVLOW As UInteger = (&H0)
Const ADS1115_REG_CONFIG_CMODE_TRAD As UInteger = (&H0)
Const ADS1115_REG_CONFIG_MODE_SINGLE As UInteger = (&H100)
Const LOW_BYTE As Integer = 0
Const HI_BYTE As Integer = 1
''' <summary>
'''
''' </summary>
''' <param name="address"></param>
''' <remarks></remarks>
Public Sub New(ByVal address As Byte)
MyBase.New(New I2CDevice.Configuration(address, 400))
End Sub
''' <summary>
''' read ADS1115 analog
''' </summary>
''' <param name="resolution 0, 1, 2, 3, 4 ,5, 6"></param>
''' <param name="analogPin 0, 1, 2, 3 e.g. A0 ~ A3"></param>
''' <returns>values pending resolution E.G. voltStep As Double = (({6.144, 4.096, 2.048, 1.024, 0.512, 0.256})(0) / 32767)</returns>
''' <remarks></remarks>
Public Function ReadADC(ByVal resolution As Integer, ByVal analogPin As Integer) As String
Try
Dim gain_MODE As UInteger = ({ADS1115_REG_CONFIG_PGA_6_144V,
ADS1115_REG_CONFIG_PGA_4_096V,
ADS1115_REG_CONFIG_PGA_2_048V,
ADS1115_REG_CONFIG_PGA_1_024V,
ADS1115_REG_CONFIG_PGA_0_512V,
ADS1115_REG_CONFIG_PGA_0_256V})(resolution)
'same as Dim config As UInteger = 323
'Dim config As UInteger = (
' ADS1115_REG_CONFIG_CQUE_NONE Or _
' ADS1115_REG_CONFIG_CLAT_NONLAT Or _
' ADS1115_REG_CONFIG_CPOL_ACTVLOW Or _
' ADS1115_REG_CONFIG_CMODE_TRAD Or _
' ADS1115_REG_CONFIG_DR_490SPS Or _
' ADS1115_REG_CONFIG_MODE_SINGLE
' )
Dim config As UInteger = 323
config = ((config Or gain_MODE) _
Or _
({ADS1115_REG_CONFIG_MUX_SINGLE_0,
ADS1115_REG_CONFIG_MUX_SINGLE_1,
ADS1115_REG_CONFIG_MUX_SINGLE_2,
ADS1115_REG_CONFIG_MUX_SINGLE_3})(analogPin)) _
Or _
ADS1115_REG_CONFIG_OS_SINGLE
' Create transaction(s)
Dim xAction As I2CDevice.I2CTransaction() = New I2CDevice.I2CTransaction(0) {}
'lowByte, hiByte
Dim AddressBytes As Byte() = {CByte(config / 2 ^ 8), CByte(config And &HFF)}
' create write buffer (we need three bytes)
Dim registerADS1115 As Byte() = New Byte(2) {ADS1115_REG_POINTER_CONFIG, AddressBytes(LOW_BYTE), AddressBytes(HI_BYTE)}
' Create write transaction
xAction(0) = I2CDevice.CreateWriteTransaction(registerADS1115)
' excecute ADS1115 setup
MyBase.Device.Execute(xAction, 1000)
' Wait for conversion
Thread.Sleep(10)
' Set to conversion register
registerADS1115 = New Byte(0) {0}
xAction(0) = I2CDevice.CreateWriteTransaction(registerADS1115)
' Execute set to conversion
MyBase.Device.Execute(xAction, 1000)
' create read buffer
Dim readADS1115 As Byte() = New Byte(1) {}
' Read ADC values
xAction(0) = I2CDevice.CreateReadTransaction(readADS1115)
MyBase.Device.Execute(xAction, 1000)
' return values
Return (readADS1115(LOW_BYTE) * 256 + readADS1115(HI_BYTE)).ToString()
Catch exp As Exception
Return exp.Message
End Try
End Function
End Class |
In je root dir staat een bestandje NetduinoConfig.js
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Public Function ReadAMPS(ByVal ADS1115_AnalogPin As Integer, ByVal resolution As Integer) As Double
Const ADS1115_BITS_IN_DEC As Integer = 32767
Const START_ADS1115_VOLT_OUTPUT As Single = 2.5
Const VOLT_PEAK_TO_PEAK_MULTIPLIER As Single = 0.707
Const PEAK_VOLTAGE_DIVIDER As Single = 2.0
Dim mVperAmp As Single = (ACS712_Resolution)(resolution) / ADS1115_BITS_IN_DEC
Dim maxValue As Integer
Dim minValue As Integer = CInt(START_ADS1115_VOLT_OUTPUT / mVperAmp)
Dim ACS712_Voltage As Single
Dim VRMS As Double
Dim AmpsRMS As Double
Dim readValue As Integer
'interferance correction
Dim correction As Integer = 20
Dim LoopOneSecond As Long = DateTime.Now.Ticks + TimeSpan.TicksPerSecond
Try
'read 1 second to determ the volt peak to peak
Do While DateTime.Now.Ticks < LoopOneSecond
readValue = ReadADC(resolution, ADS1115_AnalogPin)
If readValue > maxValue Then
maxValue = readValue
ElseIf readValue < minValue Then
minValue = readValue
End If
Loop
ACS712_Voltage = (((maxValue - minValue) - correction) * (ACS712_Resolution)(resolution)) / ADS1115_BITS_IN_DEC
VRMS = (ACS712_Voltage / PEAK_VOLTAGE_DIVIDER) * VOLT_PEAK_TO_PEAK__MULTIPLIER
AmpsRMS = VRMS / (mVperAmp * 100)
Return AmpsRMS
Catch ex As Exception
Return 0
End Try
End Function |
[ Voor 23% gewijzigd door Willie Wortel op 24-10-2016 20:47 ]
[ Voor 10% gewijzigd door Willie Wortel op 25-10-2016 11:51 ]
[ Voor 29% gewijzigd door Willie Wortel op 25-10-2016 15:36 ]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| 'data is from acs712 ampère DC sensor
Public Function ReadAMPSdc(ByVal ADS1115res As Integer, ByVal ADS1115_AnalogPin As Integer, ByVal ACS712res As Integer) As Double
Const ADS1115_BITS_IN_DEC As Integer = 32767
Const ACS712_START_VOLTS As Double = 2.5
Try
Dim adsValue = Me.ReadADC(ADS1115res, ADS1115_AnalogPin)
Dim dcAmpère As Double
Dim dcOffset As Integer = CInt(ACS712_START_VOLTS / ((ADS1115_Resolution)(ADS1115res) / ADS1115_BITS_IN_DEC))
'calc the dcOffset start value of the acs712
'Debug.Print("Calculation OffSet : " & (dcOffset - adsValue).ToString)
'change the dcOffset start value with NOICE_CORRECTION and volts aberration
Const NOICE_CORRECTION_VOLT_aberration As Integer = 680
dcAmpère = (((adsValue - (dcOffset - NOICE_CORRECTION_VOLT_aberration)) / ADS1115_BITS_IN_DEC) * ((ADS1115_Resolution)(ADS1115res) * 1000)) / (ACS712_Resolution)(ACS712res)
Return dcAmpère
Catch ex As Exception
Return 0
End Try
End Function |
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Klump, ook dat zal ik van de week nakijken.
1
2
3
4
5
6
7
8
9
| Case "Voltage_AC"
For p As Integer = 0 To voltShuntAC.Length - 1
'sensor
z &= (If(p = 0, """Voltage_AC"":[", ",") & _
"{ ""ID"":" & voltShuntAC(p).ID.ToString & _
",""Volt"":" & GetContent("J" & voltShuntAC(p).ID.ToString, "3").ToString & "}")
Next |
1
2
3
4
5
6
7
8
9
10
11
12
| xhr.open("GET", (URL + ":" + Port + "/contentJSON&P1&PulseMeters&LDResistors&TemperatureMeters&BuldersVars&PIRsensors&Voltage_AC&Voltage_DC&Ampere_AC&Ampere_DC&&&=" + Math.random().toString()), true);
xhr.onload = function ()
{
if ( xhr.readyState === 4 )
{
if ( this.status == 200 )
{
document.getElementById('Notification').innerHTML = '<span class="menuclassFinish"> Bytes loaded : ' + varBytesLoaded.toString() + " completed</span>";
var responseJSON = JSON.parse(this.response); |
Klinkt allemaal overweldigend maar is het niet, aansluiten is eenvoudig.
[ Voor 18% gewijzigd door Willie Wortel op 05-11-2016 12:59 ]
. Zal morgen het invoer menu in de options pagina hatseflatsen.
18950Wp🌞, Atlantic 270V3💧, Pana 5J🔥. Zendure 2400AC 11,5kWh🔋,Hyundai Kona 64kWh 🚗, Peblar Home ⛽
Eilandbedrijf met netondersteuning , all-electric || Deye 12KSG04LP3 met 580Ah-LFP 51,2V (Seplos 3x48100-10C +48200-10E) || hulp-Deye 12k SG04LP3 met 280Ah-LFP 51,2V || 19.4 kWp PV || Zonneplan EPEX-klant
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| 'read the Ds18b20 temperature sensor rom ID
Try
Const HERE_YOUR_Dpin_NUMBER As Integer = 7 'pin d7
Dim Dpin As Microsoft.SPOT.Hardware.Cpu.Pin = NetduinoDpins(HERE_YOUR_Dpin_NUMBER)
Dim oneWirePort As New OutputPort(Dpin, False)
Dim wire As Microsoft.SPOT.Hardware.OneWire = New OneWire(oneWirePort)
Dim devices = wire.FindAllDevices()
Debug.Print("Devices found: " & devices.Count.ToString)
Dim collection As New oneWireAdds.DallasOneWireDevices()
For Each device As Byte() In devices
collection.AddDevice(device)
Next
Do While True
collection.SendCommandToAll(oneWireAdds.OneWireDs18b20Reference.CmdConvert, 1050, wire)
For Each probe As oneWireAdds.OneWireTemperatureProbe In collection
If probe IsNot Nothing Then
probe.ReadScratchPad(wire)
Debug.Print("romID: " & probe.romID & " temperature: " & probe.LastTemperature.ToString)
End If
Next
Debug.Print(vbCr)
Thread.Sleep(1000)
Loop
Catch ex As Exception
Debug.Print(ex.ToString())
End Try |
[ Voor 11% gewijzigd door Willie Wortel op 13-11-2016 12:06 ]
1
2
3
4
5
6
7
8
9
| Case "Probe_ds18b20"
For p As Integer = 0 To probe_ds18b20.Length - 1
'sensor
z &= (If(p = 0, """probe_ds18b20"":[", ",") & _
"{ ""ID"":" & probe_ds18b20(p).ID.ToString & _
",""Celsius"":" & OneWireContent(probe_ds18b20(p).pos).temperature(p).ToString("F2") & "}")
Next |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| "probe_ds18b20": [{
"ID": 0,
"Celsius": 16.50
}, {
"ID": 1,
"Celsius": 16.25
}, {
"ID": 2,
"Celsius": 16.38
}, {
"ID": 3,
"Celsius": 16.19
}, {
"ID": 4,
"Celsius": 16.25
}, {
"ID": 5,
"Celsius": 16.25
}, {
"ID": 6,
"Celsius": 16.19
}] |
[ Voor 75% gewijzigd door Willie Wortel op 15-11-2016 11:54 ]
Omnik 4.0 - 1e string- 1755 W - 2e string 2500 W Oost
Vroeger was alles beter... Geniet dan maar van vandaag, morgen is alles nog slechter!
:strip_icc():strip_exif()/u/315774/David.jpg?f=community)
/u/252293/crop6898f1df79a28.png?f=community)
:strip_icc():strip_exif()/u/477039/loesje.jpg?f=community)
:strip_icc():strip_exif()/u/451782/WillieWortel.jpg?f=community)
/u/34659/crop65d886fa2535b_cropped.png?f=community)
:strip_icc():strip_exif()/u/553329/crop65f2e249c118d_cropped.jpg?f=community)
/u/493436/qurified_message.png?f=community)
/u/5091/crop61ea61f79e935_cropped.png?f=community)
:strip_icc():strip_exif()/u/212073/crop5790930e15fe8_cropped.jpeg?f=community)
:strip_icc():strip_exif()/u/109456/bigass3.jpg?f=community)