Д

Самостоятельно.

1.Добавьте 4 кнопки: Command5 и Command6, Command7, Command8которые возводят число в любую степень, применив формулу Label1.Caption = Val(Text1.Text) ^ Val(Text2.Text) и извлекает корень квадратный Label1.Caption = SQR(Val(Text1.Text)), вычисляют SIN и COS –угла записанного в радианах, применив формулы Label1.Caption = Sin(Val(Textl.Text)); Labell.Caption = Cos(Val(Textl.Text))

2. Практическое задание.

В системе программирования Visual Basic создать проект «Инженерный калькулятор». Расширить его возможности путем создания событийных процедур вычис­ления тангенса и арктангенса.

ля Command1

Private Sub Command1_Click()

Label1.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Для Command2

Private Sub Command2_Click()

Label1.Caption = Val(Text1.Text) - Val(Text2.Text)

End Sub

Для Command3

Private Sub Command3_Click()

Label1.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

Для Command4

Private Sub Command4_Click()

Label1.Caption = Val(Text1.Text) / Val(Text2.Text)

End Sub

Запустите проект. Сохраните проект

3.Практическое задание. В системе программирования Visual Basic создать проект «Треугольник», позволяющий вычис­лить гипотенузу и площадь прямоугольного треугольника, если известны его катеты.

Уэ №4 «Логические выражения».

Задачи УЭ №4. Научится использовать логические операции с логическими вы­ражениями.

Что делать. Создать проект «Логические выражения».

Как делать.

1. Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Логические выражения.

2. Поместить на форму кнопку Commandl. В окне Свойств объекта установить для свойства Caption значение Логические выражения.

3. Двойным щелчком мыши активизируйте кнопку и введите программный код.

Private Sub Command1_Click()

Form1.Print 5 > 3

Form1.Print "A" = "B"

Form1.Print (5 > 3) And ("A" = "B")

Form1.Print (5 > 3) Or ("A" = "B")

Form1.Print Not (5 > 3)

End Sub

Самостоятельно измените программный код, так чтобы на форме печатолось следующие сообщение (см. рис.).

Практическое задание. В системе программирования Visual Basic создать проект «Логические выражения». Проверить, ис­тинны или ложны логические выражения 2 × 2 = 5 и " 1 байт" = "8 битов".

Уэ №5 «Строковые функции».

Задачи УЭ №5. Научится производить различные преобразования строк с ис­пользованием строковых функций.

Что делать. Создать проект «Строковый калькулятор».

Как делать.

1. Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Строковый калькулятор.

2. Разместите на форме управляющий элемент Label1, Label2, Label3, Label4, Label5 (как показано на рисунке)

Свойствам Caption дать значения: 1- Строка; 2-Длина; 3- Позиция; 4-Результат; для Label5 свойству Caption дать значение «пусто» - Alignment – 2-Center, AutoSize-True: Appearance – 0-Flat

3. Разместим на форме тек­стовое поле Textl для ввода строкового аргумента Строка, текстовое поле Text2 для ввода числового аргумента Длина и текстовое поле Text3 для ввода числового аргумента По­зиция. Для вывода результата используем метку Labell. Свойствам Text1, Text2, Text3- дать значения «пусто».

4. Разместим на форме шесть кнопок Command1, Command2, Command3, Command4, Command5, Command6.

Свойствам Caption дать значения: 1-Left; 2-Right; 3-Mid; 4-Len; 5-Asc; 6-Chr

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

Private Sub Command1_Click()

Label5.Caption = Left(Text1.Text, Val(Text2.Text))

End Sub

Private Sub Command2_Click()

Label5.Caption = Right(Text1.Text, Val(Text2.Text))

End Sub

Private Sub Command3_Click()

Label5.Caption = Mid(Text1.Text, Val(Text3.Text), Val(Text2.Text))

End Sub

Private Sub Command4_Click()

Label5.Caption = Len(Text1.Text)

End Sub

Private Sub Command5_Click()

Label5.Caption = Asc(Text1.Text)

End Sub

Private Sub Command6_Click()

Label5.Caption = Chr(Text1.Text)

End Sub