VB Лабораторный практикум 2 часть












ЛАБОРАТОРНЫЙ ПРАКТИКУМ
2 часть

Visual Basic. Основы программирования
Теория
Лабораторно-практические работы
Задания для самостоятельного выполнения























Содержание

13 TOC \o "1-3" 14Предисловие 13 PAGEREF _Toc491762815 \h 14415
Данные, Выражения, Функции 13 PAGEREF _Toc491762816 \h 14515
Данные в Visual Basic 13 PAGEREF _Toc491762817 \h 14515
Типы данных 13 PAGEREF _Toc491762818 \h 14515
Константы 13 PAGEREF _Toc491762819 \h 14515
Переменные 13 PAGEREF _Toc491762820 \h 14615
Область видимости переменных 13 PAGEREF _Toc491762821 \h 14615
Присвоение значения переменной 13 PAGEREF _Toc491762822 \h 14715
Выражения и функции 13 PAGEREF _Toc491762823 \h 14815
Арифметическое выражение 13 PAGEREF _Toc491762824 \h 14815
Логическое выражение 13 PAGEREF _Toc491762825 \h 14815
Строковое выражение 13 PAGEREF _Toc491762826 \h 14815
Встроенные математические функции 13 PAGEREF _Toc491762827 \h 14915
Финансовые функции 13 PAGEREF _Toc491762828 \h 14915
Функции обработки строк 13 PAGEREF _Toc491762829 \h 14915
Функции даты и времени 13 PAGEREF _Toc491762830 \h 14915
Системные функции 13 PAGEREF _Toc491762831 \h 141015
Функции преобразования типов 13 PAGEREF _Toc491762832 \h 141015
Функции для работы с графикой 13 PAGEREF _Toc491762833 \h 141015
Лабораторно-Практические работы 13 PAGEREF _Toc491762834 \h 141115
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА №1 13 PAGEREF _Toc491762835 \h 141215
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2 13 PAGEREF _Toc491762836 \h 141415
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3 13 PAGEREF _Toc491762837 \h 141615
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 4 13 PAGEREF _Toc491762838 \h 141815
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 5 13 PAGEREF _Toc491762839 \h 142015
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6 13 PAGEREF _Toc491762840 \h 142215
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 7 13 PAGEREF _Toc491762841 \h 142415
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8 13 PAGEREF _Toc491762842 \h 142615
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9 13 PAGEREF _Toc491762843 \h 142815
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 10 13 PAGEREF _Toc491762844 \h 143015
Задания для самостоятельного выполнения 13 PAGEREF _Toc491762845 \h 143115
Задание № 1 13 PAGEREF _Toc491762846 \h 143115
Задание № 2 13 PAGEREF _Toc491762847 \h 143115
Задание № 4 13 PAGEREF _Toc491762848 \h 143115
Задание № 5 13 PAGEREF _Toc491762849 \h 143115
Задание № 6 13 PAGEREF _Toc491762850 \h 143115
Задание № 7 13 PAGEREF _Toc491762851 \h 143215
Задание № 8 13 PAGEREF _Toc491762852 \h 143215
Задание № 9 13 PAGEREF _Toc491762853 \h 143315
Задание № 10 13 PAGEREF _Toc491762854 \h 143315
Список использованной литературы 13 PAGEREF _Toc491762855 \h 143415
15


Предисловие

Язык программирования Visual Basic все шире используется в российском образовании. Одна из проблем, с которыми сталкивается преподаватель, работающий с этим языком, - недостаток методической литературы. Данное учебное пособие может быть полезно преподавателям и учащимся, (подготовленным пользователям) изучающим объектно-ориентированное программирование на языке Visual Basic, а также может использоваться при проведении факультативных и кружковых занятиях в средних учебных заведениях. Опыт работы с другими языками программирования не обязателен, хотя, конечно, полезен.
Цель данного пособия – предоставить пользователю систематическое и наглядное изложение примеров разработки приложений под Windows.
Учебное пособие ( часть 2 )состоит из трех основных разделов:
Теория
В этом разделе рассматриваются такие важные понятия, как переменная, значение переменной, стандартные типы данных, встроенные функции и оператор присвоения. Этот материал не претендует на полное изложение, его следует рассматривать, скорее всего, как справочную информацию, которая позволит эффективно выполнять практические работы.

