Das deutsche QBasic- und FreeBASIC-Forum

[DJS2009]

Hallo zusammen,

ich möchte gerne eine Betriebsdatenerfassung für meine Öl-Heizung programmieren. Da ich vor Jahren mal mit Turbo-Basic programmiert habe würde ich gerne mit FreeBASIC fortfahren.
Vielleicht kann mir der eine oder andere ein paar Tipps geben wie ich schnell zum Ziel komme.

Was soll erfasst werden?


Im ersten Schritt möchte ich die Laufzeit des Brenners (Magnetventil offen) und den Zeitpunkt des Öffnens und Schließen des MGV erfassen.

Weiterhin möchte ich die Laufzeit, sowie das Ein- und Ausschaltzeitpunkt der Speicherpumpe für die Warmwasserbereitung erfassen.


Angedacht ist diese Zustände über ein Relais 220 V / 5 V (Vorschläge willkommen ) an einen USB-Gameportadapter (Conrad 981285 - 62) zu übermitteln

Unter FreeBASIC sollen die Zustände des Gameportadapters entsprechend mitgelesen werden und bei der jeweiligen Änderung entsprechend fortlaufend die Aktion (MGV on / MGV off sowie SP on / SP off mit Datum + Uhrzeit in eine Text-Datei geschrieben (protokolliert) werden.

Spätere Erweiterungen könnten dann noch die Laufzeit /on / off der Umwälzpumpe, sowie die Erfassung der Vorlauf / Rücklauf-Temperaturen und der Außen- und Raumtemperatur sein.

Wie gesagt ich bin für jeden Tipp dankbar, vielleicht hat der eine oder andere schon mal Teile einer solchen Abfrage oder des Protokollierens in eine Datei geschrieben.


Gruß
Dirk

Editiert durch Moderator: Aussagekräftigen Betreff angegeben. (Sebastian)

[Elektronix]

Als "Newbie" hast Du Dir aber reichlich viel vorgenommen.

Du brauchst:
1) Kenntnisse in der Abfrage der Ports- abhängig vom Betriebssystem. Ist nämlich bei Win2k/XP und bei USB-Adaptern nicht ganz einfach (mal das Buch "USB in der Elektronik" durcharbeiten).
2) eine geeignete Schaltung zur Erfassung der Ventilzustände
3) eine geeignete Schaltung zur Datenübertragung
4) gute Kenntnisse in FreeBasic.

Ich würde sagen, fang mal mit dem 4. Punkt an und arbeite Dich Stück für Stück ein.
_________________
Und die Grundgebihr is aa scho drin- DOS is jo nett.

[DJS2009]

Also:

das Erkennen des Zustands von Magnetventil und der Speicherpumpe ist nicht das Problem, weil die auch mit einem 220 V Betriebsstundenzähler bzw. einem Impuszähler erfasst werden können (Parallelschaltung) Insoweit wäre hier ein Wechselerrelais eine gangbare Möglichkeit.

Das Programm steht nach Überarbeitung inzwischen soweit sowohl zur Verwendung mit einem RS232-Anschluß als auch mit einem Gameportadapter.

Version für den Gameportadapter:

---------------------------------------

SCREEN 12

DIM AS SINGLE x, y
DIM AS INTEGER buttons, result, i
DIM AS STRING A, B, C, D ,Z
DIM as INTEGER C1, C2, C3, C4, S1, S2, S3, S4

CONST JoystickID = 0

' Joystick-Abfrage:

IF GETJOYSTICK(JoystickID, buttons, x, y) THEN
PRINT "Joystick existiert nicht, oder ein Fehler ist aufgetreten."
PRINT
PRINT "Beliebige Taste drücken um fortzusetzen"
SLEEP
END
END IF


DO
GETJOYSTICK JoystickID, buttons, x, y
LOCATE 1,1


IF (buttons AND (1 SHL 1)) THEN
PRINT "Channel ";1 ;" on "
C1=1
ELSE
PRINT "Channel ";1 ;" off"
C1=0
END IF

IF (buttons AND (1 SHL 2)) THEN
PRINT "Channel ";2 ;" on "
C2=1
ELSE
PRINT "Channel ";2 ;" off"
C2=0
END IF

IF (buttons AND (1 SHL 3)) THEN
PRINT "Channel ";3 ;" on "
C3=1
ELSE
PRINT "Channel ";3 ;" off"
C3=0
END IF

IF (buttons AND (1 SHL 4)) THEN
PRINT "Channel ";4 ;" on "
C4=1
ELSE
PRINT "Channel ";4 ;" off"
C4=0
END IF


