日本在线www-日本在线播放一区-日本在线不卡免费视频一区-日本在线不卡视频-成人影院久久久久久影院-成人影院一区二区三区

ABB
關注中國自動化產業發展的先行者!
CAIAC 2025
2025工業安全大會
OICT公益講堂
當前位置:首頁 >> 案例 >> 案例首頁

案例頻道

基于VB及臺達觸摸屏的監控系統在紡機中的應用
  • 企業:中達電通股份有限公司     領域:運動控制與伺服系統     行業:機場    
  • 點擊數:2466     發布時間:2008-06-29 09:04:51
  • 分享到:

    喻  慧(1984-)
女,畢業于陜西科技大學電子信息專業,本科,現就職于烽火通信集團恒鑫紡機公司,從事新型紡織機械的研發工作。

摘要: 目前紡織業生產中產品產量一般都還是依靠人工進行統計,在實際操作過程中,不僅麻煩而且容易出錯。因此,有必要采用產量監控及查詢系統對產品產量進行統計。本文介紹了基于VB及臺達觸摸屏的產量監控及查詢系統,該系統不僅能應用于紡織機械,而且適用于其它設備。

關鍵詞: 臺達觸摸屏;VB;監控;查詢;MODBUS;MSCOMM

Abstract:  At the present time, the output of the textile industry is accounted by the worker usually. It is bother and easy to make mistakes. So it is necessary to have a system to monitor the output of the product. A monitor and enquiry system about the output of the product is introduced in this article, it's based on VB and Touch Screen. This system is not only used in the textile machine, but also used in the other area.

Key words: Delta HMI; VB; Monitor;Enquiry;  MODBUS ;  MSCOMM

一、引言

    該系統用于對各生產線的紡機進行實時監控和查詢,并對各班次產量數據進行存儲,用戶可通過日期時間段、車號、班次等對產量進行綜合查詢,并進行統計,可在查詢出滿足條件的數據后,進行報表輸出和打印。以下是對系統設計方面的一些討論。

二、系統結構與功能

    精梳機是近年來在紡織行業使用較為普遍的一種設備,其主要作用是排出梳棉生條中一定長度以下的短纖維,提高纖維整齊度,進一步清除纖維中殘留的棉結、雜質,提高纖維光潔度。條并卷聯合機是精梳工序的準備設備,通常情況下,一套精梳設備由一臺條并卷聯合機和五臺精梳機組成。該產量監控查詢系統應用于精梳設備的結構示意圖如下所示:



圖1  結構示意圖

    該系統實現了以下功能:

    (1)實時監控所選機器各班次的當日產量和累計產量以及該機器的運行情況。

    (2)可定時保存各機器各班次的當日產量及累計產量,且有多種定時方式可選擇。

    (3)能分別根據時間,班次,產量,車號進行查詢操作,也可綜合考慮數據保存方式進行查詢,提高查詢準確率。

    (4)查詢結果可顯示為報表格式,并可將結果打印輸出,方便用戶使用。

    (5)具有系統維護功能,可方便用戶進行數據維護。

三、系統設計

    1)硬件配置

名稱
數量
觸摸屏
7
普通PC機
1
轉換模塊RS232—RS485
1

    2) 數據采集部分的設計

    觸摸屏選用臺達系列AE10THTD型,由于其具有強大的通訊功能,靈活的系統構成,生動逼真且豐富的圖庫,簡單易用等特點,在紡織業中得到了廣泛的應用,因此通過觸摸屏來采集所需數據。所以要對紡機進行實時監控,首先要解決觸摸屏與PC的通信問題。所用的臺達觸摸屏支持標準的MODBUS協議,通過串口與PC相連。

    ● MODBUS通信協議

    modbus功能碼

    01:讀取線圈狀態  取得一組邏輯線圈的當前狀態(ON/OFF)

    02:讀取輸入狀態  取得一組開關輸入的當前狀態(ON/OFF)

    03:讀取保持寄存器  在一個或多個保持寄存器中取得當前的二進制值

    04:讀取輸入寄存器  在一個或多個輸入寄存器中取得當前的二進制值

    05:強置單線圈  強置一個邏輯線圈的通斷狀態

    06:預置單線圈  把具體二進制值裝入一個保持寄存器

    根據modbus協議,通信中mscomm1.output中包含的字符串應包括以下幾部分:

    起始位  站號  功能碼  數據位  校驗位  停止位

    在此通信中,站號表示人機站號 數據位包括寄存器地址和數據

    ● HMI內部地址與MODBUS地址映射表

