无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

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

    主站蜘蛛池模板: 亚洲日韩在线中文字幕综合 | 亚洲伊人久久综合成人 | 99亚洲狠狠色综合久久位 | 亚洲精国产一区二区三区 | 国产精品成人自产拍在线观看 | 国产69成人免费视频观看 | 国产精品乱码久久久久软件 | 国产偷窥女洗浴在线观看潜入 | 欧美日韩国产dvd在线观看 | 久久久久亚洲av综合波多野结衣 | av中文字幕在线亚洲 | 国产精品无码AV天天爽色欲 | 国产女人喷潮视频在线观看 | 欧美成人a片在线乱码视频久久久久久人妻一区二区三区 | 亚洲日韩在线中文字幕综合 | 91制服丝袜 | 国产精品蜜臀 | 精品无码日本蜜桃麻豆 | 91久久精品美女高潮喷水app | 国产成人a在一区线观看高清 | 在线观看的免费网站 | 91av导航| 国产精品午夜男女大片免费看 | 国产人妖一区二区动漫黄片 | 日韩人妻无码一区二区三区 | 91视频免费看平台安全吗 | 日韩亚洲av无码一区二区三区 | av在线资源网址 | 四虎成人欧美精品在永久在线 | 国产三级手机在线 | 国产午夜福利不卡在线观看视频 | 天天干在线视频播放 | 国产交换精品一区二区三区免费 | 91成人在线 | 国产午夜视频在 | 精品少妇人妻av无码久久 | 成人精品免费视频大 | 四虎影视国产884a精品亚洲 | 精品国产一区二区三区四区五区 | 国产边按摩边被躁在线播放 | 亚洲日韩av无码精品放毛片 |