现在我不会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