yangw
/
lj_plc
2
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

树洞

Browse Source
dep_deliver
杨威 8 months ago
parent 9b227915bb
commit 2a7853260d
5 changed files with 125 additions and 79 deletions
Show Stats Download Patch File Download Diff File

54
Actions/ChemicalWeighing/Mesnac.Action.ChemicalWeighing/Dan/Class1.cs
Unescape Escape View File

@ -25,8 +25,10 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
MCButton BtnA;
MCButton BtnB;
MCButton BtnC;
HslLanternSimple HslLanternSimple2147483646;
MCButton MCButton2147483646;
//HslLanternSimple HslLanternSimple2147483646;
//MCButton MCButton2147483646;
public void Run(RuntimeParameter runtime)
{
@ -48,9 +50,10 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
BtnB = controller.FirstOrDefault(x => x.Name == "BtnB") as MCButton;
BtnC = controller.FirstOrDefault(x => x.Name == "BtnC") as MCButton;
MCButton2147483646 = controller.FirstOrDefault(x => x.Name == "MCButton2147483646") as MCButton;
HslLanternSimple2147483646 = controller.FirstOrDefault(x => x.Name == "HslLanternSimple2147483646") as HslLanternSimple;
//MCButton2147483646 = controller.FirstOrDefault(x => x.Name == "MCButton2147483646") as MCButton;
//HslLanternSimple2147483646 = controller.FirstOrDefault(x => x.Name == "HslLanternSimple2147483646") as HslLanternSimple;
// M20.4 A线确认
@ -99,23 +102,23 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
}
};
MCButton2147483646.Click += (s, e) =>
{
//解包房除尘风机启动
var val = PlcConnect.Instance.ReadBool("DB191.DBX32.4").Content;
PlcConnect.Instance.Write("DB191.DBX32.4", !val);
//解包房除尘风机启动
val = PlcConnect.Instance.ReadBool("DB191.DBX32.4").Content;
SetValue(HslLanternSimple2147483646, val);
if (val)
{
MCButton2147483646.MCValue = "停止解包房除尘风机";
}
else
{
MCButton2147483646.MCValue = "启动解包房除尘风机";
}
};
//MCButton2147483646.Click += (s, e) =>
//{
// //解包房除尘风机启动
// var val = PlcConnect.Instance.ReadBool("DB191.DBX32.4").Content;
// PlcConnect.Instance.Write("DB191.DBX32.4", !val);
// //解包房除尘风机启动
// val = PlcConnect.Instance.ReadBool("DB191.DBX32.4").Content;
// SetValue(HslLanternSimple2147483646, val);
// if (val)
// {
// MCButton2147483646.MCValue = "停止解包房除尘风机";
// }
// else
// {
// MCButton2147483646.MCValue = "启动解包房除尘风机";
// }
//};
timer = new Timer();
@ -132,15 +135,6 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
timer.Dispose();
}
//解包房除尘风机启动
var val = PlcConnect.Instance.ReadBool("DB191.DBX32.4").Content;
SetValue(HslLanternSimple2147483646, val);
if (val) {
MCButton2147483646.MCValue = "停止解包房除尘风机";
}
else
{
MCButton2147483646.MCValue = "启动解包房除尘风机";
}
Db92DengHelp dB92 = new Db92DengHelp();

55
Actions/ChemicalWeighing/Mesnac.Action.ChemicalWeighing/Dan/InitAction.cs
Unescape Escape View File

@ -1,6 +1,9 @@
using DataBlockHelper.DBHelpers;
using DataBlockHelper;
using DataBlockHelper.DBHelpers;
using DataBlockHelper.Entity;
using DevExpress.Charts.Model;
using Mesnac.Action.Base;
using Mesnac.Controls.ChemicalWeighing;
using Mesnac.Controls.Default;
@ -116,6 +119,9 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
Color backColor;
MCLabel MCLabel20;
public void Run(RuntimeParameter runtime)
{
RunIni(runtime);
@ -128,6 +134,7 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
timer.Tick += GetPlcValue;//添加事件
MCLabel20 = controll.FirstOrDefault(x => x.Name == "MCLabel20") as MCLabel;
MCButton1 = controll.FirstOrDefault(x => x.Name == "MCButton1") as MCButton;
MCButton2 = controll.FirstOrDefault(x => x.Name == "MCButton2") as MCButton;
@ -276,18 +283,8 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
private void MCButton1_Click(object sender, EventArgs e)
{
Db2101WriteHelp db2101WriteHelp = new Db2101WriteHelp();
db2101WriteHelp.WriteStart();
MessageBox.Show("开始充氮气");
}
private void MCButton3_Click(object sender, EventArgs e)
{
Db2101WriteHelp db2101WriteHelp = new Db2101WriteHelp();
short val = 0;
Db2101Entity entityA = new Db2101Entity();
@ -502,7 +499,21 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
db2101WriteHelp.WriteO(entityO);
MessageBox.Show("氮气设置成功");
db2101WriteHelp.WriteStart();
MessageBox.Show("开始充氮气");
}
private void MCButton3_Click(object sender, EventArgs e)
{
var val = PlcConnect.Instance.ReadBool("DB2101.216.0").Content;
PlcConnect.Instance.Write("DB2101.216.0", !val);
MessageBox.Show("设置成功");
}
@ -517,7 +528,25 @@ namespace Mesnac.Action.ChemicalWeighing.Dan
timer = null;
}
Db2101Helper db=new Db2101Helper();
var val = PlcConnect.Instance.ReadBool("DB2101.216.0").Content;
if (val)
{
MCLabel20.Text = "自动模式";
MCButton3.Text = "手动模式";
}
else
{
MCLabel20.Text = "手动模式";
MCButton3.Text = "自动模式";
}
Db2101Helper db =new Db2101Helper();
Ch(cbkA, txtBoxA, HslA, db.SiloA,false);
Ch(cbkB, txtBoxB, HslB, db.SiloB, false);

34
Actions/ChemicalWeighing/Mesnac.Action.ChemicalWeighing/LjPressure/PressurePLC.cs
Unescape Escape View File

@ -1,10 +1,13 @@
using System;
using System.Collections.Generic;
using System.Linq;
using DataBlockHelper;
using DataBlockHelper.DBHelpers;
using DataBlockHelper.DbWrite;
using DataBlockHelper.Entity.DB2107Entity;
using DevExpress.Utils.Extensions;
using DevExpress.XtraGauges.Core.Model;
using DevExpress.XtraRichEdit.API.Layout;
@ -668,6 +671,16 @@ namespace Mesnac.Action.ChemicalWeighing.LjPressure
}
}
private static void DownDBW500(PressureSettingView view)
{
if (view != null)
{
var plc = PlcConnect.Instance;
plc.Write("DB2108.54.0", view.LowLimit);
plc.Write("DB2108.58.0", view.HighLimit);
}
}
private static PressureSettingView UpDbw418()
{
@ -681,6 +694,18 @@ namespace Mesnac.Action.ChemicalWeighing.LjPressure
return view;
}
private static PressureSettingView UpDbw500()
{
PressureSettingView view = new PressureSettingView();
view.Id = 32;
var plc=PlcConnect.Instance;
view.ActualValue = plc.ReadFloat("DB2108.50.0").Content;
view.LowLimit = plc.ReadFloat("DB2108.54.0").Content;
view.HighLimit = plc.ReadFloat("DB2108.58.0").Content;
view.Alarm = plc.ReadBool("DB2108.62.0").Content?1:0;
return view;
}
/// <summary>
/// 下发到plc
@ -806,6 +831,9 @@ namespace Mesnac.Action.ChemicalWeighing.LjPressure
case 30:
DownDBW418(pressureSettingView);
break;
case 31:
DownDBW500(pressureSettingView);
break;
}
}
}
@ -850,7 +878,8 @@ namespace Mesnac.Action.ChemicalWeighing.LjPressure
UpDbw376(),
UpDbw390(),
UpDbw404(),
UpDbw418()
UpDbw418(),
UpDbw500()
};
@ -955,6 +984,9 @@ namespace Mesnac.Action.ChemicalWeighing.LjPressure
case 30:
view= UpDbw418();
break;
case 31:
view = UpDbw500();
break;
}

22
Main/MCEdit/Data/MCProject/nodeForm/FormDanQi.xml
Unescape Escape View File

@ -1,5 +1,25 @@
<Object type="Mesnac.Gui.Common.FrmRunTemplate, Mesnac.Gui.Common, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="FormDanQi" children="Controls">
<Object type="Mesnac.Controls.Default.MCLabel, Mesnac.Controls.Default, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="MCLabel20" children="Controls">
<Property name="Format">
</Property>
<Property name="TextName" />
<Property name="NewFillColor">Red</Property>
<Property name="OldFillColor">DarkGray</Property>
<Property name="MCKey" />
<Property name="MCDataSourceID" />
<Property name="IsDbControl">False</Property>
<Property name="InitDataSource" />
<Property name="ActionDataSource" />
<Property name="BindDataSource" />
<Property name="DbOptionType">None</Property>
<Property name="MCVisible">True</Property>
<Property name="MCEnabled">True</Property>
<Property name="Text">MCLabel20</Property>
<Property name="Location">294, 576</Property>
<Property name="Name">MCLabel20</Property>
<Property name="Size">59, 12</Property>
</Object>
<Object type="Mesnac.Controls.Default.MCButton, Mesnac.Controls.Default, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="MCButton3" children="Controls">
<Property name="ClickActionList">
<Binary>AAEAAAD/////AQAAAAAAAAAMAgAAAEtNZXNuYWMuQ29udHJvbHMuQmFzZSwgVmVyc2lvbj0xLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPW51bGwEAQAAAJMBU3lzdGVtLkNvbGxlY3Rpb25zLkdlbmVyaWMuTGlzdGAxW1tNZXNuYWMuQ29udHJvbHMuQmFzZS5EZXNpZ25BY3Rpb24sIE1lc25hYy5Db250cm9scy5CYXNlLCBWZXJzaW9uPTEuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49bnVsbF1dAwAAAAZfaXRlbXMFX3NpemUIX3ZlcnNpb24EAAAjTWVzbmFjLkNvbnRyb2xzLkJhc2UuRGVzaWduQWN0aW9uW10CAAAACAgJAwAAAAAAAAAAAAAABwMAAAAAAQAAAAAAAAAEIU1lc25hYy5Db250cm9scy5CYXNlLkRlc2lnbkFjdGlvbgIAAAAL</Binary>
@ -18,7 +38,7 @@
<Property name="TextName" />
<Property name="NewFillColor">Red</Property>
<Property name="OldFillColor">DarkGray</Property>
<Property name="Text">设置</Property>
<Property name="Text">自动模式</Property>
<Property name="Location">290, 607</Property>
<Property name="Name">MCButton3</Property>
<Property name="Size">105, 75</Property>

