- •1. Рождение и развитие Basic
- •2. Краткое описание vba
- •3. Новые возможности Visual Basic 5.0
- •4. Пример взаимодействия excel и visual basic
- •5. Программирование табличных функций
- •6. Встраивание функций
- •7. Применение функций
- •8. Переменные и операторы
- •9. Использование форм и средств управления ole
7. Применение функций
Перейдите на рабочий лист, где будет расположена таблица. Переместите указатель ячеек в ячейку, в которой будет находиться формула, и введите в нее знак равенства. Затем щелкните по 14-й пиктограмме Конструктора функций на основной пиктографической панели.
Появится диалоговое окно Конструктора функций. На первом шаге выберите категорию Financial и в правом поле найдите свою функцию NDS. Щелкните по названию этой функции, после чего перейдите к следующему шагу, щелкнув по командной кнопке Next.
Откроется второе диалоговое окно Конструктора функций. Здесь можно будет увидеть Ваш комментарий к функции, который был введен ранее в окне макроопций. Укажите единственный аргумент для этой функции Value и закройте диалоговое окно Конструктора щелчком по кнопке Finish.
В таблице появится значение, составляющее 15% величины аргумента. В таблице с этой функцией можно работать как с обычной функцией программы Excel.
8. Переменные и операторы
Visual Basic позволяет резервировать переменные, с указанием размера и без оного, работать с различными типами данных, использовать константы, работать с математическими операторами и функциями, использовать дополнительные операторы. Предусмотрено использование операторов циклов For Next, Do, объектов типа “ таймер” (невидимый секундомер в программе). Точность установления времени в программе составляет 1 миллисекунду, или 1/1000 сек. Запущенный таймер постоянно работает - т.е. выполняется соответствующая процедура обработки прерывания через заданный интервал времени - до тех пор, пока пользователь не остановит таймер или не отключит программу.
|
Типы данных | |||
|
Тип |
Размер (байт) |
Диапазон значений |
Пример использования |
|
Integer (Целое) |
2 |
от - 32768 до 32767 |
Dim Birds% Birds%=37 |
|
Long Integer (Длинное целое) |
4 |
от - 2147483648 до 2147483647 |
Dim Loan& Loan&=350,000 |
|
Single-precision Floating paint (Одинарной точности с плавающей десятичной точкой) |
4 |
от - 3,402823Е38 до 3,4402823Е38 |
Dim Price! Price!=899.99 |
|
Double-precision Floating paint (Двойной точности с плавающей десятичной точкой) |
8 |
от -1,79769313486232D308 до 1,79769313486232 D308 |
Dim pi# pi#=3.1415926535 |
|
Currency (денежные единицы) |
8 |
от -922337203685477,5808 до 922337203685477,5807 |
Dim Debt@ Debt@=7600300,50 |
|
String (Строка) |
1 на символ |
от 0 до 65535 символов |
Dim Dog$ Dog$=’pointer’ |
|
Boolean (Логическое) |
2 |
True(истина) или False(ложь) |
Dim Flag as boolean Flag=True |
|
Date (Дата) |
8 |
от January(Январь) 1,100, до December(Декабрь) 31,9999 |
Dim Birthday as Date Birthday=#3-1-63# |
|
Variant (Вариант) |
16 (для чисел); 22+1 на символ (для строк) |
для всех типов данных |
Dim Total Total=289.13 |
|
Функция |
Действие |
|
abs(n) |
Возвращает абсолютное значение n |
|
atn(n) |
Возвращает арктангенс n в радианах |
|
cos(n) |
Возвращает косинус угла n в радианах |
|
Exp(n) |
Возвращает константу е в степени n |
|
Sgn(n) |
Генерирует случайное число между 0 и 1 |
|
Rnd(n) |
возвращает -1, если n<0; 0, если n=0; +1если n>0 |
|
Sin(n) |
Возвращает синус угла n в радианах |
|
Sqr(n) |
квадратный корень из n |
|
Str(n) |
Преобразует числовое значение в строку |
|
Tan(n) |
Возвращает тангенс угла n в радианах |
|
Val(n) |
Преобразует строку в числовое значение |
