VB写一个串口发送代码，遇到一个问题，如何将文本中的字符串转化成16进制数据发送。 


       Dim bindate(200) As String 

       Dim senddata As String    ‘定义输入字符串变 

       senddata = Replace(TxtSend.Text, ” “, “”)    ‘已经将字符中间的空格都已经去掉了 

        Dim hexdate() As Byte 

        Dim I As Integer

   ReDim hexdate(0 To (Len(senddata) / 2 - 1))
         For I = 1 To (Len(senddata)) Step 2
            hexdate((I - 1) / 2) = Val("&H" + Mid(senddata, I, 2))
            Next I


转化后，hexdate数据如下图所示 


转化成功。

         最近在使用VB写一个自动化控制的程序时,碰到了下面的问题,在程序中我要将一串字符串命令通过串口发送到下位机,为了对发送/接收的数据进行更准确的判断,还使用了CRC16校验方法来对要发送的命令来进行校验, 即在命令的后面再加上2个字节的校验码,但在实际调试时却发现,下位机收到的2个字节的校验码均为0,心中对这个现象一直不解,出错的代码如下:
    Dim CRC16 As New CRCCom    'CRC16校验的COM组件
    Dim nCrcValue As Long
    cmdMsg = "1234567890"
    CRC16.GetCrc16Value cmdMsg, nCrcValue
    cmdMsg = cmdMsg & Chr(nCrcValue / 256) & Chr(nCrcValue Mod 256)
    
    MSC1.Settings = strBaud
    MSC1.CommPort = nPort
    MSC1.InputMode = comInputModeText
    MSC1.OutBufferCount = 0
    MSC1.PortOpen = True
    MSC1.Output = cmdMsg
        上面这段代码执行后,下位机收到的"1234567890"后面2个字节均为0,经过查阅资料,我发现Chr这个函数在转换大于128的数时,转换后就是变为0,难怪下位机老是报错,解决的办法有2种,一是使用VC来封装一个串口通讯的COM来完成串口通讯的工作,同时将数据校验也放在里面进行,VB程序只负责具体的命令和数据的处理,可是这个工作量不小,另一个办法是试一下MSComm控件能不能支持在已经打开串口之后随时变换发送的模式(即是采用文本模式还是二进制模式),如果可以的话我就可以先使用文本模式于是我想到了先使用文本模式将"1234567890"发送出去,然后再使用二进制模式将校验得到的2个字节以字节数组的方式发送出去,经过测试,果然可以这样进行,这就给了我很大的方便了,修改测试过后的代码如下:
    Dim CRC16 As New CRCCom    'CRC16校验的COM组件
    Dim nCrcValue As Long
    Dim byCrcValue(1) As Byte
    
    CRC16.GetCrc16Value cmdMsg, nCrcValue
    byCrcValue(0) = Chr(nCrcValue / 256)
    byCrcValue(1) = Chr(nCrcValue Mod 256)
    cmdMsg = "1234567890"
    CRC16.GetCrc16Value cmdMsg, nCrcValue
    cmdMsg = cmdMsg & Chr(nCrcValue / 256) & Chr(nCrcValue Mod 256)
    
    MSC1.Settings = strBaud
    MSC1.CommPort = nPort
    MSC1.OutBufferCount = 0
    MSC1.PortOpen = True
    MSC1.InputMode = comInputModeText
    MSC1.Output = cmdMsg
    MSC1.InputMode = comInputModeBinary
    MSC1.Output = byCrcValue

1. 串口通信需要Mscomm控件，通过vb部件进行加载。
2. 设置一下串口号码和波特率和停止位等传输协议。这个只要与下位机保持一直即可。
3. 然后用MSComm1.Output  和MSComm1.input 来进行输出和接收字符串
4. 无论是接收还是发送都有个缓存的问题。


如果希望自动接收下位机传上来的字符串。
需要加个timer控件  通过判断缓存的大小来输出结果。

