Лабораторно-практическая работа № 10

Тема: Встроенные функции

Цель: Получить навыки использования функций графики

Порядок выполнения

1. В графическом редакторе Paint создайте четыре рисунка «зима», «весна, «лето», «осень» и сохраните рисунки в отдельных файлах на диске С:

2. Откройте новый проект, установите следующие объекты и измените им свойства

Объект	Свойство	Значение
Форма	Name	frmPaint
	WindowState	2-Maximized
Метка	Name	LblResult
	Caption	0
Полоса прокрутки	Name	HsbSet
	Max	15
	Min	1
Командные кнопки	Name	CmdWinter
	Caption	Зима
	Name	CmdSpring
	Caption	Весна
	Name	CmdSummer
	Caption	Лето
	Name	CmdAutumn
	Caption	Осень
	Name	cmdExit
	Caption	Выход

3. Приведите свою форму в соответствие с образцом

4. Вокне кода процедуры обработки событияChange набрать для объекта HsbSet

lblResult.Caption = Str(hsbSet.Value)

frmPaint.BackColor = QBColor(hsbSet.Value)

5. Такой же код набрать для обработки события Scroll для объекта HsbSet.

6. В окне кода процедуры обработки события Click набрать для объекта cmdExit

MsgBox “До свидания”,0,”Выход”

End

7. В окне кода процедуры обработки события Click набрать для объекта cmdWinter

frmPaint.Picture = LoadPicture("c:\Мои Документы\зима.bmp")

8. Самостоятельно набрать для других командных кнопок. Проверьте работу программы

Задания для самостоятельного выполнения

При выполнении ниже приведенных заданий должны быть выполнены следующие требования:

• форма приложения должна полностью соответствовать приведенному образцу;

• имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;

• имена переменных должны быть информативны;

• все используемые переменные должны быть объявлены;

• проект должен быть сохранен.

Задание № 1

Расположите на форме командную кнопку и линию. Разработайте приложение, работающее следующим образом: при щелчке по кнопке линия перемещается в новое положение в пределах формы, при этом координаты линии определяются случайными числами, а также случайным образом меняется цвет линии и ее толщина.

Задание № 2

Разработайте приложение, которое для введенного значения радиуса окружности вычисляет длину окружности, площадь круга, а также меняет размер фигуры – окружности в соответствии с указанным радиусом.

Задание № 4

Разработать приложение, которое по введенным координатам вершин треугольника вычисляет длины сторон треугольника и его площадь.

Задание № 5

Разработать приложение, которое для введенного текста выполняет:

• определение кода первого и последнего символа;

• вывод введенного текста, поменяв местами первый и последний символ;

• вывод первой половины текста;

• вывод второй половины текста

Задание № 6

Разработать приложение, которое для введенного целого числа выполняет:

• вывод последней цифры числа;

• вывод исходного числа без последней цифры;

• вычисление суммы двух последних цифр числа;

• выводит исходное число, заменив последнюю цифру на ноль.

Задание № 7

Разработайте приложение для определения общей стоимости покупки (в рублях и долларах). Название продуктов выбираются из списка, цены, количество, курс доллара вводит пользователь.

Задание № 8

Разработать программу «Распределение годового бюджета государства». Форму разработать в соответствии с образцом.Входными даннымиявляются:Общая сумма бюджета,Распределение бюджета в долях (например: 1 / 3 или 2 / 5).Выходными даннымиявляются:Распределение бюджета в процентах, Распределение в денежных единицах.

Задание № 9

Разработать приложение, с помощью которого можно было определить число молекул воздуха в комнате, если задано так называемое число Лошмидта , равное 2, 6868 10 ²⁵ – число молекул в одном кубическом метре воздуха при нормальных условиях. Размеры комнаты вводить в метрах с точностью 0.01. Форму разработать в соответствии с образцом.

Задание № 10

Разработать приложение, которое определяет номер дня недели для введенной даты, а также определяет дату следующего дня. Исходная дата вводится в три текстовых окна (день, месяц, год соответственно).

Список использованной литературы

1. Росс Нельсон, Running Visual Basic 3 for Windows, пер. с англ. – М.: Издательский отдел «Русская Редакция» ТОО «Channel Trading Ltd.», 1995

2. Кауэлл Дж.Visual Basic 4.0: просто - о самом существенном, Пер. с англ. - М. :ИНФРА-М, 1998.

3. Волченков Н.Г. Учимся программировать: Visual Basic 5, - М.:»Диалог-МИФИ», 1998

4. Волченков Н.Г, Программирование на Visual Basic 6 в 3-х ч., М.:ИНФРА-М, 2000

5. Visual Basic 6.0, Руководство для профессионалов, пер. с англ.- СПб.:БХВ – Санкт-Петербург, 1999