OpenEdv-开源电子网

标题: 分享两个C#与VB.net串口例程 [打印本页]

---

作者: LcwSwust    时间: 2022-11-27 23:57
标题: 分享两个C#与VB.net串口例程
程序采用 Microsoft Visual Studio 2010 中的 Visual Basic 与 Visual C# 编写。
（二者界面的控件可直接复制，这功能很方便）
“串口助手_VBnet1.0”与“串口助手1.0”的功能较全，可通过分割条调节接收区与发送区的大小，
“多字符串发送”可通过文本输入框输入数字发送对应的指令。
“串口test_VB”与“串口test_C#”为简化版，只有基本的串口相关功能。
(, 下载次数: 0)

上传

点击文件名下载附件 (, 下载次数: 0)

上传

点击文件名下载附件
(, 下载次数: 18)

上传

点击文件名下载附件
(, 下载次数: 22)

上传

点击文件名下载附件
(, 下载次数: 31)

上传

点击文件名下载附件
(, 下载次数: 23)

上传

点击文件名下载附件
部分代码：

1. //--------------------------------------------------
   
2.         //发送字符串,tHex为true时字符串转为hex 来发送
   
3.         //--------------------------------------------------
   
4.         private void SendStr(string str, bool tHex)
   
5.         {
   
6.             int i, slen;
   
7.             int n;
   
8.             string str0, str1 = "", str2 = "";
   
9.             byte[] txbuf = { };
   
10.             slen = 0;
    
11.             n = 0;
    
12.             if (str == "") return;
    
13.             if (SerialPort1.IsOpen == false) return;
    
14.             if (tHex == true)//hex 发送
    
15.             {
    
16.                 for (i = 0; i < str.Length; i++)
    
17.                 {
    
18.                     //if (((str[i] >= '0') && (str[i] <= '9')) || ((str[i] >= 'a') && (str[i] <= 'f'))|| ((str[i] >= 'A') && (str[i] <= 'F')))//提取16进制字符         
    
19.                     if (isHex(str[i]) == true)
    
20.                     {
    
21.                         str1 = str1 + str[i];
    
22.                         n++;
    
23.                     }
    
24.                     else//处理只有一个字符的情况如：1 23 4 56
    
25.                     {
    
26.                         if (n == 1)
    
27.                         {
    
28.                             n++;
    
29.                         }
    
30.                     }
    
31.                     if (i == (str.Length - 1))//结尾单个字符的情况：12 3
    
32.                     {
    
33.                         if (n == 1)
    
34.                         {
    
35.                             n++;
    
36.                         }
    
37.                     }
    
38.                     if (n >= 2)//两个字符之后添加空格
    
39.                     {
    
40.                         str2 = str2 + str1 + " ";
    
41.                         n = 0;
    
42.                         str1 = "";
    
43.                     }
    
44.                 }
    
45.                 if (str2.Length > 0)//有数据才发送
    
46.                 {
    
47.                     string[] s = str2.Trim().Split(' ');
    
48.                     txbuf = new byte[s.Length];
    
49.                     for (i = 0; i < s.Length; i++)//16进制字符串转数组
    
50.                     {
    
51.                         txbuf[i] = Convert.ToByte(s[i], 16);
    
52.                     }
    
53.                 }
    
54.             }
    
55.             else//字符串发送
    
56.             {
    
57.                 txbuf = System.Text.Encoding.GetEncoding("Gb2312").GetBytes(str);
    
58.             }
    
59.             if (txbuf.Length > 0)//长度大于0才发
    
60.             {
    
61.                 SerialPort1.Write(txbuf, 0, txbuf.Length);
    
62.                 n_txd = (n_txd + txbuf.Length) ;// '防溢出
    
63.                 LabTxn.Text = n_txd.ToString();
    
64.             }
    
65.         }
    
66. //串口接收中断
    
67.         private void UartRx()
    
