Serial Port 串口操作 _CommSendstring
本帖最后由 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:55 编辑
我最近也在看这方面的东西，这个UDF需要 commg.dll，这个东西对我来说是黑盒，并且没有经过太多人的测试。
我先在尝试用微软提供的MSCOMM32.OCX，麻烦的话再来看这个UDF。传送门：
http://msdn.microsoft.com/en-us/library/aa259393(v=VS.60).aspx ---发现论坛一个bug，自动添加在小括号前，导致网址链接显示不正确，我手动更改过来
http://www.autoitscript.com/forum/topic/13890-rs232/ 回复 2# xiehuahere
http://www.autoitscript.com/forum/topic/128546-serial-port-com-port-udf/
缺少的dll，你可以去这里下载 回复 3# ljxu
我下了dll的，只是对我来说是黑盒，万一有问题我无法修改。
而微软的mscomm32.ocx虽然对我也是黑盒，但测试的人多了，问题应该要少些。
但我昨天发现，还是用UDF会方便许多。 本帖最后由 xiehuahere 于 2012-7-16 11:10 编辑
回复 1# ljxu
是数字2而非字符2，可以试试用 _CommSendByte() 发送ascii格式的数字2和回车，或者用 _CommSendString() 发送 Chr(50) & @CR 本帖最后由 xiehuahere 于 2012-7-18 12:55 编辑
回复 3# ljxu
哥们，解决了吗？
那个UDF中的_CommPortConnection函数是不是没用啊，直接_CommSetPort就行了吧？
我看Example里也没用到。
还有，为什么要 _CommSendstring("" & @CR) 先发送一个空字符呢？ 本帖最后由 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 回复 7# xiehuahere
编程习惯这么好的！
我还没搞定，发送空白字符是因为我这的串口的必须先回车一下才会有输出，你的可能不需要。
我现在的问题：我需要修改串口输出中的内容
比如：我讲的例子中的需要输入2，现在我想输入2，然后再删除2，再输入3
试了多种方法方法删除2这个动作始终不能执行，伤不起啊。。。 本帖最后由 xiehuahere 于 2012-7-19 22:49 编辑
回复 8# ljxu
我试验过了，我的串口也是需要先发送一个回车来触发的。
已发送到串口终端的内容无法删除，想象不到你为什么有这种需求。 回复 8# ljxu
你试试发送对应按键（Backspace）的ASCII码试试。 回复 9# xiehuahere
是终端输出的内容我需要删除：
例：终端输出jack，我需要删除k，输入son，jacson 进来学习一下了。 回复 11# ljxu
这个真不会，只能你自己摸索了。
我也还要去研究怎么通过串口传文件，Zmodem协议或其他。 回复 13# xiehuahere
有结果了让我也学习学习啊
页:
[1]