Пример 5.1-1. Создать пустой стандартный модуль.

Стандартные модули и их внедрение

Программки Visual Basic хранятся в программных модулях, которые могут быть 3-х видов и файлы которых имеют расширение *.vb: модуль формы, стандартный модуль и модуль класса. Простейшее приложение, состоящее из одной формы, содержит, обычно, только модуль формы (к примеру, Form1.vb). При добавлении в проект, к примеру, 2-ой Пример 5.1-1. Создать пустой стандартный модуль. формы, ее программный код будет храниться в модуле формы Form2.vb. Модули формы, как уже понятно, содержат объявления констант, переменных, типов данных, процедур и функций, также событийных процедур, которые используются на уровне модуля формы (т.е. употребляются в этой форме), хотя в их также можно ссылаться на другие формы Пример 5.1-1. Создать пустой стандартный модуль. и объекты данного проекта. Но повторяющиеся функции и процедуры, выполняемые в нескольких формах, можно выделить в отдельный программный код, который будет являться общим для всех. Таковой программный код именуется стандартным модулем, и служит для хранения функций, процедур, констант и переменных, которые являются глобальными для всего приложения.

Стандартный модуль – это особый Пример 5.1-1. Создать пустой стандартный модуль. файл, имеющий расширение *.vb и содержащий объявления переменных и описание про­цедур, которые могут быть применены в любом месте программного кода проекта.

Как и модули формы, стандартные модули показываются в окне Обозреватель решений (Solution Explorer), и могут быть сохранены на диске при помощи команды
Со­хранить ModuleName.vb как (Save ModuleName.vb As) элемента головного Пример 5.1-1. Создать пустой стандартный модуль. меню Файл (File).Стандартный модуль ModuleName.vbявляется элементом проекта. В отличие от модуля форм, стандартные модули содержат толь­ко программный код и не содержат интерфейса юзера. Модули класса создаются при использовании объектно-ориентированного программирования и подвергнутся рассмотрению позднее. И хотя стандартные модули имеют некие сходства с классами (и те и другие Пример 5.1-1. Создать пустой стандартный модуль. являются контейнерами для данных и процедур), они отличаются от классов тем, что не являются объектно-ориентированными, стандартные модули не определяют структуры и свойства объектов и не могут наследоваться.

Чтоб сделать в программке новый стандартный модуль, нужно щелкнуть на кнопке Добавление нового элемента (Add New Item) стандартной панели инструментов Пример 5.1-1. Создать пустой стандартный модуль. либо на команде Добавить новый элемент… (Add New Item…) элемента головного меню Проект (Project). Также можно использовать команду Добавить модуль… (Add Module…) элемента головного меню Проект (Project). В итоге выполнения одной из этих команд раскроется диалоговое окно Добавление нового элемента … (Add New Item…) , в каком следует выб­рать шаблон Пример 5.1-1. Создать пустой стандартный модуль. Module и указать имя модуля (рис. 5.1-1).

После нажатия на кнопку Добавить (Add) в окне Редактор кода (Code Editor) по­явится новый пустой модуль. 1-ый модуль программки по дефлоту имеет имя Module1.vb, но это имя можно поменять, сделав щелчок пра­вой кнопкой мыши на модуле в окне Обозреватель решений (Solution Explorer)и Пример 5.1-1. Создать пустой стандартный модуль. введя новое имя моду­ля, либо при помощи команды Сохранить Module1.vb как (Save Module1.vb As) элемента меню Файл (File).

Рис. 5.1-1

Разглядим пример сотворения в проекте пустого модуля.

Пример 5.1-1. Сделать пустой стандартный модуль.

1.Запустить VSи сделать новый проект с именованием Пример 5.1-1.

Будет сотворен новый проект, и в окне Конструктор (Designer) появится Пример 5.1-1. Создать пустой стандартный модуль. пустая форма.

2.Выполнить команду Добавить новый элемент… (Add New Item…) элемента головного меню Проект (Project).

Появится диалоговое окно Добавление нового элемента (Add New Item).

3.Избрать шаблон Module.

В текстовом поле Имя (Name) появится имя по дефлоту Module1.vb. (рис. 5.1-1).

Диалоговое окно Добавление нового элемента… (Add New Item…) предлагает несколько шаблонов Пример 5.1-1. Создать пустой стандартный модуль., доступных для использования в проектах. Любой из этих шаблонов имеет разные свойства и включа­ет исходный код, который упрощает их внедрение. VSсодержит много шаблонов-форм Windows.

Щелкнуть на кнопке Добавить (Add).

VBдобавит в проект модуль Module1. Этот модуль появится в окне Редактор кода (Code Editor), как показано на рис. 5.1-2.

Рис Пример 5.1-1. Создать пустой стандартный модуль.. 5.1-2

4.Чтоб узреть окно Обозреватель решений (Solution Explorer), два раза щелкните мышью на строке заголовка окна Обозреватель решений (Solution Explorer), а потом изберите Module1.vb.

ОкноОбозреватель решенийбудет смотреться так, как на рис. 5.1-3.

