用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。

熱心網友

僅僅有分是不夠的！