Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

370

Ответы

и указания по выполнению заданий

Задать

с помощью

мыши

координаты то-

чек и с помощью

меню выбрать масш-

таб

и графический

примитив.

5.49.

Проект «Палитра цветов» хранится в папке prjZ5_49.

Поместить на форму три графических окна

picColorl,

picColorl

и кнопку

cmdStart.

Создать событийную процедуру, которая

задает

масштаб

для каждого окна и рисует в цикле окружности с увели-

чивающимся радиусом и изменяющимся цветом:

Private

Sub

cmdStart_Click()

picColorl.Scale

(-300,

300)-(300,

-300)

picColor2.Scale

(-300,

300)-(300,

-300)

picColor3.Scale

(-300,

300)-(300,

-300)

For

intl

= 0 To 255

picColorl.Circle

(0,0),

intl,

RGB

(255

intl,

intl)

picColor2.Circle

(0,0),

intl,

RGB(255

intl, intl,

picColor3.Circle

(0,0),

intl,

RGB(0,

255 -

intl, intl)

intl

End

Sub

Запустить проект.

трех графических ок-

нах

будут представле-

ны палитры попарно

изменяющихся

базо-

вых цветов (RB, RG и

GB).

5.50.

Файл проекта «Выбор цвета» prjZ5_50.vbp.

Поместить на форму графическое поле

picColor

для про-

смотра

выбранного цвета и текстовое поле

txtColor

для

вывода его названия.

Ответы

указания

по

выполнению

заданий

371

2 Для

вывода

раскрывающегося списка

цветовых

кон- Е

стант поместить на форму

комбинированное

поле

(ComboBox)

дать

ему имя cmbl.

Задать

свойству

Style

значение Dropdown

List

(раскры-

вающийся список).

Внести в список перечень

цветовых

констант с использо-

ванием свойства

List.

Создать событийную

процедуру

cmblClick

(),

реализу-

ющую

задание цвета с помощью

цветовых

констант пу-

тем щелчка по цветовой константе в раскрывающемся

списке.

Отображение цвета в графическом и текстовом полях осу-

ществить с помощью инструкции выбора

Select

Case:

Private

Sub

cmbl_Click()

Select

Case

cmbl.Text

Case

Is =

"vbBlack"

picColor.BackColor

vbBlack

txtColor

"черный"

"vbBlue"

.BackColor

"синий"

"vbGreen"

.BackColor

Case Is

picColor.BackColor = vbBlue

txtColor

Case Is

picColor.BackColor = vbGreen

txtColor = "зеленый"

Case Is = "vbCyan"

picColor.BackColor = vbCyan

txtColor = "голубой"

= "vbRed"

BackColor = vbRed

= "красный"

= "vbMagenta"

BackColor = vbMagenta

= "сиреневый"

= "vbYellow"

BackColor =

= "желтый"

= "vbWhite"

BackColor =

= "белый"

Case Is

picColor

txtColor

Case Is

picColor

txtColor

Case Is

picColor

txtColor

Case Is

picColor

txtColor

End Select

End Sub

Поместить на форму текстовое поле txtQBC для ввода

числового кода цвета. Создать событийную процедуру

txtQBC_Change

()

(событие - изменение содержания

vbYellow

vbWhite

372

Ответы

и указания по выполнению заданий

поля,

например,

ввод

нового

числового

кода),

реализую-

щую

выбор

цвета

использованием

функции

QBColor:

Private

Sub txtQBC_Change()

picColor.BackColor

QBColor(Val(txtQBC.Text)

)

txtColor

= ""

End Sub

Поместить на форму три текстовых поля

txtRed,

txtGreen

txtBlue

для ввода числовых кодов базовых

цветов и

кнопку

cmdRGB.

Создать событийную процедуру

cmdRGB_Click

(), реализующую выбор цвета с использо-

ванием функции RGB:

Private Sub

cmdRGB_C1i

с k()

picColor.BackColor

RGB(Val(txtRed.Text),

Val(txtGreen.Text),

Val(txtBlue.Text))

txtColor

= ""

End Sub

Запустить

проект.

Выбрать цвет из списка

Кон-

станты

двойным щелч-

ком.

Выбрать цвет путем ввода

числового кода в поле

Функ-

ция QBColor.

Выбрать цвет путем ввода

числовых кодов в поля

Фун-

кция

RGB.

5.51.

Проект «Треугольник» хранится в папке prjZ5_51.

Открыть проект prjZ5_48.vbp. Поместить на форму четыре

метки

lblX3Rez

lblY3Rez

— для отображения коорди-

нат третьей точки и 1ЫХЗ и 1ЫУЗ — для пояснитель-

ных надписей.

Для получения координат трех точек (вершин треуголь-

ника) нажатием кнопки

мыши

введем событийную про-

цедуру

picPaint_MouseDown.

Нажатие одной из кнопок

мыши

одновременно с нажатием одной из клавиш

{Shift},

{Ctrl}

или {Alt} присваивает переменной Shift числовые

значения (1 — Shift, 2 — Ctrl и 4 — Alt).

Private

Sub picPaint_MouseDown(Button

As Integer, Shift As Integer,

sngX As Single, sngY As Single)

Select

Case Shift

Ответы

указания

по

выполнению

заданий

373

Case

Is = 1

sngXl

sngX:

sngYl = sngY :

lblXIRez

= sngXl : lblYlRez = sngYl

Case

Is = 2

sngX2

sngX:

sngY2 = sngY :

lblX2Rez

sngX2:

lblY2ReZ = sngY2

Case

Is = 4

sngX3

sngX:

sngY3

sngY

lblX3Rez = sngX3:

lblY3Rez

sngY3

End Select

End Sub

3 Добавить на форму четыре метки lblPerRez и lblSqRez

—

для вывода результатов вычисления периметра и пло-

щади треугольника и lblPer и lblSq — для поясняю-

щих надписей.

4 С помощью редактора меню Menu Editor изменить меню:

Масштаб Треугольник Правка

....100*100

....Построить

....Очистить

....1000*1000

....Периметр

....Площадь

5 Создать событийную процедуру построения треугольни-

ка

по заданным координатам его вершин:

Private

Sub mnuTrDraw_Click()

picPaint.Line

(sngXl,

sngYl)-(sngX2,

sngY2)

picPaint.Line

(sngXl,

sngYl)-(sngX3,

sngY3)

picPaint.Line (sngX2, sngY2)-(sngX3,

sngY3)

End Sub

6 Создать событийную процедуру вычисления длины сто-

рон

треугольника и его периметра:

Private

Sub mnuTrPer_Click()

sngLl = Sqr((sngX2-sngXl)

2+(sngY2-sngYl)

sngL2 = Sqr((sngX3-sngXl)

2+(sngY3-sngYl)

sngL3 = Sqr((sngX2-sngX3)

2+(sngY2-sngY3)

sngPer = sngLl + sngL2 + sngL3

lblPerRez = sngPer

End Sub

7 Создать событийную процедуру вычисления площади

треугольника по формуле Герона:

Private

Sub mnuTrSq_Click()

lblSqRez = Sqr(sngPer * (sngPer - sngLl) *

(sngPer - sngL2) * (sngPer - sngL3))

End Sub

374

Ответы и указания по выполнению заданий

8 Запустить проект.

Последовательно ввести

координаты

трех

вершин

треугольника одновре-

менным

нажатием кноп-

ки

мыши и клавиш

{Shift},

{Ctrl}

{Alt}.

В меню

Треугольник

ввес-

ти команды

Построить,

Периметр

Площадь.

5.52. Проект «График функции-2» хранится в папке prjZ5_52.

Открыть проект

prj13.vbp.

Поместить на форму поле

txtX

для ввода максимального значения аргумента X. Внести

изменения

в программный код рисования оси X:

'Ось

picGraph.Line (-Val(txtX),

0)-(Val(txtX),

For intJ

-Val(txtX)

To Val

(txtX) Step

Val(txtX)

/ 10

picGraph.PSet (intJ,

picGraph.Print Int(intJ)

intJ

2 Для автоматической корректировки масштаба по оси Y

необходимо определить максимальное и минимальное

значение функции на заданном интервале значений

аргу-

ментов. Для этого необходимо сначала занести в массив

значения

функции в цикле с заданным шагом изменения

аргумента:

заполнение массива

intl = 1

intX =

-Val(txtX)

While

intX < Val

(txtX)

intY(intl) = intX " 3

intX = intX + 0.01

intl = intl + 1

Loop

3 Определить значения минимального и максимального

значений

заполненного массива (смотри проект 5.4):

'поиск

минимального элемента

intMin

intY(l)

For intl

= 2 To

10000

If intY(intl)

intMin Then intMin

intY(intl):

intN

intl

Ответы

и указания по выполнению заданий

375

Внести

изменения в программный код установки масш-

таба

с учетом введенного максимального значения аргу-

мента

и вычисленных минимального и максимального

значений функции:

'Установка

масштаба

picGraph.Scale

(-Val(txtX)

intMax)-(Val(txtX) , intMin)

Внести

изменения в программный код построения графи-

ка функции, рисования

осей

координат и печати значе-

ний их шкал:

'Построение графика

intl = 1

intX

-Val(txtX)

Do While intX

Val (txtX)

intY(intl)

intX

picGraph.PSet (intX, intY(intl))

intX

+ 0.01

intl

+ 1

Loop

'Ось

picGraph.Line (-Val(txtX),

0)-(Val(txtX),

For intJ

-Val(txtX)

Val (txtX) Step

Val(txtX)

/ 10

picGraph.PSet (intJ,

picGraph.Print Int(intJ)

Next intJ

'Ось

picGraph.Line

(0,

intMax)-(0,

intMin)

For

intJ

intMin

intMax

Step

intMax/5

picGraph.PSet

(0,

intJ)

picGraph.Print

Int(intJ)

intJ

Поместить

на форму кнопку cmdCls и создать событий-

ную процедуру очистки графического поля.

Запустить

проект.

Ввести

в поле максима-

льное значение аргу-

мента

и щелкнуть по

кнопке График.

Перед

построением

функции для другого

максимального значе-

ния аргумента щелк-

нуть по кнопке Очис-

тить.

376

Ответы и указания по выполнению заданий

5.53.

Проект «Стрелочные часы» хранится в папке prjZ5_53.

Поместить на форму графическое поле

picWatch,

кнопку

cmdStart,

текстовое поле

txtHour

для ввода количества

оборотов

стрелки (продолжительности работы часов), пол-

зунок

sldl

и кнопку

cmdSld

для регулировки скорости

хода

часов. С помощью окна

Свойства

объекта для увели-

чения диапазона регулировки скорости

хода

часов устано-

вить

для объекта

sldl

значение свойства max = 1000.

Создать событийную процедуру регулировки скорости

хода

часов:

Private

Sub cmdS1d_C1i с k()

dblS =

sldl.Value

End Sub

Создать событийную процедуру

хода

часов (анимацию

движения стрелок):

Private

Sub

cmdStart_Click()

'Масштаб

picWatch.Scale

(-6,

6)-(6,

-6)

3авод

часов

dblHour

= Val(txtHour)

'Циферблат

picWatch.Circle

(0, 0), 5

For bytN

= 1 To 12

picWatch.FillStyle

= 0 :

picWatch.FillColor

vbYellow

picWatch. Circle

(3 *

Sin (6.28

/ 12 *

bytN),

Cos(6.28

/ 12 *

bytN)),

0.35

picWatch.PSet

(4 *

Sin (6.28

/ 12 *

bytN)

0.5,

4 *

Cos(6.28

/ 12 *

bytN)

+ 0.3),

vbWhite

picWatch.Print bytN

bytN

'Анимация движения стрелок

For dblN

= 1 To 360 *

dblHour

picWatch.Circle

(0,

0.2

picWatch.Line

(0,

0)-(2.5

Sin(6.28

/ 360

dblN),

2.5 *

Cos (6.28

/ 360 *

dblN)

)

picWatch.Line

(0, 0)-(2 *

Sin(6.28

21600

dblN),

2 *

Cos(6.28

21600

dblN))

picWatch.Line

(0,

0)-(1.5

Sin(6.28

1296000*dblN),

1.5 *

Cos(6.28/1296000*dblN))

Цикл задержки

For dblT

= 1 To 1000 *

dblS

dblT

picWatch.Line

(0,0)-

(2.5*Sin

(6.28/360*dblN),

2.5

Cos (6.28

/ 360 *

dblN)

) ,

vbWhite

Ответы

указания

по

выполнению

заданий

377

picWatch.Line

(0, 0)-(2 *

Sin(6.28

/ 21600

dblN),

* Cos (6.28 / 21600 *

dblN)),

vbWhite

picWatch.Line

(0,

0)-(1.5

Sin(6.28

1296000

dblN),

1.5 *

Cos(6.28

/ 1296000 *

dblN)),

vbWhite

dblN

'Положение

стрелок

момент

остановки

часов

picWatch.Line

(0,

0)-(2.5

Sin(6.28

/ 360

dblN),

2.5 *

Cos(6.28

/ 360 *

dblN)

)

picWatch.Line

(0,

0)-(2*Sin(6.28/21600*dblN),

* Cos (6.28 / 21600 *

dblN))

picWatch.Line

(0,

0)-(1.5

Sin(6.28

96000 *

dblN),1.5*Cos(6.28/12

96000*dblN))

picWatch.Circle

(0, 0) , 0.2

End

Sub

4 Запустить проект.

«Завести»

часы, ввести в текстовое поле число, определя-

ющее продолжительность

хода

часов.

помощью ползунка установить скорость

хода

часов.

Щелкнуть по кнопкам

Регулировка

и Пуск,

Настроить скорость

хода

часов (скорость анимации), ко-

торая зависит от быстродействия компьютера, и поэтому

положение ползунка, реализующего точный ход,

будет

на

разных компьютерах различным.

5.54. Проект «Стрелочные и электронные

часы»

хранится в

папке

prjZ5__54.

1 Модернизировать проект «Стрелочные

часы»

(файл

prjZ5_53.vbp). Для создания электронных часов использо-

вать функцию Time$, которая возвращает значение те-

кущего времени типа

String,

которое можно вывести в

текстовое поле. Значение времени представляется в виде

тройки

чисел

#Часы:

Минуты :Секунды#, разделенных

знаком

«:».

Для периодического обновления значения времени ис-

пользуем объект Timer. Объект Timer не отображается

на

форме в процессе выполнения программы и выполняет

всего одну функцию — проверяет показания системных

часов по событию Timer.

Периодичность события Timer может быть задана в свой-

стве Interval, измеряемом в миллисекундах (может из-

меняться

от 0 до

65535).

Для того чтобы событие Timer

происходило

каждую

секунду, необходимо свойству In-

terval

присвоить значение 1000.

378

Ответы

указания

по

выполнению

заданий

Разместить

на форме объект Timer

присвоить ему

имя

tmrl,

свойству Interval — значение 1000.

Поместить

на

форму текстовое поле txtTime. Ввес-

ти

событийную процедуру tmrl_Timer

():

Sub tmrl_Timer

()

txtTime.Text

Time$

End

Sub

Синхронизировать

стрелочные

часы

электронными

ча-

сами.

Связать

рисование

стрелок

событиями

таймера,

для

этого

разместить

на

форме

объект

Timer

присвоить

ему

имя

tmr2,

свойству

Interval

—

значение

1000.

Ввести

событийную

процедуру

tmr2_Timer

():

Sub

tmr2_Timer()

dblN

= 1 +

dblN

picWatch.Circle

(0, 0), 0.2

picWatch.Line

(0,

0)-(2.5

Sin(6.28

dblN

60), 2.5 *

Cos(6.28

dblN

/ 60))

picWatch.Line

(0, 0)-(2 *

Sin (6.28

dblN

3600),

picWatch.

216000;

For

dblT

Cos(6.

Line

= 1

dblT

picWatch.

60),

picWatch.

Line

(0,

Cos

(0,

0)-

Cos

-(1

5(6

dblN

3600))

Sin(6.

.28

dblN

50000000

0)-

-(2

(6.28

0)-

-(2

Sin(6.

dblN/60))

Sin(6.2S

dblN

216000))

dblN

vbWhite

dblN

3600),

2 *

Cos (6.28

dblN/3600)),

vbWhite

picWatch.Line (0,

-(1.5*Sin(6.28*dblN/

216000),1.5*Cos(6.28*dblN/216000)),vbWhite

End

Sub

5.55. Проект «Мультимедиа-2» хранится

папке prjZ5_55.

Открыть проект

prj15.vbp.

Удалить

формы кнопки. С по-

мощью редактора меню Menu

Editor

создать меню. Внес-

ти

изменения

событийные процедуры:

Private

Sub

mnuOpen_Click()

dlgl.ShowOpen

animl.Open

dlgl.filename

End

Sub

Private

Sub

mnuPlay_Click()

animl.Play

End

Sub

Private

Sub

mnuClose_Click()

animl.Close

End

Sub

Private

Sub

mnuExit__Click

()

End

Sub

Ответы и указания по выполнению заданий

379

2 Запустить проект

открыть

помощью

меню AVI-файл.

Завершить работу

проектом

помощью

меню.

Мультимедиа

ИНО1

Файл

Ответы

главе

Моделирование

формализация

6.1.

Графическое решение уравнения

д: /10 =

sin*

файле

Z.xis

каталоге \practicum\inftech\calc\ (лист

Решение

урав-

нений).

Ввести формулы функций

заполнить таблицу значений

функций

на

интервале

от -2,5 до 2,5 с

шагом

0,5.

2 Ввести команду [Вставка-Диаграмма...].

На

панелях

Автоформат

диаграммы

выбрать

Ряд дан-

ных

в:

Строки

и тип

диаграммы

Линии

символами.

Будут

построены

два

графика функций, координаты

их

точек пересечения

будут

корнями уравнения:

« -2,

Таблица значений функций

X -2,50

-2,00-1,50-1,00 -0,501

0,00 0,501

1,00 1,50 2,00 2,50

=Sin(X)

-0,60

-0,91

-1,00 -0,84

-0,48]

0,00 0,48; 0,84 1,00 0,91

0,60

Y2=X

3/10

-1,56

-0,80-0,34-0,10 -0,01

]

0,00;

0,011

0,10

0,34 0,80 1,56

6.2.

Графическое решение уравнения

2,00

1,50

1,00

0,50

0,00

-0,50

-1,00

-1,50

-2,00

-0,

2,)0

Y1=Sin(X)

«-У2=Х

З/10

Решение уравнения

х /10 =

sinx

заданной точностью

файле

Z.xis

каталоге \practicum\inftech\calc\ (лист

Подбор

параметра).

Метод

Подбор

параметра

используется

при

поиске

зна-

чения

аргумента функции, который обеспечивает требуе-

мое значение функции. При подборе параметра изменяет-

ся

значение

ячейке аргумента функции

до тех

пор, пока