Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\

Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\

Государственный Университет Управления

Им. Серго Орджоникидзе

Курсовой проект

по компьютерной подготовке

Выполнила студентка

Специальности «Мировая экономика»

II курса

Колобекова Алла

Руководитель Аленичев А. В.

Москва

1998 год

ЗАДАНИЕ

на курсовой проект

Общее задание:

Составить средствами Visual Basic и Microsoft Access комплекс

программ, работающих в режиме диалога с пользователем, включая:

. Алгоритм решения задачи

. Таблицы Microsoft Access

. Формы документов Visual Basic

. Собственно программы.

Объяснительная записка должна включать:

. Титульный лист

. Задание на курсовой проект

. Введение

. Анализ постановки задачи

. Алгоритм

. Таблицы, формы, тексты программ и структуры файлов

. Результаты решения задачи

. Заключение

. Список литературы

. Оглавление.

Сроки выполнения курсового проекта:

. Срок представления проекта руководителю – 14 декабря 1998 года

. Время защиты работы – 28 декабря 1998 года.

Практическое задание:

Создать таблицу в Microsoft Access с полями:

. Цена на нефть

. Потребление нефти в Японии

. Размер ВВП

. Объем промышленного производства

. Внешнеторговый баланс

. Доход на душу населения

Заполнить таблицу данными по годам с 1960 по 1992 и разработать

запрос для нахождения данных в зависимости от цены на нефть.

Разработать форму и программу в Visual Basic, позволяющую считывать

эти записи, вычислять средние значения за 4-летние периоды и заносить эти

средние значения в файл.

Разработать форму и программу в Visual Basic, позволяющую считывать

этот файл, вычислять размер ВВП, темпы его изменения и находить период

максимального прироста и периоды, дающие 50% прироста.

Разработать форму и программу в Visual Basic, сортирующую данные по

цене на нефть, и посмотреть, есть ли зависимость этого параметра с

темпами изменения размера ВВП.

Проанализировать полученные результаты и сделать выводы.

Введение

В последнее время возрос интерес к экономико-политической жизни

общества в целом, что предполагает интерес как по отношению ко всему миру в

целом, так и к отдельным странам, чьи опыт и знания могут быть не только

полезными, но и крайне важными в развитии тех или иных государств. В

особенности знания такого рода важны для стран, чья экономика находится на

стадии развития, а экономические отношения как внутри страны, так и на

мировом рынке носят слабо выраженный характер по сравнению с такими

странами, как США, Япония и другие. Знания об этих государствах являются

основой экономики слаборазвитых стран, а их опыт во многом может помочь в

решении неизбежно возникающих проблем.

Россию нельзя причислить к слаборазвитым странам, но очевидна также

шаткость ее экономического положения и фактическая неспособность оказывать

конкуренцию экономически развитым странам. Выходом из сложившейся ситуации

может стать только поиск новых возможностей развития, так как потенциал

огромен.

Во всем мире проводятся статистические исследования с целью сбора,

обработки и анализа информации об экономическом развитии стран для

выявления закономерностей и установления зависимости различных

экономических характеристик друг от друга.

В данном курсовом проекте на примере данных о Японии показана

динамика отдельных экономических показателей и их взаимосвязь.

В Microsoft Access эти данные заносятся в виде таблиц, отражающих

статистические сведения о Японии за период с 1960 по 1992 года. 32-летний

период является достаточным для выявления закономерностей в динамике того

или иного показателя, а также для установления зависимости между

показателями, если таковая существует. Данные по Японии включают в себя:

1. размер внутреннего валового продукта, который является одним из самых

распространенных показателей, характеризующих экономическое состояние

страны;

2. величину цены на нефть за каждый год из 32-летнего периода;

3. размер потребление нефти в Японии, что также говорит о развитии и

благосостояния общества в целом;

4. размер внешнеторгового оборота, отражающий ситуацию на внешнем рынке

