TCP使用TcpClient连接发送指令


       //全局
       TcpClient tclient;

        /// <summary>
        /// 打开TCP连接
        /// </summary>
        /// <param name="ip">操作设备ip</param>
        /// <param name="port">操作设备端口</param>
        /// <returns></returns>
        public bool OpenTcp(string ip, string port)
        {
            try
            {
                tclient = new TcpClient();
                tclient.Connect(ip, Convert.ToInt32(port));
                return true;
            }
            catch (Exception ex)
            {
                return false;
            }
        }

        /// <summary>
        /// 关闭TCP连接
        /// </summary>
        /// <returns></returns>
        public bool CloseTcp()
        {
            try
            {
                if (tclient!=null)
                {
                    tclient.Close();
                }
                return true;
            }
            catch (Exception)
            {

                return false;
            }
        }

      /// <summary>
        /// 发送显示的数据
        /// </summary>
        /// <param name="numberValue">要显示的数据,最大不可超过四位数</param>
        /// <returns></returns>
        public bool SendNumber(int numberValue)
        {
            try
            {
                string value = string.Empty;
                if (numberValue < 10)
                {
                    value = "99 01 02 00 0" + numberValue;
                }
                if (numberValue >= 10 && numberValue < 100)
                {
                    value = "99 01 02 00 " + numberValue;
                }
                if (numberValue >= 100)
                {
                    var stri = Convert.ToString(numberValue);
                    stri = stri.Insert(1, " ");
                    value = "99 01 02 0" + stri;
                }
                if (numberValue >= 1000)
                {
                    var stri = Convert.ToString(numberValue);
                    stri = stri.Insert(2, " ");
                    value = "99 01 02 0" + stri;
                }
                byte[] data = HexStringToBytes(value);
                NetworkStream ns = tclient.GetStream();
                ns.Write(data, 0, data.Length);
                return true;
            }
            catch (Exception ex)
            {
                return false;
            }
        }
        /// <summary>
        /// 发送语音播报
        /// </summary>
        /// <param name="broadcastValue">要播报的语音</param>
        /// <returns></returns>
        public bool SendBroadcast(string broadcastValue)
        {
            //语音发送
            try
            {
                string voice = "#" + (broadcastValue);
                byte[] buf = Encoding.Default.GetBytes(voice);
                NetworkStream ns1 = tclient.GetStream();
                ns1.Write(buf, 0, buf.Length);
                return true;
            }
            catch (Exception)
            {

                return false;
            }
        }
        /// <summary>
        /// 十六进制转换
        /// </summary>
        /// <param name="value"></param>
        /// <returns></returns>
        private static byte[] HexStringToBytes(string value)
        {
            string[] strArr = value.Trim().Split(' ');
            byte[] b = new byte[strArr.Length];
            //逐个字符变为16进制字节数据
            for (int i = 0; i < strArr.Length; i++)
            {
                b[i] = Convert.ToByte(strArr[i], 16);
            }
            //按照指定编码将字节数组变为字符串
            return b;
        }
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB.NET是一种高级的编程语言,可以用它来访问Modbus TCPIP通信协议。Modbus TCPIP是一种常用的工业通讯协议,常用于PLC和其他设备之间进行通信。在VB.NET中,我们可以使用Modbus TCP类库来轻松地实现Modbus TCPIP通信。在本文中,我们将探讨如何使用VB.NET来实现Modbus TCPIP通信以及如何使用Modbus TCP类库来实现这一过程。 1.引入Modbus TCP类库 Modbus TCP类库包含了许多关于Modbus TCP通信的类、方法和属性等。要使用这个类库,我们需要将其添加到我们的VB.NET项目中。我们可以从Nuget上安装ModbusTCP.dll包来引入这个类库。 2.连接到Modbus服务器 在VB.NET中,我们可以使用一个叫做TcpClient的类来连接到Modbus服务器,如下所示: Dim client as New TcpClient("192.168.1.1", 502) 如果连接成功,我们可以使用这个客户端来发送和接收Modbus TCPIP数据。如果连接失败,我们需要处理异常或者重新连接。 3.发送Modbus TCPIP指令 Modbus TCPIP协议将数据交换定义为读或写操作,并且每个操作都指定了一个数据地址和数据长度。我们可以使用Modbus TCP类库的Write方法来发送Modbus TCPIP指令,如下所示: Dim cmd as New WriteMultipleCoilsRequest(1, 0, {True, False, True}, 3) client.GetStream().Write(cmd.MessageFrame, 0, cmd.MessageFrame.Length) 上面的代码将向Modbus服务器发送一个指令,该指令将地址1处的3个连续线圈写为True、False、True。发送指令后,我们可以使用Read方法来读取Modbus服务器返回的数据。 4.接收Modbus TCPIP响应 Modbus TCPIP响应包含了指令的执行结果和相关数据。我们可以使用Modbus TCP类库的Read方法来接收Modbus TCPIP响应,如下所示: Dim rsp as ModbusTCP.Message.IMessage rsp = ModbusTCP.Message.ReadResponse(client.GetStream()) 如果响应成功,我们可以从响应中获取相关数据,如: Dim coils() as Boolean = DirectCast(rsp.Data, ModbusTCP.Message.ReadCoilsResponse).Data 上面的代码将获取Modbus服务器返回数据中的线圈值,并存储在一个Boolean数组中。 总之,VB.NET是一种非常强大的编程语言,可以用来实现复杂的Modbus TCPIP通信任务。使用Modbus TCP类库可以轻松地发送和接收Modbus TCPIP指令和响应,因此我们可以在开发PLC、控制器等设备的应用程序时,更加方便地实现数据交换。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值