Шестаков В.С. Оптимизация параметров горных машин. Учебное пособие (811777), страница 36

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 36)

Worksheets (“наименование листа”).Range(“Адрес ячейки”).Value,где Имя переменной – обозначение переменной в программе,Application - приложение Excel,Workbook - рабочая книга,Worksheets - лист,Range – диапазон ячеек на листе.Value – метод, обеспечивающий доступ к содержимому ячейки.Адрес ячейки указывается в формате “наименование столбцаи номер cтроки”.Если данные в подпрограмму передаются только из текущейкниги Excel, то приложение и рабочая книга не указываются.

Метод«Value» можно использовать по умолчанию и слово «Value» можно в операторе присваивания не указывать. Таким образом, при работе только с текущей книгой строка передачи данных с листа«Лист1» в подпрограмму будет иметь очень простой видA= Worksheets(“Лист1”).Range(”C5”), илиA= Worksheets(“Лист1”).Cells(5,3) – передача значения изячейки C5 в переменную А.При использовании Cells в скобках на первом месте находитсяномер строки, а на втором – номер столбца.

Вместо численных значений для указания номера строки и столбца можно использоватьпеременные и выражения, например, при заполнении 20 элементовмассива А значениями, расположенными с 6 по 26 строку столбца Слиста «Лист1», можно использовать следующий фрагмент:For i=1 to 20A(i)= Worksheets(“Лист1”).Cells(i+5,3)Next iПри работе только с текущим листом можно опустить и ссылкуна лист, но в этом случае нельзя будет запускать подпрограмму для220отладки из редактора, поэтому такое использование передачи данных не рекомендуется.Передача данных из процедур Visual Basic на лист ExcelВыполняется аналогичным образом, только здесь в оператореприсваивания слева стоит адрес ячейки.Worksheets(«Лист1”).Range(”С6”)=В, илиWorksheets(“Лист1”).Cells(6,3)=В – передача значения вячейку C6 листа «Лист1» значения из переменной В.Вывод информации элементами Visual BasicВ инженерных задачах вывод результатов элементами VisualBasic используется как вспомогательный, для вывода контрольныхрезультатов и аварийных сообщений.Для вывода в Visual Basic предусмотрена функция MsgBox, при обращении к которой на экран выводится диалоговое окно, содержащеесообщение, устанавливается режимРис.

П.2.3. Вид окна MsgBoxожидания нажатия кнопки пользователем.Пример: MsgBox(“Значение переменной X=”+str(X))Ввод информации элементами Visual BasicДанные в программу можно вводить не только с листа Excel,но и через специальное диалоговое окно, вызываемое функциейInputBox. Диалоговое окно содержит сообщение и поле ввода, устанавливает режим ожидания ввода текста пользователем или нажатия кнопки, а затем возвращает значение типа String, содержащеетекст, введенный в поле.Пример процедуры с этой функцией (вызовкнопкойCommandButton1)Private Sub СommandButton1_Click()Message = ”Введите передаточное число редуктора”Title = ”Ввод передаточного числа”Default = ”1”MyValue = InputBox(Message, Title, Default)End Sub221При выполнении этой процедуры на экран выведется показанное на рис.

П.2.4 окно. Дляввода нового значения числа необходимо удалить находящеесяв строке число и набрать с клавиатуры новое значение. ПослеРис. П2.4. Окно ввода данныхщелчка по «ОК» введенное значение будет передано переменной MyValue и далее может быть использовано в расчетах. При выборе «Отмена» в переменной останется имевшееся ранее число.Число вводится в текстовом виде, поэтому для последующихвычислений его необходимо преобразовать в числовой вид, используя функцию val. Учет в программах места хранения процедурПри расположении процедур, из которых составляется программа в различных модулях, необходимо предусматривать следующее:все передаваемые между процедурами переменныедолжны быть описаны как глобальные (со словом Public, см.

далее);при использовании переменной в процедурах, расположенных на других страницах или модулях, перед ее именем указывается имя листа или модуля, где выполнено ее описание;при вызове процедуры, расположенной на странице другого листа, перед именем вызываемой процедуры необходимо указать наименование листа;при вызове процедуры, расположенной в модуле, изпроцедуры, расположенной на странице листа, перед именем вызываемой процедуры необходимо указать наименование модуля;при вызове процедуры, расположенной на странице листа, из процедуры, расположенной в модуле, перед именем вызываемой процедуры необходимо указать наименование листа.Пример программы проверки передачи данных между процедурами.Option Explicit‘Инструкции расположены на странице Лист1Public S1, S2, S3, SM1222Private Sub CommandButton1_Click()S1 = 1 : SM1 = 11Модуль1.rasM1 ‘Вызов процедуры rasM1 в модуле1Лист2.ras21‘Вызов процедуры ras21, расположенной в Лист2End SubSub ras11()MsgBox («Из процедуры с Лист2 на Лист1 передано « + Str(S2))End SubSub ras12()MsgBox(«Из Модуль1 передано»+Str(Модуль1.sm2))End SubOption Explicit‘Инструкции расположены на странице Лист2Private Sub CommandButton2_Click()Лист1.S2 = 2Лист1.ras11‘Вызов процедуры ras11, расположенной в Лист1End SubSub ras21()MsgBox («Из процедуры c Лист1 передано « + Str(Лист1.S1))End SubSub ras22()MsgBox («Из Модуль1 передано « + Str(Модуль1.sm3))End Sub‘Инструкции расположены в модуле 1Option ExplicitPublic sm2, sm3Sub Макрос1()sm2 = 12sm3 = 20Лист1.ras12‘Вызов процедуры ras12, расположенной в Лист1Лист2.ras22‘Вызов процедуры ras22, расположенной в Лист2End SubSub rasM1()MsgBox(«Из процедуры с Лист1 в Модуль1 передано» +Str(Лист1.SM1))End Sub223П.2.2.

