国产91九色_日本68xxxx_欧美高清另类自拍视频在线看_欧美人禽_99久久婷婷国产综合精品青牛牛_亚洲射情

首頁(yè) 新聞 工控搜 論壇 廠商論壇 產(chǎn)品 方案 廠商 人才 文摘 下載 展覽
首 頁(yè) 新聞動(dòng)態(tài) 產(chǎn)品中心 方案與應(yīng)用 技術(shù)文摘 資料下載 關(guān)于我們 臺(tái)達(dá)網(wǎng)站 在線視頻
基于VB及臺(tái)達(dá)觸摸屏的監(jiān)控系統(tǒng)在紡機(jī)中的應(yīng)用

中達(dá)電通股份有限公司
收藏本文     查看收藏

喻 慧 ,馬 巖 (陜西恒鑫精密紡織機(jī)械有限公司)

    摘要: 目前紡織業(yè)生產(chǎn)中產(chǎn)品產(chǎn)量一般都還是依靠人工進(jìn)行統(tǒng)計(jì),在實(shí)際操作過(guò)程中,不僅麻煩而且容易出錯(cuò)。因此,有必要采用產(chǎn)量監(jiān)控及查詢(xún)系統(tǒng)對(duì)產(chǎn)品產(chǎn)量進(jìn)行統(tǒng)計(jì)。本文介紹了基于VB及臺(tái)達(dá)觸摸屏的產(chǎn)量監(jiān)控及查詢(xún)系統(tǒng),該系統(tǒng)不僅能應(yīng)用于紡織機(jī)械,而且適用于其它設(shè)備。

    關(guān)鍵詞: 臺(tái)達(dá)觸摸屏;VB;監(jiān)控;查詢(xún);MODBUS;MSCOMM


一、引言

    該系統(tǒng)用于對(duì)各生產(chǎn)線的紡機(jī)進(jìn)行實(shí)時(shí)監(jiān)控和查詢(xún),并對(duì)各班次產(chǎn)量數(shù)據(jù)進(jìn)行存儲(chǔ),用戶(hù)可通過(guò)日期時(shí)間段、車(chē)號(hào)、班次等對(duì)產(chǎn)量進(jìn)行綜合查詢(xún),并進(jìn)行統(tǒng)計(jì),可在查詢(xún)出滿(mǎn)足條件的數(shù)據(jù)后,進(jìn)行報(bào)表輸出和打印。以下是對(duì)系統(tǒng)設(shè)計(jì)方面的一些討論。

二、系統(tǒng)結(jié)構(gòu)與功能

    精梳機(jī)是近年來(lái)在紡織行業(yè)使用較為普遍的一種設(shè)備,其主要作用是排出梳棉生條中一定長(zhǎng)度以下的短纖維,提高纖維整齊度,進(jìn)一步清除纖維中殘留的棉結(jié)、雜質(zhì),提高纖維光潔度。條并卷聯(lián)合機(jī)是精梳工序的準(zhǔn)備設(shè)備,通常情況下,一套精梳設(shè)備由一臺(tái)條并卷聯(lián)合機(jī)和五臺(tái)精梳機(jī)組成。該產(chǎn)量監(jiān)控查詢(xún)系統(tǒng)應(yīng)用于精梳設(shè)備的結(jié)構(gòu)示意圖如下所示:

該系統(tǒng)實(shí)現(xiàn)了以下功能:

1)實(shí)時(shí)監(jiān)控所選機(jī)器各班次的當(dāng)日產(chǎn)量和累計(jì)產(chǎn)量以及該機(jī)器的運(yùn)行情況。

2)可定時(shí)保存各機(jī)器各班次的當(dāng)日產(chǎn)量及累計(jì)產(chǎn)量,且有多種定時(shí)方式可選擇。

3)能分別根據(jù)時(shí)間,班次,產(chǎn)量,車(chē)號(hào)進(jìn)行查詢(xún)操作,也可綜合考慮數(shù)據(jù)保存方式進(jìn)行查詢(xún),提高查詢(xún)準(zhǔn)確率。

4)查詢(xún)結(jié)果可顯示為報(bào)表格式,并可將結(jié)果打印輸出,方便用戶(hù)使用。

5)具有系統(tǒng)維護(hù)功能,可方便用戶(hù)進(jìn)行數(shù)據(jù)維護(hù)。

三、系統(tǒng)設(shè)計(jì)

1)硬件配置

名稱(chēng)

數(shù)量

