irgendwie scheint meine Adc Messung nichr richtig zu funktionieren, ich bekomme immer das gleich Ergebnis,
gemessen wird der Spannungsabfall (an Masse) ueber einen 8,5cm langen 1.5mm² Draht.
der Strom wird gemessen über den Shunt->OP->adc (0-12A)
SPannung wird nur ueber einen Spannungsteiler gemessen(0-48V), wobei ich davon ausgehe das die SPannungserkennung funktionierenmuesste,. jedoch nur die Stromanzeihe nicht,.
gemessen wird der Spannungsabfall (an Masse) ueber einen 8,5cm langen 1.5mm² Draht.
Code:
Dim I As Byte
Dim Messergebnis(5) As Word 'enthält alle 4 messwerte
Dim Rechenergebnis As Single
Dim Strom(2) As Single
Dim Strom1 As String * 5
Dim Spannung(2) As Single 'spannungswerte
Dim Spannung1 As String * 5
Dim Leistung(2) As Single
Const Adc_multipli = 0.0048875855327468
Config Adc = Single , Prescaler = Auto , Reference = Avcc ' , Reference = Internal
Enable Adc
Start Adc
do
Gosub Read_adc
loop
Read_adc: ' shunt = 8,5cm 1,5mm² kupferdraht
For I = 1 To 5
Messergebnis(i) = Getadc(i) 'ruft alle analogwerte ab
'Print "messergebnis" ; I ; " " ; Messergebnis(i)
Next
'strom/spannungswandlungen
Rechenergebnis = Messergebnis(3) * Adc_multipli 'strom links
Rechenergebnis = Rechenergebnis / 10
Strom1 = Fusing(rechenergebnis , "##.##")
Spannung(1) = Messergebnis(2) * Adc_multipli 'Spannung links ca 1/20 der Messpannung
Spannung1 = Fusing(spannung(1) , "##.##")
Leistung(1) = Spannung(1) * Strom(1)
Leistung(1) = Round(leistung(1))
returnder Strom wird gemessen über den Shunt->OP->adc (0-12A)
SPannung wird nur ueber einen Spannungsteiler gemessen(0-48V), wobei ich davon ausgehe das die SPannungserkennung funktionierenmuesste,. jedoch nur die Stromanzeihe nicht,.
, muss das nochma ausprobieren,.
