FrmFirstWindow.cs 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321
  1. using Sunny.UI;
  2. using System;
  3. using System.Collections.Generic;
  4. using System.ComponentModel;
  5. using System.Data;
  6. using System.Drawing;
  7. using System.Linq;
  8. using System.Text;
  9. using System.Threading.Tasks;
  10. using System.Windows.Forms;
  11. using System.Xml.Linq;
  12. namespace HRT_Measure
  13. {
  14. public partial class FrmFirstWindow : Form
  15. {
  16. public FrmFirstWindow()
  17. {
  18. InitializeComponent();
  19. }
  20. PLCResultHelp resultHelp = new PLCResultHelp();
  21. private void FrmFirstWindow_Load(object sender, EventArgs e)
  22. {
  23. splitContainerMain.SplitterDistance = 367;
  24. uchmiM01M02.thMonitor.Start(); uchmiM03.thMonitor.Start(); uchmiM04M05.thMonitor.Start();
  25. timer1.Enabled = true;
  26. }
  27. private void btn清料_Click(object sender, EventArgs e)
  28. {
  29. try
  30. {
  31. ProgramHelp.Instance.commPLC_M01M02.WriteCoin("DB20.496.0", !PLCResultHelp.isM01_清料, out string str);
  32. }
  33. catch (Exception ex)
  34. {
  35. MessageBox.Show(ex.ToString());
  36. }
  37. }
  38. private void btn称重开始_Click(object sender, EventArgs e)
  39. {
  40. try
  41. {
  42. ProgramHelp.Instance.commPLC_M01M02.WriteCoin("DB136.502.4", !PLCResultHelp.isM01_称重开始, out string str);
  43. }
  44. catch (Exception ex)
  45. {
  46. MessageBox.Show(ex.ToString());
  47. }
  48. }
  49. private void btnClearPressure_Click(object sender, EventArgs e)
  50. {
  51. try
  52. {
  53. ProgramHelp.Instance.comm压机.WriteShort(ReadPLCHelp.dictPressure["工件计数"].Address, 0, out string str);
  54. }
  55. catch (Exception ex)
  56. {
  57. MessageBox.Show(ex.ToString());
  58. }
  59. }
  60. private void btnAllowLayOff_Click(object sender, EventArgs e)
  61. {
  62. try
  63. {
  64. ProgramHelp.Instance.commPLC_M04M05.WriteCoin(ReadPLCHelp.dictM04["允许下料"], !PLCResultHelp.isM04_允许下料, out string str);
  65. }
  66. catch (Exception ex)
  67. {
  68. MessageBox.Show(ex.ToString());
  69. }
  70. }
  71. private void timer1_Tick(object sender, EventArgs e)
  72. {
  73. try
  74. {
  75. //M01
  76. txt药A暂存当前盒数.Text = resultHelp.M01_药A暂存当前盒数.ToString();
  77. txt药B暂存当前盒数.Text = resultHelp.M01_药B暂存当前盒数.ToString();
  78. txt抛盖暂存槽当前数量.Text = resultHelp.M01_抛盖暂存槽当前数量.ToString();
  79. txt空桶暂存槽当前数量.Text = resultHelp.M01_空桶暂存槽当前数量.ToString();
  80. btn清料.FillColor = PLCResultHelp.isM01_清料 ? Color.Green : Color.Gray;
  81. btn称重开始.FillColor = PLCResultHelp.isM01_称重开始 ? Color.Green : Color.Gray;
  82. //M02
  83. txt药A称重配比重量.Text = resultHelp.M02_药A称重配比重量.ToString();
  84. txtA料仓1当前重量.Text = (Convert.ToSingle( resultHelp.M02_A料仓1当前重量) / 100).ToString("f3");
  85. txtA料仓2当前重量.Text = (Convert.ToSingle(resultHelp.M02_A料仓2当前重量) / 100).ToString("f3");
  86. txtA料仓3当前重量.Text = (Convert.ToSingle(resultHelp.M02_A料仓3当前重量) / 100).ToString("f3");
  87. txtA料仓4当前重量.Text = (Convert.ToSingle(resultHelp.M02_A料仓4当前重量) / 100).ToString("f3");
  88. txtA料仓5当前重量.Text = (Convert.ToSingle(resultHelp.M02_A料仓5当前重量) / 100).ToString("f3");
  89. txt药B称重配比重量.Text = resultHelp.M02_药B称重配比重量.ToString();
  90. txtB料仓1当前重量.Text = (Convert.ToSingle(resultHelp.M02_B料仓1当前重量) / 100).ToString("f3");
  91. txtB料仓2当前重量.Text = (Convert.ToSingle(resultHelp.M02_B料仓2当前重量) / 100).ToString("f3");
  92. txtB料仓3当前重量.Text = (Convert.ToSingle(resultHelp.M02_B料仓3当前重量) / 100).ToString("f3");
  93. txtB料仓4当前重量.Text = (Convert.ToSingle(resultHelp.M02_B料仓4当前重量) / 100).ToString("f3");
  94. txtB料仓5当前重量.Text = (Convert.ToSingle(resultHelp.M02_B料仓5当前重量) / 100).ToString("f3");
  95. //M04
  96. btnAllowLayOff.FillColor = PLCResultHelp.isM04_允许下料 ? Color.Green : Color.Gray;
  97. txtCurrentHeight.Text = PLCResultHelp.fM04_当前检测高度.ToString("f2");
  98. txtCurrentWeight.Text = PLCResultHelp.fM04_当前重量.ToString("f2");
  99. //M05
  100. txt箱数.Text = resultHelp.M05_箱数.ToString();
  101. //压机
  102. foreach (var item in grbPressure.Controls)
  103. {
  104. if (item is UITextBox)
  105. {
  106. try
  107. {
  108. string name = (((UITextBox)item).Name).Remove(0,3);
  109. if (name == "当前动作")
  110. {
  111. switch (Convert.ToInt32(ReadPLCHelp.dictPressure[name].value))
  112. {
  113. case 0:
  114. ((UITextBox)item).Text = "尚未进入自动流程";
  115. break;
  116. case 1:
  117. ((UITextBox)item).Text = "快顶";
  118. break;
  119. case 2:
  120. ((UITextBox)item).Text = "慢顶";
  121. break;
  122. case 3:
  123. ((UITextBox)item).Text = "保压";
  124. break;
  125. case 4:
  126. ((UITextBox)item).Text = "泄压";
  127. break;
  128. case 5:
  129. ((UITextBox)item).Text = "下降";
  130. break;
  131. }
  132. }
  133. else if (name == "操作提示")
  134. {
  135. switch (Convert.ToInt32(ReadPLCHelp.dictPressure[name].value))
  136. {
  137. case 1:
  138. ((UITextBox)item).Text = "调整,请给出命令";
  139. break;
  140. case 2:
  141. ((UITextBox)item).Text = "调整,油缸已经上升到位";
  142. break;
  143. case 3:
  144. ((UITextBox)item).Text = "调整,油缸已经下降到位";
  145. break;
  146. case 4:
  147. ((UITextBox)item).Text = "手动,请给出命令";
  148. break;
  149. case 5:
  150. ((UITextBox)item).Text = "手动,油缸已经上升到位";
  151. break;
  152. case 6:
  153. ((UITextBox)item).Text = "手动,油缸已经下降到位";
  154. break;
  155. case 7:
  156. ((UITextBox)item).Text = "本地自动,步骤0,请把油缸退到下极限";
  157. break;
  158. case 8:
  159. ((UITextBox)item).Text = "本地自动,步骤0,请按下双手启动按钮";
  160. break;
  161. case 9:
  162. ((UITextBox)item).Text = "本地自动,步骤1,等待到达慢顶位置";
  163. break;
  164. case 10:
  165. ((UITextBox)item).Text = "本地自动,步骤2,等待到达压力/位置上限";
  166. break;
  167. case 11:
  168. ((UITextBox)item).Text = "本地自动,步骤3,等待保压计时完成";
  169. break;
  170. case 12:
  171. ((UITextBox)item).Text = "本地自动,步骤4,等待泄压计时完成";
  172. break;
  173. case 13:
  174. ((UITextBox)item).Text = "本地自动,步骤5,等待油缸到达下极限位置";
  175. break;
  176. case 14:
  177. ((UITextBox)item).Text = "本地自动,已暂停";
  178. break;
  179. case 20:
  180. ((UITextBox)item).Text = "联机自动,步骤0,请手动把油缸退到下极限";
  181. break;
  182. case 21:
  183. ((UITextBox)item).Text = "联机自动,步骤0,等待PLC给出第1次顶出命令";
  184. break;
  185. case 22:
  186. ((UITextBox)item).Text = "联机自动,步骤0,型号2,等待PLC给出第2次顶出命令";
  187. break;
  188. case 23:
  189. ((UITextBox)item).Text = "联机自动,步骤0,等待PLC给出第2次顶出命令";
  190. break;
  191. case 24:
  192. ((UITextBox)item).Text = "联机自动,步骤0,型号2,等待PLC给出第3次顶出命令";
  193. break;
  194. case 25:
  195. ((UITextBox)item).Text = "联机自动,步骤1,等待到达慢顶位置";
  196. break;
  197. case 26:
  198. ((UITextBox)item).Text = "联机自动,步骤2,等待到达压力/位置上限";
  199. break;
  200. case 27:
  201. ((UITextBox)item).Text = "联机自动,步骤3,等待保压计时完成";
  202. break;
  203. case 28:
  204. ((UITextBox)item).Text = "联机自动,步骤4,等待PLC给出下降命令";
  205. break;
  206. case 29:
  207. ((UITextBox)item).Text = "联机自动,步骤4,等待泄压计时完成";
  208. break;
  209. case 30:
  210. ((UITextBox)item).Text = "联机自动,步骤5,等待油缸到达下极限位置";
  211. break;
  212. case 31:
  213. ((UITextBox)item).Text = "联机自动,已暂停";
  214. break;
  215. case 40:
  216. ((UITextBox)item).Text = "联机自动,已暂停";
  217. break;
  218. case 41:
  219. ((UITextBox)item).Text = "请选择合法的操作模式";
  220. break;
  221. default:
  222. ((UITextBox)item).Text = "";
  223. break;
  224. }
  225. }
  226. else if (name == "当前模式提示")
  227. {
  228. switch (Convert.ToInt32(ReadPLCHelp.dictPressure[name].value))
  229. {
  230. case 0:
  231. ((UITextBox)item).Text = "无模式";
  232. break;
  233. case 1:
  234. ((UITextBox)item).Text = "调整模式";
  235. break;
  236. case 2:
  237. ((UITextBox)item).Text = "手动模式";
  238. break;
  239. case 3:
  240. ((UITextBox)item).Text = "半自动模式";
  241. break;
  242. case 4:
  243. ((UITextBox)item).Text = "联机模式";
  244. break;
  245. default:
  246. ((UITextBox)item).Text = "";
  247. break;
  248. }
  249. }
  250. else if (name == "当前产品型号")
  251. {
  252. string model = ReadPLCHelp.dictPressure[name].value;
  253. if (model == "0")
  254. ((UITextBox)item).Text = "型号非法";
  255. else
  256. ((UITextBox)item).Text = "产品型号" + model;
  257. }
  258. else
  259. {
  260. ((UITextBox)item).Text = ReadPLCHelp.dictPressure[name].value;
  261. }
  262. }
  263. catch (Exception)
  264. {
  265. }
  266. }
  267. }
  268. }
  269. catch (Exception)
  270. {
  271. }
  272. }
  273. private void FrmFirstWindow_FormClosing(object sender, FormClosingEventArgs e)
  274. {
  275. try
  276. {
  277. uchmiM01M02.timer1.Enabled = false;
  278. uchmiM03.timer1.Enabled = false;
  279. uchmiM04M05.timer1.Enabled = false;
  280. try
  281. {
  282. uchmiM01M02.thMonitor.Abort();
  283. }
  284. catch { }
  285. try
  286. {
  287. uchmiM03.thMonitor.Abort();
  288. }
  289. catch { }
  290. try
  291. {
  292. uchmiM04M05.thMonitor.Abort();
  293. }
  294. catch { }
  295. }
  296. catch (Exception)
  297. {
  298. }
  299. }
  300. private void cob产品型号选择_SelectedIndexChanged(object sender, EventArgs e)
  301. {
  302. string name = "当前产品型号";
  303. int strValue = cob产品型号选择.SelectedIndex + 1;
  304. ProgramHelp.Instance.comm压机.WriteShort(ReadPLCHelp.dictPressure[name].Address, Convert.ToInt16(Convert.ToSingle(strValue) / ReadPLCHelp.dictPressure[name].Scale), out string str);
  305. }
  306. }
  307. }