串行接口是一种可以将接收来自CPU的并行数据字符转换为连续的串行数据流发送出去，同时可将接收的串行数据流转换为并行的数据字符供给CPU的器件。一般完成这种功能的电路，我们称为串行接口电路。
串口通信(Serial Communications)的概念非常简单，串口按位(bit)发送和接收字节。尽管比按字节(byte)的并行通信慢，但是串口可以在使用一根线发送数据的同时用另一根线接收数据。它很简单并且能够实现远距离通信。比如IEEE488定义并行通行状态时，规定设备线总长不得超过20米，并且任意两个设备间的长度不得超过2米；而对于串口而言，长度可达1200米。典型地，串口用于ASCII码字符的传输。通信使用3根线完成，分别是地线、发送、接收。由于串口通信是异步的，端口能够在一根线上发送数据同时在另一根线上接收数据。其他线用于握手，但不是必须的。串口通信最重要的参数是波特率、数据位、停止位和奇偶校验。对于两个进行通信的端口，这些参数必须匹配。
今天以C#与单片机串口通信实现上位机控制单片机的灯亮与灯灭，上位机接收来自单片机的数据，处理后实现计数功能并用柱状图显示出来。
1、部分代码如下：
上位机部分：
            chart1.Series.Clear();            chart1.ChartAreas.Clear();            ChartArea chartareas1 = new ChartArea();            Series series1 = new Series("1");            Series series2 = new Series("2");            Series series3 = new Series("3");            series1.BorderColor = Color.Red;            series1.Color = Color.Red;            series1.ChartType = SeriesChartType.Column;            series1.BorderWidth = 2;            series1.ShadowOffset = 2;            series2.BorderColor = Color.Yellow;            series2.Color = Color.Yellow;            series2.ChartType = SeriesChartType.Column;            series2.BorderWidth = 2;            series2.ShadowOffset = 2;            series3.BorderColor = Color.Green;            series3.Color = Color.Green;            series3.ChartType = SeriesChartType.Column;            series3.BorderWidth = 2;            series3.ShadowOffset = 2;            series1.Points.AddY(count_A);            series2.Points.AddY(count_B);            series3.Points.AddY(count_C);            chart1.Series.Add(series1);            chart1.Series.Add(series2);            chart1.Series.Add(series3);            chart1.ChartAreas.Add(chartareas1);
单片机程序：
#include #include #include #define uchar unsigned char//宏定义无符号字符型#define uint unsigned int  //宏定义无符号整型uint i=0;//取值变量uint j=0;uchar dat;uchar select;uchar wei[10]={0xfd,0xfc,0xfb,0xf5,0xee,0xde,0xbe,0x7e,0x80,0x90};  //位的控制端sbit P00=P0^0;sbit P01=P0^1;sbit P02=P0^2;sbit P03=P0^3;static bit key_bit = 0;/********************************************************************                            延时函数*********************************************************************/void delayms(uchar n){uchar m,s;for(m=n;m>0;m--)for(n=20;n>0;n--)for(s=248;s>0;s--);}/********************************************************************                功能:串口初始化,波特率9600，方式1*********************************************************************/void Init_Com(void){TMOD = 0x20;PCON = 0x00;SCON = 0x50;TH1 = 0xFd;TL1 = 0xFd;TR1 = 1;}/********************************************************************                            键盘取值函数*********************************************************************/void Keyin(uchar c){switch(c)  {    case '1':P00=0;break;    case '2':P01=0;break;    case '3':P02=0;break;    case '4':P00=0;P01=0;break;    case '5':P00=0;P02=0;break;case '6':P01=0;P02=0;break;case '7':P00=0;P01=0;P02=0;break;case '8':P0=0xff;break;    default:break;  }}/********************************************************************                            取键值函数 *********************************************************************/void read_key() { uchar temp;if((P2!=0xff)&&(!key_bit)){delayms(10);temp=P2;key_bit =1;}if((P2==0xff)&&(key_bit)){select=temp;key_bit =0;} }  /********************************************************************                          数据发送函数*********************************************************************/void RS232(uchar addrs) { SBUF=addrs; // while(!TI); // TI=0; // }  /********************************************************************                            发送键值函数*********************************************************************/void TXD_date() {   switch(select)   //发送数据  {case 0xfe:RS232('A');select=0;break;case 0xfd:RS232('B');select=0;break;case 0xfb:RS232('C');select=0;break;case 0xf7:RS232('D');select=0;break;case 0xef:RS232('E');select=0;break;case 0xdf:RS232('F');select=0;break;case 0xfc:RS232('a');select=0;break;case 0xfa:RS232('b');select=0;break;case 0xf9:RS232('c');select=0;break;default:break;   } }  void main(){ Init_Com(); //初始化 while(1){delayms(10); //延时等待  if(RI) //扫描判断是否接收到数据，  { dat = SBUF; //接收数据SBUF赋与datRI=0;Keyin(dat);}else{read_key();TXD_date();}}}
2、效果动画演示
3、完整代码较长，已上传网盘，需要源代码的请关注评论后私信发送“单片机”即可自动获取。感谢您的阅读和关注。