Вход

см. задание

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 126714
Дата создания 2009
Страниц 35
Источников 5
Мы сможем обработать ваш заказ (!) 1 ноября в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
2 930руб.
КУПИТЬ

Содержание

Основная часть
Типы и значение переменных
2.1.1.Работа со строками
Задание
В модуле кода формы написать следующее.
Private Sub cmdGo_Click()
Print txtIn1.Text + 1
Print txtIn2.Text + 1.23
Print txtIn3.Text + "1.23"
Print txtIn4.Text + 1,23
Print txtIn5.Text + "Тысяча"
End Sub
Вопросы к заданию
1.Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.
2.Добиться работоспособности программы и объяснить выводимые значения.
3.В каждом операторе Print добавить функцию Val() для обработки содержимого поля ввода:
Val(txtIn.Text)
Объяснить выводимые результаты, используя справку по функции Val().
4.В каждом операторе Print вместо функции Val() использовать функцию Str() для обработки второго слагаемого и заменить знак «+» на знак «&» для сцепления цепочек символов.
Было: Print Val(txtIn.Text)
Сделать: Print Val(txtIn.Text) & Str(1.23)
Объяснить результаты, используя справку по функции Str().
5.Добиться работоспособности программы. Объяснить сделанные изменения.

Фрагмент работы для ознакомления

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 с.
35

Список литературы [ всего 5]

Список использованных источников информации
1.Язык программирования Microsoft Visual BASIC : сборник лабораторных работ / сост. О. А. Обвинцев. – Екатеринбург : изд. ИПК УГТУ, 2003. – 51 с.
2.Правила оформления курсовых и дипломных проектов (работ) : методические указания / О. А. Обвинцев. – Екатеринбург: УГТУ–УПИ, 2007. – 28 с.
3.Петрусос Е. Эффективная работа: Visual Basic .NET (+CD) / Е. Петрусос. – СПб. : Питер, 2002. – 928 с.
4.Волчёнков Н. Г. Программирование на Visual Basic 6 : в 3 ч. Часть 3 /
Н. Г. Волчёнков. – М. : ИНФРА-М, 2000. – 238 с.
5.Visual Basic 6.0 : пер. с англ. – СПб. : БХВ – Санкт-Петербург, 1998. – 992 с.
Очень похожие работы
Найти ещё больше
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00443
© Рефератбанк, 2002 - 2024