MODBUS_ADDRESS
HMI_ADDRESS
PC_ADDRESS
描述
W40001-W41024
$0-$1023
0000-03FF
內部寄存器
W42001-W43024
$M0-$M1023
07D0-0BCF
斷電保持內部寄存器
W44001
RCPN0
0FA0
配方編號寄存器
W45001-......
RCP0-RCPn
1388-......
配方寄存器
B00001-B01024
$2000.0-$2063.15
0000-03FF
內部寄存器(bit)
B01025-B02048
$M200.0-$M263.15
0400-07FB
斷電內部保持寄存器(bit)

    ● mscomm控件

    CommPort 設置并返回通訊端口號。

    Settings 以字符串的形式設置并返回波特率、奇偶校驗、數據位、停止位。

    PortOpen 設置并返回通訊端口的狀態。也可以打開和關閉端口。

    Input 從接收緩沖區返回和刪除字符。

    Output 向傳輸緩沖區寫一個字符串。

    ● HMI與PC的通信及數據采集的設計

    LRC算法函數:

Public Function LRC(str)
    c = 0
    l = Len(str) '求出str的長度賦值給l
        For c = c + 1 To l
    c_data = Mid$(str, c, 2) '在str串中,從c的值開始取2個字符。
    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

    下面對數據進行實時采集,數據采集程序界面如下圖所示:

圖2  數據采集程序界面
Private Sub Timer1_Timer()
    '連接數據庫
    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是車號
    Mac_Num = Combo_MacNum.List(Combo_MacNum.ListIndex)
    Debug.Print Mac_Num
    sql = "select * from machine where Machine_Num = '" + Mac_Num + "'"   '獲取車號
    rs.Open sql, CONN, 1, 3
    Txt_type.Text = rs.Fields("machine_type").Value   '獲取車的類型(是精梳機還是條并聯)
    rs.Close
    str_type = Mac_Num  '
    Set CONN = Nothing
    DBStr = ""
    '發送數據(根據所選車號發送數據)
    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)
        '接收數據
        inputstring = MSComm1.Input
        '將接收到的數據分別賦值并顯示
        Txt_100.Text = change(inputstring, 8, 12) '甲班當日產量
        Txt_102.Text = change(inputstring, 16, 20) '甲班累計產量
        Txt_104.Text = change(inputstring, 24, 28) '乙班當日產量
        Txt_106.Text = change(inputstring, 32, 36) '乙班累計產量
        Txt_108.Text = change(inputstring, 40, 44) '丙班當日產量
        Txt_110.Text = change(inputstring, 48, 52) '丙班累計產量
        Txt_112.Text = change(inputstring, 56, 60) '丁班當日產量
        Txt_114.Text = change(inputstring, 64, 68) '丁班累計產量
        Txt_116.Text = change(inputstring, 72, 76) '各班當日合計產量
        Txt_118.Text = change(inputstring, 80, 84) '各班累計合計產量
        If Txt_type.Text = "條并聯" Then
            Txt_view1.Text = change(inputstring, 104, 108) '條并聯繞卷速度
            Txt_view2.Text = change(inputstring, 112, 116) '條并聯當前長度
        Else
            Txt_view1.Text = change(inputstring, 88, 92) '精梳機鉗次
            Txt_view2.Text = change(inputstring, 96, 100) '精梳機條速
      End If
      str_state = Mid(inputstring, 120, 4) '接收運行狀態的返回值,并判斷運行狀態
        If str_state = "0001" Then
            Cmd_128.Caption = "運行中"
        End If
        If str_state = "0000" Then
            Cmd_128.Caption = "停止"
        End If
   End If
