Auslesen der Seriellen Schnittstelle
22.06.2002 18:22:03
Ingmar
Ich habe einen Messschieber (Mahr16ES), der auf Knopfdruck seinen Messwert über die serielle Schnittstelle schickt.
Ich habe mir dafür die RSAPI.dll besorgt und die 32-Bit Version installiert.
Aber entweder schmiert mir Excel ab, oder es tut sich gar nichts, deswegen wäre ich für eine Tipp echt dankbar.
Hier, das Ergebnis, wieweit ich es hinbekommen habe:
___________________________________________________
Declare Sub OPENCOM Lib "RSAPI.DLL" (ByVal A$)
Declare Sub CLOSECOM Lib "RSAPI.DLL" ()
Declare Sub TIMEOUT Lib "RSAPI.DLL" (ByVal MS%)
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal A$)
Declare Sub STRLENGTH Lib "RSAPI.DLL" (ByVal L%)
Declare Sub TIMEINIT Lib "RSAPI.DLL" ()
Declare Function TIMEREAD Lib "RSAPI.DLL" () As Long
Declare Sub SENDBYTE Lib "RSAPI.DLL" (ByVal B%)
Dim messwert As Integer
Dim datastring As String
Sub Messschieber()
OPENCOM "COM1:4800,E,7,1"
STRREAD (datastring)
messwert = Val(Mid$(datastring, 8)) 'numerischen Wert aus String isolieren
ActiveCell.Value = messwert
CLOSECOM
End Sub
Anzeige