Das deutsche QBasic- und FreeBASIC-Forum

[eeg-grimm]

Hallo dreael,

Windows-Gerätemanager unter "Anschlüsse" bei mir „Hardware“

Bei „Ressourcen“ kommt auch beim Gerätemanager bei COM1.
E/A-Bereich 03F8-03FF
IRQ 04

Bei COM4 gibt es „Ressourcen“ gar nicht.

######

Hallo grindstone,

das mit dem Programm von Sebastian hab ich ja mit COM4 schon ausprobiert und das hat ja auch geklappt.
Die Eingänge CDS, DSR, RING (RI) und RLSD (DCD) kann man geschmeidig abfragen.

Für das EIN und AUS schalten von RTS und DTR ist ja noch etwas an „Veränderungen“ nötig.

Zumindest geht das LED an RTS zu GND est mal AUS nach Programmstart und nach Programm Ende wieder EIN, also schaltet das IC auf dem USB Pegelwandler zu TTL den RTS.

Jetzt braucht am noch eine „Eingabe“ für RTS und auch für DTR, EIN oder AUS.

Gruß

[Sebastian]

Hehe, da muss ich den Ruhm aber ein bisschen abtreten. Das Code-Beispiel zum Auslesen/Setzen der Statusleitungen im FreeBASIC-Portal ist nicht von mir. Ich habe es dir nur verlinkt. Der Autor ist jemand anderes (Steini). Steht im Portal auch so angegeben.

[eeg-grimm]

[grindstone]

[eeg-grimm]

Hallo grindstone,

den USB - Adapter schließe ich direkt (ohne Pegelwandler an) an das Stromzählermodul PZEM-004T und das auslesen der z.B. Spannung geht ja einwandfrei, mit dem Programm von Sebastian (16.12.2017, 01:30) mit COM1 und auch mit USB=COM4.

Die Anfrage wegen RTS und auch für DTR als Ausgang schalten mit FreeBASIC hab ich ja nur gestellt weil ich eine Verbindung zur Außenwelt brauch um was EIN und AUS zu schalten.
Bei erreichen oder unterschreiten von Messwerten soll ja was geschalten werden.

#

Mit dem Eingebauten COM1 geht ja die Messung mit dem PZEM-004T und auch das schalten von RTS und DTR, alles mit FreeBASIC.

Bei Verwendung vom FreeBASIC und USB (COM4) geht das PZEM-004
aber nicht das schalten von RTS, DTR.

Nur mit dem „Spezialprogramm“ von Sebastian 29.12.2017, 12:23 zeigt RTS, DTR zumindest eine Reaktion.
Die Eingänge CDS, DSR, RING (RI) und RLSD (DCD) kann man abfragen an der USB Platine.

#

volta, hat am 19.12.2017, 16:39 (Seite 1) noch ein Programm eingestellt für:
Volt, Anper, Watt und kWh

Ist mir aber mir noch nicht klar wie das komplette Programm dann aussieht um V, A, W und kWh zu bekommen von Stromzählermodul PZEM-004T.


Gruß

[Steini63]

[grindstone]

[eeg-grimm]

Hallo,
erst ein gesundes neues Jahr.

Der Kopf brummmmmmt noch aber alle Finger sind noch dran.

######

grindstone schreibt:
Entschuldigung, wenn ich hier etwas besserwisserisch erscheine

Das ist nicht besserwisserisch, mein wissen ist nicht besser, meine Fragen sind ja auch manchmal etwas komisch, verwirrend.


Hab ja nur Basiswissen bei QBasic, so für den Hausgebrauch und da bin ich für jeden Tipp dankbar.
Deshalb auch nur Basic = Basiswissen.

Auch auf der Internetseite von Steini63 hol ich mir seit Jahren immer wieder mal den einen oder anderen Tipp.
Ich bin ja noch nicht in der Hochgeschwindigkeit-Datenverarbeitung angekommen aber nur mit COM am PC ist ja auch ein Auslaufmodell.

Die Ausgänge RTS und DTR sind genau umgedreht bei der Spannungsausgaben an der USB Platine.

„EscapeCommFunction(hCom, SETRTS) 'RTS +12V“
RTS +12V = L (RTS mit einem LED verbunden mit GND LED=AUS)

„EscapeCommFunction(hCom, SETDTR) 'DTR +12V“
DTR +12V = L (DTR mit einem LED verbunden mit GND LED=AUS)

„EscapeCommFunction(hCom, CLRRTS) 'RTS -12V“
RTS -12V = +5V H (RTS mit einem LED verbunden mit GND, LED=EIN )

„EscapeCommFunction(hCom, CLRDTR) 'DTR -12V“
DTR -12V = +5V H (DTR mit einem LED verbunden mit GND LED=EIN)

Ich hab ja jetzt zwei Leitungen die H und L Signale liefern über einem I2C-Bus mit einem IC PCF8574 dann verschiedene Sachen EIN und AUS schalten.

Gruß

[eeg-grimm]

Hallo Sebastian,
ich mach zurzeit mal was mit deinem Programm vom 16.12.2017, 01:30

Diese Zeile habe ich geändert
Dim KommandoA As String = Chr( &HB0, &HC0, &HA8, &H01, &H01, &H00 )
NEU
Dim KommandoA As String = Chr( &HB0, &HC0, &HA8, &H01, &H01, &H1A )

Nun habe ich da einen super Modernen Laptop der vermutlich 10 mal schneller als mein Windows XP Rechner und da müsste man nach dem Senden und Empfangen eine klein Pause machen.

Es kommt mir so vor als ob die Leertaste etwas „prellt“ also irgendwie manchmal 2 mal sendet und aber die Rückmeldung vom PZEM-004T Modul noch nicht da ist.

Ich hab jetzt mit „Sleep“ einige Sachen ausprobiert, nur dann ist das beenden vom Programm mit der Taste „Esc“ irgendwie ein Glücksspiel.

Können Sie einen Tipp geben wie ich nach dem drücken der Leertaste nur 1 mal die Anfrage sende, also eine kleine Zeitverzögerung bis zur nächsten Leertastenabfrage.
.

[grindstone]

Hallo eeg-grimm.

Das 'Sleep 1' in der Schleife ist nicht fürs Timing, sondern dient dazu, Ressourcen zu schonen, indem es den Rest der dem Programm vom Betriebssystem zugeteilten Zeitscheibe (bei WinXP ca. 15 ms) freigibt. Ohne dieses Sleep würde die Schleife eine Prozessor(kern)auslastung von 100% verursachen.

Das Timing (wenn man es so nennen will) der Schleife erfolgt durch Abfragen der Länge des Empfangspuffers. Hier kann es zu Problemen kommen, wenn die Übertagung langsamer ist als die Wiederholdauer der Schleife. Abhilfe schafft ein Warten auf das Ende der Datenübertragung:

[eeg-grimm]

Danke grindstone,

das ist jetzt wesentlich besser mit der Leertaste und das „prellen“ ist verschwunden, nur wenn man auf der Leertaste bleibt, macht das auch nichts, werden nur immer wieder

Sende Daten! Hex-Ansicht: B0 C0 A8 01 01 00 1A
Sende Daten! Hex-Ansicht: B0 C0 A8 01 01 00 1A
Sende Daten! Hex-Ansicht: B0 C0 A8 01 01 00 1A

gesendet an das PZEM-004T Modul.

[grindstone]

Da ist kein Prellen. Die Antwort des Moduls wurde vorher lediglich in mehrere Teile zerlegt.

Liefert das Modul denn sinnvolle Messwerte?

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!

[eeg-grimm]

[grindstone]

[eeg-grimm]

Hallo grindstone,
das werde ich mal testen heute Abend.

Mein Versuchsaufbau sieht jetzt so aus für die Spannung:
https://www.bilder-upload.eu/bild-9ff44c-1542186562.jpg.html
https://www.bilder-upload.eu/bild-8eeb58-1542186109.jpg.html

[eeg-grimm]

Hallo grindstone,

ich bin beeindruckt, das man das machen kann ohne das man die beiden Platine zur Verfügung hat.
https://www.bilder-upload.eu/bild-7df8a9-1542215413.png.html

Machst du das mit den programmieren Hauptberuflich oder nur nebenbei?

Ich hab ja vor 25 Jahren mal mit GW-Basic angefangen und da war die Welt noch in Ordnung, schön durchnummerierte Zeilen und immer mit GOTO gesprungen, dann Q-Basic und in den vergangen 10 Jahren nichts mehr gemacht.

[grindstone]

[eeg-grimm]