
- •Введение. Установка среды программирования
- •2. История языка Basic
- •3. Установка Visual Basic
- •Лабораторная работа №1. Интерфейс Visual Basic. Создание первого проекта
- •Теоретическая часть
- •1 . Первое знакомство
- •5. Стандартная панель инструментов
- •Практическая часть
- •Лабораторная работа №2. Изменение свойств компонентов. Метод Print
- •Теоретическая часть
- •1. Состав панели управления
- •2. Окно свойств и редактора кода
- •3. Свойства элементов управления
- •3.1 Свойства элемента Form
- •3.2 Свойства элемента TextBox
- •3.3. Свойства компонента CommandButton
- •Объект.Print [Список вывода]
- •Объект.Cls Практическая часть
- •Лабораторная работа №3. Работа с простейшим графическим объектом Visual Basic
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №4. Работа с арифметическими выражениями и функциями
- •Теоретическая часть
- •1. Арифметические выражения Visual Basic.
- •2. Встроенные функции Visual Basic
- •3. Функции преобразования
- •Str (число)
- •Val (символьное выражение)
- •Практическая часть
- •Лабораторная работа №5. Решение простейших математических задач с использованием линейных алгоритмов
- •Теоретическая часть
- •1. Типы данных
- •2. Объявление переменных
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Оператор_объявления_типа Строка_интервалов_имен
- •3. Константы Visual Basic
- •4. Область видимости переменной
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Имя_формы.Имя_переменной
- •Практическая часть
- •Лабораторная работа №6. Программирование ветвлений с использованием оператора If
- •Теоретическая часть
- •1. Конструкция If … Then … End If
- •2. Конструкция If … Then … Else … End If
- •3. Конструкция If … Then … Else If… End If
- •Практическая часть
- •Лабораторная работа №7. Программирование ветвлений с использованием оператора Case
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №8. Программирование циклов
- •Теоретическая часть
- •1. Цикл For…Next
- •2. Цикл For Each … Next
- •3. Цикл Do While … Loop
- •4. Цикл Do Until … Loop
- •5. Цикл Do … Loop While
- •6. Цикл Do … Loop Until
- •7. Цикл While … Wend
- •Практическая часть
- •Лабораторная работа №9. Разработка приложений для обработки массивов
- •Теоретическая часть
- •1. Объявление массивов
- •2. Массивы с фиксированной границей и динамические массивы.
- •UBound (имяМассива [, измерение]) Практическая часть
- •Лабораторная работа №10. Разработка приложений с использованием методов рисованИя графических примитивов
- •Теоретическая часть
- •1. Графическая поверхность
- •2. Графические примитивы
- •Практическая часть
- •Лабораторная работа №11. Построение графиков и диаграмм
- •Лабораторная работа №12. Применение пользовательских диалоговых окон
- •Теоретическая часть
- •1. Окно и функция InputBox
- •2. Окно MsgBox
- •MsgBox Текст сообщения [,Константа] [,Заголовок]
- •3. Функция MsgBox()
- •Практическая часть
- •Лабораторная работа №13. Разработка компьютерного теста с использованием Visual Basic
- •Теоретическая часть
- •Лабораторная работа №14. Создание пользовательского меню и панели инструментов
- •Теоретическая часть
- •Call Имя процедуры ([Список Параметров Вызова]),
- •Практическая часть
- •Лабораторная работа №15. Создание текстового редактора
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №16. Разработка мультимедиа-приложений
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №17. Макросы: запись, запуск, чтение
- •Теоретическая часть
- •Обычно макрос содержит следующие элементы.
- •Практическая часть
- •Лабораторная работа №18. Создание форм рабочего листа
- •Теоретическая часть
- •1. Когда необходимо использовать vba в Excel
- •2. Объект Application
- •3. Объект Workbook
- •4. Объект Worksheet
- •5. Объект Range
- •Инициализация и отображение диалогового окна
- •Практическая часть Создание пользовательской формы
- •Создание пользовательской формы
- •Практические задания по программированию на vba
- •Лабораторная работа №19. Создание книги лабораторных работ с автоматизированным выбором страниц книги
- •Практическая часть
- •Лабораторная работа №20. Моделирование процессов
- •Теоретическая часть
- •Лабораторная работа №21. Создание сводных таблиц в vba
- •Теоретическая часть Практическая часть
- •Лабораторная работа №22. Работа с компонентом Chart
- •Теоретическая часть Практическая часть
- •Лабораторная работа №23. Работа с базами данных в Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №24. Работа с базами данных в Excel с использованием Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №25. Обработка данных на рабочем листе Теоретическая часть Практическая часть
Практическая часть
Задание 1. Составить программу, рисующую флаг РФ.
Постановка задачи.
Требуется составить два варианта программы, рисующей флаг РФ:
Флаг РФ рисуется на форме при ее создании (автоматически) (событие Paint)
Флаг РФ рисуется на форме при щелчке на ней мышью (событие Click)
Ход работы.
Создайте папку Лабораторная_работа_№10, а в ней папку 10.1.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Установите для формы значение свойства ScaleMode равное 3 – Pixels, свойства Name – frmФлаг, а свойства Caption – Флаг РФ.
Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint
Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):
Private Sub Form_Paint()
FrmФлаг.Line (10, 10)-(400, 100), vbWhite, BF 'рисуем белый прямоугольник
FrmФлаг.Line (10, 100)-(400, 200), vbBlue, BF 'рисуем синий прямоугольник
FrmФлаг.Line (10, 200)-(400, 300), vbRed, BF 'рисуем красный прямоугольник
FrmФлаг.Caption = "Флаг РФ" 'задаем название формы
End Sub
Сохраните проект (выбрав File – Save FrmФлаг.frm и Save Флаг.vbp)
Проверьте работоспособность проекта, запустив его на выполнение.
Создайте exe-файл программы с помощью команды File → Make ФлагРФ-1.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Флаг РФ-1.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Для создания второго варианта программы необходимо выбрать событие Click, код остается неизменным. Сохраните второй вариант программы в папке 10.2.
Задание 2. Составить программу, рисующую смайлик.
Постановка задачи.
Требуется составить программу, рисующую радостный и грустный смайлик
Ход работы.
Создайте в папке Лабораторная_работа_№10 папку 10.3.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Задайте свойству Name формы значение frmСмайл.
Установите для формы значение свойства ScaleMode равное 3 – Pixels.
Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint
Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):
Private Sub Form_Paint()
'рисуем радостный смайлик
FillStyle = vbFSSolid 'стиль закраски - сплошная заливка
FillColor = QBColor(14) 'цвет заливки – желтый
Circle (200, 200), 100, QBColor(14) 'рисуем оболочку смайла
FillStyle = vbFSSolid
FillColor = QBColor(0)
Circle (170, 160), 10, QBColor(0) 'рисуем левый глазик
Circle (230, 160), 10, QBColor(0) 'рисуем правый глазик
Circle (200, 200), 5, QBColor(0) 'рисуем носик
FillStyle = vbFSSolid
FillColor = QBColor(15)
Circle (170, 160), 2, QBColor(15) 'рисуем левый зрачок
Circle (230, 160), 2, QBColor(15) 'рисуем правый зрачок
FillStyle = vbFSSolid
FillColor = QBColor(0)
Circle (200, 200), 60, QBColor(0), 3.88, 5.55 'рисуем улыбку
Form1.Caption = "Смайлики" 'задаем название формы
'рисуем грустный смайлик
FillStyle = vbFSSolid
FillColor = QBColor(14)
Circle (500, 200), 100, QBColor(14)
FillStyle = vbFSSolid
FillColor = QBColor(0)
Circle (470, 160), 10, QBColor(0)
Circle (530, 160), 10, QBColor(0)
Circle (500, 200), 5, QBColor(0)
FillStyle = vbFSSolid
FillColor = QBColor(15)
Circle (470, 160), 2, QBColor(15)
Circle (530, 160), 2, QBColor(15)
FillStyle = vbFSSolid
FillColor = QBColor(0)
Circle (500, 300), 60, QBColor(0), 0.83, 2.3 'рисуем грустную улыбку
End Sub
Сохраните проект (выбрав File – Save frmСмайл.frm и Save Смайл.vbp)
Проверьте работоспособность проекта, запустив его на выполнение.
Создайте exe-файл программы с помощью команды File → Make Смайлики.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Смайлики.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Задание 3. Составить программу, рисующую олимпийские кольца.
Постановка задачи.
Требуется составить программу, рисующую олимпийские кольца. Указать координаты только первой окружности. Координаты каждой следующей отсчитываются от центра предыдущей.
Ход работы.
Создайте в папке Лабораторная_работа_№10 папку 10.4.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Задайте свойству Name формы значение frmОлимпиада.
Установите для формы значение свойства ScaleMode равное 3 – Pixels.
Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint
Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):
Private Sub Form_Paint()
Dim x, y As Integer
Dim r As Integer 'r - радиус окружности
Dim st As String 'st - надпись
r = 20
x = 60
y = 40
DrawWidth = 2 'ширина линии
FillStyle = vbFSTransparent 'область внутри колец - прозрачная
'рисуем левое кольцо верхнего ряда
Circle (x, y), r, vbBlue
'второе кольцо сдвинуто относительно первого на 30
Circle (x + 30, y), r, vbBlack
'второе кольцо сдвинуто относительно второго на 60
Circle (x + 60, y), r, vbRed
'второй ряд колец
Circle (x + 15, y + 20), r, vbYellow
Circle (x + 45, y + 20), r, RGB(35, 142, 35)
st = "Олимпийские кольца"
FrmОлимпиада.Font.Size = 12
CurrentX = 20
CurrentY = 80
Print st
FrmОлимпиада.Caption = "Олимпиада"
End Sub
Сохраните проект (выбрав File – Save frmОлимпиада.frm и Save Олимпиада.vbp).
Проверьте работоспособность проекта, запустив его на выполнение.
Создайте exe-файл программы с помощью команды File → Make Олимпиада.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Олимпиада.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Подведем итоги
В работе были использованы новые
понятия:
твип – единица измерения графической поверхности; по умолчанию равна 15 пикселей
абсолютная адресация – ситуация, когда координаты точек отсчитываются от левого верхнего угла графической поверхности
относительная адресация – ситуация, когда координаты точек отсчитываются от текущего положения указателя графического вывода
указатель графического вывода – графический курсор, который, в отличие от обычного текстового курсора, на экране не отображается
свойства:
CurrentX, CurrentY – задают информацию о текущем положении указателя графического вывода
Scale – свойство графической поверхности (формы или компонента PictureBox), определяющее ее размерность
операторы:
PSet(x,y), Color – оператор рисования точки
Line(x1,y1) – (x2,y2), Color – оператор рисования линии
Circle(x,y),r, Color – оператор рисования окружности
Circle(x,y),r, Color, start, fin – оператор рисования дуги/сектора
Circle(x,y),r, Color, start, fin, aspect – оператор рисования эллипса
события:
Paint – событие рисования на графической поверхности
Задания для самостоятельного выполнения
1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.
2. Создайте программу, рисующую на форме кораблик.
3. Создайте программу, рисующую на форме пятиконечную звезду.
4. Создайте программу, рисующую на форме автомобиль
5. Создайте программу, рисующую на форме бабочку
Вопросы для контроля
1. Какие способы вывода графической информации в Visual Basic Вам известны?
2. Перечислите известные Вам методы (операторы), которые форма и/или компонент PictureBox использует при построении графических изображений.
3. Какой метод позволяет выводить текст на форме или компоненте PictureBox?
4. Можно ли менять шрифт надписей в ходе выполнения программы?
5. Что такое свойство Scale? Как оно задается и какие особенности имеет?