觸摸屏

7

普通PC機(jī)

1

轉(zhuǎn)換模塊RS232—RS485

1

 

2) 數(shù)據(jù)采集部分的設(shè)計(jì)

    觸摸屏選用臺(tái)達(dá)系列AE10THTD型,由于其具有強(qiáng)大的通訊功能,靈活的系統(tǒng)構(gòu)成,生動(dòng)逼真且豐富的圖庫(kù),簡(jiǎn)單易用等特點(diǎn),在紡織業(yè)中得到了廣泛的應(yīng)用,因此通過(guò)觸摸屏來(lái)采集所需數(shù)據(jù)。所以要對(duì)紡機(jī)進(jìn)行實(shí)時(shí)監(jiān)控,首先要解決觸摸屏與PC的通信問(wèn)題。所用的臺(tái)達(dá)觸摸屏支持標(biāo)準(zhǔn)的MODBUS協(xié)議,通過(guò)串口與PC相連。

<1>MODBUS通信協(xié)議

modbus功能碼

01:讀取線圈狀態(tài)  取得一組邏輯線圈的當(dāng)前狀態(tài)(ON/OFF)

02:讀取輸入狀態(tài)  取得一組開(kāi)關(guān)輸入的當(dāng)前狀態(tài)(ON/OFF)

03:讀取保持寄存器  在一個(gè)或多個(gè)保持寄存器中取得當(dāng)前的二進(jìn)制值

04:讀取輸入寄存器  在一個(gè)或多個(gè)輸入寄存器中取得當(dāng)前的二進(jìn)制值

05:強(qiáng)置單線圈  強(qiáng)置一個(gè)邏輯線圈的通斷狀態(tài)

06:預(yù)置單線圈  把具體二進(jìn)制值裝入一個(gè)保持寄存器

根據(jù)modbus協(xié)議,通信中mscomm1.output中包含的字符串應(yīng)包括以下幾部分:

起始位  站號(hào)  功能碼  數(shù)據(jù)位  校驗(yàn)位  停止位

在此通信中,站號(hào)表示人機(jī)站號(hào) 數(shù)據(jù)位包括寄存器地址和數(shù)據(jù)

<2> HMI內(nèi)部地址與MODBUS地址映射表

MODBUS_ADDRESS

HMI_ADDRESS

PC_ADDRESS

描述

W40001-W41024

$0-$1023

0000-03FF

內(nèi)部寄存器

W42001-W43024

$M0-$M1023

07D0-0BCF

斷電保持內(nèi)部寄存器

W44001

RCPN0

0FA0

配方編號(hào)寄存器

W45001-......

RCP0-RCPn

1388-......

配方寄存器

B00001-B01024

$2000.0-$2063.15

0000-03FF

內(nèi)部寄存器(bit)

B01025-B02048

$M200.0-$M263.15

0400-07FB

斷電內(nèi)部保持寄存器(bit)

<3>mscomm控件

CommPort 設(shè)置并返回通訊端口號(hào)。

Settings 以字符串的形式設(shè)置并返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位、停止位。

PortOpen 設(shè)置并返回通訊端口的狀態(tài)。也可以打開(kāi)和關(guān)閉端口。

Input 從接收緩沖區(qū)返回和刪除字符。

Output 向傳輸緩沖區(qū)寫(xiě)一個(gè)字符串。

<4>HMI與PC的通信及數(shù)據(jù)采集的設(shè)計(jì)

LRC算法函數(shù):

Public Function LRC(str)

    c = 0

    l = Len(str) ’求出str的長(zhǎng)度賦值給l

        For c = c + 1 To l

    c_data = Mid$(str, c, 2) ’在str串中,從c的值開(kāi)始取2個(gè)字符。

    d_lrc = d_lrc + Val("&H" + c_data)

    c = c + 1

    Next c

    If d_lrc > &HFF Then

       d_lrc = d_lrc Mod &H100

    End If

    h_lrc = Hex(&HFF - d_lrc + 1)

    If Len(h_lrc) > 2 Then

       h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)

    End If

    LRC = h_lrc

End Function

下面對(duì)數(shù)據(jù)進(jìn)行實(shí)時(shí)采集,數(shù)據(jù)采集程序界面如下圖所示:

Private Sub Timer1_Timer()

    ’連接數(shù)據(jù)庫(kù)

    Dim CONN As New ADODB.Connection

    Dim DBStr As String

    Dim rs As New ADODB.Recordset

    DBStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

    CONN.Open DBStr

    Dim Mac_Num    ’ Mac_Num是車(chē)號(hào)

    Mac_Num = Combo_MacNum.List(Combo_MacNum.ListIndex)

    Debug.Print Mac_Num

    sql = "select * from machine where Machine_Num = ’" + Mac_Num + "’"   ’獲取車(chē)號(hào)

    rs.Open sql, CONN, 1, 3

    Txt_type.Text = rs.Fields("machine_type").Value   ’獲取車(chē)的類(lèi)型(是精梳機(jī)還是條并聯(lián))

    rs.Close

    str_type = Mac_Num  ’

    Set CONN = Nothing

    DBStr = ""

    ’發(fā)送數(shù)據(jù)(根據(jù)所選車(chē)號(hào)發(fā)送數(shù)據(jù))

    If MSComm1.PortOpen = True And stakeout_flag And Combo_MacNum.ListIndex >= 0 Then

        str_output = str_type + "030064001D"

        MSComm1.Output = ":" + str_output + LRC(str_output) + Chr$(13) + Chr$(10)

        ’接收數(shù)據(jù)

        inputstring = MSComm1.Input

        ’將接收到的數(shù)據(jù)分別賦值并顯示

        Txt_100.Text = change(inputstring, 8, 12) ’甲班當(dāng)日產(chǎn)量

        Txt_102.Text = change(inputstring, 16, 20) ’甲班累計(jì)產(chǎn)量

        Txt_104.Text = change(inputstring, 24, 28) ’乙班當(dāng)日產(chǎn)量

        Txt_106.Text = change(inputstring, 32, 36) ’乙班累計(jì)產(chǎn)量

        Txt_108.Text = change(inputstring, 40, 44) ’丙班當(dāng)日產(chǎn)量

        Txt_110.Text = change(inputstring, 48, 52) ’丙班累計(jì)產(chǎn)量

        Txt_112.Text = change(inputstring, 56, 60) ’丁班當(dāng)日產(chǎn)量

        Txt_114.Text = change(inputstring, 64, 68) ’丁班累計(jì)產(chǎn)量

        Txt_116.Text = change(inputstring, 72, 76) ’各班當(dāng)日合計(jì)產(chǎn)量

        Txt_118.Text = change(inputstring, 80, 84) ’各班累計(jì)合計(jì)產(chǎn)量

        If Txt_type.Text = "條并聯(lián)" Then

            Txt_view1.Text = change(inputstring, 104, 108) ’條并聯(lián)繞卷速度

            Txt_view2.Text = change(inputstring, 112, 116) ’條并聯(lián)當(dāng)前長(zhǎng)度

        Else

            Txt_view1.Text = change(inputstring, 88, 92) ’精梳機(jī)鉗次

            Txt_view2.Text = change(inputstring, 96, 100) ’精梳機(jī)條速

      End If

      str_state = Mid(inputstring, 120, 4) ’接收運(yùn)行狀態(tài)的返回值,并判斷運(yùn)行狀態(tài)

        If str_state = "0001" Then

            Cmd_128.Caption = "運(yùn)行中"

        End If

        If str_state = "0000" Then

            Cmd_128.Caption = "停止"

        End If

   End If

End Sub

    change(inputstr, start1 As Integer, start2 As Integer)用于轉(zhuǎn)換采集到的數(shù)據(jù),其功能是將采集到的產(chǎn)量數(shù)據(jù)轉(zhuǎn)換為十進(jìn)制。其代碼如下:

Public Function change(inputstr, start1 As Integer, start2 As Integer)

    str_low = Mid(inputstr, start1, 4) ’讀寄存器中的數(shù)據(jù)賦給低字節(jié)

    str_high = Mid(inputstr, start2, 4) ’讀寄存器中的數(shù)據(jù)賦給高字節(jié)

    str_hex = str_high + str_low ’整合高低字節(jié)數(shù)據(jù)

    str_input = Val("&H" + str_hex) ’將十六進(jìn)制數(shù)據(jù)轉(zhuǎn)換成十進(jìn)制

    If str_input >= -32768 And str_input <= -1 Then ’將轉(zhuǎn)換成十進(jìn)制處于-32768~32767的數(shù)據(jù)轉(zhuǎn)換為相應(yīng)的正數(shù)

        str_input = str_input + 65536

    End If

    change = str_input / 1000 ’返回值 取三位小數(shù)

End Function