Создание, редактирование и запуск программДля создания, редактирования и запуска программ предусмотрена среда разработки Visual Basic Editor (редактор). Вызов редактора осуществляется из панели управления Visual Basic (рис. П.2.5)соответствующей кнопкой. На экран выведется окно редактора(рис. П.2.6). Программы хранятся в программных модулях. Дляперемещения нужного модуля в окно программ необходимо щелкнуть мышью по его наименованию в окне проекта. Если при входе вредактор на экран не выведется окно проекта, то нужно егоРис.

П.2.5. Панель Visual Basicоткрыть через пункт меню«Вид».Программные модули могут храниться в специальной папке снаименованием «Модули» или располагаться на специально от-Окно программОкно проектаРис. П.2.6. Вид окна редактора Visual Basic Editor224водимой для этого странице, связанной с листом Excel. Каждыйлист имеет свою страницу. Чтобы перейти на нужную страницу, необходимо выполнить двойной щелчок по наименованию листа в окне проекта.Создание процедур модулей, располагаемых в папке модулей ина страницах, несколько различается между собой.

Для полученияначальной заготовки кода процедуры, располагаемой на странице,чаще всего выполняют двойной щелчок по элементу управления, адля получения процедур папки модулей обычно записывают макросы или выполняют командой «Вставка модуля» в редакторе. Создание процедур путем записи макросаДействия,выполняемыепользователем при работе в Excel(например, ввод данных, копирование и т.п.), можно перевести впрограммный код на Visual Basicпутем записи макроса. Полученный таким способом простейшиймакрос может послужить основойдля создания более сложной проРис.

П.2.7. Окно записи макросаграммы обработки данных. Длязаписи макроса выполните щелчок по кнопке «Запись макроса» на панели «Visual Basic» – на экранвыведется панель, показанная на рис. П.2.7. Вместо слова «Макрос1» необходимо ввести наименование подпрограммы и выполнить щелчок мышью по кнопке ОК, после чего начнется записьмакроса. Все выполняемые действия, например перемещение поячейкам таблицы, будут записываться специальными операторамив процедуре SUB с введенным в форме наименованием. Для прекращения записи необходимо выполнить щелчок по кнопке «Остановить запись» на панели «Visual Basic». Если сразу же, без выполнения каких-либо действий, нажать эту кнопку, то будет пустаяпроцедура (введено имя макроса «Пример»).Sub Пример()' Пример МакросEnd Sub225Хранится эта процедура в модуле 1.

Для просмотра ее необходимо вызвать редактор и мышью щелкнуть по папке «Модули» изатем по «Модуль 1». При записи следующего макроса образуетсямодуль 2. Вывод модуля в окно редактора через окно проекта. Создание заготовок процедур с помощью элементов управленияПолучение заготовки процедуры рассмотрим на примере использования элемента управления – кнопки. Этот элемент чаще всего используется для запуска программ расчета. Для получения заготовки процедуры необходимо: вызвать на экран форму «Элементы управления» (через меню «Вид→ Панели инструментов»); выполнить щелчок по изображению кнопки, расположеннойна панели «Элементы управления» (она должна приобрести болеесветлый вид); навести курсор мыши на место листа, где должна быть расположена кнопка, и обвести прямоугольник требуемых размеров(после того, как левая кнопка мыши будет отпущена, на листе останетсякнопка,накоторойприсутствуетнадпись«CommandButton1»); выполнить щелчок по кнопке конструктор панели «Элементы управления» (у кнопки появятся маркеры в виде белых квадратов); выполнить двойной щелчок мышью по кнопке, после чегопроизойдет переход в окно программ и будет получена заготовкаPrivate Sub CommandButton1_Click()End Sub Описание редактора Visual Basic, набор программыВ редакторе имеются различные инструменты, облегчающиеразработку и управление приложениями.Окно проекта - это специальное окно редактора, в которомвыводятся в виде иерархической структуры все элементы проекта:рабочие листы, модули, формы, базы данных и другие.

Характеристики

Список файлов книги