Hallo
ich nersuche einen comport zu öffnen und ein zeichen zu senden habe mir die rsapi.dll runtergeladen diese installiert und mich genau an die hilfe datei gehalten bei der programmierung also der versuch soll sein über eine excel tabelle erstmal an den hyperterminal eines anderen pc´s eine beliebige nachricht zu senden haut bei mir aber nicht hin und wenn dan unvollständig oder gar nicht wollte hier mal nachfragen ob jemand n tipp für mich hat oder weiterhelfen kann nachfolgend kopiere ich hier noch mal den code ein den ich geschrieben habe vielleicht entdeckt ja jemand den fehler
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer
Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function READBYTE Lib "RSAPI.DLL" () As Integer
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal S As String)
Declare Sub TIMEOUT Lib "RSAPI.DLL" (ByVal ms%)
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Sub SENDBYTE Lib "RSAPI.DLL" (ByVal Ibyte As Byte)
Declare Sub DELAY Lib "RSAPI.DLL" (ByVal ms%)
Sub Main()
OPENCOM ("COM19,9600,N,8,1")
DELAY 50
SENDSTRING ("$00I") + Chr$(13)
CLOSECOM
Cells(2, 2) = a
End Sub
hab schon mehr "declare" als notwendig eingefügt weil ich herumprobiert habe aber das stört ja nicht, oder?
mfg
Zam
ich nersuche einen comport zu öffnen und ein zeichen zu senden habe mir die rsapi.dll runtergeladen diese installiert und mich genau an die hilfe datei gehalten bei der programmierung also der versuch soll sein über eine excel tabelle erstmal an den hyperterminal eines anderen pc´s eine beliebige nachricht zu senden haut bei mir aber nicht hin und wenn dan unvollständig oder gar nicht wollte hier mal nachfragen ob jemand n tipp für mich hat oder weiterhelfen kann nachfolgend kopiere ich hier noch mal den code ein den ich geschrieben habe vielleicht entdeckt ja jemand den fehler
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer
Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function READBYTE Lib "RSAPI.DLL" () As Integer
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal S As String)
Declare Sub TIMEOUT Lib "RSAPI.DLL" (ByVal ms%)
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Sub SENDBYTE Lib "RSAPI.DLL" (ByVal Ibyte As Byte)
Declare Sub DELAY Lib "RSAPI.DLL" (ByVal ms%)
Sub Main()
OPENCOM ("COM19,9600,N,8,1")
DELAY 50
SENDSTRING ("$00I") + Chr$(13)
CLOSECOM
Cells(2, 2) = a
End Sub
hab schon mehr "declare" als notwendig eingefügt weil ich herumprobiert habe aber das stört ja nicht, oder?
mfg
Zam