国产CHINESE男男GAYGAY免费网站_日本在线一区二区三区_欧美大屁股xxxx_国产xxx精品视频大全_一区二区视频国产_人人爱国产

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

    主站蜘蛛池模板: 亚洲av高清不卡在线播放 | 精品女同一区二区三区在线绯色 | 亚洲国产一区二区三区在线播 | 久久免费观看少妇a级毛片 欧美成人精品一区二区男人小说 | 被猛男伦流澡到高潮H视频网站 | 懂色aⅴ精品一区二区三区 国产亚洲一区精品 | 国产精品777 | 久久婷婷五月综合色国产免费观看 | www.国产传媒 | 99久久国产综合精品成人影院 | 在线观看av一区 | 爱如潮水3免费观看日本高清 | 国产亚洲综合一区二区 | 激情综合色五月丁香六月欧美 | 最新福利在线 | 国产一级第一级毛片 | 在线高清视频免费观看视频 | www.夜夜操.com| 色妞欧美日韩在线 | 国产专区中文字幕 | 一区二区国产精品视频 | 午夜爽爽爽男女污污污网站 | 亚洲欧美清纯校园另类 | 亚洲宅男天堂在线观看无病毒 | 亚洲综合精品香蕉久久网 | 四虎av影院 | 羞羞答答av | 永久免费AV无码网站喷水 | 男女无遮挡高清性视频 | 99久久综合狠狠综合久久止 | 97视频在线 | 在线a亚洲v天堂网2019无码 | 精精国产视频 | 国产精品亚洲А∨天堂网 | 亚洲AV激情无码专区在线播放 | 女性自慰网站免费看WW | 免费va视频| 99在线精品免费视频九九视 | 男人猛操女人 | 国产人成一区二区三区影院 | 天天草夜夜骑 |