'Daten in Datei schreiben:
B = DATE$
C = Time$
IF S1 <> C1 THEN
IF C1=1 Then A="C1 on" ELSE A="C1 off"
OPEN "C:/bde.txt" FOR APPEND AS #1
WRITE #1, B, C, A
CLOSE #1
S1 = C1
ENDIF

IF S2 <> C2 THEN
IF C2=1 Then A="C2 on" ELSE A="C2 off"
OPEN "C:/bde.txt" FOR APPEND AS #1
WRITE #1, B, C, A
CLOSE #1
S2 = C2
ENDIF

IF S3 <> C3 THEN
IF C3=1 Then A="C3 on" ELSE A="C3 off"
OPEN "C:/bde.txt" FOR APPEND AS #1
WRITE #1, B, C, A
CLOSE #1
S3 = C3
ENDIF

IF S4 <> C4 THEN
IF C4=1 Then A="C4 on" ELSE A="C4 off"
OPEN "C:/bde.txt" FOR APPEND AS #1
WRITE #1, B, C, A
CLOSE #1
S4 = C4
ENDIF
'Daten in Datei geschrieben:


' Bei Tastendruck beenden.
LOOP UNTIL LEN(INKEY)



--------------------

Verbesserungsvorschläge erwünscht

Gruß
Dirk

[volta]

Achtung:
(1 SHL 1) = 2, also wird damit Channel 2 abgefragt !
Probier mal:

[OneCypher]

Mit welcher datenrate könnte man eigentlich daten über den gameport empfangen? Kann man einen Gameport auch als Datenausgang "misbrauchen" ?

[28398]

[volta]

über USB wird es noch langsamer, alle 1 - 3ms (300-1000 pro Sekunde) eine Abfrage
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[28398]

Abtastfrequenz != Pollfrequenz.
Ich kann an den USB Port einen ADC mit einer Abtastfrequenz von 30 Mhz dranhängen, und trotzdem in Echtzeit noch alle Daten mitkriegen (Isochronoustransfer)

[DJS2009]

[28398]

Dir ist schon klar, dass x SHL y (wobei gilt, dass x und y const sind - also bspw. hardgecodete Zahlen) eine Konstante ist, die du auch einfach hinschreiben kannst?

[DJS2009]

[St_W]

@DJS2009: Ich glaube 28... meint, dass du den Ausdruck "1 SHL 0" usw. gleich ausrechnen und das Ergebnis "1" hinschreiben könntest. ==> Lass es lieber. Wie du es jetzt hast ist es mindestens so gut.

@28...: Dir ist schon klar, dass x SHL y (wobei gilt, dass x und y const sind - also bspw. hardgecodete Zahlen) eine Konstante ist, die der FB Compiler (jedenfalls in der Version 0.20.0) zur Compile-Zeit berechnet und diesen konstanten Wert (und nicht die Berechnung) ins Programm einbaut?
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[ThePuppetMaster]

du brauchst nicht zwingend ein relais .. du kannst das auch mti nem spanungsteiler, na Z-Diode und na normalen Diode + kondi machen.

Preistechnisch kommst du da auf rund 10cent, anstat auf 1 euro pro sensor-gruppe

wenn du n schaltplan willst, schreib mir ne PM


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[volta]

Hi DJS2009,
ich würde solche Schreibweise wählen:

[DJS2009]

@ The PuppetMaster
Du hast eine PM von mir

@ Volta
Danke für den Tipp, werde ich mal probieren.

Wegen dem Relais hatte ich übrigens an folgendes gedacht:

Conrad 50 28 28 - 42

Meinungen?

Gruß
Dirk

[28398]

@St_W
Nein, sowas...

[ThePuppetMaster]

@volta .. das is natürlich ein ding der selbstverständlichkeit


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[28398]

@volta:
Zeig mir den Menschen, den ein Inputlag von <1 ms intessiert...

[volta]

Oh ja, oben schrieb einer
er fragt seinen ADC mit 30Mhz ab und bekommt die Ergebnisse in Echtzeit, der ist von 1ms Latenz bestimmt nicht begeistert.

Ansonsten ist es beim Joystick natürlich unerheblich ...
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[28398]

Wenn ich das mit nem Isochronoustransfer mache ist das kein Problem. Natürlich kriege ich das nicht mit Interrupttransfers hin (max. 1000/EP). Mit Isochronoustransfers kann ich das jedoch Problemlos hinkriegen. (max. 90% Bandbreite, 3000 Microframes/s)
Das wird hier langsam sehr OT.