VBA für COM-Schittstelle
29.11.2005 14:00:20
Fred
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