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

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

0 голосов
/ 17 января 2019

В моей текстовой приключенческой игре с использованием 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

1 Ответ

0 голосов
/ 02 февраля 2019

Вам необходимо передать переменные для записи в файл в подпрограмме 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
...