Guest
10-09-2004, 10:46
Кто может помочь?
Нужен небольшой скриптик для передачи команды на серийный порт (Com1) в виде набора символов " sta,s,4 " (без кавычек)...
использую библиотеку *RSAPI.DLL
накатал, но не работает
Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Function READSTRING Lib "RSAPI.DLL" (ByVal Rein$) As Integer
Declare Function STRLENGTH Lib "RSAPI.DLL" (ByVal l%) As Integer
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal Anzeige$)
Declare Function TIMEOUT Lib "RSAPI.DLL" (ByVal ms%) As Integer
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer
Private Sub Send()
OPENCOM ("COM1:9800,N,8,1")
SENDSTRING "STA,S,4" + Chr$(13)
CLOSECOM
End Sub
Пожалуйста ответы попроще ...я в VBA пока ещё чайник
Нужен небольшой скриптик для передачи команды на серийный порт (Com1) в виде набора символов " sta,s,4 " (без кавычек)...
использую библиотеку *RSAPI.DLL
накатал, но не работает
Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Function READSTRING Lib "RSAPI.DLL" (ByVal Rein$) As Integer
Declare Function STRLENGTH Lib "RSAPI.DLL" (ByVal l%) As Integer
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal Anzeige$)
Declare Function TIMEOUT Lib "RSAPI.DLL" (ByVal ms%) As Integer
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer
Private Sub Send()
OPENCOM ("COM1:9800,N,8,1")
SENDSTRING "STA,S,4" + Chr$(13)
CLOSECOM
End Sub
Пожалуйста ответы попроще ...я в VBA пока ещё чайник