Запись констант. Примеры использования констант.
Константы — это объекты, значения которых остаются постоянными и не могут быть изменены во время выполнения программы. Константы могут быть именованными и неименованными.
Синтаксис языка определяет три типа констант: символьные, целые и вещественные.
Символьная константа служит для изображения отдельных знаков и представляет собой лексему, состоящую из символа(или любой последовательности символов), заключенного в кавычки. Например, «Р», «Program», «3.14», «+» — неименованные символы константы.
Синтаксисом языка предусмотрены десятичные, шестнадцатеричные, восьмеричные целые константы. Целая десятичная константа представляется десятичным целым числом: 44,684, 0, 1278 — неименованные десятичные целые константы.
Вещественные константы представляются в памяти ЭВМ в форме числа с плавающей точкой.
Вещественная константа состоит из следующих частей:
целая часть (десятичная целая константа);
десятичная точка;
дробная часть (десятичная целая константа);
признак показателя «е» или «Е»;
показатель (десятичная целая константа):44. , 3.24879, 44еО, .314159Е1,
Различают встроенные константы VB(предопределённые константы) и создаваемые пользователем. Встроенные в Visual Basic константы имеют префикс vb. Встроенные константы определены в разделах справки для этих функций. Для того чтобы узнать конкретное значение константы, можно воспользоваться окном «Object Browser» (обозреватель объектов), которое вызывается клавишей [F2] или щелчком на соответствующей кнопке панели инструментов. После выбора константы ее значения и описание функции появляются в текстовом поле в нижней части окна «Object Browser».
Примеры использования предопределенных констант:
MsgBox «текстовое сообщение», vbInformation
MsgBox «нет данных для расчета»,vbExclamation
(экслёмэйшин – восклицание)
Для определения констант служит ключевое слово Const. Синтаксическая конструкция для декларирования констант напоминает оператор для декларации переменной и имеет вид:
[Public/Private] const имя_ константы[As тип]= значение
например:
Const PI As Single = 3.14 15 'объявлена именованная числовая константа для значения числа Pi.
15. Встроенные функции vb.
Встроенные функции VB обеспечивают сложные виды обработки данных, избавляя пользователя от разработки собственных программ. В VB используется несколько категорий встроенных функций. Это — математические, строковые, функции даты и времени, функции преобразования типов и файловые. При обращении к этим функциям необходимо указать идентификатор функции, а в скобках аргумент. Приоритет вычисления функций выше, чем у арифметических операций.
Математические:
Abs(x) - |x|
Atn(x) – arctg x
Sin(x) – sin x
Cos (x) – cos x
Tan(x) – tg x
Exp(x)
-
(e
– основание натурального логарифма)
Log(x) – ln x
Sqr(x) – квадратный корень
Rnd(x) – датчик случайных чисел
Fix(x) – отбрасывание дробной части
Int(x) – наибольшее целое число, не превосходящее Х
Round(x [, A]) – округление числа Х, с точностью до А десятичных знаков; если параметр А не задан, то происходит округление до целого значения
Sgn(x) – возвращает +1, если значение аргумента положительное, -1, если отрицательное и 0, если -0
Строковые:
Len(Str$) — определение длины строки; Left(Str$,x) — выделение из строки х символов слева;
Right(Str$,x) — выделение из строки х символов справа;
Mid(Str$,x,y) — выделение из строки у символов начиная с номера х.
Функции преобразования типов:
Val(Str$) — преобразует строковое значение в число;
Str(x) — преобразует число в строковое значение;
Chr(x) — преобразует числовой код в символ;
Chr( 13) — перевод каретки;
Chr( 10) — переход на начало строки.
16. Запись арифметических выражений в VB. Приоритет операций.
Арифметическое выражение – это последовательность чисел, констант, переменных, функций и арифметических выражений, заключённых в круглые скобки, которые соединены между собой знаками арифметических операций. Таких операций 8. Вычисления производятся в соответствии с приоритетом:
1) А^B;
2) –A;
3)A*B, A/B;
4)A\B;
5)A Mod B;
6)A+B, A-B.
Для операции 34\5 результат равен 6, а для (34 mod 5) результат 4. Взятие стандартной функции имеет наивысший приоритет. Чтобы изменить последовательность выполнения операций используют круглые скобки.
17. Программирование линейного вычислительного процесса. Пример вычисления по формуле.
Текст программного модуля:
Private Sub Форма1_Click()
Dim X As Single, Y As Double
X = Val(Текст1)
Y = 1.736 * Abs(Log(Tan(X / 2))) - Sqr(Atn((Exp(X) - Exp(-X)) / 2))
Текст2 = Str(Y)
End Sub
18. Разработка приложения «калькулятор».
Текст программы:
Private Sub CommandButton1_Click() ‘сложение
Dim chislo1 As Single, chislo2 As Single, rez As Single
chislo1 = Val(TextBox1.Text)
chislo2 = Val(TextBox2.Text)
rez = chislo1 + chislo2
TextBox3.Text = rez
End Sub
Private Sub CommandButton2_Click() ‘вычитание
Dim chislo1 As Single, chislo2 As Single, rez As Single
chislo1 = Val(TextBox1.Text)
chislo2 = Val(TextBox2.Text)
rez = chislo1 - chislo2
TextBox3.Text = rez
End Sub
Private Sub CommandButton3_Click() ‘умножение
Dim chislo1 As Single, chislo2 As Single, rez As Single
chislo1 = Val(TextBox1.Text)
chislo2 = Val(TextBox2.Text)
rez = chislo1 * chislo2
TextBox3.Text = rez
End Sub
Private Sub CommandButton4_Click() ‘деление
Dim chislo1 As Single, chislo2 As Single, rez As Single
chislo1 = Val(TextBox1.Text)
chislo2 = Val(TextBox2.Text)
rez = chislo1 / chislo2
TextBox3.Text = rez
End Sub
19. Разработка приложения «Переключатели и флажки».
Private Sub CheckBox1_Click() ‘ курсив
If CheckBox1.Value = 0 Then
Label1.Font.Italic = False
Else
Label1.Font.Italic = True
End If
End Sub
Private Sub CheckBox2_Click() ‘ жирный
If CheckBox2.Value = 0 Then
Label1.Font.Bold = False
Else
Label1.Font.Bold = True
End If
End Sub
Private Sub ComboBox1_Change() ‘ размер шрифта
Label1.Font.Size = ComboBox1.Text
End Sub
Private Sub OptionButton1_Click()
UserForm1.BackColor = vbYellow ‘ желтый цвет
End Sub
Private Sub OptionButton2_Click()
UserForm1.BackColor = vbGreen ‘ зеленый цвет
End Sub
Private Sub OptionButton3_Click()
UserForm1.BackColor = vbCyan ‘ голубой цвет
End Sub
Private Sub OptionButton4_Click()
Label1.BorderStyle = fmBorderStyleSingle ‘ с рамкой
End Sub
Private Sub OptionButton5_Click()
Label1.BorderStyle = fmBorderStyleNone ‘ без рамки
End Sub
Private Sub UserForm_Initialize() ‘ размер шрифта
For r = 8 To 16
ComboBox1.AddItem r
Next r
End Sub