Visual Basic. Вариант №7

Введение
I. Проектирование приложений в среде СУБД MS Access
Введение
1. Создание таблицы с исходными данными о туристических фирмах
2. Создание таблицы с исходными данными о турах
3. Получение выходного документа требуемой формы
4. Использование фильтров
4.1 Поиск по образцу
4.2 Поиск по выделенному
4.3 Простой фильтр
4.4 Расширенный фильтр
5. Создание запросов
5.1 Запрос с условиями
5.2 Запрос на выборку
5.3 Запрос с параметром
II. Создание АРМ студента для работы в среде VB 6.х
Введение
1. Проектирование интерфейса пользователя
2. Структура проекта. Окно Проводника проекта.
Задание № 1. Проектирование приложений для решения линейных задач
Задание № 2. Проектирование приложений для решения задач с условиями
Задание № 3. Циклические вычислительные процессы
Задание № 4. Использование управляющих структур для работы с динамическими двумерными массивами
Задание № 5. Процедуры и функции
Заключение
Литература

" & _
"Исходные данные определяются путем обращения к датчику случайных чисел. Задание:" & vbCrLf & _
"а. Для любого ресурса определить среднее значение его потребления." & vbCrLf & _
"б. Для любого предприятия определить ресурс наибольшего потребления."
End Sub
При выполнении форма выглядит так:
Задание № 5. Процедуры и функции
Вариант 7
Условие:
Задача 5.1
а. Составить процедуру нахождения максимального (первого, если
их несколько) значения элемента массива В (К) и его номера (К - заданное число).
b. Используя процедуру найти максимальные значения и их номера во 2-ой и 4-й строках массива Y (6,8).
Форма в режиме конструктора выглядит следующим образом:
Элементы экранной формы и их свойства:
Form Name=Form2
Caption=”Вариант 7, Задание 5.1” Label Name=Label1
BackColor=&H00FFFFFF& Label Name= Label2 Label Name= Label3 MSFlexGrid Name=fg1 CommandButton Name=Command1
Caption=”Выполнить” CommandButton Name= Command3
Caption=”Задание 5.2” CommandButton Name= Command2
Caption=”Выход”
Исходный код формы:
Private Sub Command1_Click()
Dim data(6, 8) As Integer 'основной массив данных
Dim tmp2(8) As Integer 'массив для передачи в процедуру
Dim tmp4(8) As Integer

fg1.Cols = 9
fg1.Rows = 7
' заполняем массив и таблицу
For i = 1 To 6
For j = 1 To 8
data(i - 1, j - 1) = Int(Rnd() * 50)
fg1.TextMatrix(i, j) = data(i - 1, j - 1)

Next j

Next i

'заполняем массивы
For i = 0 To 8
tmp2(i) = data(1, i)
tmp4(i) = data(3, i)
Next i
' вызываем процедуры
MaxElem tmp2, 2
MaxElem tmp4, 4

End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Me.Hide
Form1.Show
End Sub
Private Sub Form_Load()
Label1.Caption = "А. Составить процедуру нахождения максимального (первого, если " & _
"их несколько) значения элемента массива В (К) и его номера (К - заданное число)." & vbCrLf & _
"В. Используя процедуру найти максимальные значения и их номера во 2-ой и" & _
"4-й строках массива Y (6,8)."
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub MaxElem(a() As Integer, ind As Byte)

Dim max As Integer
Dim index As Integer

' перебираем весь массив
For i = 0 To UBound(a)
If a(i) > max Then 'найдя наибольшее значение на текущий момент
max = a(i) 'запоминаем его
index = i 'и индекс его положения
End If
Next i
'выводим результат на форму
If ind = 2 Then
Label2.Caption = "Во 2-й строке максимальное значение в " & index + 1 & " столбце = " & max
ElseIf ind = 4 Then
Label3.Caption = "В 4-й строке максимальное значение в " & index + 1 & " столбце = " & max
End If


End Sub
При выполнении форма выглядит так:
Задача 5.2
Условие
А. Составить функцию для вычисления
Y = 1 + 1/Зх + 2/Зх2 + 1/5х3 + 4/5х4 + 1/7х5 + 6/7х6 + ...
принимая модуль X больше 1. Суммирование продолжать, пока модуль
разности между последующим и предыдущим слагаемыми больше малой заданной величины.
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного начального значения до заданного конечного c заданным шагом.
Форма в режиме конструктора выглядит следующим образом:
Элементы экранной формы и их свойства:
Form Name=Form1
Caption=”Вариант 7, Задание 5.2” Label Name=Label1
BackColor=&H00FFFFFF& Label Name= Label2
Caption=”Точность:” Label Name= Label3
Caption=”Шаг Х” Label Name= Label4
Caption=”Х от:” Label Name= Label5
Caption=”до:” MSFlexGrid Name=fg1 TextBox Name=Text1
Text=”0.01” TextBox Name=Text2
Text=”1” TextBox Name=Text3
Text=”2” TextBox Name=Text4
Text=”4” CommandButton Name=Command1
Caption=”Выполнить” CommandButton Name= Command2
Caption=”Задание 5.1” CommandButton Name= Command3
Caption=”Выход”
Исходный код формы:
Private Sub Command1_Click()

Dim cntRows As Integer ' количество строк в таблице
Dim i As Double

'Вычисляем кол-во строк таблицы
cntRows = (Val(Text4.Text) - Val(Text3.Text)) / Val(Text2.Text)

fg1.Clear
fg1.Rows = cntRows + 2
fg1.Cols = 3

'Подписываем шапку в таблице
fg1.TextMatrix(0, 1) = "X"
fg1.TextMatrix(0, 2) = "Y"

'Бежим по таблице и заполняем её значениями
For i = 1 To cntRows
'Подписываем № строки
fg1.TextMatrix(i, 0) = i
'Выводим X
fg1.TextMatrix(i, 1) = Val(Text3.Text) + (Val(Text2.Text)) * (i - 1)
'Используя функцию Y выводим Y
fg1.TextMatrix(i, 2) = Format(Y(Val(Text3.Text) + Val(Text2.Text) * (i - 1), Val(Text1.Text)), "0.0000")
Next i
End Sub
Function Y(x As Double, t As Double) As Double

Dim st As Double, znam As Double, chisl As Double
Dim А As Double, B As Double, C As Double, sum As Double
Dim porog As Double

st = 1 'степень X
chisl = 2 'числитель
znam = 3 'знаменатель
porog = t 'точность

a = 1 ' первое слагаемое 1
B = 1 / (znam * x) ' второе слагаемое

' проверяем больше ли разность порога
If Abs(B - a) > porog Then
sum = 1
Else 'если превысило то выходим из функции
Y = 1
Exit Function
End If
'Обнуляем переменные
a = 0
B = 0
C = 1
' цикл до тех пор пока
Do

a = 1 / (znam * x ^ st) 'вычисляем первое слагаемое

st = st + 1 ' увеличиваем степеь X

B = chisl / (znam * x ^ st) 'вычисляем следующее слагаемое

st = st + 1 'увеличиваем степень
znam = znam + 2 'увеличиваем знаменатель и числитель на 2
chisl = chisl + 2

C = Abs(B - a) 'высиляем разность
sum = sum + a + B 'суммируем

Loop While (C > porog) 'разность больше порога

Y = sum 'присваиваем функции значение
End Function
Private Sub Command2_Click()
Me.Hide
Form2.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
При выполнении форма выглядит так:
Заключение
В результате выполнения курсового проекта я ознакомилась с возможностями, назначением и экранным интерфейсом интегрированных сред визуального проектирования на примере Visual Basic 6.х.
Освоила навыки проектирования и программирования собственных приложений для решения поставленных задач.
Углубила знания основ алгоритмизации задач и методов представления информации.
Закрепила и углубление знаний по созданию и обработке баз данных в СУБД MS Access.
Изучила приемы создания, заполнения таблиц и формирования требуемых запросов к базам данных.
Реализовала обмен данных между Visual Basic и СУБД Access и их программную обработку.
Литература
1. Конспект лекций по курсу «Компьютерная подготовка» (раздел «Разработка приложений в различных программных средах», лектор Лукина ТА.).
2. В.А. Машурцев, Б.М. Кудрявцев. Алгоритмизация и программирование задач в среде Visual Basic 6.0 для Windows (русифицированная версия). Часть 1. Текст лекций. /ГУУ.-М., 2005, -130 с.
3. В.А. Машурцев, Б.М. Кудрявцев. Методические указания к самостоятельной работе в среде Visual Basic. /ГУУ.-М., 2005, -70 c.
4. И.А. Несмеянов, В.В. Барковский, Л.Б. Венчковский, Т.А. Лукина. Visual Basic 6.0 – интегрированная среда проектирования программных проектов. Учебно-практическое пособие. / ГУУ. - М., 2005/06.-175 с.
5. И.А. Несмеянов, В.В. Барковский, Л.Б. Венчковский, Т.А. Лукина. Visual Basic 6.0 - интегрированная среда проектирования программных приложений. Учебное пособие. / ГУУ. - М., 2008/07.-246 с.
6. И.Д. Древаль, Т.П. Катрич, В.А. Машурцев. Проектирование приложений в интегрированной среде Visual Basic.
Учебное пособие. /ГУУ. – М., 2007. – 198 c.
7. И.А. Несмеянов, В.В. Барковский и др. Использование языка Visual Basic 6.0 при создании программных средств для обработки баз данных. Учебно-практическое пособие. / ГУУ. - М., 2004.-180 с.
8. Т.Н. Ламина, М.Е. Буланая, Т.А. Лукина. Методические указания к практическим занятиям и лабораторным работам (№ 1403) “Проектирование интерфейса пользователя в среде Visual Basic”. / ГУУ. - М., 2006.-84 c.
9. М.Е. Буланая, Т.Н. Ламина и др. Методические указания (№1019) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. / ГУУ. М., 2000.- 41 с.
10. М.Е. Буланая, Т.А. Лукина, Р.А. Гусева. Методические указания (№106) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» ( с использованием языка программирования Visual Basic. Процедуры и функции). /ГУУ. М., 2001. - 32 с.
11. М.Е. Буланая, В.В. Барковский и др. Методические указания (№531) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. /ГУУ. М., 2004. 54 с.
12. А.Г. Канаков. Методические указания к практическим занятиям по разделу “Разработка приложений в различных программных средах” на языке Visual Basic. /ГУУ. М., 2003. - 31 с.
13. А.Г. Канаков. Методические указания к выполнению лабораторных и домашних работ по дисциплине «Компьютерная подготовка» на языке Visual Basic. /ГУУ. М., 2004. - 44 с.
14. А.В. Аленичев и др. Практикум по учебной дисциплине «Компьютерная подготовка» в среде Visual Basic 6.0 Часть 1. /ГУУ. М., 2005. - 74 с.
15. А.М. Махонько, Р.А. Юзбашьянц. Методические указания (№205) к выполнению лабораторных работ и практических занятий по дисциплине «Разработка и применение пакетов прикладных программ», ГУУ.–М., 2002.–36с.
16. Т.В. Бугреева, И.А. Ильина. Методические указания (№243) к выполнению лабораторных работ с применением СУБД Access, вып.1, ГУУ – М., 2002. – 32 с.
3