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

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

§ Оформите интерфейс пользовательской формы по образцу (Рис. 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

Поиск по сайту: