五、上位計算機WINDOWS下的通訊程序設計
上位機通訊軟件是用VB開發的，因VB具有強大的圖形顯示功能，可以開發出界面良好的WINDOWS標準風格的圖形用戶界面。同時VB還提供了串行端口控件MSCOMM，程序員在利用該控件時，只需設置、監視其屬性和事件，即可完成對串行口的初始化和數據的傳輸工作。
Sub forml_load()
Mscomml.comport = 1
Mscomml.settings = "9600,n,8,1"
End sub
Sub commandl_click
Mscomml.inputlen = 0
If mscomml.portopen = false then
Mscomml.portopen = true
End if
For I = 1 to n ;N為網絡系統中的PLC個數
If i<10 then
S$ = "@"+"0"+str$(i)+"ts"+"abcd"
Else
S$ = "@"+str$(i)+ts"+"abcd" ；abcd為測試字符
Endif
… ；形成上位機測試命令數據塊sedata$;
Mscomml.output = sedata$
Timerl_on = false
Timetl.enable = true
Do until (mscomml.inbuffercountá?0)
or (timerl_on = true)
Domy = doevents()
Loop
Timerl.enable = false
…
Redata$ = mscomml.input
If redata$ = sedata$
… ；轉入正常通訊數據處理
Else
Labell.caption = str$(i)+“測試通訊失敗，檢查線路后再測試”
Endif
Endsub