29
Main/MCEdit/Data/MCProject/nodeForm/FormQuRenAnNue.xml
Unescape Escape View File

@ -1,34 +1,5 @@
<Object type="Mesnac.Gui.Common.FrmRunTemplate, Mesnac.Gui.Common, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="FormQuRenAnNue" children="Controls">
<Object type="Mesnac.Controls.ChemicalWeighing.HslLanternSimple, Mesnac.Controls.ChemicalWeighing, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="HslLanternSimple2147483646" children="Controls">
<Property name="Location">897, 348</Property>
<Property name="Name">HslLanternSimple2147483646</Property>
<Property name="Size">39, 37</Property>
</Object>
<Object type="Mesnac.Controls.Default.MCButton, Mesnac.Controls.Default, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="MCButton2147483646" children="Controls">
<Property name="ClickActionList">
<Binary>AAEAAAD/////AQAAAAAAAAAMAgAAAEtNZXNuYWMuQ29udHJvbHMuQmFzZSwgVmVyc2lvbj0xLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPW51bGwEAQAAAJMBU3lzdGVtLkNvbGxlY3Rpb25zLkdlbmVyaWMuTGlzdGAxW1tNZXNuYWMuQ29udHJvbHMuQmFzZS5EZXNpZ25BY3Rpb24sIE1lc25hYy5Db250cm9scy5CYXNlLCBWZXJzaW9uPTEuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49bnVsbF1dAwAAAAZfaXRlbXMFX3NpemUIX3ZlcnNpb24EAAAjTWVzbmFjLkNvbnRyb2xzLkJhc2UuRGVzaWduQWN0aW9uW10CAAAACAgJAwAAAAAAAAAAAAAABwMAAAAAAQAAAAAAAAAEIU1lc25hYy5Db250cm9scy5CYXNlLkRlc2lnbkFjdGlvbgIAAAAL</Binary>
</Property>
<Property name="MCKey" />
<Property name="MCDataSourceID" />
<Property name="IsDbControl">False</Property>
<Property name="InitDataSource" />
<Property name="ActionDataSource" />
<Property name="BindDataSource" />
<Property name="DbOptionType">None</Property>
<Property name="MCVisible">True</Property>
<Property name="MCEnabled">True</Property>
<Property name="MCPurview">False</Property>
<Property name="Format" />
<Property name="TextName" />
<Property name="NewFillColor">Red</Property>
<Property name="OldFillColor">DarkGray</Property>
<Property name="Text">解包房除尘风机启动</Property>
<Property name="Location">954, 341</Property>
<Property name="Name">MCButton2147483646</Property>
<Property name="Size">223, 55</Property>
<Property name="TabIndex">129</Property>
</Object>
<Object type="Mesnac.Controls.Default.MCButton, Mesnac.Controls.Default, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" name="BtnC" children="Controls">
<Property name="ClickActionList">
<Binary>AAEAAAD/////AQAAAAAAAAAMAgAAAEtNZXNuYWMuQ29udHJvbHMuQmFzZSwgVmVyc2lvbj0xLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPW51bGwEAQAAAJMBU3lzdGVtLkNvbGxlY3Rpb25zLkdlbmVyaWMuTGlzdGAxW1tNZXNuYWMuQ29udHJvbHMuQmFzZS5EZXNpZ25BY3Rpb24sIE1lc25hYy5Db250cm9scy5CYXNlLCBWZXJzaW9uPTEuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49bnVsbF1dAwAAAAZfaXRlbXMFX3NpemUIX3ZlcnNpb24EAAAjTWVzbmFjLkNvbnRyb2xzLkJhc2UuRGVzaWduQWN0aW9uW10CAAAACAgJAwAAAAAAAAAAAAAABwMAAAAAAQAAAAAAAAAEIU1lc25hYy5Db250cm9scy5CYXNlLkRlc2lnbkFjdGlvbgIAAAAL</Binary>

Write Preview
Loading…
Cancel
Save