久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲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)口儀器儀表及其附件。

    主站蜘蛛池模板: 成午夜精品一区二区三区 | 色婷婷亚洲六月婷婷中文字幕 | 激情综合五月网 | 亚洲欧美另类久久久精品2019 | 国产91精清纯白嫩高中在线观看 | 亚洲在线www | 国产一区二区三区视频在线 | 久久艳务乳肉豪妇荡乳a片 九九色在线观看 | 一夜新娘第三季高清免费观看 | av无码av高潮av喷吹免费 | 蜜桃视频在线一区 | 五月天精品视频在线观看 | 91视频污版 | 亚洲宅男天堂在线观看无病毒 | 姑娘第5集高清在线观看 | av最新在线观看 | 国产精品中文字幕一区二区三区 | 福利姬液液酱喷水 | 中文字幕日韩欧美 | 亚洲日本乱码一区二区在线二产线 | 台湾av在线 | 久青草国产在视频在线观看 | 午夜蜜汁一区二区三区av | 国产欧美日韩视频一区二区三区 | 久久久精品人妻无码专区不卡 | 亚洲精品久久在线 | 九歌在线观看 | 99国产精品久久久久久久床豆 | 亚洲精品成人无码视频在线 | 噜噜噜噜噜18禁私人影视 | 日韩制服国产精品一区 | 中文字幕四区 | 亚洲宅男天堂在线观看无病毒 | 色婷婷综合激情综在线播放 | 远方的山楂树免费观看视频48集 | 日本精品少妇一区二区三区 | 影院午夜| 亚洲小鲜肉与欧美猛男的区别 | 一本大道香一蕉久 | 超级碰人妻明星香蕉97 | 无码人妻丰满熟妇啪啪网不卡 |