3)信息查詢(xún)

    信息查詢(xún)界面如下所示,可對(duì)已經(jīng)保存的生產(chǎn)數(shù)據(jù)根據(jù)時(shí)間、班次、產(chǎn)量、車(chē)號(hào)進(jìn)行綜合查詢(xún)。

    該功能的程序方面比較簡(jiǎn)單,主要是對(duì)數(shù)據(jù)庫(kù)的查詢(xún)操作。以單獨(dú)對(duì)班次查詢(xún)?yōu)槔浯a如下:

’按班次查詢(xún)子函數(shù),用于判斷其搜索關(guān)鍵字是否有效

Private Sub Chk_team_Click()

    If Chk_team.Value = 1 Then

        Combo_team.Enabled = True

    Else

        Combo_team.Enabled = False

    End If

End Sub

’選擇班次子函數(shù),用于判斷所選班次

Private Sub Combo_team_Click()

    Dim liner_str

    Select Case Combo_team.ListIndex

        Case 0

            liner_str = "甲班"

        Case 1

            liner_str = "乙班"

        Case 2

            liner_str = "丙班"

        Case 3

            liner_str = "丁班"

    End Select

End Sub


 
 
臺(tái)達(dá)相關(guān)解決方案:
臺(tái)達(dá)堆垛機(jī)方案:精準(zhǔn)是王道 平穩(wěn)更高效
不負(fù)期望 強(qiáng)大性能 | 臺(tái)達(dá)ASDA-A3伺服高端應(yīng)用面面說(shuō)
云端漫游智能制造 低碳方案盡在眼前!
看臺(tái)達(dá)三招化解數(shù)據(jù)中心升級(jí)難
云課堂 | 聽(tīng)數(shù)據(jù)中心專(zhuān)家開(kāi)講新一代綠色微模塊
建設(shè)低碳綠色智能工廠,從優(yōu)化冷水機(jī)開(kāi)始!
臺(tái)達(dá)在這個(gè)智慧園區(qū)上展現(xiàn)的“硬功夫“和”軟實(shí)力”
臺(tái)達(dá)澆鑄控制解決方案 助力發(fā)泡橡膠制程大升級(jí)
臺(tái)達(dá)為數(shù)據(jù)托管跨國(guó)公司提供 28 MW 關(guān)鍵電力解決方案
低碳模式 綠色主張 臺(tái)達(dá)方案與你分享
臺(tái)達(dá)LED直流智能照明解決方案,點(diǎn)亮家門(mén)口的“指路燈”
深化“雙碳”牽引目標(biāo) 臺(tái)達(dá)為智能廠務(wù)增加綠色助力
更多臺(tái)達(dá)解決方案...
通過(guò)中華工控網(wǎng)在線留言中達(dá)電通股份有限公司:
用戶(hù)名: 密碼: 免費(fèi)注冊(cè)為中華工控網(wǎng)會(huì)員
請(qǐng)留下您的有效聯(lián)系方式,以方便我們及時(shí)與您聯(lián)絡(luò)
 
中華工控網(wǎng) GKong.com制作發(fā)布 廣告聯(lián)系
主站蜘蛛池模板: 久久91精品国产91久久跳 | 成人毛片网 | 成人免费在线电影 | 精品九九 | 自拍偷拍亚洲欧美 | 黄色短视频在线观看 | 免费日韩电影 | 亚洲热视频 | 日韩欧美在线一区二区 | 69无线观看免费版 | 亚洲ww77777影视 | 日韩久久久 | 日本大片免a费观看视频的特点 | 欧美一区二区人人喊爽 | 国产精品久久久久国产a级 亚洲天堂偷拍 | 成人在线视频网站 | 久久精品欧美 | 亚洲精品成人av | 99国产精品国产精品久久 | 亚洲欧美国产一区二区三区 | 尤物国产| 日韩电影在线看 | 欧美在线播放 | 亚洲三级在线 | 日韩中文av | 欧美日韩在线第一页 | 国产福利精品视频 | 国产精品欧美一区二区三区 | 午夜精品久久久久99热蜜桃导演 | 日韩国产欧美视频 | 国产精品久久久久久 | 亚洲国产精品久久久久久 | 日韩欧美视频一区 | 日韩美女视频 | 国产激情视频 | aⅴ免费在线观看 | 国产超碰人人爽人人做人人爱 | 欧美午夜精品一区二区三区 | 黄色一级毛片免费 | 国产在线观看一区二区三区 | 在线观看日韩精品 |