Продолжем болтавню и программирование нашей игры. При разработке игры на Microsoft Visual Basic 4.0 для Windows 3.11 мы не будем использовать базу данных и DAO, вместо этого все вопросы запишим в бинарный файл, вот полный код записи вопросов на Visual Basic 4.0:

Private Type DATABASE
    question As String * 255
    answ1 As String * 50
    answ2 As String * 50
    answ3 As String * 50
    answ4 As String * 50
    answer As Integer
End Type
Private Sub Form_Load()
    Dim q As DATABASE
    Open "questions.bin" For Random As #1 Len = Len(q)
    q.question = "Question"
    q.answ1 = "Answer 1"
    q.answ2 = "Answer 2"
    q.answ3 = "Answer 3"
    q.answ4 = "Answer 4"
    q.answer = 1
    Put #1, 1, q
    q.question = "Вопрос"
    q.answ1 = "Ответ 1"
    q.answ2 = "Ответ 2"
    q.answ3 = "Ответ 3"
    q.answ4 = "Ответ 4"
    q.answer = 3
    Put #1, 2, q
    Close #1
End Sub

Объясняю как работает код, это структура данных, данные которые мы сериализуем и запишим в файл, question - тут будет хранится вопрос, у него длина 255 символов, answ1 по anws4, там будут храниться 4 варианта ответа, их длина по 50 символов, answer - там будет хранится правельный ответ:

Private Type DATABASE
    question As String * 255
    answ1 As String * 50
    answ2 As String * 50
    answ3 As String * 50
    answ4 As String * 50
    answer As Integer
End Type

Когда программу запустим, произойдёт запись в файл questions.bin, который будет выглядеть следующим образом, все данные сохраняются в бинарном виде:

Когда настроение появится, позже покажу десерелизацию, т.е. чтения вопросов, и ответов из файла questions.bin. А ещё позже покажу как зашифровать вопросы и ответы, чтобы не подглядовали ответы.

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида