Лабораторная работа по Microsoft Visual Basic 

Проект «Инженерный калькулятор»

      1. Запустите программу Microsoft Visual Basic [Пуск - Все программы - Microsoft Visual Basic 6.0 - Microsoft Visual Basic 6.0]. Откроется окно программы:

На открывшейся диалоговой панели выбрать тип создаваемого проекта STANDART.EXE и нажать кнопку открыть. Появиться следующее окно интегрированной среды разработки Visual Basic:

2. Поместите на форму три текстовых поля (TextBox) и пять кнопок (CommandButton). Поменять следующие свойства:
   1. Первому текстовому полю присвоить имя txt1 (в свойствах пункт Name) и убрать надпись внутри текстового поля (в свойствах очистить содержимое пункта Text). Для свойства Alignment установите значение Right Justufy (выравнивание по правому краю). Это поле отвечает за первое введённое число.
   2. Второму текстовому полю присвоить имя txt2 (в свойствах пункт Name) и убрать надпись внутри текстового поля (в свойствах очистить содержимое пункта Text). Для свойства Alignment установите значение Right Justufy (выравнивание по правому краю). Это поле отвечает за второе введённое число.
   3. Третьему текстовому полю присвоить имя txt3 (в свойствах пункт Name) и убрать надпись внутри текстового поля (в свойствах очистить содержимое пункта Text). Для свойства Alignment установите значение Right Justufy (выравнивание по правому краю).  Это поле отвечает за выведенный результат.
   4. Первой кнопке присвоить имя cmdPlus (в свойствах пункт Name) и поменять надпись на кнопке (в свойствах пункт Caption ввести +). Это кнопка отвечает за сложение чисел.
   5. Второй кнопке присвоить имя cmdMinus (в свойствах пункт Name) и поменять надпись на кнопке (в свойствах пункт Caption ввести -). Это кнопка отвечает за вычитание чисел.
   6. Третьей кнопке присвоить имя cmdUmn (в свойствах пункт Name) и поменять надпись на кнопке (в свойствах пункт Caption ввести *). Это кнопка отвечает за умножение чисел.
   7. Четвертой кнопке присвоить имя cmdDelen (в свойствах пункт Name) и поменять надпись на кнопке (в свойствах пункт Caption ввести /). Это кнопка отвечает за деление чисел.
   8. Пятой кнопке присвоить имя cmdExit (в свойствах пункт Name) и поменять надпись на кнопке (в свойствах пункт Caption ввести ВЫХОД). Это кнопка отвечает за завершение работы программы.
3. Сделать надписи над текстовыми полями с помощью элемента Label. Над первым текстовым полем «Введите первое число», над вторым – «Введите второе число», над третьим – «Результат». Свойство Caption. Должно получиться следующее:

4. При двойном нажатии на кнопку CmdPlus открывается событийная процедура сложения CmdPlus_Сlic, которая должна изменять значение свойства Text текстового поля txt3 так, чтобы оно являлось суммой числовых значений свойства Text текстовых полей txt1 и txt2. Для преобразования строковых значений, вводимых в текстовые поля, в десятичные числа, воспользуемся функцией Val. Код событийной процедуры будет следующий:

txt3.Text = Val (txt1.Text) + Val (txt2.Text)

5. Событийные процедуры вычитания, умножения и деления создаются аналогично:

txt3.Text = Val (txt1.Text) - Val (txt2.Text)      //для кнопки cmdMinus

txt3.Text = Val (txt1.Text) * Val (txt2.Text)      //для кнопки cmdUmn

txt3.Text = Val (txt1.Text) / Val (txt2.Text)      //для кнопки cmdDelen

6. Обработаем событийную процедуру на выход. Нажмем два раза на кнопке ВЫХОД и наберем следующий код:

End

Получится:

7. Запустите свой проект и проверьте, чтобы программа работала корректно. Для этого вверху программы нажмите на кнопочку play

Растяните открывшееся окно, потянув за нижний правый угол.

8. Продолжаем работу. Добавьте на форму шесть кнопок cmdSin, cmdCos, cmdTan, cmdSqr, cmdSt и cmdLog. Это кнопки которые отвечают соответственно за вычисление синуса, косинуса, тангенса, квадратного корня, возведения в степень и вычисление натурального логарифма. (Кто забыл где и как меняются надписи и имена кнопок см пункт 2).

9. Для каждой из этих кнопок создайте событийные процедуры, реализующие вычисление соответствующих функций: синуса, косинуса, тангенса, квадратного корня, возведения в степень и натурального логарифма.
10. Например,
    1. для возведения в степень событийная процедура cmdSt_Click() примет вид:

txt3.Text = Val(txt1.Text) ^ Val(txt2.Text)

2. для вычисления косинуса событийная процедура cmdCos_Click() примет вид:

txt3.Text = Cos(Val(txt1.Text))

3. для вычисления синуса событийная процедура cmdSin_Click() примет вид:

txt3.Text = Sin(Val(txt1.Text))

4. для вычисления тангенса событийная процедура cmdTan_Click() примет вид:

txt3.Text = Tan(Val(txt1.Text))

5. для вычисления квадратного корня событийная процедура cmdSqr_Click() примет вид:

txt3.Text = Sqr(Val(txt1.Text))

6. для вычисления логарифма событийная процедура cmdLog_Click() примет вид:

txt3.Text = Log(Val(txt1.Text))

11. Проверить работу проекта.
12. Продолжаем работу. Добавим новые опции в наш калькулятор. Необходимо, чтобы появилась возможность переводить целые числа из десятичной системы счисления в восьмеричную и обратно – из восьмеричной и шестнадцатеричной в десятичную.

Для этого добавим на форму три текстовых поля (txtDec, txtOct, txtHex) для ввода и вывода чисел, четыре кнопки (cmdDecOct, cmdDecHex, cmdOctDec, cmdHexDec) для создания событийных процедур, реализующих перевод чисел, и три метки (Label) для вывода поясняющих надписей над текстовыми полями. Получается следующее:

13. Создайте событийную процедуру cmdOctDec_Click(), реализующую перевод чисел из восьмеричной системы в десятичную. Для этого к вводимым в текстовые поля txtOct и txtHex в строковой форме числам добавим восьмеричную и шестнадцатеричную приставки “&O” или “&H” с помощью операции конкатенации (соединения) строк. Полученное восьмеричное или шестнадцатеричное число в строковой форме переведем в десятичную числовую форму с помощью функции Val:

txtDec.Text = Val ("&O"+txtOct.Text)

14. Создайте событийную процедуру cmdHexDec_Click(), реализующую перевод чисел из шестнадцатеричной системы в десятичную^

txtDec.Text = Val("&H" + txtHex.Text)

15. Введенные в текстовое поле txtDec числа будем переводить сначала из строковой формы в числовую с помощью функции Val, а затем из десятичной числовой в строковую восьмеричную или шестнадцатеричную с помощью функций Oct или Hex.
16. Создать событийную процедуру cmdDecHex_Click(), реализующую перевод чисел из десятичной системы в шестнадцатеричную:

txtHex.Text = Hex(Val(txtDec.Text))

17. Создать событийную процедуру cmdDecOct_Click(), реализующую перевод чисел из десятичной системы в восьмеричную:

txtOct.Text = Oct(Val(txtDec.Text))

18. Сохраните свой проект под названием «Инженерный калькулятор». Для этого выбрать [Файл – Сохранить проект как].