在学习实践中在两个虚拟机之间发送串行数据

如何解决在学习实践中在两个虚拟机之间发送串行数据

我正在尝试在 Vm-Ware Workstation 中的两个 VM 之间发送和接收数据以进行学习。我使用 Quick Basic IDE 来编程串行 COM 端口。两个 VM 中的操作系统都是 Freedos。每个 VM 都使用 Windows 主机的一个虚拟端口。这对虚拟端口是由ELTIMA软件制作的。
我使用两段基本代码，一段用于发送，另一段用于接收，如下所示：

DIM bytestr AS STRING * 1

INPUT "COM port number #",port$
OPEN "COM" + port$ + ":9600,N,8,1,BIN,CS0,DS0" FOR RANDOM AS #1
CLS
DO
        k$ = INKEY$
        IF LEN(k$) = 1 THEN
                k = ASC(k$)
                IF k >= 32 THEN
                        PRINT ">" + k$ + "<";
                        bytestr = k$
                        PUT #1,bytestr
                END IF
        END IF
LOOP UNTIL k$ = CHR$(27)
CLOSE #1: PRINT "Finished!"  

和第二次接收：

CLS
DIM bytestr AS STRING * 1

INPUT "COM port number #",ASC,DS0" FOR RANDOM AS #1
DO
        k$ = INKEY$
        IF LOC(1) THEN
                GET #1,bytestr
                PRINT "[" + bytestr + "]";
        END IF
LOOP UNTIL k$ = CHR$(27)
CLOSE #1: PRINT "Finished!"

我在接收机器控制台中收到的是奇怪的字符，与在发送机器中输入的不同。我什至找不到它们之间的逻辑关系。
请你解释一下发生了什么。

代码来自：
https://www.qb64.org/wiki/OPEN_COM

解决方法

OPEN "COM" 的文档说：

目前，QB64 仅支持在 BIN 模式下使用 GET/PUT 命令进行 OPEN FOR RANDOM 访问。

您在接收端的 OPEN 语句然后错误地使用了 ASC 而不是 BIN

OPEN "COM" + port$ + ":9600,N,8,1,ASC,CS0,DS0" FOR RANDOM AS #1
                                   ^
                                   | Should be BIN