Реферат: Визуальное проектирование

ВИЗУАЛЬНОЕ ПРОЕКТИРОВАНИЕ

Посла запуска Visual Basic появится стартовое окно New Project. Окно содержит три закладки:

New – создание нового проекта

Existing – открытие существующего проекта

Recent – содержит список проектов, открываемых недавно

Для создания нового проекта надо выбрать шаблон Standard EXE, после чего загрузится инструментальная среда проектирования Visual Basic. Главное меню среды содержит пункты: File - файл, Edit - правка, View - вид, Project - проект, Format - формат, Debug - настройка, Run - запуск, Query - запрос, Diagram - диаграмма, Tools - сервис, Add-Ins - надстройки, Window - окно, Help – справка. Основным рабочим окном является окно форм, в котором осуществляется визуальное проектирование приложения. Размер этого окна можно изменять. Слева имеется панель элементов управления, содержащая элементы:

Pointer – указатель (позиционирование курсора мыши)

PictureBox – графическое окно (объединение элементов в группы, вставка графических объектов)

Label – текстовые надписи

TextBox – поле для ввода текстов, чисел, дат

Frame – рамка с заголовком для логической группировки объектов

CommandButton - кнопка

CheckBox- флажок

OptionButton - переключатель

ComboBox – поле со списком (позволяет вводить текст и содержит список значений; введенный текст добавляется в список)

ListBox - список

HScrollBar – горизонтальная полоса прокрутки

VScrollBar – вертикальная полоса прокрутки

Timer - таймер

DriveListBox – список устройств

FileListBox – список файлов

Shape –фигура (геометрическая)

Line - линия

Image –поле для отображения графических изображений

Data –создает элементы управления данными в БД для перемещения по записям и отображения результатов

Ole – вставка Ole-объектов

Справа находится окно свойств объектов Properties предназначенное для настройки свойств формы и находящихся в ней объектов. Списки свойств состоят из двух столбцов – название свойства и его значение. При помощи закладок свойства можно просмотреть по алфавиту (Alphabetic) и по категориям (Categorized). Рассмотрим основные свойства:

Name – задает имя объекта, которое используется при написании программных кодов

Caption – задает текст в строке заголовка объекта или на самом объекте (например, на кнопке)

BorderStyle – задает стиль рамки объекта

Palette – устанавливает цветовую палитру

Picture – картинка, значок, фоновое изображение

Enabled – разрешает или запрещает доступ к объекту

Visible – устанавливает видимость объекта

Font – выбор шрифта

Text – текст в текстовом поле

Index – задает уникальный индекс объекта

Left –положение объекта по горизонтали от левого края формы

Top – положение объекта по вертикали от верхнего края формы

ToolTipText - это свойство также как и Visible используют все видимые объекты. Оно нужно для вызова "мини меню"

Multiline - это свойство использует Текстовое поле, оно нужно для того, чтобы текстовое поле было не однострочным, а многострочным

Width – ширина объекта

Height – высота объекта

Приставка Scale задает максимальные размеры (например, ScaleWidth – максимальная ширина объекта)

Value - это свойство используют флажки и переключатели, установка в положение включен или выключен

Свойства объектов допускается изменять во время выполнения приложения, для чего следует записать соответствующие коды в процедурах. Для ввода программных кодов используется РЕДАКТОР КОДА. В него можно перейти с помощью команды Code меню View.

Исполнение приложения – команда Run. Команда End останавливает программу.

ПЕРЕМЕННЫЕ

Visual Basic работает с 14 стандартными типами переменных. Ниже рассмотрены те, которые в основном применяются при работе с данными.

String - строковые переменные, хранят символы (теоретически – до 2 миллиардов символов). Обозначается символьная переменная знаком $, который добавляется в конце ее имени (этот символ называется суффикс). Например, Name$

Integer – обеспечивают хранение целых чисел в диапазоне от -32768 до +32767. Для обозначения типа используют суффикс %. Например, Chi%

^ Long Integer – длинное целое (диапазон значений от -2147483648 до +2147483647). Обозначается суффиксом &.

AlongIntegerVariableS – позволяет хранить дробные числа с точностью до 7 цифр. Это означает, что если результат получился 12345678.97, то часть 8.97 не является точной. Результат может быть, к примеру, 12345670.01. Длина чисел может достигать 38 знаков. Вычисления с данными переменными тоже будут приблизительными. Суффикс - !

Double Precision – позволяют хранить числа с точностью до 16 цифр и длиной до 300 символов. суффикс - #.

Currency – тип создан для того, чтобы избежать ошибок при преобразовании десятичных чисел в двоичные и наоборот. Данный тип может иметь до 4 цифр после запятой и до 14 цифр перед ней. Вычисления с такими переменными будут точными. Суффикс - @.

