[christianw.]

Läuft!

[Rumgucker]

Jepp... läuft und läuft und läuft. Ich denke, dass sich langsam das Hochladen der Weichware lohnt.

[christianw.]

Einstellbarer "Gain/Ansprechzeit" wäre doch toll, und "PeakHold".

[Rumgucker]

Zitat:Original geschrieben von christianw.
Einstellbarer "Gain/Ansprechzeit" wäre doch toll, und "PeakHold".

Was willst Du mit dem Krempel bei einer 50Hz-Anzeige? Denn mehr kann das Ding nicht. Das hatte ich aber in #40 deutlich geschrieben:

http://include.php?path=forum/showthread...entries=39

Hier wirds eingebaut (versenkt zwischen den Trafos)

http://include.php?path=forum/showthread...entries=13

Also kann ich mir das Hochladen sparen?

[Rumgucker]

Es gibt ein "kleines" betriebstechnisches Problem....

Wenn ich das Netzteil ausschalte, so geht der Zeiger der Ausgangsspannungsanzeige nicht auf Null zurück, weil das Messwerk ja keinen Betriebsstrom mehr erhält.

[Rumgucker]

...ach... das ist lösbar.

Ich hab nen eigenen Trafo zur Versorgung des Messwerks. Hab also immer Strom. Wenn keine zu messende Spannung anliegt, fährt das Messwerk den Zeiger runter und legt sich (stromfrei) schlafen. Das ist easy. Sobald wieder Messspannung kommt, erwacht es und beginnt wieder den PWM-Betrieb.

[christianw.]

Ich dachte, das Teil kann auch DC oder Pulse.

[Rumgucker]

Zitat:Original geschrieben von christianw.
Ich dachte, das Teil kann auch DC....

Wenn Du Gleichspannung mit einer Effektivwertanzeige messen möchtest, dann kann es auch DC :



