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

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

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

Объект	Свойство	Значение
Форма	Name	frmPaint
	WindowState	2-Maximized
Метка	Name	LblResult
Caption
Полоса прокрутки	Name	HsbSet
	Max
	Min
Командные кнопки	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

Дата добавления: 2015-11-16