Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Указания по составлению кода программы



Что нужно сделать

§ Оформите интерфейс пользовательской формы по образцу (Рис. 1, Рис. 2) – 4 элемента Label, два элемента TextBox и две командные кнопки CommandButton .

§ *Добавьте на форму элемент управленияTimer

§ Задайте необходимые свойства элементам управления – цвет, шрифт

§ Напишите код программы, связав процедуры событий с соответствующими элементами управления на форме (объектами). Для каждой инструкции кода напишите пояснение, используя оператор REM или его заменитель – апостроф’.

§ *Скомпилируйте код программы – создайте exe-файл.

§ Проверьте работоспособность программы.

§ По готовой программе воссоздайте её блок-схему.

§ Оформите отчёт в MS WORD.

Постановка задачи

Сравнить по абсолютной величине два случайных числа из интервала [a,b] и большее число отобразить красным (или другим) цветом. Для выполнения задания оформить интерфейс на форме (Рис. 1, Рис.2).

Рис. 1 Интерфейс входной формы Рис. 2 Интерфейс выходной формы
для выполнения задания для выполнения задания

 

Указания по составлению кода программы

1). Для информационных текстов использовать свойство Caption элементов управления подпись (Label)

2). Для обработки действий использовать событие Click для командных кнопок с заголовком Пуск (процедура Private Sub Command1_Click()End Sub) и с заголовком Выход (процедура Private Sub Command2_Click()End Sub).

3). Для ввода границ интервала [a,b] использовать функцию InputBox — ввод данных типа String(Рис. 3),преобразовав типвводимых переменныхaиbв числовой тип с помощью функции Val.

Рис. 3 Диалоговое окно InpuBox с полем ввода (см. п. 4.a)

 

4). [*]Для обеспечения истинной случайности чисел X и Y использовать инструкцию рандомизации Randomize z, где в качестве аргумента z(произвольное число) использовать встроенный счетчик времени — функцию Timer, а именно: Randomize Timer. Чтобы эта инструкция работала, нужно разместить элемент управления Timer на форме.

5). Для вычисления случайных чисел из интервала [a,b] использовать оператор присваивания "=" переменным X и Y выражения (b-a)*Rnd + a. (См. п.4.b)

Отобразить получаемые случайные числа с помощью текстовых полей (объект - TextBox панели ToolBox), т.е. присвоить свойству Textобъектов TextBox значения переменных Xи Y, преобразовав для этого их числовой тип в String - строковый при помощи функции Str(x).

6). Сравнить абсолютные значения чисел используя:

§ функцию ABS(number)—вычисляет абсолютное значение аргумента number, в данном случаеаргументы,это числа X и Y;

§ оператор сравнения>для записи условия;

§ конструкцию ветвления:

Ifусловие Then

Блок операторов 1

Else

Блок операторов 2

End If

7). Для числа, большего по абсолютной величине, изменить цвет шрифта на красный. Это достигается присвоением в коде процедуры свойству ForeColor текстового поля значения соответствующего цвета.

Системное значение кода любого цвета можно определить в палитре свойства ForeColor любого объекта на форме. Например, код красного цвета в16-ричной системе счисления — &H000000FF&.

8). Вывести итоговый информационный текст под текстовыми полями. Цвет текста итоговой информации задать в соответствующем свойстве в окне свойств надписи.

9). Для кнопки с заголовком Выход создать процедуру завершения приложения.


Код программы


Private Sub Command1_Click() ‘процедура для кнопки Пуск

Randomize Timer

Text1.ForeColor = &H0&

Text2.ForeColor = &H0&

a = Val(InputBox("введите a - левую границу интервала", "Сравнение чисел"))

b = Val(InputBox("введите b - правую границу интервала"))

x = a + Rnd() * (b - a)

y = a + Rnd() * (b - a)

Text1.Text = Str(x):

Text2.Text = Str(y)

If Abs(x) > Abs(y) Then

Text1.ForeColor = &HFF&

Label4.Caption = "абсолютная величина X > абсолютной величины Y"

Else

Text2.ForeColor = &HFF&

Label4.Caption = "абсолютная величина Y > абсолютной величины X"

End If

End Sub


Private Sub Command2_Click() процедура для кнопки Выход

End

End Sub

 





©2015 studopedya.ru Все права принадлежат авторам размещенных материалов.