данням, наступна частина роботи повинна виконуватися в інший, третій формі. Тому в другій формі необхідно створити командну кнопку, що дозволяє перейти до третьої формі після виконання всіх необхідних операцій в другій формі. Спочатку створимо ще одну форму в нашому проекті і в вікні властивостей у графі Caption встановимо для неї значення ' Сортування даних за ціною на нафту ' .
помітили, що до того, як всі операції в другій формі будуть здійснені, перейти в третю форму буде неможливим через те, що в командні кнопки 1 і 2 введені коди, що передбачають певний порядок у використанні кнопок. Так в процедуру Form_Load () введений код, який робить недоступними всі командні кнопки:
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = Fa lse
Для активізації кожної кнопки необхідно виконати певні дії, передбачені програмою. Так, наприклад, вибір користувачем файлу для запису середніх значень даних робить доступною першу командну кнопку, так як в процедуру File1_Click () введений код:
Command1.Enabled = True
Після виконання операцій, передбачених кодом першої кнопки, друга кнопка стає доступною, так як в процедуру Command1_Click () введений код:
Command2.Enabled = True
І так далі.
Для того, щоб третя командна кнопка здійснювала перехід до третій формі, в процедуру Command3_Click () Необхідно ввести наступний код:
Form2.Hide
Form3.Show
Цей код приховує другу форму і робить видимої третю форму.
У третій формі, згідно із завданням, необхідно провести сортування даних про Японії за ціною на нафту. Для цього необхідно, по-перше, вважати дані, які будуть сортуватися. Для цього в першій формі в процедуру Command2_Click () введемо код, що дозволяє зчитувати дані з текстових полів і заносити їх у допоміжний файл, названий 'data1' :
Open "data1" For Output As # 1
For i = 1 To 32
Write # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1
Перш ніж проводити сортування даних, необхідно вважати їх з допоміжного файлу. Для цього створимо в третій формі командну кнопку з назвою 'Сортування даних за ціною на нафту' і в процедуру Command1_Click () введемо наступний код:
Open "data1" For Input As # 1
For i = 1 To 32
Input # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1 ...
