Практическая часть. Создайте калькулятор для работы в десятичной системе

Создайте калькулятор для работы в десятичной системе.

На форме разместите три текстовых поля: два поля TextBox1 и TextBox2 для ввода числовых данных и одно TextBox3 для вывода результата.

Пять кнопок для реализации событийных процедур: сложения Button1, вычитания Button2, умножения Button3, деления Button4 и завершения работы Button5.

Событийные процедуры арифметических операций.

Событийная процедура сложения Button1_C1ick должна изменить свойство Text текстового поля TextBox3 так, чтобы оно являлось суммой числовых значений свойства Text объектов TextBox1 и TextBox2. Для преобразования строковых значений, вводимых в текстовые поля, в десятичное число, воспользуемся функцией Va1. Код событийной процедуры будет следующим:

Private Sub Button1_C1ick()

TextBox3.Text = Va1(TextBox1) + Va1(TextBox2)

End Sub

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

Перевод целых положительных чисел из десятичной системы счисления в восьмеричную с

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

Введенные в десятичные поля числа переведем сначала из строковой формы в числовую, с помощью функции Va1, а затем из десятичной числовой переведем в строковую восьмеричную, с помощью функции Oct. Создадим кнопку ButtonDecOct и запишем для нее событийную процедуру перевода чисел:

Private Sub ButtonDecOct_C1ick()

TextBox1.Text = Oct(Va1(TextBox1.Text))

TextBox2.Text = Oct(Va1(TextBox2.Text))

TextBox3.Text = Oct(Va1(TextBox3.Text))

End Sub

Перевод целых положительных чисел из восьмеричной системы счисления в десятичную с

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

Введенные в восьмеричные поля в строковой форме числа переведем сначала в восьмеричное представление добавлением приставки "&О" с помощью операции конкатенации строк. Полученное восьмеричное число в строковой форме переведем в десятичное число с помощью функции Va1. Создадим кнопку ButtonOctDec и запишем для нее событийную процедуру перевода чисел:

Private Sub ButtonOctDec_C1ick()

TextBox1.Text = Va1("&0" + TextBox1.Text)

TextBox2.Text = Va1("&0" + TextBox2.Text)

TextBox3.Text = Val("&0" + TextBox3.Text)

End Sub

Создайте новый проект. Разместить на форме три текстовых поля и пять кнопок. Присвоить им имена: TextBox1, TextBox2, TextBox3, Button1, Button2, Button3, Button4, Button5.

Для каждой из кнопок ввести программные коды событийных процедур.

Установить для свойства Alignment текстовых полей значение Right Justufy.

Запустить проект на выполнение. Ввести числа в два первых текстовых поля. Щелкнуть по любой кнопке арифметических операций и соответствующее действие будет выполнено.

Рисунок 1. Мультисистемный калькулятор

Добавить на форму три текстовых поля TextBox1,TextBox2 и Textbox3.

Поместить на форму кнопку ButtonDecOct и ввести программный код событийной процедуры ButtonDecOct_C1ick().

Поместить, на форму две метки с надписями Десятичная система и Восьмеричная система.

Запустить проект на выполнение. Ввести числа в два первых текстовых поля десятичной системы. Щелкнуть по кнопке «+», а затем Dec-Oct. Будет выполнено сложение, десятичных чисел и их перевод в восьмеричную систему.

Поместить на форму кнопку ButtonOctDec и ввести для нее программный код событийной процедуры перевода чисел.

Запустить проект на выполнение. Ввести числа в два первых текстовых поля восьмеричной системы. Щелкнуть по кнопке Oct-Dec. Будет выполнен их перевод в десятичную систему.

Выполнить арифметическую операцию в десятичной системе, щелкнув, например, по кнопке «-».

Перевести результат в восьмеричную систему, щелкнув по кнопке Dec-Oct.

Сохраните проект.

Рисунок 2. Работающая программа