私人？Sub？MyCOMM_DataReceived(ByVal？寄件人？作為？對象，？ByVal？e？作為？
系統。IO . ports . serial datareceivedeventargs)？手柄？MyCOMM。數據接收
如果？IsClosing？然後呢？退出？Sub？如果接口正在關閉串行端口，請退出該過程
嘗試
IsListenning？=?' True '設置接口操作要判斷的正在讀取的標簽。
等待(150)'等待150毫秒。
暗淡？n？作為？龍？=?MyCOMM。字節讀取
暗淡？buf(n？-?1)?作為？字節
嘗試
MyCOMM。讀(buf，？0,?n)
接住？前任？作為？例外
MsgBox("接收短信出錯"，“舉止得體。數據接收”)
扔？新的？系統。例外(例如消息)
最後
IsListenning？=?“False”關閉正在讀取的標簽，無論數據是否成功接收。
結束？嘗試
MyCOMM。關閉()
MyCOMM。打開()
做什麽？某物
接住？前任？作為？例外
MyCOMM。關閉()
MyCOMM。打開()
結束？嘗試
結束？潛水艇
受保護？Sub？等等(ByVal？毫秒？作為？整數)
暗淡？tmpNow？作為？約會？=?現在
什麽時候？現在。減去(tmpNow)。毫秒？& lt？毫秒
申請。DoEvents()
結束？在…期間
結束？Sub希望能有所幫助。