страны и дающий численную характеристику торговым операциям Японии с

другими странами мира;

5. объем промышленного производства, характеризующий состояние экономики

внутри страны;

6. величину дохода на душу населения, позволяющую сделать заключения о

благосостоянии населения и развитии экономики в целом.

Далее, с помощью Visual Basic проводится анализ имеющихся данных, их

группировка по признаку, указанному в задании, а также нахождение средних

значений данных за четырехлетние периоды, начиная с 1960 года. Средние

величины делают более удобным сравнение и анализ информации, так как

показывают определенную тенденцию в изменении того или иного показателя.

Затем, с помощью средств Visual Basic определяются темпы изменения

показателей по заданию, а также находится период максимального прироста

определенного показателя и периоды, дающие 50% прироста. Это проводится для

того, чтобы определить, в каком периоде за 62 года прирост внутреннего

валового продукта был наибольшим, то есть в какой период экономика Японии

развивалась наиболее активно, чтобы впоследствии было возможно выявить

причины такого роста и устранить факторы, препятствующие как развитию

экономики в целом, так и замедляющие рост экономических показателей в

конкретной области.

Описанные выше операции в Visual Basic реализуются путем

внедрения форм и элементов управления в них, которые создаются для

облегчения восприятия информации, удобства пользования ей, а также для

возможности совершать над имеющимися данными определенные операции,

запланированные возможностями данной программы.

Для того, чтобы иметь возможность оперировать данными о Японии,

представленными в таблице Microsoft Access, необходимо, чтобы эти данные

могли быть отображенными в Visual Basic. Это возможно, благодаря тому, что

обе эти программы (Microsoft Access и Visual Basic) являются продуктами

компании Microsoft®, и Visual Basic предполагает возможность установления

связи с данными, размещенными в таблицах Microsoft Access.

Для того, чтобы приступить непосредственно к выполнению задания,

необходимо провести анализ постановки задачи, то есть конкретно определить,

что требуется получить в итоге, какими способами следует пользоваться при

решении, как организовать работу, так чтобы решение поставленной задачи

было оптимальным и в то же время доступным и понятным для пользователя, а

также определить последовательные шаги выполнения задания с целью упрощения

процесса решения. Необходимо также сделать предварительные заключения о

существовании определенных закономерностей, вопрос о которых ставится в

условии задачи. По завершении проекта целесообразно сравнить результаты,

полученные в ходе работы, с заключениями, сделанными до начала проекта.

Имеются данные по Японии за период с 1960 по 1992 года,

представляющие собой сводную таблицу в Microsoft Access. Данные взяты из

статистических справочников. Для занесения данных в Microsoft Access

необходимо создать новую базу данных, затем таблицу в ней и последовательно

ввести все имеющиеся данные по Японии в режиме конструктора (рис.1),

заполняя строки с именами полей и типом соответствующих данных. Имена полей

в данном случае – название экономических показателей за 32-летний период, а

так как все данные числовые, то это будет отражено в соответствующих

строках с типом данных. По завершении формирования макета исходной таблицы,

необходимо открыть получившуюся таблицу и ввести все имеющиеся данные за

каждый год в соответствующие графы таблицы (рис.2).

Таблица с исходными данными в режиме конструктора выглядит следующим

образом: Рис. 1

Таблица, получившаяся после ввода данных о Японии, имеет следующий вид:

После создания таблицы в Microsoft Access необходимо разработать запрос

для нахождения данных в зависимости от цены на нефть. Для этого надо

создать запрос и в режиме конструктора (рис.3) ввести необходимые поля, а

также имя таблицы, данные из которой используются в запросе, затем ввести

условие сортировки, если это необходимо (по возрастанию, по убыванию) и

условие отбора данных из исходной таблицы.

Запрос в режиме конструктора будет выглядеть следующим образом:

Рис. 3

Готовый запрос будет иметь следующий вид:

На этом заканчивается часть работы, выполняемая в Microsoft Access, и

начинается непосредственное создание программы в Visual Basic, которая

выполняла бы необходимые по условию задачи операции над данными,

размещенными в таблицах Microsoft Access.

В Visual Basic начинаем новый проект, выбирая в меню New File пункт

New Project. Выделяем первую форму и в окне Properties в графе Caption

устанавливаем для первой формы название ‘Считывание данных и нахождение

средних значений’, при этом имя первой формы – Form1.

В первой форме создаем элемент DataControl с именем Data1.В окне

свойств в графе Caption устанавливаем название ‘Исходные данные’. В графе

Connect - значение Access. В графе DatabaseName указываем путь к файлу,

содержащему таблицу Microsoft Access. В графе RecordSource указываем

название таблицы Microsoft Access, содержащей исходные данные по Японии.

Затем в первой форме создаем 7 элементов TextBox – текстовых полей – по

количеству столбцов в исходной таблице. Над каждым текстовым полем

размещаем элементы Label – метки, содержащие названия каждого столбца. В

данном случае это год, размер ВВП, цены на нефть, размер потребления нефти,

размер внешнеторгового оборота, объем промышленного производства и доход на

душу населения. У каждого текстового поля в окне свойств в графе DataSource

устанавливаем значение Data1, а в графе DataField – выбираем название того

столбца исходной таблицы, который отображает данное текстовое поле. Так в

первом текстовом поле будет значение ‘Год’, во втором – ‘Размер ВВП’ и т.

д.

Таким образом, мы установили связь Visual Basic с таблицей в

Microsoft Access.

Посредством этой связи мы можем осуществлять считывание данных из

таблицы для выполнения необходимых операций, предусмотренных заданием. При

запуске программы в текстовых полях будут отображаться данные таблицы

Microsoft Access, а, используя стрелки на элементе Data1, можно производить

прокрутку данных, так чтобы они последовательно появлялись в текстовых

полях. Для того, чтобы после запуска программы пользователь не мог ввести в

текстовые поля никакую информацию, то есть для «защиты» текстовых полей от

посторонних записей, необходимо в процедуру Text1_Change () ввести

следующий код:

Text1.Enabled = False

Аналогичные коды необходимо ввести в процедуры для второго, третьего и

т. д. текстовых полей. Это сделает текстовые поля недоступными для ввода

информации и превратит их в поля, отображающие данные об экономических

показателях.

Согласно заданию, необходимо вычислить средние значения данных по

Японии за четырехлетние периоды, начиная с 1960 года. Прежде, чем написать

программу, позволяющую совершать подобные операции, необходимо создать

элемент управления, который будет отвечать за исполнение этих операций. В

данном случае наиболее наглядным и удобным в использовании будет элемент

CommandButton. Выделив этот элемент, в окне свойств в графе Caption заменим

значение Command1 на ‘Расчет средних значений данных за 4-летние периоды,

начиная с 1960 года’. После запуска программы нажатие на эту кнопку будет

приводить в действие механизм вычисления средних значений данных, которые

будут отображаться в текстовых полях.

Прежде, чем выполнять вычисление средних значений, необходимо

считать данные из текстовых полей, которые их содержат. Для этого надо

запустить цикл от 1 до 32 (количество записей в каждом столбце таблицы),

который бы вводил значения из текстовых полей в массивы. Так как

необходимо, чтобы описанные выше операции выполнялись при нажатии на

кнопку, то в процедуру Command1_Click () введем код:

For i = 1 To 32

mag(i) = Text1.Text

mas(i) = Text2.Text

ma(i) = Text3.Text

maq(i) = Text4.Text

maw(i) = Text5.Text

mar(i) = Text6.Text

maz(i) = Text7.Text

Data1.Recordset.MoveNext

Next i

i –

ППППППППППППППППППxППППППППППППППППППППППППППППППППППППППППППППППППППППППППП

ПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППППП

ППППППППППППППrПППППППППППППППППППППППППППППППППППППППППППППППППППППППППППпе

ременная, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i) и maz(i) –

соответственно массивы со значениями года, размера ВВП, цены на нефть,

размера потребления нефти, размера ВТО, объема промышленного производства и

размером дохода на душу населения. Запись Data1.Recordset.MoveNext

означает, что после выполнения считывания данных за первый год Data1

передвинет данные в текстовых полях на одну вперед и считывание будет

проводиться уже за следующий год и т. д.

Но может случиться так, что после запуска пользователь осуществит

нажатие один или несколько раз на элемент Data1 до того, как нажать на

командную кнопку. Это приведет к сбою программы, потому что в данном случае

в коде, приведенном выше, запись, находящаяся в текстовом поле будет

восприниматься как первая, а так как записей всего 32, то это приведет к

невозможности завершения цикла. Чтобы избежать этого, перед данным кодом

поместим строку:

Data1.Recordset.MoveFirst

Эта запись обеспечит передвигание данных в текстовых полях к первой записи

перед выполнением считывания.

Для нахождения средних значений данных за 4-летние периоды,

необходимо сумму значений за каждый год из данного периода разделить на

количество лет в периоде, то есть в данном случае - на 4. Поэтому в

процедуру Command1_Click () введем следующий код:

j = 1

For i = 1 To 32 Step 4

h(j) = (mas(i) + mas(i + 1) + mas(i + 2) + mas(i + 3)) / 4

q(j) = (ma(i) + ma(i + 1) + ma(i + 2) + ma(i + 3)) / 4

w(j) = (maq(i) + maq(i + 1) + maq(i + 2) + maq(i + 3)) / 4

p(j) = (maz(i) + maz(i + 1) + maz(i + 2) + maz(i + 3)) / 4

r(j) = (mar(i) + mar(i + 1) + mar(i + 2) + mar(i + 3)) / 4

x(j) = (maw(i) + maw(i + 1) + maw(i + 1) + maw(i + 3)) / 4

j = j + 1

Next i

j – переменная; массивы h(j), q(j), w(j), p(j), r(j) и x(j) –

соответственно массивы, содержащие средние значения данных за периоды с

1960 по 1963 год, с 1964 по 1967 год и т. д.

Запись For i = 1 To 32 Step 4 означает, что в каждый последующий

массив ввод данных будет производиться с элемента, номер которого на 4

больше номера первого элемента предшествующего массива, то есть в первый

массив – с первого по четвертый элемент, во второй – с пятого (номер

которого на 4 больше номера первого) по восьмой и т. д. до 32.

После вычисления средних значений данных за 4-летние периоды

необходимо, чтобы пользователь мог увидеть полученные величины. Для этого

вставим в форму элементы управления ListBox, в которых будут отображаться

средние значения данных. Над каждым элементом разместим метки, содержащие

названия данных, отображаемых в данном списке. В итоге получится шесть

списков, над каждым из которых имеется метка с названием. Для вывода

средних значений данных из массивов в списки в процедуру Command1_Click ()

введем следующий код:

For i = 1 To 8

List2.List(i - 1) = h(i)

List3.List(i - 1) = q(i)

List4.List(i - 1) = w(i)

List5.List(i - 1) = p(i)

List6.List(i - 1) = r(i)

List7.List(i - 1) = x(i)

Next i

После запуска программы при нажатии командной кнопки в списках появятся

средние значения данных за 4-летние периоды, начиная с 1960 года.

Согласно заданию, после рассчета средних значений, необходимо

занести их в файл. Для удобства пользователя сделаем так, чтобы он имел

возможность сам выбирать тот файл, в который будут занесены средние

значения. Для этого разместим в первой форме элементы DriveListBox,

DirListBox и FileListBox, отображающие соответственно диск, каталог и файл

Страницы: 1, 2, 3