- •Лабораторный практикум
- •2 Часть
- •Visual Basic. Основы программирования
- •Дмитров 2012
- •Содержание
- •Предисловие
- •Данные, Выражения, Функции Данные вVisualBasic
- •Типы данных
- •Константы
- •Переменные
- •Область видимости переменных
- •Присвоение значения переменной
- •Выражения и функции Арифметическое выражение
- •Логическое выражение
- •Строковое выражение
- •Встроенные математические функции
- •Финансовые функции
- •Функции обработки строк
- •Функции даты и времени
- •Системные функции
- •Функции преобразования типов
- •Функции для работы с графикой
- •Лабораторно-практические работы Общие рекомендации по выполнению работ
- •Лабораторно-практическая работа №1
- •Лабораторно-практическая работа № 2
- •2 Часть
- •Лабораторно-практическая работа № 3
- •Лабораторно-практическая работа № 4
- •Лабораторно-практическая работа № 5
- •Лабораторно-практическая работа №6
- •Лабораторно-практическая работа №7
- •Лабораторно-практическая работа №8
- •2 Часть
- •Лабораторно-практическая работа №9
- •Лабораторно-практическая работа № 10
- •Задания для самостоятельного выполнения
Лабораторно-практическая работа № 10
Тема: Встроенные функции
Цель: Получить навыки использования функций графики
Порядок выполнения
В графическом редакторе Paint создайте четыре рисунка «зима», «весна, «лето», «осень» и сохраните рисунки в отдельных файлах на диске С:
Откройте новый проект, установите следующие объекты и измените им свойства
-
Объект
Свойство
Значение
Форма
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
Выход
Приведите свою форму в соответствие с образцом
Вокне кода процедуры обработки событияChange набрать для объекта HsbSet
lblResult.Caption = Str(hsbSet.Value)
frmPaint.BackColor = QBColor(hsbSet.Value)
Такой же код набрать для обработки события Scroll для объекта HsbSet.
В окне кода процедуры обработки события Click набрать для объекта cmdExit
MsgBox “До свидания”,0,”Выход”
End
В окне кода процедуры обработки события Click набрать для объекта cmdWinter
frmPaint.Picture = LoadPicture("c:\Мои Документы\зима.bmp")
Самостоятельно набрать для других командных кнопок. Проверьте работу программы
Задания для самостоятельного выполнения
При выполнении ниже приведенных заданий должны быть выполнены следующие требования:
форма приложения должна полностью соответствовать приведенному образцу;
имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;
имена переменных должны быть информативны;
все используемые переменные должны быть объявлены;
проект должен быть сохранен.
Задание № 1
Расположите на форме командную кнопку и линию. Разработайте приложение, работающее следующим образом: при щелчке по кнопке линия перемещается в новое положение в пределах формы, при этом координаты линии определяются случайными числами, а также случайным образом меняется цвет линии и ее толщина.
Задание № 2
Разработайте приложение, которое для введенного значения радиуса окружности вычисляет длину окружности, площадь круга, а также меняет размер фигуры – окружности в соответствии с указанным радиусом.
Задание № 4
Разработать приложение, которое по введенным координатам вершин треугольника вычисляет длины сторон треугольника и его площадь.
Задание № 5
Разработать приложение, которое для введенного текста выполняет:
определение кода первого и последнего символа;
вывод введенного текста, поменяв местами первый и последний символ;
вывод первой половины текста;
вывод второй половины текста
Задание № 6
Разработать приложение, которое для введенного целого числа выполняет:
вывод последней цифры числа;
вывод исходного числа без последней цифры;
вычисление суммы двух последних цифр числа;
выводит исходное число, заменив последнюю цифру на ноль.
Задание № 7
Разработайте приложение для определения общей стоимости покупки (в рублях и долларах). Название продуктов выбираются из списка, цены, количество, курс доллара вводит пользователь.
Задание № 8
Разработать программу «Распределение годового бюджета государства». Форму разработать в соответствии с образцом.Входными даннымиявляются:Общая сумма бюджета,Распределение бюджета в долях (например: 1 / 3 или 2 / 5).Выходными даннымиявляются:Распределение бюджета в процентах, Распределение в денежных единицах.
Задание № 9
Разработать приложение, с помощью которого можно было определить число молекул воздуха в комнате, если задано так называемое число Лошмидта , равное 2, 6868 10 25 – число молекул в одном кубическом метре воздуха при нормальных условиях. Размеры комнаты вводить в метрах с точностью 0.01. Форму разработать в соответствии с образцом.
Задание № 10
Разработать приложение, которое определяет номер дня недели для введенной даты, а также определяет дату следующего дня. Исходная дата вводится в три текстовых окна (день, месяц, год соответственно).
Список использованной литературы
Росс Нельсон, Running Visual Basic 3 for Windows, пер. с англ. – М.: Издательский отдел «Русская Редакция» ТОО «Channel Trading Ltd.», 1995
Кауэлл Дж.Visual Basic 4.0: просто - о самом существенном, Пер. с англ. - М. :ИНФРА-М, 1998.
Волченков Н.Г. Учимся программировать: Visual Basic 5, - М.:»Диалог-МИФИ», 1998
Волченков Н.Г, Программирование на Visual Basic 6 в 3-х ч., М.:ИНФРА-М, 2000
Visual Basic 6.0, Руководство для профессионалов, пер. с англ.- СПб.:БХВ – Санкт-Петербург, 1999