End Sub
change(inputstr, start1 As Integer, start2 As Integer)用于轉換采集到的數據,其功能是將采集到的產量數據轉換為十進制。其代碼如下:
Public Function change(inputstr, start1 As Integer, start2 As Integer)
    str_low = Mid(inputstr, start1, 4) '讀寄存器中的數據賦給低字節
    str_high = Mid(inputstr, start2, 4) '讀寄存器中的數據賦給高字節
    str_hex = str_high + str_low '整合高低字節數據
    str_input = Val("&H" + str_hex) '將十六進制數據轉換成十進制
    If str_input >= -32768 And str_input <= -1 Then '將轉換成十進制處于-32768~32767的數據轉換為相應的正數
        str_input = str_input + 65536
    End If
    change = str_input / 1000 '返回值 取三位小數
End Function

    3)信息查詢

    信息查詢界面如下所示,可對已經保存的生產數據根據時間、班次、產量、車號進行綜合查詢。

圖3  信息查詢界面
    該功能的程序方面比較簡單,主要是對數據庫的查詢操作。以單獨對班次查詢為例,其代碼如下:

    '按班次查詢子函數,用于判斷其搜索關鍵字是否有效

Private Sub Chk_team_Click()
    If Chk_team.Value = 1 Then
        Combo_team.Enabled = True
    Else
        Combo_team.Enabled = False
    End If
End Sub

    '選擇班次子函數,用于判斷所選班次

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

    '班次查詢子函數,獲取查詢字符串

Public Function sch_team()
    Dim liner_str
    Dim sch_str_team
    Select Case Combo_team.ListIndex
    Case 0
        liner_str = "甲班"
    Case 1
        liner_str = "乙班"
    Case 2
        liner_str = "丙班"
    Case 3
        liner_str = "丁班"
    End Select
    sch_str_team = "info_liner = '" + liner_str + "'"
    sch_team = sch_str_team
End Function

    '產量查詢函數,用于查詢產量并對其進行顯示

Private Sub cmd_search_Click()
Dim sch_str

    '按班次查詢

    If Chk_team.Value = 1 Then
        sch_str = " where " + sch_team()
    End If

    '查詢結果顯示

    Dim resource_str
    resource_str = " select info_id as 編號,info_mactype as 機器類型 ,info_liner as 班次, "
    resource_str = resource_str + " info_sumoutput as 當日產量, info_dayoutput as 累計產量,"
    resource_str = resource_str + " info_daytotal as 當日合計產量,info_total as 累計合計產量 "
    resource_str = resource_str + " from " + table_str + sch_str
    Adodc1.RecordSource = resource_str
    Debug.Print Adodc1.RecordSource
    Adodc1.Refresh
End Sub

    可根據以上單獨查詢班次的例子對其進行擴展,增加根據時間,車號,產量范圍等對產量進行查詢的功能,這里就不一一敘述了。

四、結束語

    觸摸屏與上位機的結合,并通過VB6.0傳送數據所構成的計算機監控系統,對于近距離傳輸數據的現場控制來說是一種性價比很高的解決方案。該系統充分的利用了觸摸屏的通信功能和PC強大的圖形顯示、浮點運算等特點,以最大的限度合理的利用了資源,實現了對設備運行狀態的監控。

其它作者:

    馬巖(1980-),男,畢業于西安工程大學機械電子工程專業,本科,現就職于陜西烽火通信集團恒鑫紡機公司,從事新型紡織機械的研發工作。

熱點新聞

推薦產品

x
  • 在線反饋
1.我有以下需求:



