Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA für COM-Schittstelle

VBA für COM-Schittstelle
29.11.2005 14:00:20
Fred
Guten Tag Experten,
Versuche mich momentan mit Com Schnittstelle.
Alle Signale der Handshaking funktionieren. Aber wie weiter.
PS. Mit einer COM-Terminalsoftware funktioniert der „olle DDR“ Plotter.
Vielen Dank im Voraus
Mit freundlichen Grüßen
Fred
hier kommt der Code
Public Declare

Function OPENCOM Lib "RSLINE32.DLL" (ByVal A As Integer) As Integer
Public Declare 

Sub Delay Lib "RSLINE32.DLL" (ByVal Zeit As Integer)
Public Declare 

Sub DTR Lib "RSLINE32.DLL" (ByVal An As Integer)
Public Declare 

Sub RTS Lib "RSLINE32.DLL" (ByVal An As Integer)
Public Declare 

Sub TXD Lib "RSLINE32.DLL" (ByVal An As Integer)
Public Declare 

Function CTS Lib "RSLINE32.DLL" () As Integer
Public Declare 

Function DCD Lib "RSLINE32.DLL" () As Integer
Public Declare 

Function DSR Lib "RSLINE32.DLL" () As Integer
Public Declare 

Function RI Lib "RSLINE32.DLL" () As Integer
Public Declare 

Sub TimeINIT Lib "RSLINE32.DLL" ()
Public Declare 

Function TIMEREAD Lib "RSLINE32.DLL" () As Integer

Sub Start()
Dim Zeit As Date
Dim Text As String
Open "COM1:9600,S,1" For Random As 1
If CheckBox1 = True Then
CheckBox2.Enabled = False
OPENCOM (1) 'Port 1 einschalten
Label3 = "COM1  verfügbar": DoEvents
Label4 = "COM2  nicht verfügbar": DoEvents
End If
If CheckBox2 = True Then
CheckBox1.Enabled = False
OPENCOM (2) 'Port 1 einschalten
Label4 = "COM2  verfügbar": DoEvents
Label3 = "COM1  nicht verfügbar": DoEvents
End If
i = OPENCOM(1)
If i = 1 Then DTR 1: RTS 1: TXD 0
If DSR = 1 Then
Label1 = "Plotter - EIN": Label2 = "bereit zu senden": DoEvents
Else:  Label1 = "Plotter - AUS": Label2 = "": DoEvents
End If
'*****hier geht es nicht weiter*******
Text = "SP1;PD;PA500,500;PU;"
Print , Text
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA für COM-Schittstelle
30.11.2005 23:34:16
Martin
Hallo Fred,
ich habe mich mit der COM-Schnittstelle (RS232) ebenfalls beschäftigt und tausche mit einer Maschine Daten aus. Allerdings kenne ich nicht deine "RSLINE32.DLL"! Ich hatte es mit der "Port.dll" und "RSAPI.DLL" probiert, mit beiden hats funktioniert! Zum Testen hatte ich damals statt der Maschine einen zweiten Computer mit "Terminal.exe" laufen, damit ich den Datenverkehr überprüfen konnte! Hast Du ein RS232-Protokoll für den Plotter? Kannst dich ja mal unter martin.springer@web.de bei mir melden!
Beste Grüße,
Martin
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige