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

Тема: Условный оператор. Графические методы

Цель: Закрепить навыки использования условного оператора и графических методов

Постановка задачи: Разработать приложение, имитирующее работу часов с минутной и секундной стрелками

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

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

Объект	Свойство	Значение
Линии	Name	Line1
	Name	Line2
Фигура	Name	Shape1
	Shape	0
Таймеры	Name	Timer1
	Interval	1
Переключатели	Name	Timer2
	Interval	0

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

Dim i, j, x, y As Integer

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

'назначить для формы новую систему координат

Scale (-120, 120)-(120, -120)

'установить размер циферблата часов

Shape1.Height = 120

Shape1.Width = 120

Shape1.Left = -60

Shape1.Top = 60

'установить положение стрелок

Line1.X1 = 0

Line1.Y1 = 0

Line1.X2 = 0

Line1.Y2 = 60

Line2.X1 = 0

Line2.Y1 = 0

Line2.X2 = 0

Line2.Y2 = 30

'циферблат разбит на три зоны

'переменные определяют в какую зону попадают часовая и минутная стрелки

i = 1

j = 1

4. В окне кода процедуры обработки события Timerдля объектаTimer1набрать

'таймер для секундной стрелки

x = Line1.X2 : y = Line1.Y2

If i = 1 Then ' с 0 до 15 мин

x = x + 4

b = Int(x ^ 2)

y = Sqr(3600 - b)

Line1.X2 = x : Line1.Y2 = y

If Int(x) = 60 Then i = 2

Exit Sub

End If

If i = 2 Then 'с 15 до 45 мин

x = x - 4

b = Int(x ^ 2)

y = Sqr(3600 - b)

Line1.X2 = x : Line1.Y2 = y * (-1)

If x = -60 Then i = 3

Exit Sub

End If

If i = 3 Then 'с 45 до 60 мин

x = x + 4

b = Int(x ^ 2)

y = Sqr(3600 - b)

Line1.X2 = x : Line1.Y2 = y

If Int(x) = 0 Then i = 1: Timer2_Timer

Exit Sub

End If

5. В окне кода процедуры обработки события Timerдля объектаTimer2набрать

'таймер для часовой стрелки

'таймер для минутной стрелки

x = Line2.X2 : y = Line2.Y2

If j = 1 Then ' с 0 до 15 мин

x = x + 10

b = Int(x) ^ 2

y = Sqr(900 - b)

Line2.X2 = x : Line2.Y2 = y

If Int(x) = 30 Then j = 2

Exit Sub

End If

If j = 2 Then 'с 15 до 45 мин

x = x - 10

b = Int(Abs(x)) ^ 2

y = Sqr(900 - b)

Line2.X2 = x : Line2.Y2 = y * (-1)

If Int(Abs(x)) = 30 Then j = 3

Exit Sub

End If

If j = 3 Then 'с 45 до 60 мин

x = x + 10

b = Int(x) ^ 2

y = Sqr(900 - b)

Line2.X2 = x : Line2.Y2 = y

If Int(Abs(x)) = 0 Then j = 1

Exit Sub

End If

6. Проверьте работу программы

7. «Отрегулируйте» работу ваших часов, так чтобы их ход максимально соответствовал ходу настоящих часов.

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

Тема: Оператор цикла.

Цель: Получить навыки использования оператора цикла по счетчику

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

1. Установите на форме следующие объекты и измените им свойства: 1 часть

Объект	Свойство	Значение
Командная кнопка	Name	Cmd1
	Caption	Вывести
Рамки	Caption	Параметры оператора цикла
	Caption	Введите текст
	Caption	Текст наоборот
Текстовые окна	Name	Txt1
	Name	Txt2
	Name	TxtStep
	Name	Text1
	Name	Text2
Командные кнопки	Caption	Вывести
	Name	Cmd1
	Caption	Перевернуть
	Name	Cmd2

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

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

n1 = Val(Txt1.Text)

n2 = Val(Txt2.Text)

n3 = Val(TxtStep.Text)

Cls

For i = n1 To n2 Step n3

Print i

Next i

4. Проверьте работу программы для различных значений параметров оператора цикла

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

s = Text1.Text

k = Len(s)

b = ""

For i = k To 1 Step -1

b = b + Mid(s, i, 1)

Next i

Text2.Text = b

6. Проверьте работу программы на различных фразах, в том числе на следующих фразах:

А РОЗА УПАЛА НА ЛАПУ АЗОРА АРГЕНТИНА МАНИТ НЕГРА