超碰激情 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 午夜宅男欧美

產品分類

當前位置: 首頁 > 工業控制產品 > 自動化控制 > PLC可編程控制器

類型分類:
科普知識
數據分類:
PLC可編程控制器

用VB遠程控制三菱PLC

發布日期:2022-04-26 點擊率:177 品牌:信捷_XINJIE

    可編程控制器(ProgrammableController,簡稱PC)是一種數字運算操作的電子設備。它使用了可編程序的存儲器,用來在其內部存儲執行邏輯運算、順序控制、定時、計數和算術運算等操作指令,通過數字或模擬輸入/輸出組件控制各種類型的機械或生產過程。PC具有功能齊全、應用靈活、操作維修容易方便和穩定可靠等特點,因此廣泛用于工業現場控制。其典型應用方案是:采用PC作為下位機實現過程的自動控制,以微機為上位機,完成工業流程和工藝參數的顯示以及控制參數的修改等功能。但是在一些危險和惡劣環境下,需要用微機遠程控制PC系統的運行和停止。本文結合作者所開發的危險環境下控制系統,以三菱A2A可編程控制器為例介紹VB遠程控制三菱A系列可編程控制器的運行,并給出系統實現方法與示例程序。

    2.系統設置與協議

    為進行系統控制需進行硬件和軟件設置,這部分內容是系統實現的關鍵。系統利用RS232通訊接口線將PC(利用AJ71UC24通訊模塊,25針)與微機的串行通信口(COM1,9針)進行連接。

    2.1AJ71UC24的通信控制協議

    PC的通訊模式(mode)開關設置為1。以下是Melsec-APC格式1通信協議的格式:

   其中:RR為控制PC啟動命令,RS為控制PC停止命令。

    AJ71UC24通信模塊所使用的主要控制字以及含義

    2.2AJ71UC24設置:

   AJ71UC24的通訊參數設置均通過其DIP開關設置,本例的參數設置如下:波特率:9600,數據位:8,停止位:1,有求和效驗,可以進行在線寫。DIP開關設置如下表:

    2.3PC的運行開關設置

    若實現利用VB程序進行PC控制,必須將PC的運行開關設置在ON的位置。運行開關設置與對應的控制結果如下表:

   2.4VB通信功能設計與實現

    VB通過MSCOMM控件控制串行口,該控件屏蔽了通訊過程中的底層操作程序,用戶只需設置和監視控件的屬性和事件,就可很方便地實現串行異步通訊,它有事件驅動通信和查詢通信兩種方式,通過檢查InBufferCount屬性值來判斷輸入緩沖區中是否接受到相應數目的字符,為實現所述通信,應在窗體中加入一個通訊控件MSComm,控件的參數設置要與上述PC通訊模塊AJ71UC24的設置相同。控制命令的傳輸采用即時傳送方法。

   3.軟件編程與實現

    監控微機主要供系統管理人員對PC進行系統運行的控制。下面主要列出微機對PC進行控制有關的程序。本例是以單個PC為例,PC站號為00H,PC號為FFH。:

    該功能的實現必須將PC運行開關扳到RUN位置。通過在Form中加入兩個option按鈕實現:第一選項為啟動,命令為"RR";第二選項為停止,命令為"RS"。

 

Private Sub Option1_Click(Index As Integer)

 Dim An_Msg, Kzh_Cmd ,rd, rdf, temp, temp1 As String

 Dim i, rdd As Long

 selec Case Index

  Case 0

   Kzh_Cmd = "RR" '啟動PC系統

  Case 1

   Kzh_Cmd = "RS" '關閉PC系統

 End Select

 Screen.MousePointer = 11

 If MSComm1.PortOpen = False Then

  MSComm1.PortOpen = True

 End If

 MSComm1.InputLen = 0

 rd = Chr$(5) + "00FF" + Trim(Kzh_Cmd) + "0"

 rd=rd + Xy_hj(rd) '其中Xj_hj字符串效驗求和函數

 MSComm1.Output = rd

 Do

  dummy = DoEvents()

 Loop Until MSComm1.InBufferCount >= 5

 rdf = MSComm1.Input

 temp = Mid(rdf, 1, 5)

 If temp<> Chr$(6) + "00FF" Then

  MsgBox "命令運行失敗!!!", 16

 End If

 Screen.MousePointer = 0

End Sub

下一篇: PLC、DCS、FCS三大控

上一篇: 索爾維全系列Solef?PV

推薦產品

更多