68.         {
    
69.             int i, n, r;
    
70.             string apdstr = "", s1 = "";
    
71.             byte[] rbuf = { };
    
72.             //serialPort1.ReadByte();读单字节
    
73.             n = SerialPort1.BytesToRead;
    
74.             rbuf = new byte[n];
    
75.             SerialPort1.Read(rbuf, 0, n);//读多字节
    
76.             //直接转换文本，如果中文断帧则会乱码
    
77.             //TextBox1.AppendText(System.Text.Encoding.GetEncoding("Gb2312").GetString(rbuf))
    
78.             //为便于处理中文，添加状态机处理
    
79.             for (i = 0; i < n; i++)
    
80.             {
    
81.                 //TxtRxd.AppendText(rbuf[i].ToString() );
    
82.                 r = rbuf[i];               
    
83.                 rec_hex1 = rec_hex1 + r.ToString("X2") + " ";
    
84. 
    
85.                 if (u_rcha > 0)// '中文低字节
    
86.                 {
    
87.                     r = u_rcha * 256 + r;
    
88.                     rec_str1 = rec_str1 + Asc2C(r); //(char)(r);
    
89.                     u_rcha = 0;
    
90.                 }
    
91.                 else
    
92.                 {
    
93.                     if (r < 128)//'英文
    
94.                     {                        
    
95.                         rec_str1 = rec_str1 + (char)r;// Convert.ToString(r);
    
96.                     }
    
97.                     else //'中文高字节
    
98.                     {
    
99.                         u_rcha = r;
    
100.                     }
     
101.                 }
     
102.             }
     
103.             //'-------------------------存储收到的字符串            
     
104.             rec_hex = rec_hex + rec_hex1;            
     
105.             rec_str = rec_str + rec_str1;            
     
106.             n_rxd = (n_rxd + n) ;
     
107.             LabRxn.Text = n_rxd.ToString();
     
108.             //'-------------------------添加当前字符串到TxtRxd
     
109.             if (ChkRhex.Checked == true)//'hex显示
     
110.                 apdstr = rec_hex1; //'TxtRxd.AppendText(rec_hex1)
     
111.             else
     
112.                 apdstr = rec_str1; //'TxtRxd.AppendText(rec_str1)
     
113.             TxtRxd.AppendText(apdstr);//添加到末尾            
     
114.         }

复制代码

1. '--------------------------------------------------
   
2.     '发送字符串,tHex为true时字符串转为hex 来发送
   
3.     '--------------------------------------------------
   
4.     Private Sub SendStr(ByRef str As String, ByVal tHex As Boolean)
   
5.         Dim slen As Long '要发送的长度
   
6.         'Dim ts As Long
   
7.         Dim state As Integer
   
8.         Dim i As Long
   
9.         Dim str0 As String, str1 As String = "", str2 As String = ""
   
10.         slen = 0
    
11.         state = 0
    
12. 
    
13.         If str = "" Then Exit Sub '字符串为空,不处理
    
14.         If SerialPort1.IsOpen = False Then Exit Sub '串口没打开，不处理
    
15. 
    
16.         If tHex = True Then  'hex 发送
    
17.             '将字符串中的HEX存入str1
    
18.             'ts = DateTime.Now.Millisecond
    
19.             ReDim u_txbuf((str.Length + 1) / 2)
    
20.             For i = 0 To str.Length - 1 '16进制字符串转数组
    
21.                 str0 = str.Substring(i, 1)
    
22.                 Select Case state
    
23.                     Case 0
    
24.                         If isHex(str0) = True Then
    
25.                             u_txbuf(slen) = Val("&H" & str0)
    
26.                             slen = slen + 1 '只要有一个字符就长度加1
    
27.                             state = 1
    
28.                         End If
    
29.                     Case 1
    
30.                         If isHex(str0) = True Then
    
31.                             u_txbuf(slen - 1) = u_txbuf(slen - 1) * 16 + Val("&H" & str0) '上一字符乘16加本字符
    
32.                         End If
    
33.                         state = 0
    
34.                 End Select
    
35.             Next
    
36.             ReDim Preserve u_txbuf(slen - 1)
    
