Question

在我的使用QB64进行的基于文本的冒险游戏中，试图保存所输入球员的姓名，年龄和性别。没有错误出现，但是当我检查文本文档时，它所放的只是0。在他们放入信息后，我要打电话给sub，所以变量已经设置好了。

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

您需要将变量传递到文件以保存到保存子例程：

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

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

1 个答案: