См. задание

Sub Go_Click ()

Scale (-10, 10)-(10, -10)

R = 8

Rmin = 1

Call ConcentricCircles (R, Rmin)

End Sub

В стандартном модуле написать следующее.

Sub ConcentricCircles (R as Single, Rmin as Single)

If R > Rmin Then

Circle (0, 0), R

R = 0.9 * R

Call ConcentricCircles (R, Rmin) 'Рекурсивный вызов

End If

End Sub

Вопросы к заданию Разработать интерфейс пользователя. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов. Добиться работоспособности программы.

Задать случайное изменение цвета каждой рисуемой окружности. В отчёте привести соответствующий фрагмент текста программы.

Увеличить число выводимых окружностей в рекурсивной программе до получения сообщения об ошибке переполнения стека (Out of stack space). В отчёте указать способ увеличения числа окружностей, привести соответствующий фрагмент текста программы и иллюстрацию сообщения об ошибке.

Преобразовать программу, заменив рекурсию на цикл с условием. Привести в отчёте алгоритм цикла.

Ответы при выполнении задания Интерфейс пользователя содержит только форму и кнопку. Кнопка выполняет рекурсионное рисование окружностей.

Рисунок 13 — Рекурсия окружностей

Зададим случайное изменение цвета каждой рисуемой окружности.

Sub ConcentricCircles (R, Rmin)

If R > Rmin Then

Select Case color

Case 1

FillColor = &HFF00FF

Case 2

FillColor = &HFFFF00

Case 3

FillColor = &HFF0000

Case 4

FillColor = &H800080

Case 5

FillColor = &HFF00&

Case Else

FillColor = &HFF&

End Select

If color < 6 Then

color = color + 1

Else: color = 1

End If

Circle (0, 0), R, FillColor

R = 0.9 * R

Call ConcentricCircles (R, Rmin)

End If

End Sub

Увеличить число выводимых окружностей в рекурсивной программе до получения сообщения об ошибке переполнения стека (Out of stack space). Для увеличения укажем условие с константой и определим предел для значения R=2*10−215. Теперь, задавая большее значение, приведем к оптимальному значению Rmin=9*10−214. Получим след результат:

Рисунок 14 — До переполнения стека

Преобразуем программу, заменив рекурсию на цикл с условием.

Do Until (R < Rmin)

Select Case color

Case 1

FillColor = &HFF00FF

Case 2

FillColor = &HFFFF00

Case 3

FillColor = &HFF0000

Case 4

FillColor = &H800080

Case 5

FillColor = &HFF00&

Case Else

FillColor = &HFF&

End Select

If color < 6 Then

color = color + 1

Else: color = 1

End If

Circle (0, 0), R, FillColor

R = 0.9 * R

Call ConcentricCircles (R, Rmin)

Loop

Массив объектов управления Задание Создать программу по типу арифметического калькулятора.

Форма должна иметь 10 цифровых кнопок, кнопку сброса, кнопки арифметических действий, кнопку результата (=) и две метки (одну для отображения вводимых чисел и для вывода результата и ещё одну для отображения знака операции).

Цифровые кнопки организовать в массив. Для этого создать первый элемент массива обычным способом (нарисовать кнопку на форме), а затем снять с него копию и разместить её на форме. При этом Бейсик спросит по-английски: «Вы хотите создать массив объектов управления?». Нужно подтвердить это предложение. У всех последующих элементов массива будет одинаковое имя и автоматически присваиваемый порядковый номер (индекс).

В модуле кода формы создать процедуру-событие на щелчок по любой кнопке массива кнопок. Программа автоматически определит и передаст в процедуру порядковый номер нажатой кнопки (индекс). Использовать его для дальнейших действий.

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

В отчёте привести алгоритм получения результата операции сложения.

Ввести в программу блок обработки ошибок On Error (при делении на ноль). В этом случае на дисплей калькулятора должно выводиться сообщение: «На ноль делить нельзя!».

Ответы при выполнении задания

Рисунок 15 — Калькулятор В данной программе используются следующие две переменных:

Dim s As Double

Dim a As Integer

Переменная, А для задания статуса кнопок сложения, умножения, деления и вычитания. А переменная S — для выполнения данных действий.

Приведем алгоритм получения результата операции сложения.

Case 10

s = CInt (Text1.Text) + CInt (Command1(Index).Caption)

Text1.Text = Command1(Index).Caption

…

If a = 14 Then

Text1.Text = Str (s)

End If

Первая часть выполняет саму операцию сложения, вторая вывод результатов.

Введем в программу блок обработки ошибок On Error (при делении на ноль). В этом случае на дисплей калькулятора должно выводиться сообщение: «На ноль делить нельзя!».

If Command1(Index).Caption = «0» And a = 13 Then

Label1.Caption = «ошибка: на ноль делить нельзя»

a = 0

Text1.Text = «»

End If

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

Игра «Угадайка»

Задание Имеется массив из пяти элементов типа «альтернативные переключатели». При нажатии кнопки Игра программа каждый раз случайным образом выбирает один из элементов. Пользователь должен угадать выбранный компьютером элемент, щёлкнув по нему.

Вопросы к заданию Разработать интерфейс пользователя по образу игрового автомата. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов.

Реализовать приз за три правильных угадывания подряд. В отчёте привести алгоритм учёта правильных ответов.

Создать (найти) специальные картинки и заменить ими альтернативные переключатели. В отчёте описать сделанные изменения.

Добавить в программу функцию начисления очков за правильные ответы и снятия очков за неправильные. Игра ведётся до определённой суммы очков. Пользователь может в любой момент прервать текущий сеанс и начать новый.

Ответы при выполнении задания Разработаем интерфейс пользователя по образу игрового автомата. В нем используются объект Frame для размещения объектов Option, которые надо угадать. И кнопку для загадывания компьютером числа.

Рисунок 16 — интерфейс программы

Реализуем приз за три правильных угадывания подряд. Алгоритм учета правильных ответов следующий:

If CInt (a) = Index Then

Label1.Caption = «Угадал»

b = b + 1

a = Rnd () * 5

Else: Label1. Caption = «Не угадал»

b = 0

End If

If b = 3 Then

Label1.Caption = «Выиграли»

a = Rnd () * 5

End If

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

Создадим специальные картинки и заменим ими альтернативные переключатели.

Рисунок 17 — Картинки с цветами

Код с альтернативных переключателей скопировали в код этих картинок.

Добавим в программу функцию начисления очков за правильные ответы и снятия очков за неправильные. Игра ведётся до определённой суммы очков (55 очков). Пользователь может в любой момент прервать текущий сеанс и начать новый.

Рисунок 18 — Игра с очками

Список использованных источников

информации

Язык программирования Microsoft Visual BASIC: сборник лабораторных работ / сост. О. А. Обвинцев. — Екатеринбург: изд. ИПК УГТУ, 2003. — 51 с.

Правила оформления курсовых и дипломных проектов (работ): методические указания / О. А. Обвинцев. — Екатеринбург: УГТУ-УПИ, 2007. — 28 с.

Петрусос Е. Эффективная работа: Visual Basic .NET (+CD) / Е. Петрусос. — СПб.: Питер, 2002. — 928 с.

Волчёнков Н. Г. Программирование на Visual Basic 6: в 3 ч. Часть 3 / Н. Г. Волчёнков. -

М.: ИНФРА-М, 2000. — 238 с.

Visual Basic 6.0: пер. с англ. — СПб.: БХВ — Санкт-Петербург, 1998. — 992 с.