2.詳細的需求:
姓名:
單位:
電話:
郵件:
主站蜘蛛池模板: 91久久福利国产成人精品-91久久国产-91久久国产成人免费观看资源-91久久国产精品-91久久国产精品视频-91久久国产口精品久久久久 国产偷抇久久精品A片蜜臀A-国产偷抇久久精品A片蜜臀AV-国产偷抇久久精品A片图片-国产偷窥熟妇高潮呻吟-国产凸凹视频熟女A片-国产玩弄放荡人妇系列 | 尤物网站在线-尤物网站永久在线观看-尤物网在线观看-尤物天堂-久久久久久久亚洲精品一区-久久久久久久亚洲精品 | 性一交一乱一交A片久久四色-性一交一乱一乱A片AP88-性一交一乱一伦一A片-性一交一乱一伦一色一情-性一交一乱一伦一色一情孩交-性一交一乱一伦在线播放 | 五月天激情婷婷,欧美午夜在线,日一下影院,免费一区二区三区四区,99热99re8国产在线播放,婷婷开心激情网 | 亚洲欧美激情另类,国产成人一区二区三区免费观看,一区二区三区在线视频观看,亚洲一区二区三区精品视频,国产乱了真实在线观看,国产播放器一区 | 91香蕉导航-91香蕉成人免费高清网站-91香蕉成人-91午夜视频-91午夜精品亚洲一区二区三区-91网址在线观看 | 久久久久久久久久久久久久,免费福利资源站在线视频,午夜精品久久久久久影视riav,黄色的视频免费观看,国产人成免费视频,国产福利小视频 | 香蕉久久综合-香蕉久久夜色精品国产尤物-香蕉久久夜色精品国产-香蕉久久久久-久久网站视频-久久网免费 | 日本在线一区二区三区-日本中出视频-日本中文不卡-日本中文视频-日本中文在线-日本中文在线播放 国产欧美日韩精品一区二区三区-国产欧美日韩精品一区二-国产欧美日韩精品高清二区综合区-国产欧美日韩精品第三区-天天舔天天操天天干-天天添天天干 | 六月婷婷国产精品综合-六六影院午夜伦理-六级黄色片-六度影院最新-最近的2019中文字幕国语完整版-最近的2019中文字幕国语版 | 欧美中出,国产欧美又粗又猛又爽老,日本啊v,欧美日韩欧美,国产va在线观看,国产一区二区三区在线视频 | 国产美女小视频-国产美女网站视频-国产美女网站-国产美女特级嫩嫩嫩bbb-天天干视频在线观看-天天干视频在线 | 欧洲亚洲综合,亚洲欧美综合视频,国产视频分类,欧美亚洲综合在线,亚洲另类第一页,91在线观 | 亚洲另类电击调教在线观看-亚洲理论片在线中文字幕-亚洲看黄-亚洲卡一卡2卡三卡4麻豆-韩国xxxxx视频在线-韩国mmwutv福利视频 | 激情区小说区偷拍区图片区-激情偷乱人成视频在线观看-激情文学另类小说亚洲图片-激情销魂乳妇奶水小说-香蕉九九-香蕉成人啪国产精品视频综合网 | 一区二区三区四区免费视频-一区二区三区视频在线观看-一区二区三区视频-一区二区三区欧美日韩-欧美黑人乱大交-欧美黑人巨大性极品hd欧 | 一区二区视频在线观看高清视频在线-一区二区三区无码高清视频-一区二区三区无码被窝影院-一区二区三区四区国产-久久re视频精品538在线-久久re热在线视频精99 | 国产精品视频视频久久-国产精品视频全国免费观看-国产精品视频区-国产精品视频免费视频-四虎国产精品永免费-四虎国产精品永久在线播放 | 亚洲精品在线观看视频-亚洲精品在线观看-亚洲精品在线第一页-亚洲精品在线播放视频-护士伦理-护士撩起裙子让你桶的视频 | 亚洲尹人-亚洲伊人久久综合影院2021-亚洲伊人久久在-亚洲伊人久久网-免费网站在线观看人数在哪里看的-免费网站在线观看国产v片 | 一道本在线,国产成人综合精品一区,亚洲v日韩v欧美在线观看,欧美精品国产综合久久,精品日本一区二区三区在线观看,久久精品一区二区三区不卡牛牛 | 午夜成人影视-午夜成人影片-午夜成人免费影院-午夜不卡影院-国产日本欧美亚洲精品视-国产日本欧美高清免费区 | 日本xxx在线-日本xxx在线观看免费播放-日本xx高清视频免费观看-日本xx免费看视频mm-日本啊啊啊视频-日本爱v | 国产一卡2卡3卡四卡精品网站-国产一久久香蕉国产线看观看-国产一进一出视频网站-国产一级在线现免费观看-亚洲高清国产拍精品影院-亚洲高清二区 | 91精品久久久久久久久无码变态-91精品久久久久久久久中文字幕-91精品久久久久久久蜜臀-91精品久久久久久久青草-91精品久久久久久中文字幕-91精品久久久久久综合五月天 | 久久99国产精品一区二区,欧美日韩另类在线,婷婷四月开心色房播播网,收集最新中文国产中文字幕,亚洲综合激情六月婷婷在线观看,欧美一级淫片 | 一区二区国产精品-一区二区高清在线观看-一区二区高清在线-一区二区成人国产精品-九九视频精品全部免费播放-九九视频国产 | 久久久久久99精品-久久久久久99-久久久久久91香蕉国产-久久久久久91精品色婷婷-中国一级片免费看-中国一级毛片国产高清 | 在线观看 一区-在线观看 亚洲-在线观看 日韩-在线观看 免费高清视频-久久婷婷国产一区二区三区-久久婷婷国产五月综合色啪最新韩国 | 国产精品福利在线观看入口-国产精品福利在线观看秒播-国产精品福利在线观看免费不卡-国产精品福利一区二区亚瑟-四虎免费入口-四虎免费看片 | 91香蕉导航-91香蕉成人免费高清网站-91香蕉成人-91午夜视频-91午夜精品亚洲一区二区三区-91网址在线观看 | 日本xxxxx18护士xxx-日本xxxxwwww-日本xxxx1819黑人-日本xxxbbb0oo-国产精品免费看久久久-国产精品免费久久久免费 | 天天干在线免费视频-天天干夜夜爱-天天干网-天天干天天曰天天操-天天干天天夜-天天干天天玩天天操 | 四房网,久久久国产99久久国产久,色偷偷男人天堂,九七电影院97网手机版支持,国产人成精品免费视频,五月天最新网站 | 亚洲欧美激情另类,国产成人一区二区三区免费观看,一区二区三区在线视频观看,亚洲一区二区三区精品视频,国产乱了真实在线观看,国产播放器一区 | a级国产精品片在线观看-a级国产乱理伦片野外-a级国产乱理伦片在线观看a-a级国产乱理片在线观看-a级国产片-a级国产视频 | 五月天婷婷视频,九九爱这里只有精品,热和尚三区四区,善良的嫂子3在线播放,久久久久久久久久久久久久,热er99久久6国产精品免费 | 国产三级在线观看视小说-国产三级在线观看视频不卡-国产三级在线观看视频-国产三级在线观看免费-西瓜视频网页版-西瓜视频全部免费观看大全 | 91香蕉视频在线播放-91香蕉视频在线看-91香蕉小视频-91香蕉亚洲精品人人影视-91香蕉影院-91香蕉在线视频 | 日韩精品无码一区AAA片-日韩精品三级-日韩草逼-日韩操穴-成人黄色在线观看-成人黄色在线播放 | 国产婷婷视频-国产婷婷丁香久久综合-国产天天在线-国产天天操-小草在线免费观看视频-小草在线观看视频免费2019 |