Wechselstrom mit Bascom messen

[stfan1409]

Hallo Neutro,
habe gerade keine Hardware hier, also ist der Code ungetestet - kannst ja mal versuchen.

Analogeingang0 wird alle 800µs eingelesen.
wenn der Wert größer 2,5V also größer 512 ist, wird er zur Variable Mittelwert gerechnet.
gleichzeitig wird gezählt, wie oft gemessen wurde.

ist der Analogeingang0 gleich 512 oder kleiner, wird mit den vorher gemessenen Werten gerechnet,
d.h. Variable Mittelwert / Zaehler(wie oft gemessen wurde)

Danach wird das Ergebnis über RS232 ausgegeben($baud = 19200 )

'Wechselspannung messen / STFan 12.02.2012


'-------------------------------------------------------------------------------
'Konfiguration µC:
$regfile = "m8def.dat"                                      'AT-Mega8
$crystal = 8000000                                          '08 MHz
$baud = 19200

'-------------------------------------------------------------------------------
'8Bit Timer0: 50Hz bei 1Sekunde -> 20ms -> 25 Messungen in 20ms -> alle 0,8ms eine Messung also 1250 Messungen pro Sekunde
Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0_isr
Const Timer0vorgabe = 156
Enable Timer0
Enable Interrupts


'-------------------------------------------------------------------------------
'Ein- Ausgänge:
Config Portc = Input


'-------------------------------------------------------------------------------
'Analogmessung
Config Adc = Single , Prescaler = Auto , Reference = Avcc


'-------------------------------------------------------------------------------
'Variablen
Dim Analog0 As Word
Dim Zaehler As Byte
Dim Mittelwert As Integer , Mittelwert2 As Single
Dim Merker As Byte                                          'Merker = 0 = analogwerte werden eingelesen
                                                             'Merker = 1 = Werte wurden berechnet
                                                             'Merker = 2 = Werte wurden ausgeben
Dim Spitzenwert As Single
Dim Effektivwert As Single


'-------------------------------------------------------------------------------
'Programm


Do

If Merker = 1 Then
Print "Mittelwert2: " ; Mittelwert2                         'Ausgabe des Mittelwert2

Spitzenwert = Mittelwert2 * 1.571                           'berechnen Spitzen wert
Print "Spitzenwert: " ; Spitzenwert

Effektivwert = Spitzenwert / 1.414                          'berechnen Effektivwert
Print "Effektivwert: " ; Effektivwert

Merker = 2
End If


Loop

'_______________________________________________________________________________





'...............................................................................
Timer0_isr:
Timer0 = Timer0vorgabe


Start Adc
Analog0 = Getadc(0)                                         'Analogwert messen
Stop Adc



If Analog0 > 512 Then
   Incr Zaehler
   Mittelwert = Mittelwert + Analog0
   Merker = 0

Else

   If Merker = 0 Then
      Merker = 1                                            'Damit nach den Messungen nur einmal der Mittelwert berechnet wird!
      Mittelwert2 = Mittelwert / Zaehler                    'Effektivwert berechnen
      Zaehler = 0                                           'Variable zurücksetzen
      Mittelwert = 0                                        'Variable zurücksetzen
   End If


End If

Return

[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.