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

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

  
    本系統(tǒng)以PC對(duì)基于PLC的交通燈控制系統(tǒng)的監(jiān)控為例,在上位機(jī)與PLC正常通信的前提下,設(shè)計(jì)如下界面。窗體的內(nèi)容主要包括,四大區(qū):端口、站號(hào)選擇區(qū),設(shè)定時(shí)間輸入?yún)^(qū),監(jiān)控顯示區(qū),控制按紐區(qū)。從站號(hào)選擇區(qū)選擇不同站號(hào)即不同PLC,實(shí)現(xiàn)對(duì)多個(gè)PLC的實(shí)時(shí)監(jiān)控。

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

    主站蜘蛛池模板: 老师穿超短包臀裙办公室爆乳 | 成人在线播放网址 | 国产乱淫视频免费 | 漂亮人妻洗澡被公强啪啪 | 99久久亚洲 | 91精品无码中文字幕在线不卡 | 成人污污污WWW网站免费 | 插插插操操操 | 亚洲国产成人无码av在线 | 久草国产精品视频 | 香港日本三级在线播放 | 涩涩资源中文字幕久久婷婷爱 | 中文字幕乱码一区二区 | 亚洲产国偷v产偷v自拍涩爱 | 亚洲AV成人无码精品综合网站 | 99精品视频在线免费播放 | 国产精品美女久久久久av毛片 | 国产激情av一区二区三区 | 午夜福利在线永久视频 | 18出禁止看的啪视频网站 | 91精品久久久久久久蜜月 | 国产精品久久久久久久久久精爆 | 91精品久久久久久久久久另类 | 麻豆网站在线看 | 精品升子伦一区二区三区 | 夜影院黄色 | 好爽进去了视频在线观看国版 | 我朋友的妈妈在线免费观看 | 亚洲精品一区二区三区不 | 久久免费视频2 | 亚洲一区二区三区高清视频 | av免费播放 | 最新成人网址 | 51午夜精品免费视频 | 日本无码人妻精品一区二区视频 | 国产精品嫩草av | 国产一区二区黑人97xxxx | 99久久成人国产精品免费 | 欧美一区二区久久久 | 亚洲性夜色噜噜噜在线观看不卡 | 欧美日韩在线一区二区三区 |