97久久精品人人爽人人爽蜜臀/www.青草视频/成视频年人黄网站视频福利/国产第一页第二页/国产裸拍裸体视频在线观看/国产又色又爽又高潮免费/精品超清无码视频在线观看/久久精品蜜芽亚洲国产av/辽宁熟女高潮狂叫视频/你懂在线/欧美少妇15p/人妖 丝袜 另类 亚洲/日韩欧美网站/少妇人妻大乳在线视频/婷婷色国产/性色av无码久久一区二区三区/亚洲精品图片一区15p/亚洲一卡2卡3卡4卡5卡精品

  
    本系統(tǒng)以PC對基于PLC的交通燈控制系統(tǒng)的監(jiān)控為例，在上位機(jī)與PLC正常通信的前提下，設(shè)計(jì)如下界面。窗體的內(nèi)容主要包括，四大區(qū)：端口、站號(hào)選擇區(qū)，設(shè)定時(shí)間輸入?yún)^(qū)，監(jiān)控顯示區(qū)，控制按紐區(qū)。從站號(hào)選擇區(qū)選擇不同站號(hào)即不同PLC，實(shí)現(xiàn)對多個(gè)PLC的實(shí)時(shí)監(jiān)控。

3.1 串口初始化程序

  If MSComm1.PortOpen <> True Then
  MSComm1.PortOpen=True
  End If
  MSComm1.Settings=“9600,E,7,2”
  MSComm1.InputLen=0
  MSComm1.InBufferCount=0
  MSComm1.InputMode=comInputModeText
  MSComm1.Handshaking=comNone

3.2 計(jì)算機(jī)與PLC通信的VB程序
  
Public Function ReadData（ByVal InputStr As String, ByVal Num1 As Integer, ByVal Num2 As Integer） As String




   Dim OutputStr As String
   Dim InString As String
   Dim ReturnStr As String
   Dim EndString As String
   Dim FCSString As String
   Dim ReturnFCSString As String
   Form1.MSComm1.InBufferCount=0
   OutputStr=InputStr+FCS（InputStr）+“＊”
   If Form1.MSComm1.PortOpen=True Then
   Form1.MSComm1.Output=OutputStr+Chr$（13）’按照PLC幀格式輸出
   End If
   Do
   DoEvents
   Loop Until Form1.MSComm1.InBufferCount >=Num2’返回幀的長度
   InString=Form1.MSComm1.Input
   EndString=Mid$（InString,6,2）’取返回幀的響應(yīng)碼
   If EndString <> “00”Then
   ReadData=“Error”
   Exit Function
   End If
   EndString=Mid$（InString,1,Len（InString）-4）  
   ReturnFCSString=Mid$（InString, Len（InString） -3,2）’取返回幀校驗(yàn)碼
   FCSString=FCS（EndString）  
   If FCSString <> ReturnFCSString Then
   ReadData=“Error”
   Exit Function
   End If
   If Len（InString）>=Num2 Then
   ReturnStr=Mid$（InString, Len（InString）-Num1-3, Num1）’取返回幀的數(shù)據(jù)，其度為Num1
   ReadData = ReturnStr  
   End If
  End Function