Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ




МЕТОДИЧЕСКИЕ УКАЗАНИЯ

к выполнению лабораторной работы

”Использование функций для организации интерфейса в подпрограммах на VBA”

по учебной дисциплине

«Информатика и компьютерная техника»

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

«Менеджмент»

 

Севастополь


 

УДК 658.

Использование функций для организации интерфейса в подпрограммах на VBA.

Методические указания по выполнению лабораторной работы по дисциплине "Информатика и компьютерная техника" / Сост. Ю.Л. Явкун - Севастополь: Изд-во СевНТУ, 2010. - 12 с.

 

Целью методических указаний является применение теоретических знаний по теме «Использование функций для организации интерфейса в подпрограммах на VBA» в рамках курса «Информатика и компьютерная техника». Методические указания предназначены для студентов дневной формы обучения направления подготовки «Менеджмент».

 


Содержание

1 ЦЕЛЬ РАБОТЫ.. 4

2 КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ.. 4

2.1 Функция InputBox. 4

2.2 Функция MsgBox. 5

2.3 Вызов подпрограмм. 7

3 ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ.. 9

ПРИЛОЖЕНИЕ А.. 10

ПРИЛОЖЕНИЕ Б. 12

 


ЦЕЛЬ РАБОТЫ

Изучить приемы организации простейшего интерфейса пользователя в подпрограммах в Microsoft Excel с помощью функций InputBox и MsgBox.

 

КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

 

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

Функция InputBox

 

Функция InputBox осуществляет ввод значений с помощью окна ввода. Простейший синтаксис:

InputBox (текстовая_строка), где

• текстовая_строка - это обязательный аргумент; он задает в окне информационное сообщение, обычно поясняющее смысл вводимой величины;

Так, например, если в тексте программы записать:

InputBox("Введите число A "),

то будет сформировано окно следующего вида:

 

Более подробная форма записи функции InputBox имеет вид:

InputBox(Prompt, [Title], [Default], [Xpos], [Ypos],

[HelpFile], [Context]) As String

При этом

• Prompt - сообщение, которое выводится из диалогового окна;

• Title - заголовок диалогового окна;

• Buttons - кнопки, которые выводятся в диалоговом окне;

• Xpos, Ypos - координаты верхнего левого угла диалогового окна;

• Default - символ, который выводится в поле ввода (для функции InputBox), например «пробел»;

• HelpFile - файл-справка;

• Context - описание.

 

Для того, чтобы с помощью функции можно было вводить данные в программу, можно использовать следующие конструкции:

A = CInt(InputBox("Введите число A "))

B = CDbl(InputBox("Введите число B "))

Здесь функции CInt и CDbl возвращают в программу и присваивают переменным A и B, соответственно, целочисленное значение и значение в формате с плавающей точкой двойной точности, полученные каждое в своем интерфейсном окне, сформированном функцией InputBox.

 

Функция MsgBox

В простейшем случае функция MsgBox имеет следующий синтаксис:

MsgBox(текстовая строка),

Где текстовая_строка - это обязательный аргумент, задающий в окне выводимое информационное сообщение; может состо­ять из нескольких текстовых строк, объединенных знаком «&»:

 

Рассмотрим простейшую процедуру, в которой используются функции MsgBox и InputBox:

Даны 3 числа. Найти среднее из них (т.е. число, расположенное между наименьшим и наибольшим).

 

 

Private Sub CommandButton1_Click()

Dim A, B, C, X As Double

A = CInt(InputBox("Введите число A ", "Ввод данных"))

B = CDbl(InputBox("Введите число B ", "Ввод данных"))

C = CDbl(InputBox("Введите число C ", "Ввод данных"))

If (A < B) And (A > C) Or (A > B) And (A < C) Then X = A

If (B < A) And (B > C) Or (B > A) And (B < C) Then X = B

If (C < A) And (C > B) Or (C > A) And (C < B) Then X = C

MsgBox ("Число, расположенное между миним. и макс. = " & X)

End Sub

Диалоговое окно, заданное функцией InputBox, имеет заго­ловок «Ввод данных», а в самом диалоговом окне содержится приглашение «Введите число А», «… B», «… C». В окне вывода, заданном функцией MsgBox, выводится сообщение «Число, расположенное между миним. и макс. =» и указывается числовое значение. (Данный пример не учитывает ситуаций, когда два или три введенных числа равны. Проверьте работу программы в этом примере для разных чисел и доработайте программу для случаев равенства вводимых чисел в следующей лабораторной работе.)

 

По умолчанию предполагается, что в окне MsgBox содержится одна строка текста. Однако включение в выводимую строку функции Chr$(13) приводит к пе­реходу на новую строку при выводе информации. Если при этом используется также функция Chr$(9), которая возвращает символ табуляции, то можно в окне MsgBox получать многострочные таблицы. В качестве примера рассмотрим табулирование функции :

Private Sub CommandButton1_Click()

Dim Stroka As String

Dim x As Double

Dim y As Double

Stroka = "X =" & Chr$(9) & "Y =" & Chr$(13) & Chr$(13)

MsgBox ("В примере вычисляется функция y=x^(1/2)" & Chr$(13) & _

"Значение х меняется в цикле от 1 до 5" & Chr$(13) & _

"Нажмите ENTER")

For x = 1 To 5

y = Sqr(x)

Stroka = Stroka & x & Chr$(9) & y & Chr$(13)

Next x

MsgBox (Stroka)

MsgBox ("Пока все! Привет;-)")

End Sub

В данном случае для функции MsgBox формируется строковая (текстовая) переменная Stroka, начальным значением которой задается заголовок «X= … Y= …», затем в цикле к этой переменной добавляются пары значений «x», изменяемого от 1 до 5 с шагом 1 и «y», полученным как корень квадратный из «x»:

 

 

Вызов подпрограмм

 

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

Выполните команду «Вид → Панели инструментов → Элементы управления», выберите элемент «кнопка» (CommandButton), и укажите на рабочем листе место ее размещения:

Двойной щелчок по внедренной кнопки вызовет редактор VBA, в котором можно задать свойства программной кнопки (например, надпись на ней (Caption) – «Задание № 1»), а также записать текст подпрограммы, вызываемой этой кнопкой:






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных