原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
串行通讯问题
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑-100REM串行控制。由TBLIN@163.NET编
DOS环境下的程序可用BASIC(BASICA),C(TC,BC):
写150
TXD$=ABCDEFG200D$=:数据已接收。210
OPENCOM2:9600,E,7,1,CD,RS,CS,DSAS#1220
GOSUB630250CLOSE#1:END630PRINT发送数
据=;TXD$640PRINT#1,TXD$:发送650T3=
VAL(MID$(TIME$,7,2)):等待2秒660IFEOF(1)
=0THENGOSUB710670T4=VAL(MID$(TI
ME$,7,2))680IFABS(T4‑T2)2THEN660690
PRINT:PRINT超过2秒！700RETURN710A$=
INPUT$(1,#1)720D$=D$+A$730PRINTA$;760
RETURN
BC和TC制作的DOS程序没有区别，以下是所使用的头文件：
_
/*TLINK.HFORTLINK.Ctblin@163.net97/04/29*/#defineSERRBF0/*
__
读缓冲区*/#defineSERTHR0/*写缓冲区*/#defineSERIER1/*中断使能寄
__
存器*/#defineSERIIR2/*中断识别寄存器*/#defineSERLCR3/*数据配置
_
和除数锁存控制*/#defineSERMCR4/*调制解调器控制寄存器*/#define
__
SERLSR5/*线路状态寄存器*/#defineSERMSR6/*调制解调器状态，如
__
cts、ring等*/#defineSERDLL0/*波特率除数的低字节*/#defineSER
_
DLH1/*除数锁存的高字节*/#defineSERGP028/*启用中断*/#define
COM_10x3F8#defineCOM_20x2F8#defineCOM4850x1
__
E8#defineSERSTOP_10/*每字符的停止位*/#defineSERSTOP_24#
_
defineSERBITS_50/*发送5位字符*/
串行通讯问题
DOS环境下的程序可用BASIC（BASICA），C（TC,BC）：
100REMSERIALCONTROL.WRITTENBYTBLIN@163.NET
150TXD$=ABCDEFG
200D$=:DATARECEIVED.
210OPENCOM2:9600,E,7,1,CD,RS,CS,DSAS#1
220GOSUB630
250CLOSE#1:END
630PRINTSENDINGDATA=;TXD$
640PRINT#1,TXD$:SENDING
6
文档评论（0）