Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
50
Добавлен:
02.05.2014
Размер:
144.9 Кб
Скачать

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

Уфимский государственный авиационно-технический университет

Кафедра информатики

Отчет по лабораторной работе №8

По теме: Разработка многооконных приложений

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

шаблонов и меню.

Выполнил: Гайсин А.С.

АД-127

Проверил: Левков А.А.

УФА 2007

Цель работы: Целью работы является изучение возможностей разработки многооконных приложений с использованием стандартных форм и текстового меню.

Задание: создать многооконное приложение, содержащее пункты «Файл», «Справка о программе».

Код:

Private Sub Form_Load()

End Sub

Private Sub Min_Max_Click()

Form6.Show

End Sub

Private Sub Из_файла_Click()

Form4.Show

End Sub

Private Sub С_клавиатуры_Click()

Form2.Show

End Sub

Private Sub Случайным_образом_Click()

Form3.Show

End Sub

Private Sub Справка_Click()

Form8.Show

End Sub

Private Sub Среднее_арифметическое_Click()

Form5.Show

End Sub

Private Sub Сохранить_Click()

Form7.Show

End Sub

Код задания массива с клавиатуры:

Private Sub Command1_Click()

n = Val(Text1)

av = Split(Text2, " ")

For i = 0 To n - 1

am(i) = Val(av(i))

Next

For i = 0 To n - 1

Picture1.Print am(i);

Next

End Sub

Код задания массива случайным образом:

Private Sub Command1_Click()

Picture1.Cls

Randomize

n = Val(Text1)

For i = 0 To n - 1

am(i) = Int((n + 1) * Rnd + n)

Picture1.Print am(i);

Next

End Sub

Код задания массива из файла:

Private Sub Command1_Click()

Picture1.Cls

Open File1.Path + "\" + File1.FileName For Input As #1

Do While Not (EOF(1))

Input #1, strTemp

Picture1.Print strTemp

Loop

Close #1

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

File1.Path = Dir1.Path

End Sub

Код определения среднего арифметичекского:

Private Sub Command1_Click()

s = 0

For i = 0 To n

s = s + am(i)

Next i

sr = s / n

Picture1.Print sr

End Sub

Код определения минимального и максимального значения массива:

Private Sub Command1_Click()

Max = am(1)

Min = am(1)

For i = 0 To n - 1

If am(i) < Min Then Min = am(i)

If am(i) > Max Then Max = am(i)

Next i

Picture1.Print "Min="; Min

Picture1.Print "Max="; Max

End Sub

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

Private Sub Command1_Click()

Open "C:\test.txt" For Output As #2

Print #2, "Sr ="; sr

Print #2, "Max ="; Min

Print #2, "Min ="; Max

Close #2

End Sub

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

Соседние файлы в папке Лабораторная работа №8