Serial Port 串口操作 _CommSendstring

ljxu · 发表于 2012-7-12 14:11:29

本帖最后由 ljxu 于 2012-7-12 14:13 编辑

#include 'CommMG.au3'

Global $sportSetError = ''
Global $CMPort = 6 ; Port
Global $CmBoBaud = 57600 ; Baud
Global $CmboDataBits = 8 ; Data Bits
Global $CmBoParity = "none" ; Parity
Global $CmBoStop = 1 ; Stop
; Global $setflow = 2 ; Flow

_CommSetPort($CMPort, $sportSetError, $CmBoBaud, $CmboDataBits, $CmBoParity, $CmBoStop)
_CommSendstring("" & @CR)
_CommSendstring("reboot" & @CR)；重启，重启过程中会出现VLAN UP列表（5秒钟之后默认选择3），我需要这时输入2，即选择2
While 1
$instr = _CommGetString()

If $instr <> '' Then

Local $result = StringInStr($instr, "VLAN UP")
If $result <> 0 Then
;MsgBox(0, "VLAN UP", $result)
_CommSendstring("2" & @CR)；没有输入2再回车，而是直接回车？！！！
ConsoleWrite($instr & "-----------------1" & @CRLF)
Exit
EndIf

EndIf
WEnd

_CommClosePort()
If @error = -1 Then ConsoleWrite("!Error: " & @error & @CRLF)
ConsoleWrite输出为：
VLAN UP

-----------------1

有哪位知道原因的？谢谢

xiehuahere · 发表于 2012-7-12 16:53:48

本帖最后由 xiehuahere 于 2012-7-12 16:55 编辑

我最近也在看这方面的东西，这个UDF需要 commg.dll，这个东西对我来说是黑盒，并且没有经过太多人的测试。
我先在尝试用微软提供的MSCOMM32.OCX，麻烦的话再来看这个UDF。传送门：
http://msdn.microsoft.com/en-us/library/aa259393(v=VS.60).aspx --- 发现论坛一个bug，[/url]自动添加在小括号前，导致网址链接显示不正确，我手动更改过来
http://www.autoitscript.com/forum/topic/13890-rs232/

ljxu · 发表于 2012-7-13 09:44:46

回复 2# xiehuahere

http://www.autoitscript.com/foru ... -port-com-port-udf/
缺少的dll，你可以去这里下载

xiehuahere · 发表于 2012-7-13 10:44:44

回复 3# ljxu

我下了dll的，只是对我来说是黑盒，万一有问题我无法修改。
而微软的mscomm32.ocx虽然对我也是黑盒，但测试的人多了，问题应该要少些。

但我昨天发现，还是用UDF会方便许多。

xiehuahere · 发表于 2012-7-13 10:47:29

本帖最后由 xiehuahere 于 2012-7-16 11:10 编辑

回复 1# ljxu

是数字2而非字符2，可以试试用 _CommSendByte() 发送ascii格式的数字2和回车，或者用 _CommSendString() 发送 Chr(50) & @CR

xiehuahere · 发表于 2012-7-18 12:50:13

本帖最后由 xiehuahere 于 2012-7-18 12:55 编辑

回复 3# ljxu

哥们，解决了吗？
那个UDF中的_CommPortConnection函数是不是没用啊，直接_CommSetPort就行了吧？
我看Example里也没用到。

还有，为什么要 _CommSendstring("" & @CR) 先发送一个空字符呢？

xiehuahere · 发表于 2012-7-19 12:59:49

本帖最后由 xiehuahere 于 2012-7-20 12:12 编辑

搞定了！
基于这个UDF，我给自己封装了用于串口收发的两个函数SendLine和WaitFor，这样用起来就方便啦 ^_^

Local $buff, $dbgSwitch = False
 
