使用QB64在.txt文档中保存值

Question

在我使用QB64的基于文本的冒险游戏中，试图保存他们输入的玩家姓名，他们输入的年龄和他们选择的性别。没有出现错误，但是当我检查文本文档时，它输入的只是一个0。我会在他们输入信息后给潜水艇打电话，所以变量已经设置好了。

SUB saving


save1.txt$ = "save1.txt"
OPEN save1.txt$ FOR APPEND ACCESS WRITE AS #1 LEN = 40
PRINT #1, name$
PRINT #1, age%
PRINT #1, gender$


CLOSE #1

end sub

Answer 1

您需要将要写入文件的变量传递给Saving子例程：

PRINT "Enter name";: INPUT name$
PRINT "Enter age";: INPUT age%
PRINT "Enter gender";: INPUT gender$
CALL Saving(name$, age%, gender$)
END
SUB Saving (name$, age%, gender$)
    Save1.Txt$ = "save1.txt"
    OPEN Save1.Txt$ FOR APPEND AS #1
    PRINT #1, name$
    PRINT #1, age%
    PRINT #1, gender$
    CLOSE #1
END SUB

或者，您可以将变量声明为共享变量：

DIM SHARED username AS STRING
DIM SHARED age AS INTEGER
DIM SHARED gender AS STRING
PRINT "Enter name";: INPUT username
PRINT "Enter age";: INPUT age
PRINT "Enter gender";: INPUT gender
CALL Saving
END
SUB Saving
    Save1.Txt$ = "save1.txt"
    OPEN Save1.Txt$ FOR APPEND AS #1
    PRINT #1, username
    PRINT #1, age
    PRINT #1, gender
    CLOSE #1
END SUB