Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schnittstellensteuerung (paralell) aus excel

Schnittstellensteuerung (paralell) aus excel
16.12.2003 09:34:27
roger
Hallo Zusammen
Mein Problem ist, dass ich über den Paralellport oder die serielle Schnittstelle ein Signal senden muss, wenn in einer bestimmten Zelle ein Wert unterschritten wird. Das Signal soll ein Ventiel öffnen. Weis da jemand rat? Da ich kein VBA kann ist das für mich unmöglich.
Vielen Dank, ich bin gespannt.
roger

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schnittstellensteuerung (paralell) aus excel
16.12.2003 11:15:45
Karl-Otto Reimann
Hallo Roger
Das wäre ein Beispiel, aber ohne ausreichende VBA-Kenntnisse
hast Du null Chance, das auch zum Laufen zu bringen:

Declare

Sub TIMEINIT Lib "RSAPI" ()
Declare 

Function TIMEREAD Lib "RSAPI" () As Long
Declare 

Sub OPENCOM Lib "RSAPI.DLL" (ByVal Parameter As String)
Declare 

Sub TIMEOUT Lib "RSAPI.DLL" (ByVal ms%)
Declare 

Sub CLOSECOM Lib "RSAPI.DLL" ()
Declare 

Sub SENDBYTE Lib "RSAPI.DLL" (ByVal Wert%)
Declare 

Function READBYTE Lib "RSAPI.DLL" () As Integer
Declare 

Sub DELAY Lib "RSAPI.DLL" (ByVal ms%)

Sub messen()
With Sheets("Messdaten")
For i = 2 To 5
t = .Cells(1, 4)
'Zeit holen
Blatt$ = "Messplatz" + LTrim(Str$(i - 1))
t = Sheets(Blatt$).Cells(5, 12)
't = 0
SENDBYTE ((i - 2) * 2 + 1 + 100)
'Ch 0,2,4,6
.Cells(i, 1) = NTC(READBYTE)
DELAY 10
SENDBYTE ((i - 2) * 2 + 100)
'Ch 1,3,5,7
.Cells(i, 2) = READBYTE * 0.1
DELAY 10
Next i
End With
End Sub


mfG KO
Anzeige
AW: Schnittstellensteuerung (paralell) aus excel
16.12.2003 12:35:34
Roger
Hallo Karl-Otto
Danke für deine Nachricht. Vieleicht kann ich in meiner Nähe jemand auftreiben, der das zum laufen bringt. Vielen Dank
roger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige