Plotten der 50Hz-Netz-Frequenz       

von Ralf Beesner

' Netzfreq-2.bas
' Fuses: L = 0xff    H = 0xdf    E = 0xfe
' Compiler BASCOM 2.0.7.5 DEMO 

$Regfile = "attiny85.dat"
$Crystal = 16000000
$Hwstack = 40
$Swstack = 4
$Framesize = 4


Dim F As Long
Dim Ovfcnt As Long

Config Portb.0 = Output
Config PortB.1 = Output

' bei Verwendung eines RS232-USB-Wandlers:
Open "comb.1:115200,8,n,1,INVERTED" For Output As #1
' bei Verwendung eines TTL-USB-Wandlers stattdessen:
' Open "comb.1:115200,8,n,1" For Output As #1

Config Timer0 = Counter , Edge = Falling
Enable Timer0
On Timer0 Tim0isr

Config Timer1 = Timer , Prescale = 128
Enable Timer1
On Timer1 Tim1isr

Enable Interrupts


Do

  If Ovfcnt < 31 Then             ' erzeugt Blinksignal
    PortB.0 = 1
  Else
    PortB.0 = 0
  End If
Loop


Tim0isr:
  F = TCNT1
  TCNT1 = 0                       ' Counter1 zuruecksetzen
  TCNT0 = 206                     ' Counter0 zuruecksetzen 
  Shift Ovfcnt, Left, 8           ' ist schneller als Multiplikation mit 256
  F = F + Ovfcnt                  ' Werte um 125000
  Ovfcnt = 0
  Print #1 , F 
Return


Tim1isr:
  Incr Ovfcnt                     ' Ovfcnt: Overflow-Counter
Return

End

# Serial Scope
# fuer Python 2.7
# fuer Mikrocontroller ohne Quarz-Buerdekondensatoren (Takt 4 kHz zu hoch)
# mit Buerdekondensatoren: 125030.0 durch 125000 ersetzen!

import Tkinter as tk
import serial

step_x = 2

def scope(cv, x, step_x, pt):

    def measure_point():

        try:
            u = int(ser.readline())             # u = AtTiny-Zaehlerschritte
            v = (125030.0 / u)                  # normierter Kehrwert 
            v = v * 50                          # Frequenz in Hz
            print ("{0:2.3f}".format(v))
            u = 260 + (u - 125030.0)            # zufaellig kann "u" ohne Multiplikator verwendet werden
            if u < 0 or u > 520:                # bei Fehlmessungen auf Mittellinie setzen
                u = 260 
                print "Fehler"
        except:
            u = 260
            print "Fehler"
        return u

    if x < 720:
        if pt > 0:
            last_y = cv.coords(pt)[-1]
        else:
            cv.delete("line_point")
            last_y = 250

        x = x + step_x
        pt = cv.create_line(x-step_x, last_y , x, measure_point(), \
                            fill = "blue", tag="line_point", width=2)
    else:
        x = 0
        pt = None
    cv.after(1, scope, cv, x, step_x, pt)

root = tk.Tk()

root.title("Zeitlicher Verlauf der Netzfrequenz")
cv = tk.Canvas(root, width=730, height=550, bg="white")
cv.pack(padx=5, pady=5)
for n in range (0,50):
    cv.create_line(0, 510-n*25, 720, 510-n*25, fill = "lightblue") # waagrechte Rasterlinien
for n in range (1,14):
    cv.create_line(n*60, 10, n*60, 510, fill = "lightblue") # senkrechte Rasterlinien
for n in range (1,20):
    cv.create_text(0, 510-n*50, text=str(49.9 + n*0.02) , anchor="w") # senkrechte Beschirftung
for n in range (1,8):
    cv.create_text(n*120, 530, text=str(n*60), anchor="s") # waagrechte Beschriftung
cv.create_line(0, 235, 720, 235, fill = "black")  # schwarze Linie Beginn Regelbereich
cv.create_line(0, 285, 720, 285, fill = "black")  # schwarze Linie Beginn Regelbereich

tk.Label(root, text="senkrecht: Netzfrequenz in Hz         waagrecht: Sekunden").pack()
scope(cv, 0, step_x, None)


ser = serial.Serial('/dev/ttyUSB1', 115200, dsrdtr=1, rtscts=1)
# dsrdtr=1 und rtscts=1: Spannungsversorgung fuer LP Mikrocontroller-Board
ser.flush()

tk.mainloop()

import Tkinter as tk
import serial
import datetime

step_x = 2

def scope(cv, x, step_x, pt):

    def measure_point():

        try:
            u = int(ser.readline())             # u = AtTiny-Zaehlerschritte
            v = (125030.0 / u)                  # normierter Kehrwert 
            v = v * 50                          # Frequenz in Hz
            print ("{0:2.3f}".format(v))
            u = 260 + (u - 125030.0)            # zufaellig kann "u" ohne Multiplikator verwendet werden
            if u < 0 or u > 520:                # bei Fehlmessungen auf Mittellinie setzen
                u = 260 
                print "Fehler"
        except:
            u = 260
            print "Fehler"
        return u

    if x < 720:
        if pt > 0:
            last_y = cv.coords(pt)[-1]
        else:
            cv.delete("line_point")
            last_y = 250

        x = x + step_x
        pt = cv.create_line(x-step_x, last_y , x, measure_point(), \
                            fill = "blue", tag="line_point", width=2)
    else:
        x = 0
        pt = None
    cv.after(1, scope, cv, x, step_x, pt)

root = tk.Tk()

root.title("Zeitlicher Verlauf der Netzfrequenz")
cv = tk.Canvas(root, width=730, height=550, bg="white")
cv.pack(padx=5, pady=5)
for n in range (0,50):
    cv.create_line(0, 510-n*25, 720, 510-n*25, fill = "lightblue") # waagrechte Rasterlinien
for n in range (1,14):
    cv.create_line(n*60, 10, n*60, 510, fill = "lightblue") # senkrechte Rasterlinien
for n in range (1,20):
    cv.create_text(0, 510-n*50, text=str(49.9 + n*0.02) , anchor="w") # senkrechte Beschirftung
for n in range (1,8):
    cv.create_text(n*120, 530, text=str(n*60), anchor="s") # waagrechte Beschriftung
cv.create_line(0, 235, 720, 235, fill = "black")  # schwarze Linie Beginn Regelbereich
cv.create_line(0, 285, 720, 285, fill = "black")  # schwarze Linie Beginn Regelbereich

tk.Label(root, text="senkrecht: Netzfrequenz in Hz         waagrecht: Sekunden").pack()
scope(cv, 0, step_x, None)
tk.Button(root, text="Speichern", command=lambda :  cv.postscript(
    file="cv.{0:%d%b%Y_%H_%M_%S.%f}.ps".format(
    datetime.datetime.utcnow()))).pack()

ser = serial.Serial('/dev/ttyUSB1', 115200, dsrdtr=1, rtscts=1)
# dsrdtr=1 und rtscts=1: Spannungsversorgung fuer LP Mikrocontroller-Board
ser.flush()

tk.mainloop()