pc机与单片机串行通信的问题？

用vb做上位软件，通过RS232接口和MCS-51的串口进行通信，哪位能为我提供源代码 便以100分相送 谢谢

热心网友

上面是单片机的 横线后面是VB的 如果你搞过的话 你应该能看明白void WRITE(void) {unsigned char i,h=0;TH1=246;PCON =0x80;TMOD=0x20;TCON=0x40;SCON=0Xd0;zd_busy=1;RS=1; while(1){ for(i=65;i<91;i++){void READ(void) {unsigned char i;TH1=246;PCON=0x80;TMOD=0x20;TCON=0x40;SCON=0XD0;zd_busy=1;RS=1; IE=0X90;while(1){ h=0; for(i=0;i<6;i++){//delay10ms( 1 );zd_busy=0; js(i); h++; } xians(); delay10ms( 300 ); LCDSTART(); // delay10ms( 10 ); }-----------------------------------------------------------------Private Sub MSComm1_OnComm() Select Case MSComm1。CommEvent '选择情况进行处理 ' 借着取代底下每一个 case 语句来处理每个事件与错误 ' 事件 Case comEvCD ' CD 线的状态发生变化。 Case comEvCTS ' CTS 线的状态发生变化。 Case comEvDSR ' DSR 线的状态发生变化。 Case comEvRing ' Ring Indicator 变化。 Case comEvReceive ' 收到 RThreshold # of txtReceive。Text = txtReceive。Text + Trim(MSComm1。Input) & vbCrLf Case comEvSend ' 传输缓冲区有 Sthreshold 个字符 ' End SelectEnd Subdelay10ms(10);zd_busy=0; FSsj(i);} FSsj(28); }}void FSsj(unsigned char A) { while(zd_busy); SBUF =A; while(!TI); TI=0; //zd_busy=1; } /*串行接受数据程序，让串行接受中断清零 等待其被 接受满后置位然对得到的数据进行存储*/ void js(unsigned char A) { //P2=0XFF; //zd_busy=00; //while(!zd_busy); zd_busy=1; zd_busy=0; RI=0; while(!RI); A=SBUF; zq[h]=A; zd_busy=1; }Public Sub SC1ZJ(B As Byte)Dim S(0) As ByteS(0) = BDo Until MSComm1。CTSHolding = True '等待BUSYLoopMSComm1。Output = SEnd Sub。

热心网友

仅仅有分是不够的！