Пособие Серкова1

•Value – значение непрерывной величины соответствующее положению бегунка Полосы прокрутки;

•Мах – наибольшее значение, принимаемое свойством Value (устанавливаемое пользователем с помощью линейки прокрутки);

•Min – наименьшее значение, принимаемое свойством Value (устанавливаемое с помощью линейки прокрутки);

•LargeChange – изменение значения свойства Value при щелчке пользователем на Полосе прокрутки;

•SmallChange – изменение значения свойства Value при щелчке пользователем на одной из стрелок полосы прокрутки.

Наиболее часто используются два события элемента управления Полоса прокрутки:

•Change – происходит при изменении свойства Value Полосы прокрутки, то есть когда пользователь щелкает по стрелкам или прямо на Полосе прокрутки;

•Scroll – генерируется во время перетаскивания бегунка линейки прокрутки.

Вокне свойств установите свойства Полосы прокрутки: Name, Min и Мах (должны соответствовать минимальному и максимальному значению X), LargeChange и SmallChange (должны иметь значения в диапазоне между Min и Max); Value (можно задать, равными Min или Мах).

Перейдите в окно кодов и поместите в процедуру Click линейки прокрутки оператор, который обеспечит считывание значения свойства Value линейки прокрутки в свойство Text текстового окна txtX:

txtX.Text = VScrolll.Value.

Поместите в процедуру линейки прокрутки оператор, с помощью которого автоматически будет изменяться цвет фона (свойство BackColor) текстового окна txtX при перемещении бегунка линейки прокрутки: txtX.BackCoIor = RGB(VScroIll.Value * 255 / (VScroUl.Max -VScroIll.Min), 100,200).

12.Сохраните изменения в приложении и запустите его на выполнение.

13.Используя функцию RGB, программным путем измените значения свойства ForeColor для текстовых окон txtV и txtZ в зависимости от значения X, например, таким образом:

txtY.ForeCoIor = RGB(0, 0, VScroUl.Value * 255 / (VScrolll.Max -VScrolll.Min))

14.Сохраните изменения в приложении и запустите его на выполнение.

15.Напишите отчет по лабораторной работе.

Содержание отчета.

1.Текст задания.

2.Эскиз формы.

41

3.Таблица свойств объектов.

4.Список идентификаторов.

5.Блок-схема алгоритма.

6.Содержимое раздела general и программные коды процедур.

7.Результаты счета.

Пример оформления отчета.

Задание №1

Составить приложение для вычисления значений переменных у и z по формулам:

Y arctg2

b2 a2

3

x 3b

, Z

ln

b a

2a

где a 3.87 10 2 , b 2.28 103 ,

,

cos3 x

x 2.5a

для заданных значений аргумента х: 3.14∙10-4, 21.20, -0,115∙103.

Таблица 12. – Свойства объектов управления

Элемент управления

Значение свойства:

Caption

Name

CommandButton

Вычислить

CommandButton1

TextBox

TextBox1

TextBox

TextBox2

TextBox

TextBox3

Label1

Y=

Label1

Label1

Z=

Label1

Таблица13. – Идентификаторы
Переменная или константа	Тип	Идентификатор
Константа а	вещественная (Single)	а
Независимая переменная b	вещественная (Single)	b
Независимая переменная х	вещественная (Single)	X
Зависимая переменная f	вещественная (Single)	f
Зависимая переменная c	вещественная (Single)	c

42

Рисунок 8. – Окно Excel

Содержимое раздела general и программные коды процедур.

Private Sub CommandButton1_Click() Dim x As Single, y As Single, z As Single Const a = -0.0387: b = -2.28

x = Val(TextBox3.Text)

y = Atn(Abs(b ^ 2 - a ^ 2)) ^ 2 + Abs(x - 3 * b) ^ (1 / 3) / Cos(x) ^ 3 z = (Log(Abs(b - a)) + 2 * a) / (x + 2.5 * a)

TextBox1.Text = Format(y, "0.0000")

TextBox2.Text = Format(z, "0.0000") End Sub

43

Блок-схема

начало

Введите значение x

a = -0.0387

b= -2.28

Y arctg2

b2 a2

3

x 3b

cos3 x

Z

ln

b a

2 a

x 2 .5 a

вывод y, z

конец

Контрольные вопросы

1.Изобразите и назовите основные блоки блок-схемы алгоритма.

2.Что такое алгоритм? Способы написания алгоритма.

3.Дайте определение линейного вычислительного процесса. Из каких частей состоит его алгоритм?

4.Какие типы данных вы знаете? Дайте их характеристику.

5.Функции для преобразование одного типа данных в другой.

6.Дайте понятие переменных и констант. Правила назначения имен переменным и константам. Область видимости переменных и констант. В чем различие между переменной и константой?

7.Какие типы данных могут храниться в переменной типа Variant?

8.Уровни видимости переменных и констант.

9.Глобальные переменные и константы, место и операторы их объявления в приложении. Назовите область их видимости.

44

10.Модульные переменные и константы, место и операторы их объявления в приложении. Назовите область их видимости.

11.Локальные переменные и константы, место и операторы их объявления в приложении. Назовите область их видимости.

12.Неявное объявление переменных.

13.Что такое локальные, модульные и глобальные переменные и константы? Как и где они описываются в приложении?

14.Правила записи арифметических выражений на Visual Basic. 15.Приоритет выполнения арифметических операций.

16.Стандартны функции, используемые в арифметических выражениях. 17.С какой целью используются скобки в арифметических выражениях? 18.Основные свойства, события и методы объектов: форма, текстовое окно, командная кнопка, метка и линейка прокрутки.

19.Каким образом производится ввод данных типа Single в текстовое окно? 20.Использование функции Val для преобразования данных типа String в числовые.

45

Лабораторная работа № 4

Программирование разветвляющихся вычислительных процессов. Элементы управления Список и Поле со списком Цель работы: изучение операторов передачи управления и принципов про-

граммирования разветвляющихся вычислительных процессов.

Инструкция IF (ЕСЛИ) используется в двух нотациях: в виде простой и блочной структур. Инструкция простой структуры имеет следующую форму записи:

If <Выражение> Then <Инструкция, исполняемая, если выражение – условие истинно> Конструкция блочной структуры может включать один блок инструкций

(<Блок 1>), исполняемых, если выражение 1 истинно, или же еще дополнительные условия, сопровождаемые блоками инструкций:

If <Выражение1> Then

<Блок 1 – исполняется, если выражение 1 истинно> ElseIf <Выражение2> Then

<Блок 2 – исполняется, если выражение 2 истинно > ElseIf <Выражение3> Then

<Блок 3 – исполняется, если выражение 3 истинно >

…………………..

Else

<Блок инструкций, исполняемых, если ложны выражения в инструкциях If и ElseIf>

End If

Блоки ElseIf и (или) Else могут отсутствовать. В любом случае блочная конструкция оканчивается инструкцией End If.

Вситуациях, когда требуется запрограммировать три и более разветвлений

взависимости от значения одной переменной, удобно использовать структуру

Select Case:

Select Case <Переменная>

Case <Значение 1> либо Case is <Условие 1>

<Блок 1 – выполняется, если значение переменной равно значению 1 или соответствует условию 1>

Case <Значение 2> либо Case is <Условие 2>

<Блок 2 – выполняется, если значение переменной равно значению 2 или соответствует условию 2>

………………….

End Select

Задание: в соответствии с заданным вариантом составить приложение для вычисления значений функций у = у(х), z = z(x,y) и р= p(x,y,z) при заданных и произвольных значениях х. Вывести значения х, у, z, p. Для ввода значений х воспользоваться элементом управления список или поле со списком.

Варианты заданий

Таблица 14 – Варианты заданий

№

X

У(х)

z(x,y) и условия

p(x,y,z)

1

2

3

4

5

1

-1.18

arctg (x∙ π)

sin xy при х > 0.1 и у<0.5

ln | xy |

0.72

0.5

при у > 1

z2

0.11

tgxy

в остальных случаях