Рис. 5.1-3

ОкноОбозреватель решений (Solution Explorer)в перечне компонент проекта содержит модуль, ко­торый был добавлен в программку. Имя Пример 5.1-1. Создать пустой стандартный модуль. Module1показывает на имя фай­ла модуля по дефлоту. Потом можно поменять это название файла.

5.Чтоб узреть полный размер окна Характеристики (Properties), два раза следует щелкнуть на строке его заголовка.

Как показано на рис. 5.1-4, окно Характеристики (Properties) показывает характеристики Module1.vb.


Потому что модуль содержит только код, он имеет Пример 5.1-1. Создать пустой стандартный модуль. всего несколько параметров. Используя более принципиальное его свойство – File Name (Название файла) – можно указать другое название файла модуля, сделав его более описатель­ным в дальнейшем. Обмозгуйте это заглавие, потому что в предстоящем может появиться необходимость встроить этот модуль в очередной проект.

Рис. 5.1-4

6.Поменять свойство File Name на МатематическиеФункции.vb либо другое название Пример 5.1-1. Создать пустой стандартный модуль. файла и надавить на <Enter>.

Название файла модуля в окнах Характеристики (Properties), Обозреватель решений (Solution Explorer)и в окне Редактор кода (Code Editor)обновится.

7.Возвратить окна Характеристики (Properties) и Обозреватель решений (Solution Explorer)в их обычные прикреп­ленные положения, два раза щелкнув мышью на их заголовках.

Как вы сможете созидать, работа с Пример 5.1-1. Создать пустой стандартный модуль. модулями в проекте очень похожа на работу с формами. В последующем примере нужно будет добавить в модуль от­крытую переменную.

8.Чтоб удалить модуль из проекта, следует щелкнуть на модуле в окне Обозреватель решений (Solution Explorer), а потом щелкнуть на команде Исключить из проекта (Exclude From Project) элемента головного меню Пример 5.1-1. Создать пустой стандартный модуль. Проект (Project).

Команда Исключить из проекта (Exclude From Project) не удаляет модуль с жесткого

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

эффект этой команды, щелкнуть на команде Добавить имеющийся элемент
(Add Existing Item)
элемента головного меню Файл (File), избрать файл, который требуется

добавить Пример 5.1-1. Создать пустой стандартный модуль. в проект, и потом щелкнуть на кнопке Добавить (Add).

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

К примеру, оператор

Public Пример 5.1-1. Создать пустой стандартный модуль. Global As Integer

заявляет открытую переменную с именованием Globalтипа Integer.

Последующий пример показывает, как можно использовать в модуле открытую переменную с именованием Wins. Дляэтого нужно дополнить проект Счастливая семерка из Темы 4.1, в какой будет применена переменная Winsдля записи числа выигрышей.

Пример 5.1-2. Переработать проектпримера 4.3-1 Счастливая семерка.

В программном коде проекта примера Пример 5.1-1. Создать пустой стандартный модуль. 4.3-1 переменную Wins – число выигрышей, процедуру-функцию с именованием HitRate( ), которая вычисляет долю выигрышей в игре, т. е. другими слова­ми, процентное выражение игр, в каких возникает хотя бы одна се­мерка, и открытую переменную Spinsпереместим измодуля формы в стандартный модуль. При этом форма остается таковой же, как на рис. 4.3-1, а Пример 5.1-1. Создать пустой стандартный модуль. программный код воспримет вид, как на рис. 5.1-5.

Module Module1 Public Spins As Short Public Wins As Short Function HitRate(ByVal Hits As Short, ByVal Tries As Short) As String Dim Percent As Single Percent = CSng(Hits / Tries) Return Format(Percent, "0.0%") End Function End Module Public Class Пример 5.1-1. Создать пустой стандартный модуль. Form1 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button1.Click PictureBox1.Visible = False ' скрыть картину Label1.Text = CStr(Int(Rnd() * 10)) ' избрать Пример 5.1-1. Создать пустой стандартный модуль. числа Label2.Text = CStr(Int(Rnd() * 10)) Label3.Text = CStr(Int(Rnd() * 10)) Spins = Spins + 1 If (Label1.Text = "7") Or (Label2.Text = "7") _ Or (Label3.Text = "7") Then PictureBox1.Visible = True 'скрыть набросок Beep() Wins = Wins + 1 Label5.Text = "Побед:" & Wins End If Label6.Text = HitRate(Wins, Spins) End Sub Private Sub Form1_Load(ByVal sender As Пример 5.1-1. Создать пустой стандартный модуль. System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Randomize() End Sub End Class

Рис. 5.1-5


primer-privedeniya-otnosheniya-ko-vtoroj-normalnoj-forme.html
primer-prochteniya-ujguropismennogo-naskalnogo-teksta-iz-muradimovskoj-pesheri-v-kugarchinskom-rajone-nachinayushegosya-na-bukvu-n.html
primer-programmi-generacii-3d-tverdotelnoj-modeli-i-rabochego-chertezha.html