久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲AV无码精品色午夜果冻不卡_成人高潮免费视频

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

    主站蜘蛛池模板: 丰满少妇大力进入 | 我征服了仪态端庄的物理老师 | 亚洲阿v天堂在线 | 黑色蕾丝丝袜麻麻好紧好爽 | 亚洲精品一区二区三区樱花 | 欧美伦乱| 午夜精品免费视频 | 久久午夜夜伦鲁鲁片免费无码 | 婷婷激情综合色五月久久竹菊影视 | 欧美国产片 | 亚洲第一国产 | 亚欧免费无码AⅤ在线观看蜜桃 | 啊灬啊灬啊灬快灬深用力A片 | 91麻豆6部合集magnet | 午夜影院 | 91精品久久久久五月天精品 | 日韩色悠悠 | 色老汉免费网站免费视频 | 亚洲国产日韩在线 | 国产产无码乱码精品久久鸭 | 欧美嫩交一区二区三区 | 久久精品国产免费观看 | 国产影视一区 | 色婷婷精品久久二区二区蜜臀av | 91久久精品美女高潮 | 欧美亚州 | 九九久久综合 | 超碰五月 | 成年美女黄网站18禁 | 国产精品夜夜春夜夜爽久久小 | 欧美一级淫片在线观看 | 久久一二三四 | 欧美又粗又猛又爽的免费网站 | 国产无线乱码一区二三区 | 奇米精品一区二区三区在线观看 | 无码吃奶揉捏奶头高潮视频 | 蜜桃婷婷 | 2022精品久久久久久中文字幕 | 粗大的内捧猛烈进出无码 | 91中文字幕 | 久久亚洲一区二区三区成人国产 |