超碰激情 I 成人福利网站 I 淫国产 I 曰批视频免费30分钟成人 I 刘亦菲裸体视频一区二区三区 I 午夜久 I 尤物综合 I 亚洲一区av在线观看 I 欧美亚洲国产精品久久高清 I 欧美老熟妇乱子伦视频 I 无码中出人妻中文字幕av I 久久美女福利视频 I 精品无人区乱码1区2区3区在线 I 性饥渴的农村熟妇 I 色综合综合色 I 少妇人妻88久久中文字幕 I 久久夜色精品国产噜噜av I 老熟妇仑乱视频一区二区 I 男女做爰猛烈叫床视频动态图 I 日本大片一区二区 I 人成午夜免费视频在线观看 I 激情婷婷av I 男女下面一进一出免费视频网站 I 久久影视一区 I 午夜污网站 I 先锋人妻无码av电影 I 久久久久久久岛国免费网站 I 又粗又大又黄又硬又爽免费看 I 人妻无码免费一区二区三区 I www.色成人100 I 欧美高清网站 I 精品国产第一页 I 国产suv一区二区三区88区 I 橹图极品美女无圣光 I 午夜宅男欧美

                    引言

    在工業(yè)生產(chǎn)中，人們常常面臨著數(shù)據(jù)采集與管理。作為工廠自動(dòng)化的三大支柱可編程控制器 PLC（Programmable Logic Controller），由于其安全可靠，廣泛的用于數(shù)據(jù)采集與控制。生產(chǎn)過(guò)程中，要監(jiān)視PLC內(nèi)部的數(shù)據(jù)與運(yùn)行狀況，選用市場(chǎng)上的人機(jī)界面或組態(tài)軟件，雖然功能豐富，但大都價(jià)格昂貴，在一些中小規(guī)模的生產(chǎn)場(chǎng)合，人們希望能自己用高級(jí)語(yǔ)言開(kāi)發(fā)一個(gè)簡(jiǎn)易實(shí)用的通信程序。使用Visual Basic 6.0，開(kāi)發(fā)串行通信程序時(shí)，有兩種方法，一種是用Windows API函數(shù)，另一種是用VB支持的通信控件 MSCOMM。以下介紹使用通信控件方式實(shí)現(xiàn)通訊

1.硬件

    采用SC-09編程電纜，連接PC串口與PLC編程口實(shí)現(xiàn)通訊。

2．PLC編程口的通信協(xié)議簡(jiǎn)介

    
    通信格式：
     
    波特率9600，偶校驗(yàn)，8位數(shù)據(jù)位，一位停止位。 具體請(qǐng)參考有關(guān)資料，以下舉例說(shuō)明其通訊格式

    1）、DEVICE READ（讀出軟設(shè)備狀態(tài)值）

    計(jì)算機(jī)向PLC發(fā)送：
    
 
3．具體程序說(shuō)明

    MSComm控件簡(jiǎn)介用來(lái)提供簡(jiǎn)單的串行端口通信功能，也可以用來(lái)創(chuàng)建功能完備、事件驅(qū)動(dòng)的高級(jí)通信工具。Mscomm控件提供了一系列標(biāo)準(zhǔn)通信命令的使用界面。使用它可以建立與串行端口的連接，通過(guò)串行端口再連接到其它設(shè)備（如調(diào)制解調(diào)器、PLC），發(fā)出命令，交換數(shù)據(jù)，以及監(jiān)視和響應(yīng)串行連接中發(fā)生的事件和錯(cuò)誤。

    數(shù)據(jù)讀與寫(xiě)采用函數(shù)input和output
 
（1）窗口加載程序
    Private Sub Form_Load（） 
    MSComm1.CommPort = 1 ‘選擇COM1口 
    MSComm1.Settings = "9600,e,7,1" 
    If mscomm1.portopen=false then mscomm1.portopen=true
    End Sub
 
（2）數(shù)據(jù)讀取子程序：
 
    Public Function GetData（ByVal StartAddress As String, ByVal GetBytes As     Integer, ByVal Hex_Bytes As String） As String 
    MSComm1.InputLen = GetBytes ＊ 2 + 4 
    MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk（CMD_Read + StartAddress + Hex_Bytes + ETX） 
    ‘傳送數(shù)據(jù)組成：起始符+命令+首地址+數(shù)據(jù)位+結(jié)束符+和檢驗(yàn)碼 
    GetData = MSComm1.Input 
    MSComm1.InBufferCount = 0 
    MSComm1.InputLen = 0
    End Function