Лабораторно-практические работы по темам:
Каждая работа содержит подробное пошаговое описание действий по созданию программного проекта. При оценке выполнения практических работ следует обращать внимание на точное выполнение всех предписаний в работе.

Задания для самостоятельного выполнения
Самостоятельное выполнение заданий позволяет закрепить навыки работы учащихся в среде Visual Basic Преподаватель может использовать их в качестве контрольных работ.

Как работать с пособием.

Для правильной работы необходимо иметь:
Операционную систему Windows 95 или более поздней версии;
Visual Basic 5.0. и выше;
Процессор Pentium 166 MHz и выше;
5 MB HDD и более;
Драйвер CD ROM;
Монитор VGA или более высокого разрешения;
16 MB RAM;
Мышь.
При установке Visual Basic на учебный компьютер должны быть включена библиотека рисунков и значков Graphics.

Использованию данного учебного пособия должно предшествовать изучение теоретического материала по тематике практических работ.
Перед выполнением первой практической работы учащийся должен создать свою папку на диске и в дальнейшем свои приложения сохранять в ней.
Контроль правильности выполнения практических работ и заданий для самостоятельного выполнения осуществляет преподаватель в режиме проектирования и в режиме выполнения.


Данные, Выражения, Функции
Данные в Visual Basic
Любая программа выполняет обработку данных. Данные могут быть постоянными величинами ( константы ) и переменными величинами. Переменные и постоянные величины должны быть отнесены к какому-либо типу данных. В Visual Basic существует набор стандартных типов данных, кроме того можно объявить свой собственный тип данных.
Типы данных
Типом данных называется способ хранения и представления данных в компьютерной системе. Стандартные типы данных, поддерживаемые языком Visual Basic , приведены в таблице.

Тип данных
Диапазон значений
Объем занимаемой памяти

Integer (целое)
от -32768 до 32767
2 байта

Long
(длиное целое)
от –2147483648 до 2147483647
4 байта

Byte (короткое целое число)
от 0 до 255
1 байт

Boolean (булево)
False, True
2 байта

Single
(десятичное обычной точности)
от 1,41 Е-45 до 3,4 Е+38 (по модулю)
4 байта

Double
(десятичное двойной точности)
от 4,95 Е-324 до 1,79 Е+308 (по модулю)
8 байт

String (строка)
Строка любых символов
1 байт на каждый символ

Object (объект)
Ссылка на объект
4 байта

Variant
(произвольный)

16 байт (числ. тип)
22 байта +длина строки (строковый тип)

Date (дата)

Значения даты и времени диапазон от 01 янв. 100 г до 31 дек. 9999г.
8 байт

Currency
Десятичное протяженное
Значением является число до 15 знаков до десят.точки до 4 знаков после точки.
8 байт


Константы
Константы – это такие величины, которые в процессе выполнения программы не изменяют своих значений. Visual Basic имеет целый ряд внутренних (системных ) констант, которые имеют префикс vb. В качестве примера -Таблица констант дней недели
Имя константы
Значение

VbSunday
1

VbMonday
2

VbTuesday
3

VbWednesday
4

VbThursday
5

VbFriday
6

VbSaturday
7

Константы, определяющие цвет, смотрите в приложении Учебного пособия часть 1
Константа VbTab делает промежутки при выводе информации.
Подробно константы системы Visual Basic перечислены в библиотеках объектов VB и VBA в окне Object Browser (просмотр объектов)
Переменные
Переменные величины при выполнении программы могут свои значения изменять. Переменная имеет имя. Правила формирования имени переменной:
имя начинается с буквы; остальные символы – буквы и цифры, можно использовать знак подчеркивания «_»;
имя не должно содержать точки;
длина имени не более 255 символов;
имя должно быть уникальным в пределах данной процедуры;
выбирать имя лучше так, чтобы оно несло информацию о назначении переменной;
имя не должно быть ключевым словом Visual Basic.
Visual Basic не требует обязательного объявления переменной перед ее использованием. Если переменная не объявлена, Visual Basic использует тип данных, заданный по умолчанию - Variant. Этот тип может содержать любую информацию. Частое использование этого типа для хранения информации имеет два существенных недостатка – влечет лишнюю трату ресурсов памяти и может привести к непредсказуемому поведению заданных по умолчанию значений. Поэтому все же лучше объявлять переменные перед их использованием.
Объявление типа переменной означает команду установить границы значений переменной, которые определяются ее типом. Команда записывается с помощью программного кода. Существует несколько способов объявления типа переменной.