2

-3.1

|x-1|2

при х > 0

sin x 2z y

xy3

0

ln(1-x)-0.5

при x < 0 у > 3

3.2

8

в остальных случаях

3

0.31

х2 -

x2 y при х > 0.1 и |x| > |y|

ln x z |

| x |

-1.5

15

при у > 2.3

y

5.1

x / y2

в остальных случаях

4

2.15

ln | x |

y

при х <=–1

cos z

|

x |

-3,3

при у > 1

0.5

ln | x y |

| x |

0,15

tgxy

в остальных случаях

5

-1,8

х2 -Зх + 1

ln(x y) при х > 1 и у<0

tg(x) 2yz

1

15

при x < 1

2,1

y * ex

в остальных случаях

6

3,15

ln | x |

sin

x y

при х < 1 и у<–2

arctg(z)

0,12

x

2

x2 y2

-0,25

3

при у >= 0.5

sin2

y

в остальных случаях

7

-2,1

arctg (2 sin х)

cos( / x y) при х > 0.1 и у<0.5

(x y)2

3,6

0.1

при x < 0 у > 1

z

-4,7

sin y

в остальных случаях

2

8

3,15

x *cos

x

ln(x y)

при х > 1 и у >= 2

| z |x y

15,2

при x<= 0 и у <-1

2

xy

-1,5

9

0.8

в остальных случаях

-4,1

x

1

при х >0.3

sin

x

2

y

2

0,5

ln(xy)

при x<= -0.3 и у <= -0.5

2

-0,1

x / y

в остальных случаях

e

x

10

0,92

ln|x2-1|

y / x

при х <1, y<-1

z2

11,9

25

при у > 3

x y

-4,1

x

y

в остальных случаях

11

π

Tg(x2)

y / x

при х > и y < 1

| z |x y

3

5

при x<2

-8

x2 y2

в остальных случаях

47

Продолжение табл. 14

1

2

3

4

5

12

4,3

– ln|x|

0.3

при х >=2 и y<= –2

z y

1,5

cos(x / y)

при x<1 и у > 2

x

0,5

tg(x / y)

в остальных случаях

13

-12,1

x2 - 3x - 1

| x |

при y<6

yz

2,19

ln(y / x)

при x<= 1 и у >9

sin x

4,73

14

в остальных случаях

14

44,3

ln|x|

2x / y

при х >=20

ln | xy |

15

3

при x<= 10 и у > 1

z

10

x y2

в остальных случаях

ln | x z |

1,68

e sin x

xy

при х >0.5 и y>=0

15

0,73

x

у < 0.2

2

-0,12

y

x2

y2

в остальных случаях

16

1,28

sin x

ln | z |

x

2

y

при y<0

-1,18

cos 2x

2.64

при x<= 1 и у >= 2

y x

0,78

xy

в остальных случаях

17

0,81

2sin x

y2

при х >=1

|

x |

y

2

|

z |

-1,11

x2

y2

при x<0 и у <0.6

-0,1

x

12

в остальных случаях

18

5,4

2ln|x|

x1/ y

при х >2 и y>=6

x

2

2z

-7,1

y x при у <0.2

y

27,3

4

в остальных случаях

19

4,1

4

10

при х >3.3

x2 y5

| x |

1,2

2y x

при x<= 2 и у >= 1.2

z

-3,3

x 2y

в остальных случаях

20

0,8

ex -tg(x)

10

при х >2

| x |

| y |

3,2

ex

e y

при x<= -1 и у <= 6

z

-1,5

2y x

в остальных случаях

21

-1,2

sin (π ∙ x)

tgxy

при х >0.1 и y<0.5

ln | xy |

3,8

0.5

при y>1

z2

2,4

tgxy

в остальных случаях

22

-3,1

|x|2

при х >0

sin x 2z y

xy3

0

ln(1 x)

при x<0 и у >= 3

1,2

8

в остальных случаях

23

15,5

sin

arctg(xy)

при х <π/3 и y>-0.3

ln | x z |

| x |

0,9

arctgx

при x>= π/2 и у <= -0.5

