成人电影在线播放,色婷婷亚洲精品天天综合影院,狠狠躁夜夜躁人人爽野战天天,精品一线二线三线精华液

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