End Sub. 1. Создайте в папке Лабораторная_работа_№4 папку 4.2

End Sub

End Sub

Ход работы.

1. Создайте в папке Лабораторная_работа_№4 папку 4.2.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме два компонента TextBox, 4 компонента CommandButton, 5 компонентов Label, свойства которых установите согласно Таблице 4.2 или ориентируясь на внешний вид приложения (Рис.4.2).

Таблица 4.2 – Свойства компонентов приложения «Перевод числа. Вычисление корня»

Компонент	Свойство	Значение
Form1	Caption	Перевод числа. Вычисление корня
Name	frmПеревод
MaxButton, MinButton	False
Icon	Загрузите любое графическое изображение формата *.ico
Label1	Caption	Исходное число
Label2	Caption	Степень корня (n)
Label3	Caption
Label4	Caption
Label5	Caption
TextBox1	Text
TextBox2	Text
CommandButton1	Caption	Перевести в восьмеричную систему
CommandButton2	Caption	Перевести в шестнадцатеричную систему
CommandButton3	Caption	Извлечь корень
CommandButton4	Caption	Очистить
Свойство Font и BackColor установите у компонентов по своему усмотрению Свойство Style у компонентов CommandButton установите равным 1 - Graphical

5. Откройте окно программного кода (View - Code).

6. В верхних строках программного кода опишите переменные входных и выходных данных:

Dim a As Integer 'исходное число

Dim n As Integer 'степень корня

Dim b As Single 'результат

7. Для перевода исходного числа в восьмеричную и шестнадцатеричную системы счисления воспользуемся стандартными функциями. Для перевода в восьмеричную систему щелкните по кнопке «Перевести в восьмеричную систему» и напишите следующий обработчик события Click:

Private Sub Command1_Click()

Label3.Caption = Oct(Val(Text1.Text))

а для перевода в шестнадцатеричную систему щелкните по кнопке «Перевести в шестнадцатеричную систему» и напишите следующий код:

Private Sub Command2_Click()

Label4.Caption = Hex(Val(Text1.Text))

8. Для вычисления корня n-ной степени необходимо введенные данные преобразовать в строку, а затем вычислить корень как показатель степени 1/n:

Private Sub Command4_Click()

a = Val(Text1.Text)

n = Val(Text2.Text)

b = a ^ (1 / n)

Label5.Caption = Str(b)

9. Обработчик события Click для кнопки «Очистить» напишите самостоятельно, используя навыки, полученные при выполнении предыдущих лабораторных работ.

10. Запустите приложение на выполнение (F5). Проверьте его работоспособность.

11. Закройте запущенное приложение.

12. Сохраните форму и проект (выбрав File – Save FrmПеревод.frm и Save Перевод.vbp) в папке 4.2.

13. Создайте exe-файл программы с помощью команды File → Make Перевод.exe.

14. Выйдите из среды Visual Basic.

15. Запустите на выполнение файл Перевод.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Дата добавления: 2014-12-23