vb语言与单片机传送的数据格式(共5页)

1、Vb语言与单片机传送的数据格式详解作者：苏建伟郑州市 岳村镇 桥沟村 金利煤业 精密检测中心Vb语言，在用mscomm传送数据时，控件设置成以二进制方式传送，注意：单片机是不认识字符形式的，单片机收到的数据全是8位二进制数。 我们在用keil 编译单片机程序时，系统自动为我们翻译成8位十进制数。它的组成是： 1,2,4,8,16,32,64,128 。它们相加等于255.刚好是8位二进制数。255.Vb端：窗体添加 按钮1 按钮2 按钮3 text1 text2 mscomm按钮1Private Sub Command1_Click()Dim sd(0) As ByteDim d As Lon

2、g sd(0) = 255 - Val(Text1.Text)If MSComm1.PortOpen = True ThenMSComm1.Output = sdElsed = MsgBox(端口没有打开)End IfEnd Sub按钮3Private Sub Command3_Click() MSComm1.PortOpen = TrueEnd SubMscomm控件Private Sub MSComm1_OnComm()On Error Resume NextDim sde As VariantDim ds() As Bytesde = MSComm1.Inputds = sdeText2

3、 = ds(0)End Sub .在窗体text1中输入数字，它就以十进制形式原封发送出去。在单片机端： 打开keil输入代码：#include #define uchar unsigned char#define uint unsigned int uint h,d ; uchar sdfg; sbit lcdrs = P35 ; /p0口写数据 sbit lcden = P34 ; /rw接地。设为写状态。读状态rw=1.液晶屏我们只要能写就可以。不需要 sbit duan = P26 ; sbit wei = P27 ; void yanshi(uint qw1) uint q; uin

4、t w;for(w=qw1; w0;w-) for(q=50;q0;q-) ; /rs=1是数据。rs=0是命令。 void writhml(uchar yu) /写命令 lcdrs=0; P0=yu; yanshi(5); lcden=1; yanshi(5 );lcden=0; void writhsj(uchar yu) /写数据 lcdrs=1; P0=yu; yanshi(5); lcden=1; yanshi(5); lcden=0; void chuankou() /PCON=0x80;/pcon不能设置。80是波特率加倍。 /SM0=0;SM1=1;REN=1;TMOD=0X2

5、0;TH1=0XFD;TL1=0XFD;TR1=1;EA=1;ES=1;TI=0;RI=0; void dfg() interrupt 4 sdfg=SBUF; P1=sdfg; void inter() lcden=0; duan=0; wei=0; writhml(0x38);writhml(0x0c);writhml(0x06); writhml(0x01); writhml(0x80 ); / 清屏在初始化内容里边没用。 chuankou(); void main() inter(); while(1) if (RI=1) writhsj(255-sdfg); P1=sdfg； yanshi(1000); writhml(0x80 ); writhml(0x01); SBUF=sdfg;while(!TI); TI=0; RI=0; ; ; 这样你从电脑发出的数据就反扬在p1口和1602液晶上边。注意你的单片机板子，p1口要接上8位发光二极管。如果:你要让第一位亮，在电脑发送框，输入1，如果要让二位灯亮，输入2，三位输入4，四位亮输入8,五位亮输入16,如果让1602显示，查编码表，A的编码0x41，十进制数是16*4+1=65，在电脑端输入65，液晶屏就显示A。 记住一点：对做工控的人特别重要，电脑是以8个状态传送十进