Date – этот тип данных позволяет хранить значения времени и даты в промежутке от полуночи 1 января 100 года до 31 декабря 9999 года. Такие значения в тексте программы обозначаются символами #, например, D= #January 1,2000#. Если вводится только значение даты, предполагается, что время равняется 00.00.

Byte – хранение целых чисел в диапазоне от 0 до 255.

Boolean – данные логического типа, имеющие только два значения: TRUE либо FALSE.

Variant – могут содержать данные любого типа. Можно использовать встроенные функции для проверки типа данных, хранящихся в переменной типа Variant. Они позволяют проверить, правильно ли пользователь вводит информацию. Использование этого типа замедляет работу программы, т. к. требуется время и ресурсы для операций преобразования типов. Единственная причина использования данного типа – возможные ошибки при преобразовании типов непосредственно программистом.

^ Объявление переменных. Оператор DIM для различных типов данных

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

Dim Jea As Integer

Dim Name As String

Dim Rat As Currency

В одном операторе Dim можно объявлять несколько переменных, однако тип описывать нужно для каждой переменной:

Dim Jed As Integer, СН As Integer, Rat As Currency

Чтобы присвоить тип Variant используют оператор Dim без As, например: Dim Моо

Можно написать и так: Dim As Моо Variant, что проще для прочтения.

Visual Basic позволяет не описывать переменные, тогда он присваивает им тип «по умолчанию». Чтобы избежать ошибки, рекомендуется объявлять все переменные, используемые в программе.

Чтобы установить обязательное объявление типа переменной, нужно воспользоваться страницей Editor диалоговой панели Tools-Options и выставить флажок Require Variable Declaration.

Чтобы необъявленные переменные не определялись, как Variant, используют оператор DefType. Например:

DefInt A-Z Все переменные получают тип Integer

DefInt I-J Все переменные, начинающиеся с букв I и J, получают тип Integer

DefStr S-Z Все переменные, начинающиеся с букв от S до Z, получают тип String

Оператор DefType размещают в разделе GENERAL. Соглашение о типах всегда можно изменить, используя идентификатор или оператор ^ Dim для конкретной переменной.

Переменные, объявленные в процедуре при помощи оператора Dim являются локальными (если не указано иначе).

В программе можно использовать комментарии, при этом в начале строки комментария ставится апостроф.

Бывают случаи, когда переменная должна быть доступна всем процедурам формы. Такие переменные называют переменными уровня формы или уровня модуля (form-level, module-level). Объявление переменных уровня формы происходит в разделе Declarations.

Для обозначения переменных уровня формы используют оператор ^ PRIVATE, который работает аналогично оператору DIM. Оператор PABLIC используется для определения глобальных переменных.

Иногда необходимо использование статических переменных, которые не инициализируются повторно при вызове процедуры (т.е. не обнуляются, при повторном вызове процедуры). Такие переменные идеально подходят для счетчиков, например, надо отследить, сколько раз была нажата командная кнопка. Для того, чтобы объявить внутри процедуры статическую переменную, необходимо оператор DIM заменить на зарезервированное слово STATIC.

Ниже приведен пример процедуры обработки события с командной кнопкой, которая подсчитывает число щелчков и выводит суммарное значение:

Private Sub Command1_Click()

‘Данная процедура использует статическую переменную для подсчета щелчков

Static Counter As Integer

Counter=Counter+1

Print Counter

End Sub

Иногда требуется, чтобы все переменные в процедуре были статическими. Для этого необходимо добавить зарезервированное слово STATIC перед строкой Private Sub, с которой начинается любая процедура.

Static Private Sub Command1_Click()

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

Массивы

Массив – это набор переменных одного типа. Количество элементов в массиве называется размерностью. Индекс элемента массива (его порядковый номер в упорядоченной последовательности) указывается в круглых скобках после имени массива. Отсчет начинается с 0. В случае, когда тип элементов массива указан как Variant, элементы могут содержать данные разных типов. Visual Basic предусматривает использование массивов фиксированного размера (размерность не изменяется и задается при описании массива) и динамичных массивов, размерность которых изменяется в процессе работы (при объявлении массива указывается верхняя граница индекса).

Например, описание Dim arrCode(10) As Integer задает локальный массив целых чисел из 11 элементов.

Visual Basic позволяет использовать многомерные массивы.

Например, описание Publick arrCode(12,12) As Integer задает глобальный двухмерный массив целых чисел размерностью 13 х 13.

Задавать размерность массива можно по принципу «от и до»: Dim El(1 to 15/ 1 to 10) As Double.

Объявление динамического массива выполняется так:

В разделе описаний размерность массива не указывается

Перед использованием массива переопределяется его размерность при помощи оператора ReDim: ReDim arrCode(1 to 15).

При очередном переопределении размерности массива его содержимое может потеряться. Чтобы этого не случилось, используют ключевое слово PRESERVE: ReDim Preserve arrCode(1 to 15)

После завершения работы с динамическими массивами очень желательно освободить память, которая была под них выделена. Для этого используют команду ERASE:

Erase arrCode, El

Математические операторы

+

Сложение

-

Вычитание

*

Умножение

/

Деление

\

Целочисленное деление

Mod

Выделение целого остатка

^

Возведение в степень

^ Стандартные функции

Rnd

Генерация случайного числа (от 0 до 1)

Round

Округление

Строки

Оператор & или + объединяет строки в том порядке, как они представлены. Например:

Title$=”Королева”

Name$=”Елизавета”

Num$=”I”

Tyt$=Title$ & Name$ & Num$

Print Tyt$

Основным отличием оператора & от + является возможность объединения строковых данных с другими типами, например, с целыми числами (при этом тип их значений изменяется на Variant):

Title$ = «Королева»

Name = «Елизавета»

Num = «1»

Tyt = Title$ & Name$ & Counter

Print Tyt$

Tyt = Title$ & Name$ & Num

Print Tyt$

Visual Basic позволяет создать строку фиксированной длины: ^ Dim STRO As String*10.

Такое описание ограничит строку 10 символами.

Некоторые функции работы со строками

As C

Возвращает ASCII- код символа

Chr

Возвращает значение символа из формата ASCII

InStr, InStrRev

Осуществляет поиск одной строки в другой

LCase

Изменяет регистр букв исходной строки на нижний

Left(Слово, Длина)

Возвращает указанное количество символов с начала строки

(LenСлово)

Возвращает количество символов в строке

LTrim, RTrim, Trim

Удаляет пробелы, расположенные в начале, в конце и по обе стороны строки

Mid(Слово, Позиция, Длина)

Возвращает заданное количество символов с произвольного места строки

Right

Возвращает указанное количество символов с конца строки

Str, CStr

Преобразует число в строку

StrReverse

Изменяет порядок символов в строке на обратный

StrConv

Меняет регистр строки

Val

Преобразует строку в число

UCase

Изменяет регистр букв исходной строки на верхний

vbCrLf - Забытая всеми Константа перевода строки, вместо нее можно использовать: "Chr (13) + Chr (10)".

Оператор Print Chr(n) либо выводит на экран соответствующий символ, либо производит эффект, в зависимости от типа управляющего символа

Несколько операторов можно поместить в одной строке, разделяя их двоеточием. Если оператор очень длинный и не помещается в строке, его можно разбить на несколько строк, используя символ продолжения строки: пробел, за которым идет символ подчеркивания.

Использование разветвляющихся алгоритмов

Операторы логических действий

And – И

Or – ИЛИ (возвращает TRUE, если хотя бы одно из выражений имеет значение TRUE)

Xor – исключающее ИЛИ (возвращает TRUE, если только одно из выражений имеет значение TRUE)

Not – инверсия

^ Оператор ветвления: If условие Then операторы1 Else операторы2

Оператор выбора: Select Case выражение

Case выражение1

Case выражение2

…

End Select

Использование циклов

For St=нач.значение To конечное значение Step шаг

Next St

Do While условие

Операторы

Loop Операторы выполняются, пока условие истинно

Do

Операторы

Loop While условие

Do Until условие

Операторы

Loop Операторы выполняются, пока условие ложно

Do

Операторы

Loop Until условие

Команда Exit

Используется, когда необходимо прервать выполнение цикла до его завершения. Формат оператора: Exit For, Exit Do. Оператор можно использовать для выхода из процедур – Exit Sub или функций – Exit Function.

Диалоговые окна

Окно сообщений MsgBox “ текст”, [ЧитКод1+ЧитКод2], [“заголовок”]

^ Текст - текст сообщения

Число –задает количество кнопок в диалоговом окне, может быть представлено в виде суммы, где второе слагаемое - константа, определяющая значок диалогового окна

Заголовок – текст заголовка диалогового окна.




8. InputBox - окно ввода




InputBox("Текст", ["Заголовок",] [ "Представление"])

«Текст» появится в поле окна, «Заголовок» – в строке заголовка, «Представление» - в поле ввода, будет удалено при вводе информации пользователем.

^ Лабораторная работа № 1


Тема Знакомство со средой VISUAL BASIC. Работа с переменными

Цель Научиться создавать простую форму, познакомиться с типами данных Integer и String, освоить простые операции со строками и числами

^ Теоретические сведения

Пример объявлений переменной:

Dim Jea As Integer

Dim Name As String

Оператор & или + объединяет строки в том порядке, как они представлены.

^ Функция CHR(n) возвращает значение символа, соответствующего числу n из формата ASCII. Оператор Print Chr(n) либо выводит на экран соответствующий символ, либо производит эффект, в зависимости от типа управляющего символа