y

9,6

0.5

в остальных случаях

24

-1,28

cos

x

2

arctg( y)

при y>0

ln | x y z |

1,91

4

при x>0 и у <= -0.2

1,78

2

xy2

в остальных случаях

25

-2,11

ex — x

ln | 1 x |

при х < 1 и y > 2

xy

-0,3

8

при x >= 4

2z

5

xy

в остальных случаях

48

Окончание табл. 14

1	2			3									4					5
26	1	sin x 2						x y			при х >=1 и y>2				xy2
	-0,2							xy			при		у <-0.4		z
	1,9							0.5				в остальных случаях
27	3,1	tg (2x - 1)						0.5				при х <=0.4			x2 2y 1/ z
	1,2							x y			при x>1 и у <= 0
	-1
								|		x y |			в остальных случаях
28	-1,6							xy			при х <–1 и y>0.4						x2
		cos3 x2
	1,9							x ln y				при x>0.5 и у <= 0.2
																y2 z2
	-0,7							1		в остальных случаях
29	3,8							x 2y при х >1 и y>5									z
		3	x	2
	12,7							5			при у <2
															y	2	x	2
	-0,5							ex y				в остальных случаях
30	5,6	- 1п|х|						cos(x / y) при х <1 и y>2								cos z
	-0,13							0.3				при x>= 2 и у <= -2
															ln | x y |
	8,14							tg(x / y)					в остальных случаях

Ход работы

1. Составить таблицу переменных и блок-схему алгоритма для вычисления значений функций у, z и р при произвольных значениях аргумента х.

2.Открыть новый проект.

3.Расположить на форме элемент управления Список или Поле со списком для ввода значения переменной х и текстовые окна для вывода значений переменных у и z, командные кнопки и метки – для вывода «подсказок» пользователю.

Списки (ListBox) используются в тех случаях, когда элемент должен принимать фиксированные значения. Элемент управления Список используется тогда, когда нужно ограничить выбор пользователя тем, что находится в перечне.

Поле со списком (ComboBox) содержит поле для ввода, поэтому варианты выбора, не представленные в перечне могут вводиться прямо в это поле. Поле со списком позволяет сохранить место на форме. Полный список вариантов выбора не выводится до тех пор, пока пользователь не нажмет кнопку со стрелкой вниз.

Внешний вид элемента управления определяется значением свойства Style, которое может принимать три значения: 0 – со списком отображается стрелка в правой части элемента, 1 – элемент отображается с постоянно видимым списком, 2 – отсутствует поле ввода нового элемента списка.

49

Оба элемента управления сочетают в себе свойства поля с текстом (TextBox) и Списка и могут использоваться в приложениях в двух вариантах: стандартном и связанном с базами данных.

Для получения выбранного элемента списка используется свойство Text элемента управления, например:

А = ComboBox1.Text, В = ListBox1.Text.

Добавление элементов списка:

♦ во время работы приложения (программным путем) используется метод Addltem, который имеет следующий синтаксис

имя поля . Addltem элемент [, индекс],

где элемент – строковое выражение, добавляемое в перечень элементов списка, индекс – указание номера элемента списка (нумерация элементов начинается с нуля). Если индекс отсутствует, то новый элемент добавляется в конце списка, например, оператором ComboBox1.Addltem («5 января»), 1 на вторую позицию списка будет добавлен новый элемент «5 января».

4.Назначить свойства объектам приложения.

5.Составить тексты соответствующих процедур и ввести их в ЭВМ. Сохранить приложение в папке Лаб4.

6.Запустить приложение на выполнение. Если в программных кодах есть ошибки выполнения, то исправить их.

7.Произвести вычисления для произвольных и заданных значений аргумента х.

Содержание отчета

1.Текст задания.

2.Эскиз формы.

3.Таблица свойств объектов.

1.Список идентификаторов.

5.Блок-схема алгоритма.

6.Содержимое раздела general и программные коды процедур.

7.Результаты счета для заданных значений аргумента х.

Пример оформления отчета №4.

1. Текст задания.

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

50