- •Введение. Установка среды программирования
- •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. Обработка данных на рабочем листе Теоретическая часть Практическая часть
3. Константы Visual Basic
Формат объявления константы:
Const Имя_константы [As Тип] = Значение Константы
Имя константы и значение константы задаются так же, как имя и значение переменной.
Пример: Const Text As String = “Изучаем Visual Basic”
Кроме объявляемых констант в программе на языке Visual Basic могут использоваться системные встроенные константы, например значение цвета и т.д. Имена этих констант – ключевые слова Visual Basic.
4. Область видимости переменной
Формат оператора определения переменной:
Public / Private / Dim Имя_переменной [As Тип_переменной]
Это оператор сообщает среде Visual Basic, что будет храниться в переменной и где эту переменную можно использовать.
Область, где используется переменная, называется областью видимости переменной. переменная может существовать в памяти и быть доступной для одних частей программного кода и одновременно недоступной для других.
Переменную можно объявить для работы в пределах одной процедуры или для работы в любой процедуре данной формы, или для работы во всей программе. Область видимости задается одним из ключевых слов – Dim, Private, Public.
Dim. С ее помощью объявляют локальные переменные, которые существуют только во время вызова той процедуры, где они объявлены. Но если переменная с помощью Dim объявлена в разделе глобальных объявлений формы или модуля, то она будет доступна во всех процедурах этой формы или модуля, но для других форм и модулей такая переменная будет невидимой.
Private. Отличается от Dim тем, что не может объявлять переменные внутри процедуры или функции. При объявлении в разделе глобальных объявлений формы или модуля Dim и Private равнозначны.
Public. Если переменная объявлена с использованием этого ключевого слова, то она является глобальной и доступна из всех модулей и форм проекта. Если переменная объявлена как Public в коде формы, то из других форм и модулей доступ к ней должен осуществляться через следующую конструкцию:
Имя_формы.Имя_переменной
Если переменная объявлена как Public в разделе объявлений программного модуля, то доступ к ней возможен через ее имя.
При создании программы с несколькими формами проект будет содержать несколько файлов с расширением frm. Кроме того, можно разрабатывать программы, содержащие только код; он размещается в файлах модулей кода с расширением bas.
При разработке большой и сложной программы программу разбивают на отдельные модули, для того, чтобы упорядочить ее внутреннюю структуру. Глобальные объявления в любом модуле кода распространяются на всю программу.
Практическая часть
Задание 1. Разработать программу, вычисляющую объем куба.
Постановка задачи.
Разработать приложение, которое позволяет по введенной пользователем длине стороны вычислить объем куба. Приложение должно обеспечивать:
ввод данных пользователя – одно число, обозначающее длину стороны куба;
вычислять объем куба в зависимости от введенного числа;
вывод результата – объема куба - в метке (Label)
Примерный внешний вид приложения представлен на Рис.5.1.
Ход работы.
Создайте папку Лабораторная_работа_№5, а в ней папку 5.1.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Расположите на форме один компонент TextBox, 3 компонента CommandButton, 3 компонента Label, один из которых – для вывода результата. Установите свойства компонентов согласно Таблице 5.1 или ориентируясь на внешний вид приложения (Рис.5.1).
Таблица 5.1 – Свойства компонентов приложения «Объем куба»
Компонент |
Свойство |
Значение |
Form1 |
Caption |
Объем куба |
Name |
frmКуб |
|
MaxButton, MinButton |
False |
|
Icon |
Загрузите любое графическое изображение формата *.ico |
|
Label1 |
Caption |
Введите длину стороны куба: |
Label2 |
Caption |
Объем куба равен |
Label3 |
Caption |
|
CommandButton1 |
Caption |
Вычислить |
CommandButton2 |
Caption |
Очистить |
CommandButton3 |
Caption |
Выход |
TextBox1 |
Text |
|
Свойство Style у компонентов CommandButton установите равным 1 - Graphical Свойство Font и BackColor установите у компонентов по своему усмотрению |
Откройте окно программного кода (View - Code).
В верхних строках программного кода опишите переменные входных и выходных данных:
Dim l As Single 'входные данные – длина стороны куба
Dim V As Single 'выходные данные – объем куба
Напишите обработчик события Click, которое происходит при щелчке по кнопке «Вычислить»:
Private Sub Command1_Click()
l = Val(Text1.Text)
V = l ^ 3
Label3.Caption = Str(V) + " куб. единиц"
End Sub
Запустите приложение на выполнение (F5). Проверьте его работоспособность.
Закройте запущенное приложение.
Напишите самостоятельно обработчик события Click по кнопкам «Очистить» и «Выход», используя навыки, полученные при выполнении предыдущих лабораторных работ.
Сохраните форму и проект (выбрав File – Save FrmКуб.frm и Save Куб.vbp) в папке 5.1.
Создайте exe-файл программы с помощью команды File → Make Куб.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Куб.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Задание 2. Разработать программу, вычисляющую сумму цифр трехзначного числа. Приложение должно также очищать поля ввода и вывода результата.
Постановка задачи.
Разработать приложение, которое позволяет рассчитать сумму цифр введенного трехзначного числа. Приложение должно обеспечивать:
ввод данных пользователя – одно трехзначное число;
вычислять сумму цифр введенного трехзначного числа;
вывод результата – суммы цифр - в метке (Label)
Примерный внешний вид приложения представлен на Рис.5.2.
Ход работы.
Создайте папку Лабораторная_работа_№5, а в ней папку 5.2.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Расположите на форме один компонент TextBox, 3 компонента CommandButton, 3 компонента Label, один из которых – для вывода результата. Установите свойства компонентов согласно Таблице 5.2 или ориентируясь на внешний вид приложения (Рис.5.2).
Таблица 5.2 – Свойства компонентов приложения «Сумма цифр трехзначного числа»
Компонент |
Свойство |
Значение |
Form1 |
Caption |
Сумма цифр трехзначного числа |
Name |
frmСумма |
|
MaxButton, MinButton |
False |
|
Icon |
Загрузите любое графическое изображение формата *.ico |
|
Label1 |
Caption |
Введите трехзначное число: |
Label2 |
Caption |
Сумма цифр этого числа равна: |
Label3 |
Caption |
|
CommandButton1 |
Caption |
Вычислить |
CommandButton2 |
Caption |
Очистить |
CommandButton3 |
Caption |
Выход |
TextBox1 |
Text |
|
Свойство Style у компонентов CommandButton установите равным 1 - Graphical Свойство Font и BackColor установите у компонентов по своему усмотрению |
Откройте окно программного кода (View - Code).
В верхних строках программного кода опишите переменные входных и выходных данных:
Dim a As Integer 'входные данные – исходное число
Dim Sum As Integer 'выходные данные – сумма цифр
Напишите обработчик события Click, которое происходит при щелчке по кнопке «Вычислить»:
Private Sub Command1_Click()
a = Val(Text1.Text)
Sum = a \ 100 + (a \ 10) Mod 10 + a Mod 10
Label3.Caption = Str(Sum)
End Sub
Запустите приложение на выполнение (F5). Проверьте его работоспособность.
Закройте запущенное приложение.
Напишите самостоятельно обработчик события Click по кнопкам «Очистить» и «Выход», используя навыки, полученные при выполнении предыдущих лабораторных работ.
Сохраните форму и проект (выбрав File – Save FrmСумма.frm и Save Сумма.vbp) в папке 5.2.
Создайте exe-файл программы с помощью команды File → Make Сумма.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Сумма.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Подведем итоги
В работе были использованы новые
понятия:
постоянные величины – величины, которые в процессе выполнения программы не изменяют своих значений
тип данных – диапазон значений переменных
область видимости переменной – область, где используется переменная
способы объявления переменных:
с помощью оператора определения переменной
с помощью суффикса
с помощью оператора объявления типа
Задания для самостоятельного выполнения
1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.
2. Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов а и b.
3. Найти произведение цифр заданного трехзначного числа.
4. Найти произведение цифр заданного четырехзначного числа
5. Даны два числа. Найти среднее арифметическое суммы кубов этих чисел.
6. Составить программу вычисления объема цилиндра и конуса, которые имеют одинаковую высоту Н и одинаковый радиус основания R.
7. Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации.
8. Написать программу вычисления площади параллелограмма.
9. Написать программу вычисления объема параллелепипеда.
10. Написать программу вычисления площади поверхности параллелепипеда.
11. Написать программу вычисления объема цилиндра.
12. Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей.
13. Написать программу вычисления стоимости некоторого количества (по весу) яблок.
14. Написать программу вычисления площади треугольника, если известна длина основания и высота.
15. Написать программу вычисления площади треугольника, если известны длины двух его сторон и величина угла между этими сторонами.
16. Написать программу вычисления расстояния между населенными пунктами, изображенными на карте.
17. Написать программу пересчёта расстояния из вёрст в километры (1 верста = 1066,8 м).
18. Написать программу пересчёта веса из фунтов в килограммы (1 фунт = 409,5 грамм).
19. Написать программу пересчёта расстояния из футов в метры (1 фут = 30,48 см)
20. Написать программу, которая преобразует введённое с клавиатуры дробное число в денежный формат. Например, число 12,5 преобразовано к виду - 12 р. 50 коп
Вопросы для контроля
Что такое область видимости переменной?
Перечислите известные Вам типы данных.
Как можно объявить переменную?
Какие требования предъявляются к имени переменной?
Как объявить в программе константу?