Контрольные вопросы

Может ли имя переменной начинаться с цифры?

Перечислить типы переменных

Какую функцию выполняет оператор Dim?

Как описываются целые числа?

Как описываются строки?

Как ограничить длину строки?

Какой оператор позволяет объединить строки?

Чем отличаются операторы + и &?

Задание

Запустить программу Visual Basic: ПУСК-VISUFL BASIC 5.0- VISUFL BASIC 5.0

Выбрать команду File-New Project

В открывшемся окне выбрать Standard EXE и нажать ОК

В свойствах проекта введите имя «Лаб_1»

Установите свойство формы Caption – Проверяем вывод сообщений

На панели инструментов справа индицируется размер формы. Ухватившись за маркер формы, увеличьте форму до размера 9000 х 6000

На панели элементов, расположенной слева, выберите кнопку (CommandButton), щелкните по ней правой кнопкой мыши, а затем протягиванием мышью расположите ее в правом нижнем углу формы

Щелкните по кнопке правой кнопкой мыши и выберите команду Properties (свойства). Справа откроется окно свойств кнопки CommandButton

В свойстве Caption запишите «Нажми меня!». Остальные свойства оставьте без изменений

Щелкните дважды по кнопке мышью. Откроется окно, содержащее предопределенную процедуру Private Sub Command1_Click()

Между имеющимися строками впишите код процедуры:


Dim Title As String

Dim Name As String

Dim Num As String

Dim Tyt As String


'Данная процедура использует статическую переменную для подсчета щелчков

Static Counter As Integer

Counter = Counter + 1

Print Counter

Title$ = "Иванов "

Name = "Иван "

Num = "Иванович"

Tyt = Title$ & Name$ & Num

Print Tyt$

Tyt = Title$ & Name$ & Counter

Print Tyt$

Print "Это наша первая программа"

Print """Привет будущим программистам !"""

Print

Print

Print Chr(34)

Print "Скоро мы станем профессионалами !"

Print Chr(34)

Проверьте работу программы (кнопка либо команда Run-Start)



Попробуйте модифицировать программу таким образом, чтобы на форме добавилась кнопка, выводящая приветствие. Если окно формы не открыто, выберите команду View-Object

^ Лабораторная работа № 2

Тема Среда VISUAL BASIC. Работа с объектами

Цель Научиться создавать простую форму, уметь работать с объектами Label, TextBox, познакомиться с типами данных Integer и String, освоить простые операции со строками и числами

^ Теоретические сведения

Основным рабочим окном является окно форм, в котором осуществляется визуальное проектирование приложения. Размер этого окна можно изменять. Слева имеется панель элементов управления, содержащая элементы, с которыми предполагается работа: Label, TextBox. В данной работе нужно будет изменять такие свойства элементов: Caption, BackColor, Font, Aligment, Text

Задание

Запустить программу Visual Basic: ПУСК-VISUFL BASIC 6.0- VISUFL BASIC 6.0

Выбрать команду File-New Project

В открывшемся окне выбрать Standard EXE и нажать ОК

На панели инструментов справа индицируется размер формы. Ухватившись за маркер формы, увеличьте форму

Выполните указания:

Проект

Стандартный ЕХЕ

Имя проекта Лаб1


Форма

Caption – Сложение чисел

BackColor – бледно голубой (&H00FFFFC0&)


Label1

Caption – Складываем числа

BackColor – светло серый (&H00E0E0E0&)

Font шрифт - Arial

Начертание - жирный

Размер - 20

Набор символов - Кириллический

Aligment – центровка


Label2, Label3 – выбрать аналогичные параметры: наименование, цвет заливки, шрифт, цвет шрифта, выравнивание надписи


Text1, Text2

Aligment – центровка

BackColor – кремовый (&H00C0E0FF&)

Font шрифт - Arial

Начертание – обычный

Размер -16

Набор символов - Кириллический

ForeColor –черный (&H80000008&)

Text – пусто


Label4 – выбрать аналогично предыдущим

Размер шрифта 16

