Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






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





Тема: Основы программирования в интегрированной среде Visual Basic. Процедуры и функции. Создание форм для ввода, накопления и вычисление статистических параметров данных, записанных на листе таблицы EXCEL.

Цель работы:

- изучить основные операторы VBA;

- научиться использовать процедуры и функции VBA.

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

В Visual Basic, как и во многих других языках программирования, весь программный код находится внутри процедур. Что же такое процедура?

Процедура – это подпрограмма. Она начинается оператором Sub и заканчивается оператором End, между которыми и помещается код. Такие процедуры могут вызываться или самим Visual Basic (процедуры обработки событий), или другими процедурами. При этом обработчики событий реализуются как процедуры. Имя процедуры обработки события состоит из имени объекта и имени события:

Private Sub Command1_Click() End Sub

Можно создавать и собственные процедуры, так называемые общие процедуры. Для этого нужно перейти к секции (General) (Declaration). В окне кода введите Sub, затем имя, например, Roots, и нажмите клавишу [Enter]. После этого появляется новая процедура:

Sub Roots () End Sub

Эта процедура относится к секции (General) (Declaration). Заголовок процедуры заканчивается пустыми скобками, однако там могут помещаться аргументы.

Использование аргументов в процедурах событий можно увидеть на примере события MouseMove. Для некоторых событий после имени в скобках указываются аргументы, при помощи которых процедуре передаются необходимые ей значения. Для процедур обработки событий эти аргументы обычно устанавливает Visual Basic.

Если выбрать из (Procedure) событие MouseMove, то процедура будет выглядеть так:

Private Sub Command1 MouseMove(_Button As Integer, _Shift As Integer, _X As Single, _Y As Single)End Sub

Для события MouseMove Visual Basic передает четыре аргумента – состояние кнопок мыши Button, клавиши Shift и координаты X и Y курсора. Если вы сами пишете процедуру, то сами задаете аргументы. Допустим, вы хотите написать процедуру, которая выводит текст.

Sub Frend()Print "Здравствуй, друг."End Sub

Создание подобной процедуры имеет то преимущество, что при необходимости вывести строку "Здравствуй, друг." достаточно всего лишь вызвать ее, а не вводить всю строку кода. Теперь процедура вызывается как обычный оператор Visual Basic:

Private Sub Command1_Click()FrendEnd Sub

В этом примере из процедуры Command1_Click вызывается процедура Frend. Если исходить из того, что до и после вызова стоят и другие операторы, то при вызове Frend программа переходит в эту процедуру, выполняет ее операторы и опять возвращается в точку прерывания, в процедуру Command1_Click. В созданных процедурах могут использоваться и аргументы. Они просто помещаются в скобках в заголовке процедуры с указанием (при необходимости) типа данных.

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

Sub Frend (Message As String)

Print "Здравствуй, " & Message

End Sub

Нужно изменить также и вызов процедуры:

Private Sub Command1_Click()

Frend "Александр"

End Sub

В этом примере вызывается та же процедура Frend. При этом ей дополнительно передается один аргумент.

Задание 1. Создать проект, который позволит производить преобразование строк с использованием строковых функций.

Запустите в операционной системе Windows систему объектно-ориентированного программирования Visual Basic и создайте новый проект Приложение Windows Forms.

 

 

Разместите на форме (рисунок 13.1):

Рисцнок 13.1 Строковый калькулятор

- текстовое поле TextBox1 для вывода строкового аргумента Строка;

- текстовое поле TextBox2 для вывода числового аргумента Позиция;

- текстовое поле TextBox3 для вывода числового аргумента Длина;

- текстовое поле TextBox4 для ввода числового аргумента Код символа;

- надпись Label1 для вывода результата;

- шесть кнопок для запуска обработчика событий.

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

Событийная процедура реализующая функцию Left()

Private Sub Button1_Click() Handles Button1.Click

Label1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Val(TextBox2.Text))

End Sub

Событийная процедура реализующая функцию Right()

Private Sub Button2_Click() Handles Button1.Click

Label1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, Val(TextBox2.Text))

End Sub

Событийная процедура реализующая функцию Mid()

Private Sub Button3_Click() Handles Button3.Click

Label1.Text = Mid(TextBox1.Text, Val(TextBox2.Text), Val(TextBox3.Text))

End Sub

Событийная процедура реализующая функцию Len()

Private Sub Button4_Click() Handles Button4.Click

Label1.Text = Len(TextBox1.Text)

End Sub

Событийная процедура реализующая функцию Asc()

Private Sub Button5_Click() Handles Button5.Click

Label1.Text = Asc(TextBox1.Text)

End Sub

Событийная процедура реализующая функцию Chr()

Private Sub Button6_Click() Handles Button6.Click

Label1.Text = Chr(Val(TextBox4.Text))

End Sub

Запустите проект, в первое поле введите слово, (например, «студентка»), во второе поле – порядковый номер символа, (например, 1), в третьем поле – количество вырезаемых символов, (например, 7). Кликните по кнопке Mid(). На метке появится слово «студент».

Введите в текстовое поле возле кнопки Chr() любой символ от 0 до 255, (например, 200) и кликните по кнопке Chr(). На метке появится символ И.

Функции – это процедуры, возвращающие результат. Язык VBA предоставляет возможность создания собственных функций, которые могут быть использованы наряду с встроенными фукнциями Excel. Функции начинаются со слова Function и заканчиваются словами End Function.

Синтаксис:

Function <имя функции> (список переменных)

<тело функции>

End Function

В качестве разделителя элементов списка используется запятая.

Задание 2. Вызвать окно редактора кода VBA. Выполнить пункт меню Insert/Module. Далее выполнить Insert/Procedure.В открывшемся диалоговом окне ввести имя функции, например, Summa и установить переключатели тип в положение окне Function, область определения в положение общая, кликнуть Ок.

В окне редактора кода VBA ввести текст функции:

Public Function Summa (x, y, z, I, j)

Summa =x + y+ z + I + j

End Function

Задание 3. Создать пользовательские функции, вычисляющие значения функций N(x), R(x) заданные в таблице 13.1 в соответствии с вариантом.

Таблица 13.1.

вариант C K X N(x) R(x)
    2,3   1,1   3,4  
      14,87   4,36   2,28
      -6,76   5,32   15,8  
      7,83   34,12   2,56    
      32,12   -5,34   1,23
      -7,56   3,23   2,54  
      15,67   16,79   2,45  
      4,56   6,94   4,56
      13,66   -4,57   3,67
    12,57   -3,12   2,3  

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

1. Что такое процедура Visual Basic?

2. Какие типы процедур Visual Basic вам известны?

3. Что представляет собой подпрограмма? Какие задачи она решает?

4. Что представляет собой функция?

5. Опишите правила сождания пользовательской функции Visual Basic.

6. Какие моменты нужно учитывать при создании пользовательских функций Visual Basic?

7. Как использовать созданную пользовательскую функцию?

Литература[5, 8].

Date: 2015-11-13; view: 522; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.008 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию