Лабораторно-практическая работа № 3

Тема: Ввод, вывод и присвоение в программе

Цель работы: получить навыки разработки приложений для вычислительных задач

Порядок выполнения

1. Расположите на форме следующие объекты и измените для них свойства:

Объект	Свойство	Значение
Рамка	Caption	Введите X и Y
Текстовое окно	Name	TxtX
	Text	(отсутствует)
Текстовое окно	Name	TxtY
	Text	(отсутствует)
Линейка прокрутки	Name	HSX
	Max	1000
	Min	0
Линейка прокрутки	Name	HSY
	Max	100
	Min	0
Рамка	Caption	Результат
Метка	Name	LblResult
	Caption	(отсутствует)
Командные кнопки	Name Caption	CmdPlus +
	Name Caption	CmdMinus -
	Name Caption	CmdDel /
	Name Caption	CmdMul *

2. Для текстовых окон и метки установите выравнивание по центру (свойство Alignment)

3. Для всех объектов, кроме прокруток, увеличьте размер шрифта (свойство Font)

4. Приведите свою форму в соответствии с образцом.

5. В разделе общих объявлений набрать

Dim X,Y As Integer

6. В окне кода процедуры обработки события Change для объекта HSX набрать:

TxtX.Text = HSX.Value

а для объекта HSY набрать

TxtY.Text = HSY.Value

7. В окне кода процедуры обработки события Click для объекта CmdРlus набрать

x = Val(TxtX.Text)

y = Val(TxtY.Text)

LblResult.Caption = x + y

8. Загрузите программу и проверьте работу кнопки «+» (ввод значений для X и Y выполните двумя способами: с клавиатуры и с помощью прокруток)

9. Остановите программу. Напишите программный код для остальных командных кнопок (самостоятельно)

10. Добавьте на форму несколько командных кнопок для вычисления следующих значений:

Sin ( X ) + Cos ( Y ); ; Tg ( X )² - | Y |

11. Результат показать преподавателю.

Лабораторно-практическая работа № 4

Тема: Встроенные функции

Цель работы: получить навыки использования математических функций

Порядок выполнения

1. Откройте новый проект, расположите на форме следующие объекты и измените для них свойства:

Объект	Свойство	Значение
Рамка	Caption	Случайное число от 0 до10
Текстовое окно	Name	TxtX
	Text	(отсутствует)
Рамка	Caption	Sin(X)
Метка	Name	LblSin
	Caption	(отсутствует)
	BorderStyle	1
Командная кнопка	Name Caption	CmdResult Вычислить
Рамка	Caption	Cos(X)
Метка	Name	LblCos
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	Tn(X)
Метка	Name	LblTan
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	Квадратный корень
Метка	Name	LblSqr
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	X^2
Метка	Name	Lbl_2
	Caption	(отсутствует)
	BorderStyle	1

2. Приведите свою форму в соответствие с образцом

3. В окне кода процедуры обработки события Click для объекта CmdResult набрать:

x = Rnd * 10

txtX.Text = x

LblSin.Caption = Sin(x)

LblCos.Caption = Cos(x)

LblTan.Caption = Tan(x)

LblSqr.Caption = Sqr(x)

Lbl_2.Caption = x ^ 2

4. Загрузите программу и проверьте ее работу

5. Самостоятельно измените форму и программный код для:

• изменения интервала случайного числа от 0 до 50

• получения целого случайного числа от 10 до 100

• определения остатка от деления числа Х на 2

6. Результат показать преподавателю.