Цвет шрифта – бордо ((&H000000С0&)


Text3 выбрать параметры, размер шрифта – 20, начертание – жирный


Щелкнуть дважды по объекту Text2. В открывшемся окне ввести текст процедуры:


Private Sub Text2_Change()

Dim a, b, c As Integer объявление переменных

a = Val(Text1.Text) преобразование текста в число

b = Val(Text2.Text) - « -

c = a + b сложение чисел

Text3.Text = Str(c) запись в Text3 результата, преобразованного в строку

End Sub


Вид формы после запуска программы:




Вид формы после ввода данных:



Лабораторная работа № 3 Тема Работа с формой, кнопками и строками. Цель Научиться работать с формой и элементами формы,управлять свойствами елементов формы Теоретические сведения Чтобы действие выполнялось сразу после загрузке формы, надо кликнуть 2 раза по форме, и появится такой код: Private Sub Form_Load()
End Sub В программных кодах можно использовать коментарии (поясняющие надписи), которые не видит компилятор. Перед коментарием ставится знак ‘ Чтобы записать код объекта, надо дважды щелкнуть по нему левой кнопкой мыши. Задание Входим в VB, кликаем на Standart EXE. В свойствах проекта изменяем имя проекта на Лаб_3, для формы свойство Caption – Работа с элементами формы. На форму помещаем 4 кнопки и 1 метку. У 1-ой кнопки свойство Caption должно быть равным "Шрифт", у 2-ой кнопки свойство Caption должно быть равным "Цвет", у 3-ей - "Фон", у 4-ой - "Фон Формы". У метки свойство Aligment – “Center”, для свойства Bacckcolor – выбрать белый цвет. Код:
Private Sub Command1_Click()
Label1.FontSize = 26 'при нажатии на кнопку 1 у размер шрифта метки станет равным 26
End Sub Private Sub Command2_Click()
Label1.ForeColor = vbRed 'при нажатии на кнопку 2 цвет текста станет красным
End Sub Private Sub Command3_Click()
Label1.BackColor = &HFFFFC0 'при нажатии на кнопку 3 цвет фона метки будет голубым
End Sub Private Sub Command4_Click()
Form1.BackColor = vbGreen 'при нажатии на кнопку 4 цвет фона формы будет зеленым
End Sub Private Sub Form_Load()
Label1.FontSize = 12 'при загрузке программы у метки будет размер равным 12
Label1.Caption = "Операции с текстом" 'при загрузке программы текст метки будет "Операции с текстом"
Form1.Caption = "Форма" 'при загрузке программы текст формы будет "Форма"
End Sub Private Sub Label1_Click() Label1.BackColor = &HC0FFFF
End Sub


Убедитесь, что цвет фона метки изменяется щелчком по ней левой кнопкой мыши.


Лабораторная работа № 4 Тема Практическое использование кнопок и текстовых окон, управление свойствами елементов формы Цель Научиться использовать возможности среды VB для создания простого действующего устройства Теоретические сведения Val - это функция, которая нужна для преобразования строки в число, т.е., если ее не использовать, то при сложении 4+4, произойдет слияние строк и результат будет не 8, а 44. Задание Построить калькулятор, выполняющей простые арифметические действия
Входим в VB, кликаем на Standart EXE.В свойствах проекта изменяем имя проекта на Лаб_4. Помещаем на форму 3 текстовых поля, со свойством Text равным: у первых двух без текста, а у 3-его равным 0 (это можно сделать в окне свойства объекта, или написать код Text1.Text="",Text2.Text="",Text3.Text="0"), и 5 кнопок со свойством Caption равным:

У 1-ой CE
У 2-ой X
У 3-ей /
У 4-ой +
У 5-ой –

Размер шрифта – 12; начертание жирный


Программный код:

Private Sub Command1_Click() ‘Сброс
Text1.Text = "" 'при нажатии на кнопку CE, у двух текстовых полей свойство Caption будет равным " ", а 3-его будет равным 0
Text2.Text = ""
Text3.Text = "0"
End Sub

Private Sub Command2_Click() 'при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему
Text3.Text = Text1.Text * Text2.Text
End Sub

Private Sub Command3_Click() 'при нажатии на кнопку /, 1 текстовое поле будет разделенно на второе, и это будет равно 3-ему
Text3.Text = Text1.Text / Text2.Text
End Sub

Private Sub Command5_Click() 'при нажатии на кнопку +, 1 текстовое поле будет прибавлено ко второму, и это будет равно 3-ему
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command4_Click() 'при нажатии на кнопку --, 1-ое текстовое поле будет отнято от второго, и это будет равно 3-ему
Text3.Text = Text1.Text - Text2.Text
End Sub

Private Sub Form_Load()
Form1.Caption = "Калькулятор 2003" 'при загрузке формы, ее заголовок будет "Калькулятор 2003"
End Sub


Лабораторная работа № 5
Тема Знакомство с некоторыми функциями Vsual Basic
Цель Познакомиться с функциями VAL(строка), Asc(Строка), Chr(число), MsgBox, InputBox, научиться использовать их при создании программ

^ Теоретические сведения

VAL(строка) – эта функция нужна для преобразования символа из "строки" в "число"

Asc(Строка) - эта функция нужна для перевода символов в код АSCII
Chr(число) - наоборот, переводит из ASCII в символы MsgBox – эта функция нужна для создания сообщений
InputBox – открывает окно ввода

Задание Создать программу, которая переводит любой вписанный символ в код ASCII, и обратно. Вид формы:



Выбрать свойства:

Label1 - Aligment – Center, Caption – пусто, размер шрифта – 12, цвет – синий, начертание – жирный, цвет фона - белый

^ Text1 – Text – пусто, выравнивание – центр, размер шрифта – 12, цвет – синий, начертание – жирный, цвет фона - белый

Text2 - Text – пусто, выравнивание – центр, размер шрифта – 12, цвет – красный, начертание – жирный, цвет фона - белый

Программный код


Dim str As String 'Объявляем переменную str, как строковую


Private Sub Command1_Click()

Text2.Text = Asc(Text1.Text)

End Sub


Private Sub Command2_Click()

Text2.Text = Chr(Text1.Text)

End Sub


Private Sub Form_Load() 'При загрузке формы:

st = InputBox("Фамилия И.О.", "Знакомство", "VB") ‘Появится окно ввода

Label1.Caption = st 'Поле метки будет равно введенному значению

a = MsgBox(st + ", проверяем работу функций Asc è Chr", 33, "Продолжить?")

If a = 2 Then

Unload Me ‘Выход из программы

End If

End Sub

^ Лабораторная работа № 6

Тема Разветвляющиеся алглритмы

Цель Изучить оператор условного перехода, научиться использовать его при создании программ

Теоретические сведения Формат оператора условного перехода:

^ If условие Then операторы1 Else операторы2

Работа оператора: сначала проверяется условие. Если оно истинно, то выполняются операторы1, если ложно – операторы2

^ Fix(действительное число) - функция обрезает у действительного числа дробную часть, и получается целое число. Например, Fix(12.123456) = 12

Задание Создаем игру "Угадай число" на VB. Входим в VB, нажимаем Standart EXE. Имя проекта – Лаб_6. Имя формы – Угадай число, цвет заливки – светло желтый. На форму помещаем 2 кнопки, и 1 текстовое поле. У первой кнопки свойство Caption будет "Загадать число", у второй "Ввод"; у обеих размер шрифта 12, начертание – жирный. У текстового поля свойство Caption уберите. Цвет заливки –бледно розовый.

Dim sas As Integer 'Объявляем переменную для хранения чисел

Dim qw As Integer

Dim qw2 As String 'Объявляем переменную для хранения символов

^ Private Sub Command1_Click()

qw = qw + 1 'Включаем счетчик, каждый раз при нажатии на кнопку к переменной qw будет прибавляться 1

If qw <= 3 Then 'Если qw будет < или = 3 то

qw2 = "Чемпион" 'qw2="Чемпион" Вид полученной формы:

End If

If qw >= 5 Then 'Это все аналогично

qw2 = "Профессионал"

End If

If qw >= 7 Then

qw2 = "Любитель"

End If

If qw >= 10 Then

qw2 = "Новичок"

End If

If Val(Text1.Text) = sas Then 'Если Text1.Text=sas то

MsgBox "Ты победил за " & qw & " попыток. " + qw2, 32 'Комп выдает сообщение о кол - ве нажатых раз на кнопку т.е. qw

End If

If Val(Text1.Text) < sas Then

MsgBox "Твое число меньше задуманного", 32

End If

If Val(Text1.Text) > sas Then

MsgBox "Твое число больше задуманного", 32

End If

End Sub

Private Sub Command2_Click()

Randomize 'Срабатывает оператор случайных чисел, чтоб при запуске программы генерировались разные числа

sas = Fix(Rnd * 100) 'уравниваем случайное число

qw = 0

Text1.Text = ""

End Sub

^ Лабораторная работа № 7

Тема Создание программы в среде Visual Basic

Цель Научиться использовать приемы визуального программирования

Теоретические сведения

Оператор выбора: Select Case выражение

Case выражение1

Case выражение2

…

End Select

Задание Создать программу, которая выполняет перевод баллов (от 0 до 12) в оценки пятибалльной системы




Private Sub Command1_Click()

Dim ball As Integer

ball = Val(Text1.Text)

If (ball < 1) Or (ball > 12) Then Text1.Text = ""

Text2.Visible = True

Select Case ball

Case 10 To 12

Text2.Text = 5

Case 7 To 9

Text2.Text = 4

Case 4 To 6

Text2.Text = 3

Case 2 To 3

Text2.Text = 2

Case 1

Text2.Text = 1

End Select

Text1.Locked = True

Text2.Locked = True

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text2.Visible = False

Text1.Locked = False

End Sub


Private Sub Form_Load()


End Sub


Private Sub Text1_Change()

ball = Val(Text1.Text)

If (ball < 1) Or (ball > 12) Then Text1.Text = ""

End Sub



Лабораторная работа № 8


Тема Разветвляющиеся алгоритмы. Конструкция Select Case

^ Цель Научиться строить программы с использованием разветвляющихся алгоритмов

Теоретические сведения

Использование разветвляющихся алгоритмов

Операторы логических действий

And – И

Or – ИЛИ (возвращает TRUE, если хотя бы одно из выражений имеет значение TRUE)

Xor – исключающее ИЛИ (возвращает TRUE, если только одно из выражений имеет значение TRUE)

Not – инверсия


Оператор ветвления: If условие Then операторы1 Else операторы2


Оператор выбора: Select Case выражение

Case выражение1

Case выражение2

…

End Select


Задание Создать программу, которая запрашивает время и в зависимости от введенного значения, выводит соответствующее приветствие. (Примечание. Вводить только часы – от 1 до 24)


Порядок работы

Для формы установить свойства:

Caption - Приветствие

Height – 1680

Left – 1995

Top – 3510

Width – 3660

Поместить на форму надпись (Label) и установить свойства:

Caption – Щелкни по мне!

Font - Monotype Corsiva, размер – 24

Щелкнуть дважды по надписи и набрать программный код:

Private Sub Label1_Click()

Dim vr As String

Dim ivr As Integer

vr = InputBox("Который час?", "Введи время", , 5000, 5000)

ivr = Val(vr)

If ivr < 0 Or ivr > 24 Then Label1.Caption = "Это нереально!": GoTo 1

Select Case ivr

Case 6, 7, 8, 9, 10, 11

Label1.Caption = "Доброе утро!"

Case 12, 13, 14, 15, 16, 17, 18

Label1.Caption = "Добрый день!"

Case 19, 20, 21, 22

Label1.Caption = "Добрый вечер!"

Case 23, 24, 1, 2, 3, 4, 5

Label1.Caption = "Спокойной ночи!"

End Select

1: End Sub


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

Sub

Лабораторная работа № 9

Тема Время в Visual Basic

Цель Познакомиться с функциями Time, Date, WeekDay, научиться работать с объектом Timer

^ Теоретические сведения

Оператор Time - устанавливает значение системных часов

Оператор Date - устанавливает значение системной даты

^ Функция Weekday - возвращает целое число, представляющее день недели

Задание Создать часы, показывающие дату, время и день недели.

Создайте новый проект(Standart EXE), имя проекта – Лаб_9. Имя формы – Время, цвет фона – светло розовый.

На форму поместите текстовое поле и таймер.Свойства текстового поля: выравнивание – по центру, цвет фона – светло желтый, BorderStyle – Fixed Single , размер шрифта – 24, цвет шрифта – темно зеленый. Для таймера свойство Interval установите равным 1.Над текстовым полем поместите метку Label1, свойства которой: выравнивание – по центру, цвет фона - светло розовый, Caption – пусто, Border Style – Fixed Single, размер шрифта – 24, цвет шрифта – темно синий. Под текстовым полем поместите метку Label2, свойства которой: выравнивание – по центру, цвет фона - светло розовый, Caption – пусто, Border Style – None, размер шрифта – 24, цвет шрифта – темно синий.

Вы должны получить такую форму:

Программнгый код для таймера:

Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

Программнгый код для формы:

Private Sub Form_Load()

xday = Weekday(Date, vbMonday) 'xday будет равна дню недели

If xday = 7 Then :

Label2.Caption = "Воскресенье"

End If

If xday = 1 Then

Label2.Caption = "Понедельник"

End If

If xday = 2 Then

Label2.Caption = "Вторник"

End If

If xday = 3 Then

Label2.Caption = "Среда"

End If

If xday = 4 Then

Label2.Caption = "Четверг"

End If

If xday = 5 Then

Label2.Caption = "Пятница"

End If

If xday = 6 Then

Label2.Caption = "Суббота"

End If

Label1.Caption = Date

End Sub

Лабораторная работа № 10
^ Тема Анимация в Visual Basic
Цель Познакомиться с объектом Shape(фигура), его свойствоми, научиться двигать фигуру по форме

Теоретические сведения Анимация - это движение объектов. Если к свойству объекта Left добавить целое число, то данный объект сдвинется вправо на соответствующее число пикселей. Одним из главных объектов анимации является Timer

Задание

Входим в VB, нажимаем Standart EXE. Имя проекта Лаб_10. Имя формы – движение в программе цвет формы – оранжевый. На форму помещаем 2 кнопки со свойством Caption равным «Пуск» и «Стоп», 1 Shape(фигура) со свойством Shape равным 3 - Circle(Круг), и свойствами BackStyle равным 1 - Opaque(для закраски фигуры), BorderColor и FillColor – красный. В верхней части формы помещаем 3 Timera со свойством Interval равным 1(это время через которое Timer будет обновляться (мл)), и свойством Enabled равным False(ложь), чтобы выключить Timer, а чтоб включить таймер тебе надо в свойстве Enabled поставить True(И это свойство есть у всех объектов, даже у текстового поля). В результате должна получиться такая форма:

Текст программы:

Dim a As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

Timer3.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

Timer3.Enabled = False

Timer2.Enabled = False

Shape1.Left = a

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 25 ' Каждую мл Shape1 будет сдвигаться вправо на 25

a = Shape1.Left

End Sub

Private Sub Timer2_Timer()

Shape1.Left = Shape1.Left - 25 ' Каждую мл Shape1 будет сдвигаться влево на 25

a = Shape1.Left

End Sub

Private Sub Timer3_Timer()

If Shape1.Left <= 0 Then 'Если Shape1.Left <= -400(отскок от левой стенке) то

Timer1.Enabled = True ' Timer1 включается

Timer2.Enabled = False ' Timer2 выключается

End If

If Shape1.Left >= 4400 Then 'Если Shape1.Left <= -400(отскок от правой стенке) то

Timer2.Enabled = True ' Timer2 включается

Timer1.Enabled = False ' Timer1 выключается

End If

End Sub

Лабораторная работа № 11
^ Тема Работа оператора цикла с постусловием Do – Loop Until Цель Научиться создавать циклические программы, работать с оператором цикла ^ Do – Loop Until и функциями MsgBox? InputBox Теоретические сведения Циклический алгоритм содержит блок операторов, повторяющихся многократно. В цикле с постусловием сначала выполняются операторы тела цикла, а затем проверяется условие выхода из цикла. Повторения будут продолжаться до тех пор, пока условие остается ложным. Формат оператора:
^ Do Until условие

Операторы

Loop

или Операторы выполняются, пока условие ложно

Do

Операторы

Loop Until условие

Задание Создать программу, которая складывает числа до тех пор, пока не будет введен 0.

Входим в VB, нажимаем Standart EXE. Имя проекта Лаб_11. Имя формы – Сложение чисел, цвет формы – светло желтый. На форму помещаем 2 кнопки со свойством Caption – Ввод и Сброс, цвет 1-й кнопки – бледно розовый, 2-й кнопки - оранжевый, у обеих свойство Style – Graphical. Кроме того, помещаем на форму текстовое окно со свойствами: выравнивание – по ценру, цвет фона бледно розовый, размер шрифта – 24, начертание – жирный, цвет шрифта – темно зеленый, Text – пусто.

В результате получаем форму:

Программный код:

Dim a, b, c, d As Integer

Private Sub Command1_Click()

Do

b = Val(Text1.Text)

a = Val(InputBox("Введи число"))

c = a + b

Text1.Text = Str(c)

Loop Until a = 0

d = MsgBox("Завершение работы", 36, "Выход")

If d = 6 Then Unload Me ‘Unload Me – выход из программы

End Sub


Private Sub Command2_Click()

Text1.Text = ""

a = 0

b = 0

c = 0

End Sub


Private Sub Form_Load()


End Sub

^ Лабораторная работа № 13

Тема Работа с одномерным массивом

Цель Научиться работать с массивами информации, представленными в виде линейной таблицы

Теоретические сведения Массив – это набор переменных одного типа. Одномерный массив представляет собой линейную таблицу. Количество элементов в массиве называется размерностью. Индекс элемента массива (его порядковый номер в упорядоченной последовательности) указывается в круглых скобках после имени массива. Отсчет начинается с 0. Массив должен быть описан.

Описание Dim arrCode(10) As Integer задает массив целых чисел из 11 элементов с именем arrCode.

Задание Создайте новый проект с именем «Одномерный_массив».

Создайте форму, как на рисунке.

Свойства объектов:

^ Label1: aligment – center, caption – Введи 5 чисел

Command1: caption – Ввод

Command2: caption – Сумма элементов,

enabled – false

Command3: caption – min max, enabled – false

Command4: caption – Обмен, enabled – false

Command5: caption – Сброс, enabled – false

Label2: aligment – center, caption – пусто,

visible – false

Label3: aligment – center, caption – пусто, visible – false

^ Программный код:

Dim M(4) As Integer

Dim s As String

Dim i, k, p As Integer

Private Sub Command1_Click() 'Заполнение массива

Label3.Visible = False

Label2.Caption = ""

For i = 0 To 4 Step 1

M(i) = InputBox("Заполнение массива", "Ввод")

Next i

s = ""

For i = 0 To 4 Step 1

s = s + " " + Str(M(i))

Next i

MsgBox s, 64, "Одномерный массив"

i = MsgBox("Завершение работы", 36, "Выход и программы")

If i = 6 Then Unload Me

Command2.Enabled = True

Command3.Enabled = True

Command5.Enabled = True

Label1.Caption = ""

Label2.Caption = s

Label2.Visible = True

Command4.Enabled = False

End Sub

Private Sub Command2_Click() 'Вычисление сум