论坛 › 『 提问交流 』 › 下载的RS232代码，运行不了帮忙看看

rzwys 发表于 2009-3-5 14:43:35

下载的RS232代码，运行不了帮忙看看

$MsComm = ObjCreate("MSCOMMLib.MsComm.1")

$MsComm.CommPort = 1
$MsComm.Settings = "9600,N,8,1"
$MsComm.Handshaking = 0
$MsComm.InBufferSize = 1024
$MsComm.InputLen = 1

$MsComm.PortOpen = 1

While 1
    _MsgOut("RT" & @CR)
    MsgBox(0,"Testing",_MsgIn())
        Sleep(2000)
WEnd

Func _MsgOut($str)
    $MsComm.OutBufferCount = 0
    $MsComm.InBufferCount = 0
   
    If $MsComm.PortOpen = True Then
      $MsComm.Output = $str
    EndIf
    $MsComm.InputLen = 0
EndFunc

Func _MsgIn()
    $TIMEOUT = 1000
    $nTimeCtr = 0
    $sBuffer = ""
    Do
      $nTimeCtr += 1
      If $MsComm.InBufferCount > 0 Then
            $sBuffer = $sBuffer & $MsComm.Input
      EndIf
      Sleep(500)
    Until StringInStr($sBuffer,@CR) OR $nTimeCtr > $TIMEOUT
   
    If $nTimeCtr < $TIMEOUT Then
      $nI = StringInStr($sBuffer,@CR)
      Return StringLeft($sBuffer,$nI)
    Else
      Return "Error"
    EndIf
EndFunc

sxd 发表于 2009-3-5 19:36:02

串口方面 好像论坛没有什么资料

查看完整版本: 下载的RS232代码，运行不了帮忙看看