月亮 

 求教:vb与单片机通讯~~(好几个论坛都不理我~呜~~)

此主题相关图片如下：

求教:vb与单片机通讯~~
请教那位老师帮我编个简单VB程序.谢谢.yuelianglaing@21cn.com
 VB程序一运行,把TEXT1的十进制01发送给串口,
              并把串口接受到的数显示到TEXT2.
              延时500ms后再从头执行.
 单片机:等待串口中断,串口接受到01后,P1.1LED灯亮
        并把#88送到串口.

    现在我不会VB编程序,单片机程序如下:
       ORG     00H
        AJMP    MAIN
        ORG     30H
 MAIN:
        MOV     SP,#5FH
        CALL    RS232
 WAIT:
        CPL     P1.1
        JNB     RI,WAIT
        CLR     RI
        CPL     P1.1
        MOV     R5,#25
        ACALL   DELAYNS
        MOV    A,#88H
        MOV     SBUF,A
        JNB     TI,$
        CLR     TI
        JMP     WAIT
 ;；1200BPS
 RS232:
        MOV     TMOD,#20H
        MOV     TH1,#0E8H
        SETB    TR1
        MOV     SCON,#01010000B
        RET
 DELAYNS:
        MOV     R6,#100
 DELAYN:
        MOV     R7,#100
        DJNZ    R7,$
        DJNZ    R6,DELAYN
        DJNZ    R5,DELAYNS
        RET               
        END
以上.谢谢.

发表时间:2004年11月6日0:33:52