MSComm的应用(三)-旗威科技有限公司.PDFVIP

旗威科技有限公司 領先　負責　全心投入 MSComm 的應用(三) 在談到 MSComm 的接收前 ，筆者要先提到一些撰寫VB 的概念 ： 1. 如果您的程式中會使用到 Do … Loop 的迴圈指令 ，請記得一定要在迴圈中加入 DoEvents 的指令 ，將控制權隨時交還給系統使用，以免一離開的條件無法成立時，進入無 窮迴圈而造成系統死當 。 2. 在 Timer 中所執行的程式 ，一定要比Timer 所設定的時間更短 ，否則在時間終止時無 法執行完畢的程式 ，會產生不可預料的錯誤，輕微的會使整個時序發生錯誤，嚴重一點的會 造成系統停擺 ，這是需要特別注意的地方。 看到這裡 ，你有沒有很好奇為什麼筆者要提到這兩個概念？因為在撰寫接收程式時 ，最 常用到的就是這兩種方法 ，底下是接收程式的範例。 一 、程式碼的部分 Timer.vbp Option Explicit Dim buffer$ 字串暫存區 Dim com As Integer ComPort 的序號設定 Private Sub Command1_Click() START 按鍵 com = Text2 輸入使用的 ComPort 以下是通訊設定 MSComm1.CommPort = com MSComm1.Settings = 9600,N,8,1 MSComm1.InputLen = 0 If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True Timer1.Enabled = True 啟動 Timer 定時抓取接收值 End Sub Private Sub Command2_Click() STOP 按鍵 Timer1.Enabled = False 關掉 Timer 及 MSComm If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False buffer$ = 清空字串暫存 Text1 = 清空訊息視窗 End Sub ──────────────── 1 ──────────────── 旗威科技有限公司 地址 ：高雄市三民區昌裕街18-1號 網址 ：.tw 技術專線 ：07-395-5152　 技術支援傳真 ：07-395-5155 E-mail：chipware@.tw 旗威科技有限公司 領先　負責　全心投入 Private Sub Form_Load() 程式初始的設定 buffer$ = 清空字串暫存 Text1 = 清空訊息視窗 Timer1.Interval = 10 設定 Timer 啟動的時間間隔 End Sub Private Sub Timer1_Timer() Timer 的設定 buffer$ = buffer$ + MSComm1.Input 抓取 MSComm 的輸入資料 （接收） Text1 = Text1 + buffer$ 將資料顯示在訊息視窗上 buffer$ = 清空字串暫存 If Len(Text1) 1024 Then 如果接收資料超過 1K Bytes Text1 = 就清空訊息視窗 　End If End Sub [圖 1] 視窗元件的配置狀況 二 、視窗元件上的設定 Ti