Private Sub Command1_Click() ‘ Попередній запис WritePerson ‘ Зберігаємо змiни в активному записі If i > 1 Then ‘ Якщо запис не перший, i = i – 1 ‘ зменшуємо його номер ReadPerson ‘ i зчитуємо з файлу End If End Sub |
Private Sub Command2_Click() ‘ Наступний запис WritePerson ‘ Зберігаємо змiни в активному записі If i < N Then ‘ Якщо запис не останній, i = i + 1 ‘ збільшуємо його номер ReadPerson ‘ i зчитуємо з файлу End If End Sub |
|
|
Private Sub Command3_Click() ‘ Додати запис If i > 0 Then ‘ Якщо є запис на формі WritePerson ‘ Зберігаємо його End If N = N + 1 ‘ Збільшуємо к-сть записів i = N Form1.Caption = Str(i) + “-й запис із” + Str(N) Text1.Text = “” Text2.Text = “” End Sub |
|
|
Private Sub Command4_Click() ‘ Кінець WritePerson ‘ Зберігаємо активний запис Close #1 ‘ Закриваємо файл End ‘ Закінчуємо роботу End Sub |
9. Збережiть роботу i запустiть проект на виконання. Введiть декiлька записiв i переконайтеся у правильностi роботи командних кнопок. Закiнчiть роботу кнопкою Кiнець. Запустiть програму ще раз i переконайтеся у тому, що записи правильно зчитано з файлу. Додайте ще один запис, введiть у нього дані i вiдразу закрийте вiкно системною кнопкою . Запустiть програму на виконання i перевiрте останнiй запис. Чому запис не зберiгся?
10. Забезпечте збереження останнього запису i всього файлу пiсля закриття вiкна програми системною кнопкою чи командами системного меню. Дляцього у лiвому верхньому комбiнованому списку редактора коду виберiть об’єкт Form, а у правому — подiю Unload (вивантажити) для цього об’єкта. У вiкнi коду з’явиться заготовка процедури Form_Unload, яка виконуватиметься у момент закриття вiкна. Введiть команду виклику процедури Command4_Click() кнопки “Кiнець”:
Private Sub Form_Unload(Cancel As Integer) Command4_Click End Sub |
11. Збережіть роботу, запустіть програму і переконайтесь у правильності її роботи. 12. Продемонструйте створену форму викладачевi. Закiнчiть роботу.
Контрольнi запитання:
1. Як відкрити вікно нового модуля?
2. Як одержати доступ до секції опису глобальних змінних?
3. Як описати тип у програмі?
4. Як створити власні процедури зчитування запису з файлу?