1 способ. Объявление типа с помощью суффикса

К имени переменной приписывается один из следующих суффиксов:
Суффикс
%
&
!
#
$
@

Тип
Integer
Long
Single
Double
String
Currency


2 способ. Объявление типа с помощью оператора описания типа

Dim ИмяПеременной As ТипПеременной

Dim, As- это ключевые слова Visual Basic.
При объявлении переменных следует учитывать следующее: переменная, объявленная в процедуре, инициализируется каждый раз, когда происходит вызов этой процедуры. Чтобы переменная сохраняла свое старое значение при повторном обращении к процедуре, при ее описании надо использовать ключевое слово Static (статическая):

Static ИмяПеременной As ТипПеременной

Область видимости переменных
Переменные могут быть объявлены в модулях, формах или процедурах.
Переменная, объявленная в процедуре, доступна для использования только в пределах этой процедуры (локальная ), даже если она была объявлена как Static;
Переменная, объявленная в General Declarations (раздел общих объявлений ) формы доступна в пределах всей формы.
Область видимости переменных, объявленных на уровне модуля, зависит от ключевых слов, использованных при объявлении.
Если переменная объявлена посредством Dim, область видимости – модуль.
Если переменная объявлена посредством ключевого слова Public, область ее видимости – вся программа ( переменная - глобальная).
Присвоение значения переменной
Для присвоения переменной некоторого значения используется оператор присвоения.
Общий вид оператора присвоения:

[ Let ] ИмяПеременной=ЗначениеПеременной

Ключевое слово Let в квадратных скобках может отсутствовать.
ЗначениеПеременной – это либо константа или выражение, значение которого должно быть вычислено. В том и другом случае это значение должно находиться в диапазоне возможных значений для данного типа переменной.
Выражения и функции
Арифметическое выражение
Арифметическое выражение – это последовательность чисел, констант, переменных, числовых функций, которые соединены между собой знаками арифметических действий (см. табл.).

Операция
Описание операции

A ^ B
Возведение А в степень В

- A
Перемена знака А

A * B
Умножение А на В

A / B
Деление А на В

A \ B
Целая часть от деления А на В

A Mod B
Остаток от деления А на В

A + B
Сложение А с В

A - B
Вычитание В из А


Логическое выражение
Логическое выражение – это последовательность символьных, числовых констант и переменных, математических и строковых функций, которые соединены между собой знаками сравнения и знаками логических операций (см. табл.). Логическое выражение принимает только два значения: истина ( True ) и ложь ( False ).

Знак сравнения
Действие

Знак логической операции
Действие

=
Равно

And
Логическое «И»

<
Меньше

Eqv
Эквивалентность

>
Больше

Imp
Импликация

<=
Меньше или равно

Or
Логическое «ИЛИ»

>=
Больше или равно

Xor
Исключающее «ИЛИ»

<>
Не равно

Not
Логическое «НЕ»


Строковое выражение
Строковое выражение – это последовательность символьных констант, переменных, символьных функций и знака присоединения «+» (конкатенации)

Функция – это процедура, которая выполняет и возвращает значение. Общий вид обращения к функции:

ИмяФункции ( СписокАргументовФункции )

ИмяФункции - это либо имя уже имеющейся в языке (встроенной) функции, либо имя функции, определяемой программистом.
АргументФункции – это либо константа, либо переменная, либо выражение.
Встроенные математические функции

Функция
Значение функции

Abs ( x )
Абсолютная величина числа х

Cint ( x )
Целое число, ближайшее к числу х

Fix ( x )
Целое число, равное числу х без дробной части

Int ( x )
Наибольшее целое число, не превышающее х

Sqr ( x )
Квадратный корень из х

Sin ( x )
Синус

