Создание Калькулятора в 1С 8.3

/Процедуры обработки нажатия циферных клавиш и вывод результата в табло калькулятора
Процедура Цифра1Нажатие(Элемент)
	
	ВыводЦифры1 = 1;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры1, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10)); //если этого нет то по нажатию С рисуется ноль а к нему добавляется единица
		
КонецПроцедуры


Процедура Цифра2Нажатие(Элемент)
	
	ВыводЦифры2 = 2;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры2, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));

КонецПроцедуры


Процедура Цифра3Нажатие(Элемент)
	
	ВыводЦифры3 = 3;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры3, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра4Нажатие(Элемент)
	
	ВыводЦифры4 = 4;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры4, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра5Нажатие(Элемент)
	
	ВыводЦифры5 = 5;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры5, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра6Нажатие(Элемент)
	
	ВыводЦифры6 = 6;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры6, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра7Нажатие(Элемент)
	
	ВыводЦифры7 = 7;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры7, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра8Нажатие(Элемент)
	
	ВыводЦифры8 = 8;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры8, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра9Нажатие(Элемент)
	
	ВыводЦифры9 = 9;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры9, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура Цифра0Нажатие(Элемент)
	
	ВыводЦифры0 = 0;
	ТаблоКалькулятора = ТаблоКалькулятора + Лев(ВыводЦифры0, 9);
	ТаблоКалькулятора = Число(Прав(ТаблоКалькулятора,10));
	
КонецПроцедуры


Процедура ОчиститьНажатие(Элемент)
	
	ТаблоКалькулятора = 0;
	
КонецПроцедуры

//Простейшие арифметические операции
Процедура СложениеНажатие(Элемент)
	
	Буфер = Число(ТаблоКалькулятора);
	ТаблоКалькулятора = "";
	Операция = "Сложение";
	
КонецПроцедуры

Процедура РазностьНажатие(Элемент)
	
	Буфер = Число(ТаблоКалькулятора);
	ТаблоКалькулятора = "";
	Операция = "Вычитание";

КонецПроцедуры

Процедура ДелениеНажатие(Элемент)
	
	Буфер = Число(ТаблоКалькулятора);
	ТаблоКалькулятора = "";
	Операция = "Деление";

КонецПроцедуры

Процедура УмножениеНажатие(Элемент)
	
	Буфер = Число(ТаблоКалькулятора);
	ТаблоКалькулятора = "";
	Операция = "Умножение";

КонецПроцедуры

//Выводим результат арифметических операций на табло калькулятора
Процедура РавноНажатие(Элемент)
	
	Если Операция = "Сложение" Тогда
		ТаблоКалькулятора = Буфер + Число(ТаблоКалькулятора);
		//Сообщить ("операция сложения");
	ИначеЕсли Операция = "Вычитание" Тогда
		//Сообщить ("операция вычитания");
		ТаблоКалькулятора = Буфер - Число(ТаблоКалькулятора);
	ИначеЕсли Операция = "Деление" Тогда
		//Сообщить ("операция деления");
		ТаблоКалькулятора = Буфер / Число(ТаблоКалькулятора);
	ИначеЕсли Операция = "Умножение" Тогда
		//Сообщить ("операция умножения");
		ТаблоКалькулятора = Буфер * Число(ТаблоКалькулятора);
	КонецЕсли;
	
КонецПроцедуры