Функции в языке Visual Basic Презентацию подготовила учитель информатики МБОУ СОШ 3 г. Светлого Нетесова Н. А. - презентация

1 Функции в языке Visual Basic Презентацию подготовила учитель информатики МБОУ СОШ 3 г. Светлого Нетесова Н. А.

2 I.Функции преобразования типов данных 1.Val(Строка$) - Превращает строку в число. Value - величина

3 Пример: Dim V V = Val("2457") ' Возвратит V = Val(" ") ' Возвратит V = Val("24 and 57") ' Возвратит 24. V = Val("") ' Возвратит 0. V = Val("laja") ' Возвратит 0. V = Val(«&O3720") ' Возвратит V = Val("&H7D0") ' Возвратит Применяется для преобразования строкового значения свойства Text текстовых полей в число, которое затем используется в арифметических выражениях –Private Sub CmndMinus_Click() –Txt3. Text = Val(Txt1.Text) - Val(Txt2.Text) –End Sub

4 2. Str (Число) – преобразует десятичное число в строку Пример: Dim S S = Str(459) ' Возвратит "459". S = Str( ) ' Возвратит " ". S = Str( ) ' Возвратит " ".

5 3. Hex(Число) -. преобразует десятичное число в шестнадцатеричное в строковой форме. Пример: Dim H H = Hex(5) ' Возвратит 5. H = Hex(10) ' Возвратит A. H = Hex(459) ' Возвратит 1CB. 4. Oct(Число) - преобразует десятичное число в восьмеричное в строковой форме. Dim O O = Oct(4) ' Возвратит 4. O = Oct(8) ' Возвратит 10. O = Oct(459) ' Возвратит 713.

6 5. Asc(Строка$) – преобразует строку в числовой код первого символа Пример: Dim N N = Asc("A") ' Возвратит 65. N = Asc("a") ' Возвратит 97. N = Asc("Apple") ' Возвратит 65.

7 6. Chr (Число Код) - возвращает символ, соответствующий определённому коду. Эта функция является обратной Asc. Пример: Dim C C = Chr(65) ' Возвратит A. C = Chr(97) ' Возвратит a. C = Chr(62) ' Возвратит >. C = Chr(37) ' Возвратит %.

8 II. Математические функции 1.Sin(Число) - вычисляет синус Числа 2. Cos(Число) - вычисляет косинус Числа. 3. Tan(Число) - вычисляет тангенс Числа 4. Atn (Число) - вычисляет арктангенс Числа.

9 Пример: Dim A, C, S, D, pi A = 1.3 ' Определяем угол в радианах C = 1 / Sin(A) ' Вычисляем косеканс S = 1 / Cos(A) ' Вычисляем секанс C = 1 / Tan(A) ' Вычисляем котангенс pi = 4 * Atn(1) ' Вычисляет значение числа pi.

10 5. Sqr(Число) - Возвращает корень Числа Пример: Dim S S = Sqr(4) 'Возвратит 2. S = Sqr(23) 'Возвратит S = Sqr(0) 'Возвратит 0. S = Sqr(-4) 'Генерирует ошибку (корень из отрицательного числа).

11 6. Log(Число) - вычисляет натуральный логарифм числа (по основанию e). (Возвращает тип Double). е=2.71 Для того, чтобы получить логарифм по основанию n нужно произвести следующее вычисление: Logn(x) = Log(x) / Log(n) 7. Exp (Число) - Возвращает экспоненту Числа. Пример: Form1. Caption = Exp(1) 'Отобразит на Caption число e (т.е. e в степени 1)

12 8. Rnd[(Число)] - Генерирует случайное число от 0 до 1. Для генерации случайного числа Х в интервале [ A,B] используют формулу: X=RND*(B-A) +A или X=RND*(B-A+1) +A (включает крайние знач. интервала [ A,B]) Каждый раз при запуске программы, если не переустанавливается база генератора случайных чисел, формируется одна и та же последовательность чисел.

13 RANDOMIZE (база) - переустанавливаем базу генератора случайных чисел. Пример: Dim V RANDOMIZE TIMER V = Int((6 * Rnd) + 1) ' Генерирует случайное число от 1 до 6

14 III. Строковые функции 1. LEN(Строка$) – определяет длину Строки$ 2. Left(Строка$,n) - вырезает n символов, начиная с первого символа до указанного номера 3. Right(Строка$,n) - вырезает n символов из Cтроки$, начиная справа 4. Mid(Строка$,n,k) - вырезка из Cтроки$ с n-ой позиции k символов

15 Пример: Dim strA, strL, strR, strS As String, intN As Integtr strA = Школа" ' Определяем строку intN=Len(strA) ' Определяем длину строки strL = Left(«Школа», 1) ' Возвратит «Ш» strL = Left(strA, 3) ' Возвратит «Шко» strL = Left(«Школа», 20) ' Возвратит «Школа» strR= Right(strA, 1) ' Возвратит «а» strR = Right(«Школа», 3) ' Возвратит «ола» strS=Mid(«Школа»,2,3) ' Возвратит «кол»

16 IV. Функции ввода и вывода 1. InputBox (Приглашение$, Заголовок$,[По Умолчанию$]) – вводит данные с помощью диалоговой панели ввода (Окно Ввода). Пример: Выводим окно с заголовком "ВНИМАНИЕ", запросом "Введите пароль", в окошке будет выделенный текст "Значение_по_умолчанию". Координаты появления окна - 100,100pix. Form1. Caption = InputBox("Введите пароль", _ "ВНИМАНИЕ", "Значение_по_умолчанию", 100, 100)

17 2. MsgBox(Сообщение$[,Чис Код 1+Чис Код 2][, Заголовок$] ) - выводит на экран окно сообщения (Message Box) которое будет ждать клика на одной из кнопок. Возвращает Число, по которому можно определить какую кнопку нажал пользователь. Значение Чис Код 1 определяет вид пиктограммы, которая помещается в панель сообщений. Значение Чис Код 2 определяет набор кнопок, размещаемых на панели

18 С помощью одного числа, являющегося нажал пользователь. Суммой чисел Чис Код 1+Чис Код 2, можно одновременно устанавливать определенную пиктограмму и определенную комбинацию кнопок, размещенных на панели сообщений. Пример. Число 36=32 (код пиктограммы «Вопрос»+4(код комбинации кнопок Да,Нет). Значения функции MsgBox Нажатая кнопка Знач. ф-и ОК1 Отмена 2 Стоп 3 Повтор 4 Пропустить 5 Да 6 Нет 7

19 Значения Чис Код 1 и Чис Код 2, определяющие вид панели сообщений Чис Код 1Пиктограмма Чис Код 2Набор кнопок 0ОК 1ОК, Отмена 2Стоп, Повтор, Пропустить 3Да, Нет, Отмена 4Да, Нет 5Повтор, Отмена i ! ?

20 Dim bytB, bytN As Byte, strA, strB As String Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию:", "Регистрация") bytB = MsgBox("Уважаемый " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации") If bytB = 7 Then End strC = InputBox("Чему равен 1 байт?:", "Первый вопрос") If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _ Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1 strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос") If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _ Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1 MsgBox "Уважаемый " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса End Sub Проект «Проверка знаний»

21 Функции даты и времени Date - возвращает текущую дату. Пример: Dim MyDate MyDate = Date ' MyDate содержит текущую системную дату. Проект «Дата» Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = Date dtmB = #1/1/2001# Print "Сегодня "; dtmA Print "С начала третьего тысячелетия прошло"; dtmA - dtmB; "дней" End Sub

22 Функция Time$ - Возвращает String значение, содержащее текущее системное время, которое можно вывести в текстовое поле. Значение времени представляется #Часы:Минуты:Секунды# Пример: Dim MyTime MyTime = Time ' Возвращает текущее системное время. Timer - Возвращает Single, содержащее количество секунд, прошедших после полуночи. Не отображается на форме в процессе выполнения проекта, проверяет показание системных часов по событию Timer.

23 Проект «Секундомер» Sub tmr1_Timer() txtTime.Text = Time$ End Sub Sub cmdTD_Click() txtTime.Text = Time$ txtData.Text = Date End Sub

24 Используемые источники: informaschka.ucoz.ru/load/ Н. Угринович «Информатика и информационные технологии»