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 После того, как данные из вспомогательного файла будут считаны, необходимо провести их сортировку по цене на нефть. Это значит, что значения цены на нефть будут располагаться по возрастанию, а все остальные значения показателей будут отображаться соответственно этим значениям. Для того, чтобы после запуска программы при нажатии кнопки происходила сортировка, необходимо в процедуру Command1_Click () ввести следующий код: 10 pr = True i = 1 20 If ma(i) > ma(i + 1) Then buf = ma(i) buf1 = mag(i) buf2 = mas(i) buf3 = maq(i) buf4 = maw(i) buf5 = mar(i) buf6 = maz(i) ma(i) = ma(i + 1) mag(i) = mag(i + 1) mas(i) = mas(i + 1) maq(i) = maq(i + 1) maw(i) = maw(i + 1) mar(i) = mar(i + 1) maz(i) = maz(i + 1) ma(i + 1) = buf mag(i + 1) = buf1 mas(i + 1) = buf2 maq(i + 1) = buf3 maw(i + 1) = buf4 mar(i + 1) = buf5 maz(i + 1) = buf6 pr = False End If i = i + 1 If i = 32 Then GoTo 30 Else GoTo 20 End If 30 If pr = False Then GoTo 10 Else GoTo 200 End If End Sub Это программа сортировки, позволяющая расположить значения цены на нефть по возрастанию, а остальные значения – соответственно этому. После проведения сортировки данных по цене на нефть, необходимо вывести эти сортированные данные в списки. Для этого в третьей форме создадим семь списков (по количеству показателей), в которых будут отображаться сортированные данные. Над ними разместим семь меток с названиями соответствующих списков: «Год», «Размер ВВП» и т. д. Для отображения в списках сортированных данных необходимо создать в третьей форме вторую командную кнопку, для которой в окне свойств в графе Caption установим значение ‘ Вывод сортированных данных ’. Чтобы сделать эту кнопку недоступной до проведения сортировки, в процедуру Form _ Load () добавим код: Command2.Enabled = False Чтобы сделать доступной кнопку вывода сортированных данных после нажатия кнопки сортировки и недоступной саму кнопку сортировки, в процедуру Command1_Click () введем код: Command2.Enabled = True Command1.Enabled = False Для того, чтобы после запуска программы при нажатии на вторую командную кнопку в третьей форме сортированные данные отображались в списках, необходимо в процедуру Command2_Click () ввести следующий код: For i = 1 To 32 List1.List(i - 1) = mag(i) List2.List(i - 1) = mas(i) List3.List(i - 1) = ma(i) List4.List(i - 1) = maq(i) List5.List(i - 1) = maw(i) List6.List(i - 1) = mar(i) List7.List(i - 1) = maz(i) Next i На этом операции, выполнение которых предусмотрено заданием, заканчиваются. Но может возникнуть ситуация, когда пользователю будет нужно после выполнения всех действий в третьей форме вернуться в первую или во вторую формы. Для обеспечения возможности таких переходов, создадим в третьей форме рамку (элемент управления Frame), в которой разместим два элемента управления OptionButton. С помощью этих переключателей будет осуществляться переход в первую или во вторую формы. Коды в них будут аналогичны кодам в кнопках перехода от одной формы к другой: Form3.Hide Form1.Show для первого переключателя и Form3.Hide Form2.Show для второго переключателя. После написания необходимых кодов ко всем элементам управления, можно перейти к визуальному оформлению форм, используя такие свойства элементов управления, как BackColor, ForeColor, Font, чтобы придать им желаемый внешний вид. Согласно заданию, после того, как будут выполнены все необходимые операции в третьей форме, надо посмотреть, существует ли зависимость между ценой на нефть и темпами изменения размера внутреннего валового продукта. Исходя из соображений логики, можно сделать некоторые предварительные заключения. Япония – страна с высоким уровнем развития, занимающая одну из передовых позиций на мировом рынке. Но, как известно, она испытывает недостаток в ресурсах, имеющихся в ее владении, поэтому вынуждена импортировать их из других стран. Что касается нефти, которая крайне важна для любой страны, Япония закупает ее у различных государств, в том числе и у России. Внутренний валовой продукт включает в себя государственные расходы на все покупки ресурсов, а, значит, и нефти. И хотя можно проследить зависимость между размером ВВП и величиной цены на нефть, делать выводы о прямой пропорциональности цены на нефть размеру ВВП, скорее всего, нельзя, так как необходимо принимать во внимание множество прочих факторов, оказывающих влияние на экономическое состояние страны, индикатором которого является внутренний валовой продукт. А потому можно сказать, что, вероятно, на каком-либо небольшом отрезке времени будет наблюдаться прямая зависимость цены на нефть от размера ВВП, но возможны также периоды, где эта зависимость будет обратной. Для более полного анализа необходимо иметь сведения о большом количестве экономических показателей и принимать во внимание даже такие факторы, как ситуация в обществе, войны, природные катаклизмы, положение в других странах и во всем мире в целом.
АЛГОРИТМ
Ввод данных в массивы из текстовых полей
Вычисление средних значений данных и ввод средних значений в массивы
Вывод средних значений данных в списки
Запись средних значений в файл, выбранный пользователем
Переход ко второй форме
Считывание данных из файла
Нахождение ВВП, темпов его изменения и вывод данных в списки Нахождение периода max прироста и прироста в 50%
Вывод в текстовые поля значений и периодов max прироста ВВП и в 50% Переход к третьей форме
Сортировка данных по цене на нефть
Вывод сортированных данных в список
Переход к первой Переход ко второй форме форме
В курсовом проекте были приведены коды для отдельных элементов управления. Ниже даются тексты программ с комментариями для более полного восприятия. · ДЛЯ ПЕРВОЙ ФОРМЫ: Dim mas(40) As Single Dim mag(40) As Single Dim ma(40) As Single Dim maq(40) As Single Dim maz(40) As Single Dim mar(40) As Single Dim maw(40) As Single Dim j, i As Integer Dim h(10) As Single Dim q(10) As Single Dim w(10) As Single Dim r(10) As Single Dim p(10) As Single Dim x(10) As Single
Популярное: Почему люди поддаются рекламе?: Только не надо искать ответы в качестве или количестве рекламы... Почему двоичная система счисления так распространена?: Каждая цифра должна быть как-то представлена на физическом носителе... Почему стероиды повышают давление?: Основных причин три... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (160)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |