Select Case MSComm1.CommEvent '自动接收数据
Case comEvReceive
textreceive.Text = textreceive.Text + Trim(MSComm1.Input)
Case comEvSend
End Select
End Sub
Private Sub Opcom_Click(Index As Integer)
On Error Resume Next
MSComm1.PortOpen = False '选择串行口
MSComm1.CommPort = Index + 1
If MSComm1.PortOpen Then
MsgBox "COM2被用，请选COM1！", vbExclamation + vbOKOnly, "系统信息"
Exit Sub
Else
MSComm1.PortOpen = True
End If
End Sub
Private Sub txtSend_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii))) '按Enter键发送数据
If KeyAscii = 13 Then
MSComm1.Output = textsend.Text & Chr(13)
End If
图（2）
使用方法：
（1）运行软件，选择串口com1或com2。
（2）在参数设置下框设置波特率须与单片机设置相同，点击“参数设置”有效。
（3）在发送区输入字符，最后要以“%＃”为结束标志，再点击“发送”或按Enter键即可。正常情况下，在接收区和液晶屏上会同时显示出发送区输入的字符。
（4）、点击“清除”可清除接收区的所有字符；点击“结束”即退出本软件。
2、单片机汇编语言程序设计
单片机程序采用MCS－51的汇编语言编程。包括二部分：①．与微机的串口通讯软件。②．对字符液晶显示模块的显示控制软件。
（1）、程序设计如下：
RS BIT P3.4
R_W BIT P3.5
ENABLE BIT P3.3
DB0_DB7 DATA P1
ORG 0000H
LJMP START
ORG 0023H
LJMP UART1
ORG 0030H
START: CLR 00H ;清串行通讯结束标志位00H
MOV R0, #40H ;接收字符代码首地址为40H
MOV TMOD, #20H
MOV TH1, #0FDH ;设置波特率为9600
MOV TL1, #0FDH
MOV SCON, #50H ;设串行口方式1，允许接收
MOV IE, #90H ;允许串行口中断
SETB TR1
LOOP: JNB 00H, LOOP ;等待串行通讯结束
CLR ES ;关串行中断
本文关键字：暂无联系方式自动控制-单片机，电子制作 - 自动控制-单片机