37.             'Debug.Print("转换时间：" & DateTime.Now.Millisecond - ts)
    
38.             'u_txbuf = {}
    
39.         Else    '字符串发送
    
40.             u_txbuf = System.Text.Encoding.GetEncoding("Gb2312").GetBytes(str)
    
41.         End If
    
42. 
    
43.         If u_txbuf.Length > 0 Then '长度大于0才发
    
44.             SerialPort1.Write(u_txbuf, 0, u_txbuf.Length)
    
45.             'n_txd += u_txbuf.Length
    
46.             n_txd = (n_txd + u_txbuf.Length) And &H6FFFFFFF '防溢出
    
47.             LabTxn.Text = n_txd
    
48.         End If
    
49.     End Sub
    
50. '接收中断
    
51.     Private Sub uartint(ByVal sender As Object, ByVal e As EventArgs)
    
52.         Dim n As Integer, i As Integer, r As Integer
    
53.         Dim apdstr As String
    
54.         rec_hex1 = ""
    
55.         rec_str1 = ""
    
56.         n = SerialPort1.BytesToRead
    
57.         Dim rbuf(0 To n - 1) As Byte
    
58.         SerialPort1.Read(rbuf, 0, n) '批量读取
    
59.         n_rxd = (n_rxd + n) '接收计数
    
60.         LabRxn.Text = n_rxd
    
61.         '如果中文高低字节间有分包，直接转码是会有乱码的
    
62.         'TextBox1.AppendText(System.Text.Encoding.GetEncoding("Gb2312").GetString(rbuf))
    
63.         '利用状态机处理中文
    
64.         For i = 0 To n - 1
    
65.             r = rbuf(i)
    
66.             rec_hex1 = rec_hex1 & Strings.Right("0" & Hex(rbuf(i)), 2) & " " '数据转HEX字符串
    
67.             If u_rcha > 0 Then '中文低字节
    
68.                 r = u_rcha * 256 + r
    
69.                 rec_str1 = rec_str1 & Chr(r)
    
70.                 u_rcha = 0
    
71.             Else
    
72.                 If r < 128 Then '英文                    
    
73.                     rec_str1 = rec_str1 & Chr(r)
    
74.                 Else '中文高字节
    
75.                     u_rcha = r
    
76.                 End If
    
77.             End If
    
78.         Next
    
79.         rec_hex = rec_hex & rec_hex1 '记录HEX
    
80.         rec_str = rec_str & rec_str1 '记录文本
    
81.         '-------------------------添加当前字符串到TxtRxd
    
82.         If ChkRhex.Checked = True Then 'hex显示
    
83.             apdstr = rec_hex1 'TxtRxd.AppendText(rec_hex1)
    
84.         Else
    
85.             apdstr = rec_str1 'TxtRxd.AppendText(rec_str1)
    
86.         End If
    
87.         TxtRxd.AppendText(apdstr) '添加到文本框
    
88.     End Sub

复制代码

---

作者: 驭剑的秘密    时间: 2022-11-29 17:08
请问一下1.0 C#的那个，自动发送是用什么实现的？

---

作者: LcwSwust    时间: 2022-11-29 17:24

驭剑的秘密 发表于 2022-11-29 17:08
请问一下1.0 C#的那个，自动发送是用什么实现的？

定时器调用“发送”按钮的函数

---

作者: 驭剑的秘密    时间: 2022-11-29 17:54

LcwSwust 发表于 2022-11-29 17:24
定时器调用“发送”按钮的函数

(, 下载次数: 0)

上传

点击文件名下载附件 请问一下这样报错是因为什么？

---

作者: LcwSwust    时间: 2022-11-29 19:23

驭剑的秘密 发表于 2022-11-29 17:54
请问一下这样报错是因为什么？

我这边没问题
(, 下载次数: 0)

上传

点击文件名下载附件

---

欢迎光临 OpenEdv-开源电子网 (https://www.openedv.com/)

Powered by Discuz! X3.4