Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
230401_MU_-_Osnovy_algoritmizatsii_i_programmir...docx
Скачиваний:
12
Добавлен:
01.07.2025
Размер:
1 Мб
Скачать
☆

Ход работы

  1. Загрузите среду визуального программирования Delphi.

  2. Поменяйте заголовок (Caption) формы с «Forml» на «Анг­лийский язык - тестирование».

  3. Откажитесь от всех системных кнопок формы, задав значе­ния False во всех позициях свойства Borderlcons: biSystemMenu, biMinimize, biMaximize и biHelp.

Работа с программой будет завершаться нажатием на кнопку Выход.

4. Расположите на форме объекты так, как показано на рис. 20. Задайте такие свойства объектов:

Объект

Свойство

Значение

Timer 1

Interval

500

Timer2

Interval

100

MediaPlayerl

Visible

False

Gaugel

BackColor

clInfoBk

Color

clBtnFace

Font

MS Sans Serif, Bold, 14, Yellow

ForeColor

clGreen

Kind

gkHorizontalBar

MaxValue

100

MinValue

0

Progress

100

inEditl

EditorEnabled

False

MaxValue

10

MinValue

1

Value

5

BitBtnl

Glyph

C:\ Program Files\ Borland\ Delphi x.O \IMAGES \BUTTONS\ check.bmp

Caption

Готово

BitBtn2

Glyph

C:\ Program Files\ Borland\

Delphi x.O \IMAGES \BUTTONS\ dooropen.bmp

Caption

Выход

Shapcl, Shape2,

Brush-Color

clInfoBk

Shape3

Shape

stRoundRect

Imagel, Image2, Image3

Stretch

True

Labell

Font-Color

Red

Font-Size

10

Caption

Обязательно нажмите на кнопку "Готово" после раз­мещения рисунков!!

Label2, label3, Label4

Font-Color

Olive

Font-Size

16

Замечание. Размеры фигур должны быть больше, чем размеры рисунков, поскольку последние следует располагать строго в середине фигур. Если во время наложения рисунка на фигуру рисунок исчезает, переместите его на передний план командой контекстного меню Bring То Front.