c. PortOpen:打开或关闭串行端口.
d. RThreshold:该属性为一阀值,它确定当接收缓冲区内字节个数达到或超过该值后就产生MSComml--OnComm事件.
e. Input:从接收缓冲区移走一串字符.
f. Output:向发送缓冲区传送一字符串.
2)CommEvent属性
如果在通讯过程中发生错误或事件,就会引发OnComm事件并由CommEvent属性代码反映错误类型,可根据该属性值来执行不同的程序操作或数据处理.以下是部分属性常数值及其含义:
a. ComEvSend:其值为1,发送缓冲区的内容少于SThreshold指定的值.
b. ComEvReceive:其值为2,接收缓冲区内字符数达到RThreshold值,该事件在缓冲区中数据被移走前将持续产生.
c. ComEventRxParity:其值为1009,奇偶校验.
d. ComEvEOF:其值为7,接收数据中出现文件结束字符
3 PC机与单片机主程序设计
3.1单片机的串口控制
单片机串口控制较为简单,此处只给出初始化程序:
MOV TL1,#0E8H
MOV TH1 , # 0E8H; 定时器时间常数
MOV TMOD, # 20H; 定时器Tl工作方式2
MOV SCON, # 50H; 串行口方式1
SETB TRl ; 定时器开始工作
MOV IE, # 90H; 允许串行口中断
MOV SBUF,A; 串行数据发送


3.2地址信息,要求单片机接收极限值设置信息的发送
Private Sub mnN1_Click()
MSComml. PortOpen=True '打开通讯端口
MSComml. RTSEnable=False'置通讯端口为发送状态
MSComml. Settings="2400,m,8,1"'奇偶校验位置1,发送地址信息
MSComml. OutBufferCount = 0'清发送缓冲区
MSComml. output= 1 '发送单片机机地址信息
MSComml. Settings=2400,s,8,1 奇偶校验位置0,
发送数据信息
MSComml.Output= " "发送要求单片机接收极限值设置信息
End Sub
3.3数据信息(应答信息)的接收
Private Sub cmdrecvans_Click()'接收应答信息,初始化MSComm
MSComm1.InBufferCount = 0'接收缓冲区
MSComml. RThreshold= 2'设置接收数据的长度
MSComml. RTSEnable= True'置为接收状态
Timer. Enabled=True
End Sub
Private Sub Timer_Click()

上一页下一页