(Quelle: http://include.php?path=forum/showthread...ntries=163)

Zitat:Original geschrieben von christianw.
.... oder Pulse.

Zitat:Eigenzitat
Mein erstes derartiges Messwerk soll in der Ferroresonanzkiste eingebaut werden. Da brauch ich ne echte Effektivwertanzeige (weil die Kurvenform nicht unbedingt sinusförmig ist), allerdings nur mit wenig Oberwellen und geringem Crest-Faktor. Also ideal für den 12F675. Und das Messwerk befindet sich ganz nahe bei den Trafos. Ein normales Drehspulinstrument hätte da schlechte Karten. Hinzu kommt noch, dass der Motor winzig klein ist.

(Quelle: http://include.php?path=forum/showthread...entries=56)


Der Scheitelfaktor ist definiert als...

[Bild: 9cbe85c8bf37ae0dc4ed9bf706a51530.png]

(Quelle: http://de.wikipedia.org/wiki/Scheitelfaktor)

...und kann bei Impulsen beliebig ansteigen. Also exakt das Gegenteil von dem, was der langsame Wandler im verwendeten Controller leisten kann.

Tut mir leid, wenn Du Dir was anderes vorgestellt hattest, Christian. Aber das Messwerk soll eben meine im Thread genau beschriebene spezielle 50Hz-Aufgabenstellung der Überwachung der Ausgangsspannung des magnetischen Spannungsreglers inkl. des dort gegebenen geringen Einbauplatzes optimal erfüllen.

Auch der hier im Thread gebaute Starkstrom-Drehschalter ist ausschließlich für das Ferroresonanz-Gerät konstruiert worden:

http://include.php?path=forum/showthread...eadid=1208

Dass man all diese "kleinen Helferlein" möglicherweise auch noch woanders anwenden kann bzw. auf andere Aufgaben anpassen kann, das steht auf einem anderen Blatt.

[christianw.]

Ist ja kein Ding. Wäre halt nice, wenn die Treiberschaltung universal ist und jeder hier das Teil einsetzen kann. Ala 0-5V Eingang == 0-100° Winkel.

[Rumgucker]

Zitat:Original geschrieben von Rumgucker
Bei rund 150V~ (muss ich nochmal genau messen) fängt der PIC an und versorgt sich von da ab selbst mit den vollen 5V.

Ab 175V Netzversorgung arbeitet die Schaltung vollständig.

[Rumgucker]

Zitat:Original geschrieben von christianw.
Ist ja kein Ding. Wäre halt nice, wenn die Treiberschaltung universal ist und jeder hier das Teil einsetzen kann. Ala 0-5V Eingang == 0-100° Winkel.

Das kann man fast beliebig anpassen. Sind Defines für drin.

https://stromrichter.org/d-amp/content/i...esswerk.cp

Hier gibts die Header:

http://include.php?path=forum/showthread...ntries=163

[Rumgucker]

Ich habs eben zum ersten Mal an realen 230V~ getestet. Läuft erschreckend schlecht. Ich werde die AD-Wandlung in eine ISR umlagern müssen.

[christianw.]

Hat zumindest den Vorteil, die Samplefrquenz in großen Teilen einstellen zu können, ohne die Laufzeit "signifikant" zu verändern.

Ich mach das bei meiner Büchse so, ist Basis und nicht optimiert.

Code:

$regfile = "m8adef.dat"
$crystal = 8000000
'$lib "lcd4_own.lbx"

$hwstack = 48
$swstack = 64
$framesize = 128


'Config Lcd = 16 * 2
'Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2

Config Timer0 = Timer , Prescale = 1024                     'Konfiguriere Timer1
Enable Timer0                                               'schalte den Timer1 ein
On Timer0 Isr_von_timer0                                    'verzweige bei Timer1 überlauf zu   Isr_von_Timer1

Timer1 = 34285                                              'Timer1 soll schon von 34285 wegzählen


Config Lcd = 16 * 2                                         ' , Chipset = Ks077
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4

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

Const Adc_multi_voltage = 0.0239995
Const Adc_multi_current = 0.00685

Dim Index As Byte
Dim Value_voltage(64) As Word
Dim Value_current(64) As Word
Dim Average_voltage As Long
Dim Average_voltage_temp As Single
Dim Average_voltage_string As String * 6
Dim First_line_string As String * 8
Dim Second_line_string As String * 8
Dim Average_current As Long
Dim Average_current_temp As Single
Dim Average_power_temp As Single
Dim Average_current_string As String * 6
Dim Average_power_string As String * 6
Dim Timer0_temp As Byte
Dim Timer_temp_toggle As Byte
Dim Display_bit As Bit
Dim Count As Byte




'--------------Main--------------------------

'Double-Init for Slow-Displays
Initlcd
Cls
Cursor Off Noblink

' Spanungsteiler 39k/10k für UMax = 24.5V = 5V

Locate 1 , 1
Lcd "BIERCHEN"
Locate 2 , 1
Lcd "JUNGE!"
Wait 1
Cls
Enable Interrupts

Index = 1
Timer0_temp = 1
Display_bit = 0
Timer_temp_toggle = 1
Do

Disable Interrupts
                                                          'Mainloop
Value_current(index) = Getadc(4)                            'messen
Value_voltage(index) = Getadc(5)                            'messen
Incr Index

Enable Interrupts

If Index = 65 Then
   Index = 1
End If

Average_voltage = 0
Average_current = 0

For Count = 1 To 64
Average_voltage = Average_voltage + Value_voltage(count)
Average_current = Average_current + Value_current(count)
Next


   Average_voltage_temp = Average_voltage / 64
   Average_current_temp = Average_current / 64

   If Average_voltage_temp <= 447 Then

      Second_line_string = "UNDRVOLT"
'      Lcd "Undrvolt"                                        '10,7V
   Elseif Average_voltage_temp <= 472 Then

      Second_line_string = "PWR LOW "
'      Lcd "Pwr low "                                        '11,3V
   Elseif Average_voltage_temp >= 836 Then

      Second_line_string = "OVERVOLT"
'      Lcd "Overvolt"                                        '20V
   Else
      Average_current_temp = Average_current_temp * Adc_multi_current
      Average_current_string = Fusing(average_current_temp , "##.##")
      Second_line_string = " " + Average_current_string
   End If

   Average_voltage_temp = Average_voltage_temp * Adc_multi_voltage
   Average_voltage_string = Fusing(average_voltage_temp , "##.##")
   First_line_string = " " + Average_voltage_string + " V "

   Average_power_temp = Average_voltage_temp * Average_current_temp
   Average_power_string = Fusing(average_power_temp , "##.##")

'Waitms 10

Loop

Isr_von_timer0:
Incr Timer0_temp
If Timer0_temp = 6 Then
   Timer0_temp = 1
      If Timer_temp_toggle >= 50 Then
      Toggle Display_bit
      Timer_temp_toggle = 1
   End If
   If Display_bit = 1 Then
      Locate 1 , 1
      Lcd First_line_string
      Locate 2 , 8
      Lcd "A"
      Locate 2 , 1
      Lcd Second_line_string

      Incr Timer_temp_toggle
   Else
      Locate 1 , 1
'      Lcd "POWER   "
      Lcd First_line_string
      Locate 2 , 1
      Lcd " " ; Average_power_string ; " "
      Locate 2 , 8
      Lcd "W"
      Incr Timer_temp_toggle
      Incr Timer_temp_toggle
   End If

End If

Return

[Rumgucker]

Hui.... ich finde Basic ja immer faszinierend.

[Rumgucker]

Endlich mal wieder dazu gekommen. ISR arbeitet und Wechselstrommessung klappt grandios.

Bisschen timing-Feinschliff fehlt noch. Und ein wenig Mathe. Und dann ist das Helferlein rund.

.. so in ein oder zwei Jahren...

[Rumgucker]

Hier noch die Source....

https://stromrichter.org/d-amp/content/i...esswerk.cp

[Rumgucker]

Und der Einbau des Schalters und Messwerks ins Zielgerät

[Rumgucker]

Der Zeiger des Messwerks "nullt" sich nach der Bestromung rein mechanisch an dem Endanschlag, der gleichzeitig auch das Deckglas hält.

[Rumgucker]

Ein "kleines" Helferlein ist auch ein Trenntrafo.

Der saß bisher in einem schwarzen Stahlblechgehäuse, was vorzügliche Eigenschaften hat:

- es reduziert magnetische Streufelder

- es leitet die innen entstehende Wärme gut nach außen ab


Diesen Vorteilen steht aber ein wesentlicher Nachteil entgegen: ein Stahlblechgehäuse passt nicht zu meinem "Graukasten Baumhausstil"!

Es wird Zeit, das Blechpaket mal umziehen zu lassen...



Auf die Frontplatte ne schöne Steckdose, vielleicht ne Lampe und nen Schalter. Mal gucken.

[Moki]

Gucki baut wieder schweres Zeug, Du wärst ideal bei uns im Walzwerk aufgehoben gewesen. Da war alles schwer, sogar die Schraubenschlüssel.....



Schlüsselweite 60mm, wird mit dem Hammer angezogen.