Cos ( x )
Косинус

Tan ( x )
Тангенс

Atn ( x )
Арктангенс

Rnd
Псевдослучайное число от 0 до 1


Финансовые функции

Функция
Значение функции

Pmt ( проц.ставка, число выплат, кредит)
Периодическая выплата

PV ( проц.ставка, число выплат, выплата )
Кредит

Rate ( число выплат, выплата, кредит )
Процентная ставка, отнесенная на период выплаты


Функции обработки строк

Функция
Значение функции

InStr ( строка, подстрока )
Позиция подстроки в строке

Lcase ( строка )
Строка со строчными буквами

Left ( строка, длина )
Левая подстрока данной длины

Len ( строка )
Длина строки

Mid ( строка, позиция, длина )
Подстрока данной длины, начиная с данной позиции

Right ( строка, длина )
Правая подстрока данной длины

Trim ( строка )
Строка без первых и последних пробелов

Ucase ( строка )
Строка с прописными буквами


Функции даты и времени

Функция
Значение функции

Time
Текущее системное время

Timer
Число прошедших с полуночи секунд

Now
Системная дата и время

Date
Системная дата

Month ( дата )
Номер месяца

Year ( дата )
Год

Day
День

WeekDay(дата)
Номер дня недели (воскресенье – 1 и т.д)


Системные функции
Функция
Значение функции

InputBox ( Приглашение[, Заголовок] [, НачЗначение ] [,X] [,Y])

Предназначена для ввода данных пользователем через системное окно
X,Y – координаты левого верхнего угла окна
Введенный пользователем текст

MsgBox ( Сообщение [ , Опция, Заголовок ] )

Предназначена для вывод сообщения через системное окно

Опция определяет набор кнопок и вид пиктограммы в окне сообщения
0 Ok
1 Ok, Отмена
2 Стоп, Повтор, Пропустить
3 Да, Нет, Отмена
4 Да, Нет
Повтор, Отмена
16 критическое сообщение
32 вопрос
48 предупреждение
64 информация
Целое число, определяющее какая из кнопок Окна сообщения была нажата
1 (VbOk) Ок
2 (VbCancel) Отмена
3 (VbAbort) Стоп
4 (VbRetry) Повтор
5 (VbIgnore) Пропустить
6 (VbYes) Да
7 (VbNo) Нет


Функции преобразования типов
Функция
Значение функции

Asc ( строка )
Код ASCII первого символа строки

Chr ( код ASCII )
Символ, соответствующий коду

CInt ( строка цифр или число )
Целое число

Val ( строка )
Число

Str ( число )
Строка

CDate(выражение)
Выражение типа Date

CBool(выражение)
Выражение типа Boolean

CByte(выражение)
Выражение типа Byte

CCur(выражение)
Выражение типа Currency

CDbl(выражение)
Выражение типа Double

CInt(выражение)
Выражение типа Integer

CLng(выражение)
Выражение типа Long


Функции для работы с графикой
Функция
Значение функции

LoadPicture ( строка-путь к графическому файлу )
Содержимое графического файла

QBColor ( число от 0 до 15 )
Цвет

RGB ( N1, N2, N3 )

N1 – интенсивность красного цвета (от 0 до 255)
N2 - интенсивность зеленого цвета (от 0 до 255)
N3 - интенсивность синего цвета (от 0 до 255)
Цвет


Лабораторно-практические работы
Общие рекомендации по выполнению работ

Выполнение предложенных работ целесообразно проводить после проработки практических работ и заданий для самостоятельного выполнения из 1 части учебного пособия;
Перед выполнением конкретной работы необходимо изучить теоретический материал по тематике работы;
Практические работы выполняйте в указанной последовательности;
После выполнения каждой работы сформулируйте для себя назначение созданного проекта, а также разберитесь с назначением каждой команды программного кода.


ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА №1

Тема: Типы данных
Цель работы: получить навыки использования в программе различных типов данных
Порядок выполнения
Откройте новый проект и установите на форме командную кнопку( Name – Cmd1, Caption – Пример 1), переместите ее в правый верхний угол формы.
В окне кода процедуры обработки события Click для объекта Cmd1 набрать

