Сохранение значений в текстовом документе с использованием QB64

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