Wechselstrom mit Bascom messen

[Neutro]

Hall Carlos,
wenn ich deinen Code richtig verstehe werden also 20 Messungen gemacht weil das Array auf 20 Stellen begrenzt ist?
wenn die 20 Stellen voll sind werden also die Min und Max werte bestimmt?
Ich habe das ganze mal in einen vollständigen Code als unterprog eingebunden, allerdings lässt sich dein Abschnitt nicht fehlerfrei Compilieren, das Problem liegt in dieser Zeile:
For A = 1 To Tastmessungen

@Stfan1409:
Danke für deinen Code, ich werde auch den mal Checken

[Carlos76]

Hallo
Klar Kannst du mir eine PN schicken

Hall Carlos,
wenn ich deinen Code richtig verstehe werden also 20 Messungen gemacht weil das Array auf 20 Stellen begrenzt ist?
wenn die 20 Stellen voll sind werden also die Min und Max werte bestimmt?

Ja so sollte der ablauf sein.
Ich hab keine ahnung wieso du ein fehler bekommst , du solltest kompielierbaren code hier reinstellen, kann es sein das vergessen hast a as byte für die for schleiffe zu definieren?

[Neutro]

Ja, die Definition fehlte tatsächlich, aber dann wird die Zeile :
Max(w(1) , M1 , Idx) Als fehler markiert (asignment error)

Hier mal der ganze Code:


$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

'-------------------------------------------------------------------------------
'LCD Config

Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5

'-------------------------------------------------------------------------------


'Variable setzen

'print Fusing(effektiv , "#.##")
Dim A As Byte
Dim Tastmessungen As Byte
Tastmessungen = 20 'sollte die gleiche grösse wie w haben
Dim W(20) As Word ' getadc mag kein single
dim Maxi as word '
dim mini as word
dim Spitzenstrom as word
Dim Effektiv As Single 'und alle andere variablen für die Berechnungen als single deklarieren


'-------------------------------------------------------------------------------
'ADC Einstellungen

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

'-------------------------------------------------------------------------------
'Hauptprogramm

Cls
Cursor Off
Upperline
Lcd " ACV "
Lowerline
Lcd " Spannung "

Wait 3
Cls


Do

Gosub Spannungsmessung

Loop


Spannungsmessung:

For A = 1 To Tastmessungen
W(a) = Getadc(0) 'analogwert lesen und in W array speichern
Next A
Max(w(1) , M1 , Idx) 'aus W array Maximum wert raussuchen und speichern
Maxi = M1 'Maximum wert in Variable maxi speichern
Min(w(1) , M1 , Idx) 'aus W array Minimum wert raussuchen und speichern
Mini = M1 'Minimum wert in Variable Mini speichern
Spitzenstrom = Maxi-Mini
'jetzt deine variable skalieren und dann
Effektiv = Spitzenstrom / 2.82

Upperline Fusing(effektiv , "#.##") 'hier ist jetzt der Spannungswert der umgerechnet werden muss!

Return

[Carlos76]

hallo Neutro
es fehlt
dim M1 as word
dim idx as word
und das solltest du wechseln
Upperline Fusing(effektiv , "#.##") 'hier ist jetzt der Spannungswert der umgerechnet werden muss!
in
upperline
lcd Fusing(effektiv , "#.##")
jetzt wird deine gosub siemlich schnell durchlaufen , du solltest mindestens ein waitms 1 in deine messschleife am besten wäre es wenn du ein timer benutzt mit 1 ms

[Neutro]

Danke für die Antwort,

das mit dem Wait hatte ich glatt vergessen....

[Besserwessi]

Ein Wait ist nur nötig, wenn man sich auf so wenige Werte geschränkt. Sonst ist es eher besser mehr Werte des AD Wandlers zu nutzen, und nicht zu warten. Das Suchen nach Maximum und Minimum geht auch ohne alle Werte zu speichern, jeweils direkt nach der Messung. Dann ist es auch klein Problem nicht nur 20 Werte zu nutzen sondern z.B. 200 oder auch 1000.

Ein Timer ist hier eher nicht angebracht. Eher schon der Interrupt vom AD Wandler: also den AD Wandler im Free running mode laufen lassen und dann die benötigte Zahl (ca. 200) an Samples auswerten. Das Programm kann dann auch noch was anderes machen während der Messung.

[Neutro]

So, ich wollte mal einen kurzen Zwischenbericht zu dem Projekt abgeben:
Ich habe mich für eine "Hybrid" Lösung entschieden, soll heißen das ich einen Vollwellengleichrichter und den Programmvorschlag von
Carlos mit ein paar kleinen Änderungen nehmen werde.
Zur Erklärung: Der Gleichrichter wird das Signal des Stromsensors gleichrichten und in seiner welligen Form auf den Controller ADC geben.
Die Software soll dann 25 Messungen in 800µS Abstand ausführen, so das ich auf jeden Fall sehr dicht an die Spitzenspannung herankommen werde.
Der Min Wert braucht dazu nicht mehr bestimmt zu werden, der Max Wert/ 1,41 ergibt dann ja den Effektivwert der Spannung.
Leider bin ich noch nicht dazu gekommen die Software zu testen, zumindest beim compilieren erhalte ich keine Fehler.
Der Gleichrichter wird noch so modifiziert werden, das er den 2,5V Offset des Sensors abzieht. Dafür werde ich dann den OP (TL082) aber wohl doch symetrisch mit +/- 5V betreiben müssen. Am Ausgang des Gleichrichters wird noch eine Schottky Diode gegen GND eingesetzt um neg. Spannung vom ControllerPin
fern zu halten.

Bis hier hin schon mal vielen Dank an alle!

MFG
Neutro