;============================================================================
; Name: SendLine
; Description: Send one command line
; Return value: 0 - Success
;                -1 - Failure
;============================================================================
Func SendLine($string)
        _CommClearInputBuffer()
        _CommClearOutputBuffer()
        
        _CommSendstring($string & @CR, 1) ; Wait till string sent
        If @error <> 0 Then
                Logger("! Error occured while sending string '" & $string & "', ErrCode: " & @error, 2)
                Return -1
        EndIf
        Logger("T -> " & $string, 6)
        Return 0
EndFunc

;============================================================================
; Name: WaitFor
; Description: Wait for desired output. Use it after each SendLine() to make buff always hold the latest content
; Return value: 0 - Success
;                -1 - Failure
;============================================================================
Func WaitFor($string, $timeout=2000)
        $buff = ""        ; Clear buff before each receiving
        If $string <> "" Then
                Local $timer = TimerInit()
                Do
                        $buff &= _CommGetString()
                        If @error <> 0 Then
                                Logger("! Error occured while receiving string '" & $string & "', ErrCode: " & @error, 2)
                                Return -1
                        EndIf
                        If $buff = '' Then
                                Sleep(20)
                        Else
                                mgdebugCW($buff & @CRLF)
                        EndIf
                        If TimerDiff($timer) > $timeout Then
                                Logger("! Timeout when waiting for '" & $string & "'", 2)
                                Return -1
                        EndIf
                Until StringInStr($buff, $string) > 0
        EndIf
        Logger("R <- " & $buff & @LF, 6) ; @LF is for Unix->DOS convertion
        Return 0
EndFunc
 
Func Logger($msg, $logLevel = 8)
        Switch $logLevel
                Case 1
                        $levelInfo = "Level(1,User)"
                Case 2
                        $levelInfo = "Level(2,Warning)"
                Case 4
                        $levelInfo = "Level(4,Error)"
                Case 6
                        If Not $dbgSwitch Then Return        ; Default: No debug info
                        $levelInfo = "Level(6,Debug)"
                Case 8
                        $levelInfo = "Level(8,Information)"
                Case Else
                        $levelInfo = "Level(?,None)"
        EndSwitch
        Local $logfile = $logFolder & "\log" & '_' & @YEAR & @MON & @MDAY & '.txt'
        _FileWriteLog($logfile, $levelInfo & ", " & $msg)
EndFunc

ljxu · 发表于 2012-7-19 21:06:37

回复 7# xiehuahere

编程习惯这么好的！

我还没搞定，发送空白字符是因为我这的串口的必须先回车一下才会有输出，你的可能不需要。
我现在的问题：我需要修改串口输出中的内容
比如：我讲的例子中的需要输入2，现在我想输入2，然后再删除2，再输入3
试了多种方法方法删除2这个动作始终不能执行，伤不起啊。。。

xiehuahere · 发表于 2012-7-19 22:36:56

本帖最后由 xiehuahere 于 2012-7-19 22:49 编辑

回复 8# ljxu

我试验过了，我的串口也是需要先发送一个回车来触发的。
已发送到串口终端的内容无法删除，想象不到你为什么有这种需求。

xiehuahere · 发表于 2012-7-19 22:59:57

回复 8# ljxu

你试试发送对应按键（Backspace）的ASCII码试试。

ljxu · 发表于 2012-7-20 08:40:25

回复 9# xiehuahere

是终端输出的内容我需要删除：
例：终端输出jack，我需要删除k，输入son，jacson

jingygr · 发表于 2012-7-20 09:44:37

进来学习一下了。

xiehuahere · 发表于 2012-7-20 09:53:19

回复 11# ljxu

这个真不会，只能你自己摸索了。
我也还要去研究怎么通过串口传文件，Zmodem协议或其他。

ljxu · 发表于 2012-7-20 09:57:45

回复 13# xiehuahere

有结果了让我也学习学习啊

		自动登录	找回密码
密码			加入

[网络通信] Serial Port 串口操作 _CommSendstring

本帖子中包含更多资源

相关帖子