Dim X As Integer, Y As Integer
X = 5 / 2: Y = 10 / 3: Z = X / Y
Print X, Y, Z

Проверьте работу программы, прокомментируйте значения переменных X,Y
Измените программу, добавив после первой строки

Dim Z As Currency

Проверьте работу программы, прокомментируйте значение переменной Z
Измените программу, удалив строки объявления всех переменных (или поставьте знак комментария – апостроф перед оператором Dim
Проверьте работу программы, прокомментируйте значения всех переменных
Добавьте на форму командную кнопку( Name – Cmd2, Caption – Пример 2), переместите ее в правый верхний угол формы и в окне кода процедуры обработки события Click для объекта Cmd2 набрать

Dim S As Integer
S = 10 ^ 5
Print S

Проверьте работу второй кнопки, объясните причину вывода сообщения об ошибке
Остановите работу программы и предложите два способа , позволяющие вычислить требуемое значение без ошибок. Результат показать преподавателю.
Для решения новой задачи добавьте на форму новые объекты в соответствии с образцом.

Для командной кнопки Вычислить набрать программный код

Dim x1, x2, x3
Dim z As Currency
Dim a As Double
Dim b As Currency
x1 = Val(TxtTonn.Text)
x2 = Val(TxtKg.Text)
x3 = Val(TxtGram.Text)
z = Val(TxtZena.Text)
a = (x1 * 1000000 + x2 * 1000 + x3) * z
b = (x1 * 1000000 + x2 * 1000 + x3) * z
LblItog1.Caption = a
LblItog2.Caption = b

Проверьте работу программы на предложенных входных данных (см. образец). Объясните, значение какой переменной будет ближе к точному значению (точное значение найти вручную с помощью программы Калькулятор)
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2

Тема: Ввод, вывод и присвоение в программе
Цель работы: получить навыки разработки приложений для вычислительных задач
Порядок выполнения
Загрузите графический редактор Paint. 1 часть
Выберите в меню программы Рисунок / Атрибуты
В появившемся окне установите Единицы см, Ширина 6, Высота 3., нажмите Ок
Используя инструментарий программы нарисуйте параллелепипед с обозначением сторон и сохраните свой рисунок.
Закройте программу Paint
Загрузите Visual Basic
Установите на форме следующие объекты и измените им свойства
Объект
Свойство
Значение

Метки
Caption
Объем коробки вычисляется по формуле


Caption
V=A*B*H


Caption
Длина


Caption
Ширина


Caption
Высота


Caption
Объем

Командная кнопка

Name
CmdResult


Caption
Определение объема

Текстовые окна
Name
Text1


Name
Text2


Name
Text3


Name
Text4

Изображение
Name
Image1


Picture
°(созданный Вами рисунок)


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

В окне кода процедуры обработки события Click для объекта CmdResult набрать
Dim a,b,h,v As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
h = Val(Text3.Text)
v = a * b * h
Text4.Text = v

Проверьте работу программы на различных входных данных
2 часть
Откройте новый проект, на форме расположите объекты и измените для них свойства:
Объект
Свойство
Значение

Командные кнопки
Caption
Обмен значениями


Name
Cmd1


Caption
Обмен шрифтами


Name
Cmd2


Caption
Обмен начертанием


Name
Cmd3

Текстовые окна
Name
Text1


Font
14, Полужирный, Ms Serif


ForeColor
Черный


Text
Это левое поле


Name
Text2


Font
14, Курсив, Garamond


ForeColor
Красный


Text
Это правое поле


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

В окне кода процедуры обработки события Click для объекта Cmd1 набрать
Dim stroka1 As String, stroka2 As String
stroka1 = Text1.Text : stroka2 = Text2.Text
Text1.Text = stroka2 : Text2.Text = stroka1

В окне кода процедуры обработки события Click для объекта Cmd2 набрать
Dim stroka1 As String, stroka2 As String
stroka1 = Text1.FontName : stroka2 = Text2.FontName
Text1.FontName = stroka2 : Text2.FontName = stroka1

В окне кода процедуры обработки события Click для объекта Cmd3 набрать
Dim stroka1 As Boolean, stroka2 As Boolean
'полужирный
stroka1 = Text1.FontBold : stroka2 = Text2.FontBold
Text1.FontBold = stroka2 : Text2.FontBold = stroka1
'курсив
stroka1 = Text1.FontItalic : stroka2 = Text2.FontItalic
Text1.FontItalic = stroka2 : Text2.FontItalic = stroka1

Проверьте работу программы. Объясните, почему объявленные переменные имеет различный тип в процедурах.
Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Ввод, вывод и присвоение в программе
Цель работы: получить навыки разработки приложений для вычислительных задач
Порядок выполнения
Расположите на форме следующие объекты и измените для них свойства:

Объект
Свойство
Значение

Рамка
Caption
Введите X и Y

Текстовое окно
Name
TxtX


Text
(отсутствует)

Текстовое окно
Name
TxtY


Text
(отсутствует)

Линейка прокрутки
Name
HSX


Max
1000


Min
0

Линейка прокрутки
Name
HSY


Max
100


Min
0

Рамка
Caption
Результат

Метка
Name
LblResult


Caption
(отсутствует)

Командные кнопки

Name
Caption
CmdPlus
+


Name
Caption
CmdMinus
-


Name
Caption
CmdDel
/


Name
Caption
CmdMul
*

Для текстовых окон и метки установите выравнивание по центру (свойство Alignment)
Для всех объектов, кроме прокруток, увеличьте размер шрифта (свойство Font)
Приведите свою форму в соответствии с образцом.



В разделе общих объявлений набрать

Dim X,Y As Integer

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

TxtX.Text = HSX.Value

а для объекта HSY набрать

TxtY.Text = HSY.Value

В окне кода процедуры обработки события Click для объекта CmdРlus набрать

x = Val(TxtX.Text)
y = Val(TxtY.Text)
LblResult.Caption = x + y

Загрузите программу и проверьте работу кнопки «+» (ввод значений для X и Y выполните двумя способами: с клавиатуры и с помощью прокруток)
Остановите программу. Напишите программный код для остальных командных кнопок (самостоятельно)
Добавьте на форму несколько командных кнопок для вычисления следующих значений:
Sin ( X ) + Cos ( Y ); 13 EMBED Equation.3 1415; Tg ( X ) 2 - | Y |

Результат показать преподавателю.
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 4

Тема: Встроенные функции
Цель работы: получить навыки использования математических функций
Порядок выполнения
Откройте новый проект, расположите на форме следующие объекты и измените для них свойства:
Объект
Свойство
Значение

Рамка
Caption
Случайное число от 0 до10

Текстовое окно
Name
TxtX


Text
(отсутствует)

Рамка
Caption
Sin(X)

Метка
Name
LblSin


Caption
(отсутствует)


BorderStyle
1

Командная кнопка

Name
Caption
CmdResult
Вычислить

Рамка
Caption
Cos(X)

Метка
Name
LblCos


Caption
(отсутствует)


BorderStyle
1

Рамка
Caption
Tn(X)

Метка
Name
LblTan


Caption
(отсутствует)


BorderStyle
1

Рамка
Caption
Квадратный корень

Метка
Name
LblSqr


Caption
(отсутствует)


BorderStyle
1

Рамка
Caption
X^2

Метка
Name
Lbl_2


Caption
(отсутствует)


BorderStyle
1


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

В окне кода процедуры обработки события Click для объекта CmdResult набрать:
x = Rnd * 10
txtX.Text = x
LblSin.Caption = Sin(x)
LblCos.Caption = Cos(x)
LblTan.Caption = Tan(x)
LblSqr.Caption = Sqr(x)
Lbl_2.Caption = x ^ 2

Загрузите программу и проверьте ее работу
Самостоятельно измените форму и программный код для:
изменения интервала случайного числа от 0 до 50
получения целого случайного числа от 10 до 100
определения остатка от деления числа Х на 2
6. Результат показать преподавателю.

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 5

Тема: Встроенные функции
Цель: Получить навыки использования функций обработки строк
Порядок выполнения
Откройте новый проект, установите следующие объекты и измените им свойства
Объект
Свойство
Значение

Рамки
Caption
Как Вас зовут?


Caption
Полное имя (заглавные буквы)


Caption
Полное имя (строчные буквы)


Caption
Инициалы

Метки
Caption
Фамилия


Caption
Имя


Caption
Отчество


Name
LblNam2
(для рамки строчные буквы)

Командные кнопки
Name
CmdNam1


Caption
Вывести


Name
CmdNam2


Caption
Вывести в одну строку


Name
CmdNam3


Caption
Вывести в три строки


Name
CmdFIO


Caption
Вывести инициалы


Name
CmdShifr


Caption
Шифровать

Текстовые окна
Name
TxtFam


Name
TxtName


Name
TxtOt


Name
TxtNam1 (для заглавных букв)


Name
TxtFIO


Name
TxtShifr

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

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

TxtNam1.Text = UCase(tXTfAM.Text) + " " + UCase(TxtName.Text) + " " + UCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + " " + LCase(TxtName.Text) + " " + LCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + Chr(13) + Chr(10) + LCase(TxtName.Text)

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

Dim fam, nam,ot As String
Fam= TxtFam.Text
Nam= TxtName.Text
Ot= TxtOt.Text
TxtFIO.Text = Left(Fam, 1) + "." + Left(Nam, 1) + "." + Left(Ot, 1)

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

Dim S,Shifr As String
Dim K As Integer
S = TxtFIO.Text
Shifr=””
K = Asc(Left(S, 1))
Shifr=Shifr+Str(K)+” “
K = Asc(Mid(S, 3, 1))
Shifr=Shifr+Str(K)+” “
K = Asc(Right(S, 1))
Shifr=Shifr+Str(K)
TxtShifr.Text = Shifr

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6

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

Порядок выполнения
Установите на форме следующие объекты и измените им свойства

Объект
Свойство
Значение

Метки
Caption
212


Caption
100


Caption
По Фаренгейту


Caption
По Цельсию


Caption
-40


Caption
-40

Вертикальная прокрутка
Name
VsbTherm


Max
-40


Min
100


LargeChange
10


SmallChange
1

Текстовые окна
Name
TxtF


Text
(отсутствует)


Name
txtC


Text
(отсутствует)


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




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

Dim tempC, tempF As Integer
tempC = CInt ( vsbTherm.Value )
TxtC.Text = Str ( tempC )
tempF = CInt ( tempC * 9 / 5 + 32 )
txtF.Text = Str( tempF )

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


Результат показать преподавателю.

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 7

Тема: Встроенные функции
Цель работы: Получить навыки использования встроенных системных функций.
Порядок выполнения
Расположите на форме следующие объекты и измените для них свойства:
Объект
Свойство
Значение

Изображение (Image)
Name
Image1


Picture
\Icons\Elements\Water

Изображение (Image)
Name
Image2


Picture
\Icons\Elements\Sun

Изображение (Image)
Name
Image3


Picture
\Icons\Elements\Show

Изображение (Image)
Name
Image4


Picture
\Icons\Elements\Litening

Командные кнопки
(CommandButton)
Name
Caption
CmdHello
Познакомимся?


Name
Caption
CmdExit
Выход


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

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

MsgBox "это вода", 0, "справка"

Наберите код для других картинок (самостоятельно)
В окне кода процедуры обработки события Click для объекта CmdHello набрать

MyFam = InputBox("Ваша фамилия", "Скажите пожалуйста")
MyNam = InputBox("Ваше имя", "Скажите пожалуйста")
MyOt = InputBox("Ваше отчество", "Скажите пожалуйста")
'выделим последнюю букву отчества и определим пол человека
k = Len(MyOt)
x = Mid(MyOt, k, 1)
If x = "а" Then y = "Здравствуйте, укажаемая" Else y = "Здравствуйте, укажаемый"
MsgBox MyNam + Chr(10) + MyOt + Chr(10) + MyFam, , y

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

s = MsgBox("Вы хотите выйти", 4, "Выход")
If s = 6 Then
s = MsgBox("Хотите остаться", 32 + 4, "Просьба")
If s = 6 Then
MsgBox "Ну и правильно", 48, "Мы очень рады"
Exit Sub
End If
MsgBox "Ну и иди отсюда", 16, "Мы обиделись"
End
End If

Проверьте работу программы

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8

Тема: Встроенные функции
Цель: Получить навыки использования функций времени и даты
Порядок выполнения
Установите на форме следующие объекты и измените им свойства 1 часть
Объект
Свойство
Значение

Метки
Caption
Время старта


Caption
Время окончания


Caption
Сколько прошло

Командные кнопки
Name
CmdStart


Caption
Start


Name
CmdStop


Caption
Stop

Текстовые окна
Name
TxtStart


Text
(отсутствует)


Name
TxtStop


Text
(отсутствует)


Name
TxtItog


Text
(отсутствует)

Приведите свою форму в соответствие с образцом
В разделе общих объявлений набрать General Declarations
Dim starttime As Variant, dtime As Variant, itogtime As Variant

В окне кода процедуры обработки события Click набрать для объекта cmdStart
starttime = Now
txtstart.Text = Format ( starttime, "hh:mm:ss" )
txtstop.Text = "" : txtItog.Text = ""

В окне кода процедуры обработки события Click набрать для объекта cmdStop
endtime = Now
itogtime = endtime - starttime
txtstop.Text = Format ( endtime, "hh:mm:ss" )
txtItog.Text = Format ( itogtime, "hh:mm:ss" )

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

Объект
Свойство
Значение

Рамки
Caption
Сегодня


Caption
Дата рождения (дд.мм.гг)


Caption
(отсутствует)


Caption
Сколько прожил дней


Caption
Ваш возраст

Метки
Name
LblDay


Name
LblD


Name
LblM


Name
LblY


Name
LblResult


Name
LblLet

Командная кнопка
Name
CmdPusk


Caption
Пуск

Текстовое окно
Name
TxtDataR


Text
(отсутствует)


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

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

Dim dd, dr As Date
dd = Date
dr = TxtDataR.Text
LblDay.Caption = dd
LblD.Caption = Day(dr)
LblM.Caption = Month(dr)
LblY.Caption = Year(dr)
LblResult.Caption = dd - dr
LblLet.Caption = Format(dd - dr, "yy")

Проверьте работу программы
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9

Тема: Встроенные функции
Цель: Получить навыки использования финансовых функций
Порядок выполнения
Откройте новый проект, установите следующие объекты и измените им свойства

Объект
Свойство
Значение

Рамки
Caption
Годовой прирост (%)


Caption
Число платежей


Caption
Сумма кредита


Caption
Величина выплаты

Текстовые окна
Name
TxtPrirost


Name
TxtKolWo


Name
TxtKredit


Name
TxtViplata

Командные кнопки
Name
CmdPrirost


Caption
Прирост


Name
CmdViplata


Caption
Выплата


Name
CmdKredit


Caption
Кредит


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

В разделе общих объявлений набрать:
Dim r As Single
Dim p, v As Currency
Dim n As Integer

В окне кода процедуры обработки события Click набрать для объекта cmdViplata
r = Val(TxtPrirost.Text)
n = Val(Txtkolwo.Text)
v = Val(TxtKredit.Text)
r = r / 1200
p = -Pmt(r, n, v)
TxtViplata.Text = Str(p)
В окне кода процедуры обработки события Click набрать для объекта cmdKredit
r = Val(TxtPrirost.Text)
n = Val(Txtkolwo.Text)
p = Val(TxtViplata.Text)
r = r / 1200
p = -p
v = PV(r, n, p)
TxtKredit.Text = Str(v)
В окне кода процедуры обработки события Click набрать для объекта cmdPrirost
p = Val(TxtViplata.Text)
n = Val(Txtkolwo.Text)
v = Val(TxtKredit.Text)
p = -p
r = 1200 * Rate(n, p, v)
TxtPrirost.Text = Str(r)

Проверьте работу программы
Самостоятельно добавьте на форму еще одну командную кнопку и создайте для нее программный код, который удаляет содержимое в текстовых окнах.

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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









13PAGE 15


13PAGE 143215
Visual Basic. Основы программирования. Часть 2


13 EMBED PBrush 1415

13 EMBED PBrush 1415



Root Entry

Приложенные файлы

  • doc 23766465
    Размер файла: 1 MB Загрузок: 0

Добавить комментарий