99久久国产综合精品女不卡-99久久好看一级毛片-99久久精品99999久久-99久久精品费精品国产-99久久精品费精品国产一区二

zhidaoshenmo
雖然我們不是“富二代”,但是我們還有成為“富一代”的機會。
級別: 家園常客
精華主題: 0
發帖數量: 559 個
工控威望: 638 點
下載積分: 1175 分
在線時間: 309(小時)
注冊時間: 2009-04-16
最后登錄: 2017-10-25
查看zhidaoshenmo的 主題 / 回貼
樓主  發表于: 2009-12-31 23:04

  
    本系統以PC對基于PLC的交通燈控制系統的監控為例,在上位機與PLC正常通信的前提下,設計如下界面。窗體的內容主要包括,四大區:端口、站號選擇區,設定時間輸入區,監控顯示區,控制按紐區。從站號選擇區選擇不同站號即不同PLC,實現對多個PLC的實時監控。

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 計算機與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)’取返回幀的響應碼
   If EndString <> “00”Then
   ReadData=“Error”
   Exit Function
   End If
   EndString=Mid$(InString,1,Len(InString)-4)  
   ReturnFCSString=Mid$(InString, Len(InString) -3,2)’取返回幀校驗碼
   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)’取返回幀的數據,其度為Num1
   ReadData = ReturnStr  
   End If
  End Function
本帖最近評分記錄:
  • 下載積分:+2(夏日雪夢) 優秀文章
  • 本人在廈門..同行的朋友,可以加我QQ:784272323
    廈門鑫趣科技有限公司,主要從事回收、銷售、維修和租賃進口儀器儀表及其附件。

    主站蜘蛛池模板: 亚洲乱码国产一区网址 | 国产欧美在线观看一区 | 九九视频只有精品六 | 亚洲一级特黄 | 日韩在线一区高清在线 | 成人禁在线观看 | 国产性大片黄在线观看在线放 | 久久国产精品影院 | 哪个网站能看毛片 | 午夜久久 | 亚洲第一久久 | 亚洲欧美日韩视频一区 | 在线免费看一级片 | 国产亚洲精品久久久久久 | 黄色网免费 | 久草青青| 国产剧情毛片 | 免费观看欧美精品成人毛片能看的 | 亚洲精品国产第1页 | 99精品热女视频专线 | 精品日韩二区三区精品视频 | 亚洲国产天堂久久九九九 | 亚洲tv成人天堂在线播放 | 91正在播放极品白嫩在线观看 | 国产大尺度吃奶无遮无挡 | 国产91香蕉视频 | 亚洲精品久久成人福利 | 综合色区 | 久久精品在现线观看免费15 | 国内国语一级毛片在线视频 | 亚洲 欧美 综合 | 一级片在线视频 | 久操视频免费观看 | 97超视频在线观看 | 久久精品无码一区二区三区 | 伊人久久免费视频 | 网址在线观看 | 一区二区三区在线 | 日本 | 色婷婷综合久久久 | 九九视频免费精品视频免费 | 最新国产精品亚洲 |