一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

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
    廈門鑫趣科技有限公司,主要從事回收、銷售、維修和租賃進口儀器儀表及其附件。

    主站蜘蛛池模板: 国产成人影院 | 亚洲丰满女人ass硕大 | 手机看片国产免费久久网 | 欧美日韩视频一区三区二区 | 欧美黑人换爱交换乱理伦片 | 国产亚洲福利一区二区免费看 | 亚洲第一区se | 韩国日本香港毛片免费 | 岛国片免费看 | 教室里老师好紧h | 好男人在线观看免费高清2019韩剧 | 逼里逼里香 | 国产精品欧美亚洲韩国日本99 | 免费视频片在线观看 | hd在线观看免费高清视频 | 99re在线视频免费观看 | 国产品精人成福利视频 | 国产精品每日在线观看男人的天堂 | 99在线观看视频免费精品9 | 精品国产中文字幕在线视频 | 被强迫调教的高辣小说 | 欧美日韩亚洲国内综合网俺 | 青青青久久久 | 91精品天美精东蜜桃传媒免费 | 国产福利自产拍在线观看 | 亚洲人成在线观看一区二区 | 成人涩涩屋福利视频 | 97porm国内自拍视频 | 欧美精品一区二区三区免费 | 猛h辣h高h文湿校园1v1 | 久久综合给会久久狠狠狠 | www.一区二区三区.com | 亚洲a视频在线 | 丝袜性爱 | 国产经典一区 | 国产女乱淫真高清免费视频 | 国产一区二区三区久久精品小说 | 四虎精品免费视频 | 亚州精品永久观看视频 | 2021最新国产成人精品免费 | 亚洲3dxxxx动漫xxx |