程序如下：
ORG 0000H;单片机与PC的串口通信实验2010，9，21
LJMP START
ORG 0023H
LJMP UARTInterrupt
START:
MOV SP,#60H
LCALL InitUART
MOV DPTR,#TAB
LOOP:MOV R0,#8
MOV R3,#00H
L: MOV A,R3
MOVC A,@A+DPTR
LCALL SendOneByte ;add your code here!
INC R3
DJNZ R0,L
LJMP LOOP
InitUART:;初始化串口；波特率9600；定时器1；方式2；
MOV TMOD,#20H
MOV SCON,#50H
MOV TH1,#0FDH
MOV TL1,TH1
MOV PCON,#00H
SETB EA
SETB ES
SETB TR1
RET
UARTInterrupt:
JB RI,IsUART_Receive;查接收标志是接收？发送？为1表示是接收中断相应的，反之为发送，因为无论发收都会触发中断
CLR TI ;为0，表示不是接收中断，儿时发完了
RETI
IsUART_Receive: ;接收数据
CLR RI
PUSH ACC
MOV A,SBUF
;========================
MOV P0,A
;========================
POP ACC
RETI
SendOneByte: ;发送数据
CLR ES
CLR TI
MOV SBUF,A
WaitSendFinish:
JNB TI,WaitSendFinish
CLR TI
SETB ES
RET
TAB:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H
END
上位机：Private Sub Command1_Click()
Dim aa$
MSComm1.Output = Text2.Text
aa = MSComm1.Input
Text1.Text = aa
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 7
MSComm1.PortOpen = True
End Sub
硬件方面：RS-232数据通信线一根；MCU×8×LED；FOSC=11.0592M；
软件方面：vb-MSCOOM控件界面做上位机；
亮点：第一次真实体验到原来电脑数据近在咫尺，原来键盘的数据是用ASCII吗啊
结论：下一步向协议发展
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
