863
社区成员
发帖
与我相关
我的任务
分享
'TS0 <ESC T> FM0
OPEN "COM1:E81N" AS #1
OPEN "TS0ASC.DAT" FOR OUTPUT AS #2
PRINT #1,"TS0"
LINE INPUT #1,D$:PRINT D$
PRINT #1,CHR$(&H1B)+"T"
LINE INPUT #1,D$:PRINT D$
PRINT #1,"FM0,001,010"
LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
IF MID$(D$,2,1)<>"E" THEN 90
CLOSE
END
TS0\r\n
文件中读入的第一行\r\n
\x1BT\r\n
文件中读入的第二行\r\n
FM0,001,010\r\n
文件中读入的第三行\r\n
IF MID$(D$,2,1)<>"E" THEN 90
PRINT #1,CHR$(&H1B)+"T"
OPEN "COM1:E81N" AS #1 ' 打开串口 COM1(没指明模式,应该是可以 I/O)
OPEN "TS0ASC.DAT" FOR OUTPUT AS #2 ' 打开磁盘文件 TS0ASC.DAT(仅用于“输出”)
PRINT #1,"TS0" ' 向COM1输出字符串 "TS0"
LINE INPUT #1,D$:PRINT D$ ' 从COM1读取数据: 内容输出到屏幕上
PRINT #1,CHR$(&H1B)+"T" ' 向COM1输出字符串 CHR$(&H1B)+"T"
' ' Chr$(&H1B) 就是ACCII码为27的控制字符
LINE INPUT #1,D$:PRINT D$ ' 从COM1读取数据: 内容输出到屏幕上
PRINT #1,"FM0,001,010" ' 向COM1输出字符串 "FM0,001,010"
LINE INPUT #1,D$:PRINT D$:PRINT #2,D$ ' 从COM1读取数据: 内容输出到屏幕和文件中
IF MID$(D$,2,1)<>"E" THEN 90 ' 如果刚才读取的数据第2个字符是E,跳转到行号为90处
CLOSE ' 关闭所有(本程序打开的全部串口和磁盘文件)
END ' 结束程序
这个代码段没有行标号“90”,不知道它那个跳转跳到哪去了。