| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434 |
- using System;
- using System.Windows.Forms;
- using Curtain.Framework.Json;
- using Curtain.Net.Sockets.PLC;
- using Curtain.Net.Sockets.PLC.Model;
- using Curtain.Net.Sockets.PLC.Model.Melsec;
- namespace PLC_WF
- {
- public partial class F_PLC_M<TClientModel> : Form
- where TClientModel : IClientModel, new()
- {
- SocketClient<TClientModel> _client = null;
- public F_PLC_M()
- {
- InitializeComponent();
- _client = new SocketClient<TClientModel>();
- this.Text = typeof(TClientModel).Name;
- }
- private void btnConn_Click(object sender, EventArgs e)
- {
- if (_client != null)
- {
- _client?.Close();
- _client?.Dispose();
- _client = null;
- }
- _client = new SocketClient<TClientModel>();
- try
- {
- _client.Connect(this.txtIP.Text, int.Parse(this.txtPort.Text));
- this.txtMessage.Text = "OK";
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnClose_Click(object sender, EventArgs e)
- {
- _client?.Close();
- _client?.Dispose();
- _client = null;
- }
- private void btnClear_Click(object sender, EventArgs e)
- {
- this.txtMessage.Clear();
- }
- #region R
- private void btnR_bool_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<bool> rr = _client.Read<bool>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_byte_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<byte> rr = _client.Read<byte>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_short_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<short> rr = _client.Read<short>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_ushort_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<ushort> rr = _client.Read<ushort>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_int_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<int> rr = _client.Read<int>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_uint_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<uint> rr = _client.Read<uint>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_long_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<long> rr = _client.Read<long>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_ulong_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<ulong> rr = _client.Read<ulong>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_float_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<float> rr = _client.Read<float>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_double_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<double> rr = _client.Read<double>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnR_string_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult<string> rr = _client.Read<string>(this.txtCode.Text, txtNumber.Text, Convert.ToInt32(txtLength.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- #endregion
- #region W
- private void btnW_bool_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<bool>(this.txtW_Code.Text, txtW_Num.Text,
- ((string.IsNullOrWhiteSpace(txtW_Value.Text) || txtW_Value.Text == "0") ? false : true));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_byte_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<byte>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToByte(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_short_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<short>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToInt16(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_ushort_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<ushort>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToUInt16(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_int_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<int>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToInt32(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_uint_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<uint>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToUInt32(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_long_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<long>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToInt64(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_ulong_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<ulong>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToUInt64(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_float_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<float>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToSingle(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_double_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- PLCResult rr = _client.Write<double>(this.txtW_Code.Text, txtW_Num.Text, Convert.ToDouble(txtW_Value.Text));
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- private void btnW_string_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- //PLCResult rr = _client.Write<string>(txtW_Code.Text, txtW_Num.Text,
- // txtW_Value.Text, Convert.ToInt32(txtW_Len.Text));
- PLCResult rr = _client.Write<string>(txtW_Code.Text, txtW_Num.Text,
- txtW_Value.Text);
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- #endregion
- #region DO
- private void btnDo_Click(object sender, EventArgs e)
- {
- this.txtMessage.Text = null;
- try
- {
- if (sender is Button bb)
- {
- string s = this.textBox1.Text;
- PLCMessage cm = new PLCMessage();
- cm.Command = s;
- PLCResult<PLCMessage> rr = null;
- if (bb.Name == "btnDo")
- {
- rr = _client.DoCommand(cm);
- }
- else
- {
- //cm.Command = s;
- rr = _client.DoCommandOneWay(cm);
- //using (Socket socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp))
- //{
- // socket.Connect(this.txtIP.Text, int.Parse(this.txtPort.Text));
- // socket.Send(Encoding.ASCII.GetBytes(s));
- //}
- //this.txtMessage.Text = "ok";
- //return;
- }
- this.txtMessage.Text = JsonHelper.FromObject(rr);
- }
- }
- catch (Exception ex)
- {
- this.txtMessage.Text = ex.ToString();
- _client?.Close();
- }
- }
- #endregion
- }
- }
|