Программирование на BASIC / Visual Basic / Visual Basic 6.0 / VB / Лабораторная работа №8 / отчет по лабе №8
.docФедеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Уфимский государственный авиационно-технический университет
Кафедра информатики
Отчет по лабораторной работе №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
Вывод: мы изучили возможности разработки многооконных приложений с использованием стандартных форм и текстового меню. Создали многооконное приложение, в пример программы взяли массивы, которые можно вводить посредством клавиатуры или случайным вводом, выводить среднее арифметическое, искать минимальное и максимальное значения в массиве.