Рефераты по География - "Анализ экономических показателей Японии 1960-1992 гг_ Компьютерная подготовка в ГУУ_ 2 курс"
| Страница: 1 2 3 4 5 6 7 8 9 10 | ||
| Анализ экономических показателей Японии 1960-1992 гг_ Компьютерная подготовка в ГУУ_ 2 курс | ||
 |
 |
Скачать реферат "Анализ экономических показателей Японии 1960-1992 гг_ Компьютерная подготовка в ГУУ_ 2 курс" |
|
Содержание в др. форму End Sub Private Sub Command3_Click() Form2.Hide 'Скрывает 2 форму Form3.Show 'Показывает 3 форму Command1.Enabled = True ' Делает доступной кнопку рассчета прироста ВВП End Sub Private Sub Dir1_Change() File1 = Dir1 End Sub Private Sub Drive1_Change() ChDrive Drive1 Dir1 = Drive1 ChDir Dir1 End Sub Private Sub File1_Click() Label7.Visible = False 'Делает невидимой метку с собщением Command1.Enabled = True 'Делает доступной кнопку нахождения прироста ВВП Drive1.Enabled = False 'Делает недоступным DribeListBox Dir1.Enabled = False 'Делает недоступным DirListBox End Sub Private Sub Form_Load() Command1.Enabled = False 'Делает недоступной кнопку нахождения прироста ВВП T1.Enabled = False 'Делает недоступными текст. поля T2.Enabled = False T3.Enabled = False T4.Enabled = False Command2.Enabled = False 'Делает недоступной кнопку рассчета max прироста Command3.Enabled = False 'Делает недоступной кнопку перехода в др. форму End Sub ? ДЛЯ ТРЕТЬЕЙ ФОРМЫ: Dim maq(40) As Single Dim mag(40) As Single Dim ma(40) As Single Dim mas(40) As Single Dim maz(40) As Single Dim mar(40) As Single Dim maw(40) As Single Dim buf1 As Single Dim buf2 As Single Dim buf3 As Single Dim buf4 As Single Dim buf5 As Single Dim buf6 As Single Dim buf As Single Private Sub 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 Command2.Enabled = False 'Делает недоступной кнопку вывода сортированных данных End Sub Private Sub Command1_Click() Command1.Enabled = False 'Делает недоступной кнопку сортировки MsgBox "Эта кнопка проведет сортировку данных по возрастанию цены на нефть!" 'Вывод сообщения Command1.Enabled = True 'Делает доступной кнопку вывода сортированных данных Open "data1" For Input As #1 'Открывает файл "data1" 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 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 'Переход на 30 строку Else GoTo 20 'Переход на 20 строку End If 30 If pr = False Then GoTo 10 'Переход на 10 строку Else GoTo 200 'Переход на 200 строку End If 200 End Sub Private Sub Form_Load() Command2.Enabled = False 'Делает недоступной кнопку вывода сортированных данных End Sub Private Sub Option1_Click() MsgBox "Перейти к первой форме?" 'Выдает сообщение Form3.Hide 'Скрывает 3 форму Form1.Show 'Показывает 1 форму Command1.Enabled = True 'Делает доступной кнопку нахождения ср. значений Command2.Enabled = True 'Делает доступной кнопку записи в файл End Sub Private Sub Option2_Click() MsgBox "Перейти ко второй форме?" 'Выдает сообщение Form3.Hide 'Скрывает 3 форму Form2.Show 'Показывает 2 форму Command1.Enabled = True 'Делает доступной кнопку нахождения темпов изменения ВВП Command2.Enabled = True 'делает доступной кнопку нахождения max прироста ВВП End Sub Ниже приводятся формы, как они выглядят в режиме проектирования, то есть до запуска программы. ПЕРВАЯ ФОРМА ВТОРАЯ ФОРМА ТРЕТЬЯ ФОРМА Далее приводятся формы в режиме Run, то есть после запуска программы. ПЕРВАЯ ФОРМА 1. После рассчета средних значений данных за 4-летние периоды: 2. После выбора файла и записи в него данных: ВТОРАЯ ФОРМА 1. После считывания данных, определения ВВП и темпов его изменения: 2. После нахождения периода максимального прироста и прироста в 50%: ТРЕТЬЯ ФОРМА 1.После проведения сортировки: Чтобы убедиться, что в процессе выполнения программ данные действительно записываются в файл, ниже показана структура файлов, использованных в проекте: 1. Файл, выбранный пользователем для записи средних значений данных: 0.8843492, 14.05, 1621.173, 2244, 49.9, 238652.5 1.250556, 14.425, 1693.65, 3841, 68.65, 260827.3 1.786277, 14.65, 1858.58, 6714.5, 79.575, 280061.8 2.117049, 14.675, 1966.193, 11439.5, 91.8, 248772.3 2.23297, 14.1, 2244.097, 17332, 110.6, 259894.3 2.364754, 17.275, 2533.115, 22487.75, 117.525, 242344.5 |
||
| Страница: 1 2 3 4 5 6 7 8 9 10 | ||