Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

USB Relais ansprechen via VB

Forumthread: USB Relais ansprechen via VB

USB Relais ansprechen via VB
01.06.2024 17:22:02
Jochen
Ich habe ein USB Relais das per Shellbefehl angesteuer werden kann.
Wie kann ich das in mein Excel VB integrieren?

Man sendet einfach vier Bytes an den USB und das Relays schaltet.
echo -n -e '\xA0\x01\x01\xA2' > /dev/ttyUSB0
zum Anschalten und
echo -n -e '\xA0\x01\x00\xA1' > /dev/ttyUSB0
zum Ausschalten.

Habe in die Richtung noch nie was gemacht.

Würde das so gehen? 

Set objShell = CreateObject("Wscript.Shell")

strRealCmd = echo -n -e '\xA0\x01\x01\xA2' > /dev/ttyUSB0

objShell.Run strRealCmd

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: USB Relais ansprechen via VB
01.06.2024 17:36:16
ralf_b
VBA Gut???? wirklich?

https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/shell-function

Shell(pathname, [ windowstyle ])
pathname Erforderlich; Variant (String). Name des auszuführenden Programms und alle erforderlichen Argumente oder Befehlszeilenschalter;

das bedeutet, das du alles als Text setzen mußt.
was darin ist der String? strRealCmd = echo -n -e '\xA0\x01\x01\xA2' > /dev/ttyUSB0
Anzeige
Off Topic
01.06.2024 18:08:30
Oppawinni
Bitte wann will denn verstanden werden, dass eine Selbsteinschätzung nur das ist, was sie ist ... und damit in aller Regel falsch.

Die Selbsteinschätzung sollte bestenfalls dazu dienen, dem Antworter eine Orientierung zu geben ob er bei Adam und Eva anfangen muss oder nicht,
wobei es, wie gesagt, keine Garantie gibt, dass Adam und Eva nicht dennoch erforderlich wären.

Anzeige
AW: Off Topic
01.06.2024 18:30:31
Jochen
Hab mich einfach noch nie intensiver mit der Materie beschäftigt.
Hätte ja sein können das das jemand direkt aus dem Ärmel schüttelt.
Cmd aus VBA ansteuern.
Mal sehen vielleicht kommt noch was.
Das es so aussehen könnte oder sollte: 
strRealCmd = "echo -n -e '\xA0\x01\x01\xA2' > /dev/ttyUSB0"

ist jetzt wirklich nicht das was ich wissen wollte.
Außer jemand hat das genauso gemacht und es funktioniert.

Anzeige
AW: Off Topic
02.06.2024 00:31:56
ralf_b
wann will denn verstanden werden, das man nicht jeden Frager in den Popo kriechen muß? Ein Hinweis auf Selbsteinschätzung und die Fähigkeit bei einem gewissen Level die Onlinehilfe zu kennen und bedienen zu können muß einfach drin sein. Da braucht es nicht gleich einen Ritter in güldenem Gewand, der hier in die vermeintliche Bresche springt.
Lieber Oppawinni, 4 Beiträge und immer noch Off Topic? Auch nicht deine beste Leistung.
Anzeige
AW: Off Topic
02.06.2024 08:35:53
Oppawinni
Du musst niemandem in den Popo kriechen, aber du musst auch nichts schreiben, wenn du keine Lust darauf hast.
Ich find es jedenfalls unangebracht, den Leuten als erstes mal eins auf die Mütze zu geben.
Im realen Leben wirst du das wohl auch eher nicht machen, oder ?
Guten Morgen.
AW: Off Topic
02.06.2024 10:25:40
ralf_b
wie kommst du darauf das ich keine Lust drauf hatte? Der Hinweis auf eine mögliche Lösung war mir ein Bedürfnis. Im Zusammenhang mit der möglichen/erwartbaren Eigeninitiative des Fragers sowie durch Nennung der Resource hätte sich die Sache schon klären können. Aber wie so oft, erwartet man hier eine fertige Lösung ohne die gegebenen Hilfestellungen selbst erst mal aus zu probieren.

Ich verweise hier auf ein, recht passendes, Zitat( aus Sig von RPP63 im cef-forum):
"Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)"

Echt traurig das man das hier immer wieder erklären muß.
Anzeige
AW: Off Topic
02.06.2024 12:15:15
Oppawinni
Du hast im Prinzip recht, hast aber nicht verstanden, dass du niemanden das Fischen beibringst, indem du ihm erst einmal ein paar Fische um die Ohren schlägst.
doch, das funktioniert owt
02.06.2024 17:13:03
ralf_b
AW: USB Relais ansprechen via VB
01.06.2024 18:46:49
Oppawinni
also ich hätte da vielleicht eine .BAT Datei erzeugt und die dann über VBA aufgerufen.
Ich hab aber auch ewig nicht mehr mit .BAT gearbeitet, weiß nicht mal, ob das noch geht :)
Anzeige
AW: Off Topic
01.06.2024 19:29:24
Oppawinni
also wenn du vielleicht vor dem echo noch ein
cmd.exe
setzt, könnt ich mir vorstellen, dass das schon tut ...
AW: Off Topic
01.06.2024 19:35:27
Oppawinni
und wenn du dann
"cmd.exe /C echo...."
nimmst dann schließt cmd nach ausführung des Befehls auch wieder.
AW: Off Topic
01.06.2024 19:49:52
Oppawinni
Tschuldigung ich bin immer noch beim Shell command,
also etwa 
Sub unit()



    Dim RetVal

    Dim strCmd As String

    

    strRealCmd = "cmd.exe /C echo -n -e '\xA0\x01\x01\xA2' > /dev/ttyUSB0"

    RetVal = Shell(strCmd, vbNormalFocus)





End Sub
Anzeige
AW: Off Topic
02.06.2024 13:25:30
Jochen
Vielen Dank.
Keine Ahnung was Ralf für Probleme hat aber wir lassen das wohl lieber so einen Chat bin ich nicht gewohnt.
Ich danke Dir für die Hilfe.
Aber so wird ein gutes Thema kaputt gerotzt.
Ich mach den Chat jetzt mal zu.
Und an Ralf natürlich kann ich das auch so, das übersteigt in keiner Weise meine Fähigkeiten im VBA aber bisher noch nichts in die Richtung gemacht daher die Anfrage.
Ich denke das sollte ein Forum aushalten.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige