есть у кого нибудь исходный код калькулятора:?

или хотябы помогите

Процедура Кнопка1Нажатие(Элемент)
перем1 = ЭлементыФормы.ПолеВыводаРезультата.Значение;
ЭлементыФормы.ПолеВыводаРезультата.Значение = перем1*10+1;
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
перем2 = ЭлементыФормы.ПолеВыводаРезультата.Значение;
ЭлементыФормы.ПолеВыводаРезультата.Значение = перем2*10+2;
КонецПроцедуры

и т.д.

Процедура КнопкаРавноНажатие(Элемент)
   
КонецПроцедуры

Процедура КнопкаСложениеНажатие(Элемент)
   
КонецПроцедуры


мне никак не осуществить процесс сложения.

В школе на информатике уже не учат этому?

я конечно могу сделать два поля вписывать в них циферки и складывать, но это не вариант

хочу сделать аналог калькулятора на винде

одно поле, кнопки - цифры и кнопки -операции и кнопка = равно

Куда катится этот мир...

нормальный курсовой для 1 курса.

(6) ты хотел сказать лабораторная работа ?

никто не поможет?

(6) на курсовых обычно обвязки к БД уже пишут, или задачки из МатАна решают =)

(9) МатАн на курсовых не решают.
ВычМат решают.

(7)(9) Смотря на каких специальностях.
Впрочем, 2/3 миздюков  "с верхним образованием и опытом от 10 лет"  калькулятор не напишут...

(3) лучше перепиши винду целиком на 1с )))

хаха, смешно, ты сам то смошешь калькуль накатать, я почему то уверен что нет

(13) муторно и непонятно зачем. вообще и более сложные вещи писал

(14) Ну, зачем лабораторные/семестровые/курсовые делают? для обучения!

обучение на любом языке начинается с написания калькулятора

(14) согласен

развод? :)

какой развод?)

просто (11)хорошо подметил

кошмар

(11), (20) заявление с потолка. статистику никто не составлял

вообщем пробывал делать, что то такое получается, суть должна быть понятна, но алгоритм не правильный.. в чем ошибка?

Процедура КнопкаРавноНажатие(Элемент)
если  ЭлементыФормы.ПолеВвода2.Значение = 0 тогда
         сложение = ЭлементыФормы.ПолеВыводаРезультата.Значение + ЭлементыФормы.ПолеВвода1.Значение;
иначе сложение = ЭлементыФормы.ПолеВвода1.значение + ЭлементыФормы.ПолеВвода2.значение;
КонецЕсли;      
ЭлементыФормы.ПолеВыводаРезультата.Значение = сложение;
КонецПроцедуры

Процедура КнопкаСложениеНажатие(Элемент)
   
если сч = 0 тогда
   ЭлементыФормы.ПолеВвода1.Значение = ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = 0;
   сч = 1;
Иначе  
   ЭлементыФормы.ПолеВвода2.Значение = ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = 0;
   сч = 0;
конецЕсли;




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

это полный миздец

блин я тормоз ... седня же пятница

тролль?

стр = "";
ВвестиСтроку(стр, "Введите выражение", 100);
Сообщить("Результат:");
Сообщить(Шаблон("["+стр+"]"));

(26) нет, очень культурный человек. сам не может, считает что другие тоже, но совета спрашивает

(23) "... в чем ошибка???
-В ДНК!!!"©

(28) не ну извини, все только *издят не поделу, один базар, как на рынке, а толку нету, я то же могу зайти куда нить постебатсья, поумничать, а итог нулевой

(27), спасибо, интересный вариант) только не совсем то что нужно

по-моему пора тебе отдохнуть децел

http://www.google.ru/search?sourceid=chrome&ie=UTF-8&q=пишем+калькулятор

(32) флудеры поднимают Вашу не очень интелектуальную тему уровня уроков информатики в школе.

(33) а что я что то не то сказал?

(33) или неправду

(35) 1) ну в школе на информатике програмирование не проходят, ну покрайней мере в моей школе не было
2) для Вас с Вашим опытом она может и не очень интелектуальная, а для меня с моим опытом еще как интелектуальная.

(36)подумай ... повториться накажем

(38)яндексом вас тоже не учили пользоваться?

(39) Ну возможно переборщил немногов (32)... это да... но с другой стороны неприятно, когда спрашиваешь что то, а тебя стегать начинают не предложив не одного варианта.. такое ощущение что все сразу такими умными родились, что сели и сразу все сделали.

(41) в (34) прям таки ни одного?

(40) я и яндексом, и гуглем.. поиск результата не дал.. под 1С калькуль нашел одну тему, где такой же вопрос поднимался. результат - одинаковый, только одни разговоры

тема кстате на этом же форуме

поиск дает такое: ????? ???????????

возможно прокси виноват

Не удивлюсь если окажется, что 50% 1С-ников не могут осилить накатать калькулятор.

(46) 80%...

(41)
некоторые сразу родились, некоторые учились.
профессия программиста подразумевает высшее образование.
И как следствие - умение программировать не только на 1с.

А Ваш вопрос говорит, что уровень Вашей компетенции в вопросах
пограммирования ниже базовых.
Следственно понимание Вашей проблемы и отзывчивость
Вы надёте на форуме студентов и школьников а не разработчиков.

http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=5598

(46)а чего там катать-то?

тупые и жадные такие тупые и жадные. (0) человеку интересно, не всё-ж время на скд отчёты по продажам ваять, может скоро займётся написанием отказоустойчивого и быстрого движка базы данных... на 1с скрипте...

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

(50) В этом то и вся печаль.

или будет из трактора велокат делать. Богата левшами земля русская

(48) я на 3 курсе высшего, до этого колледж, изучал паскаль, делфи, с програмированием знаком.

на форму школьников и студентов ответы не найти.

людей, которые родились и сразу сели програмировать и все делали, таких нету.. все учатся годами
конечно,  если  нас закормят продуктами ГМО , то такие умники может и начнут появляться

(0) автор, сколько платишь?

(55)я до первого курса уже вирусы писал ... а ты на 3 еще до сих пор калькулятор осилить не можешь?

(55) На третьем курсе и ещё дискретные автоматы не проходили?

(57) ну ты молодец, а я внонтакте ломал, да пароли угонял от мыла и что?

(55) нет не проходили

Автор, ты серьезно?

(55) покупаешь самый дешёвый китайский калькулятор и долго не отрываясь на него смотришь. Потом закрываешь глаза и представляешь, что ты - большой такой калькулятор. У тебя есть кнопочки с закорючками и окошко, где ты показываешь результат.. когда на кнопочки нажимают, ты пикаешь.. сидишь так недельку не двигаясь, и из тебя получится хороший овощ(калькулятор).

(61) при таком раскладе, скорее из меня получится хороший овощЪ)

(59)конечно ... звидеть не мешки тягать ... хацкер незнающий как написать на калькулятор это нонсен

(59) вот вот, ты хоть знаешь кто такой хакер и историю происхождения?) то же мне вирусописец)

ща сразу в гугль или яндекс)

(64) ну и что такое вирусная матрица?)

(61) На такое мероприятие травы не напасёшься.

(66) )

(66)+1 ...

(64)откуда ... ты вон лучшее шлепай калькулятор пёши ищо ... как осилишь я тебе попрошу сказать пароль к моему мылу ... ну а там будем глядеть, что ты знаешь о матрицах, хакерах и историю их происхождений

Помню у нас 2 прогера почти месяц ваяли мега калькулятор для проги, которая на MS SQLе крутилась. Сделали! Были баги и мега ограничения но сделали. Пришел студент и предложил юзать execute, типа спрашивать у пользователя что посчитать и пихнуть SQLю
Вот чем-то напоминает ветка

(64) дык я не хвастаюсь тут что я такой сякой, я просто решил попросить умных людей помочь с вопросом, а вместо помощи получил 68 сообщений флуда.. как по твоему это нормально? меня когда кто либо спрашивает о чем нибудь, я если знаю помогаю, мне вот не в облом помочь в чем то кому то.

в наше время путь становления программера начинался с разработки своего калькулятора и текстового редактора ... интересно с чего начинают программировать теперешнее поколение некст

В упрощенном виде будет примерно как-то так:

Перем ВыражениеДляВычисления;

Процедура Кнопка1Нажатие(Элемент)
   ЭлементыФормы.ПолеВыводаРезультата.Значение = ЭлементыФормы.ПолеВыводаРезультата.Значение+"1";
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
   ЭлементыФормы.ПолеВыводаРезультата.Значение = ЭлементыФормы.ПолеВыводаРезультата.Значение+"2";
КонецПроцедуры

...

Процедура КнопкаРавноНажатие(Элемент)
   
   ВыражениеДляВычисления = ВыражениеДляВычисления + ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ВыражениеДляВычисления = Вычислить(ВыражениеДляВычисления);
   
КонецПроцедуры

Процедура КнопкаСложениеНажатие(Элемент)
   ВыражениеДляВычисления = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение) + "+";
   ЭлементыФормы.ПолеВыводаРезультата.Значение = "";
КонецПроцедуры
...

(71) А корень и факториал твой калькулятор считать будет?

(73) к (70)

(70)а чем тебе хвастаться ... тем, что ты на третьем курсе не можешь написать кальк? ... что ты угонял пассворды от мыла и приэтом не увидал ссылку по которой сможешь скачать целых два каклькулятора?

(70)

http://ru.wikipedia.org/wiki/Конечный_автомат
http://ru.wikipedia.org/wiki/Таблица_принятия_решений
http://www.nestor.minsk.by/kg/2006/46/kg64617.html

(70) В проблема то калькулятор написать?

(73)неужели и это проблема?

ТОесть так правилнее

Перем ВыражениеДляВычисления;

Процедура Кнопка1Нажатие(Элемент)
   ЭлементыФормы.ПолеВыводаРезультата.Значение = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение)+"1";
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
   ЭлементыФормы.ПолеВыводаРезультата.Значение = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение)+"2";
КонецПроцедуры

...

Процедура КнопкаРавноНажатие(Элемент)
   
   ВыражениеДляВычисления = ВыражениеДляВычисления + ЭлементыФормы.ПолеВыводаРезультата.Значение;
   лементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
   
КонецПроцедуры

Процедура КнопкаСложениеНажатие(Элемент)
   ВыражениеДляВычисления = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение) + "+";
   ЭлементыФормы.ПолеВыводаРезультата.Значение = "";
КонецПроцедуры
...

(71)
- Зарегился на мисте
- Подал резюме на отстатыщ
...
- profit !

(72) Садись два.

(79) да, первый вариант не прокатил, ща этот попробую, суть вроде понимаю, ща сек

(70) имхо, миста=90% флуда
(0) как я понимаю, для (0) не нужны конечные автоматы, для одинарных операций тупо вызывать функцию с агрументом из поля ввода по кнопке(1/x например), для операций с двумя аргументами( первый сохранять во вторую переменную, получать значение операции(+,-,/,* - всего 4 ), по нажатию = вычислять переменная1 операция переменная2 -  всё это пишется за день в опохмелённом состоянии. если хочется каких нибуть крутых функций вроде е в степени х, или статистические ... придётся матан вспоминать.

(58) Ты чего ругаешься. Не видишь, человек делфи, паскаль изучал.

(79) спасибо огромное хороший человек) суть понял, доделал все рабит, дальше сам теперь все остально сделаю!)) еще раз спасяб!)

(83) То что ты описал, это и есть конечный автомат ;-)

не обязательно(даже излишне) знать теорию конечных автоматов, чтобы написать калькулятор. Нужно чуть-чуть мозга(intelligence = 11) и методом тыка всё получится

(87) Не обязательно, но отнюдь не излишне.

А после нажатия "+" первая переменная стирается? Не пойдет...

(1) Задачка совсем детская...

(89) она не стирается, а просто поле очищается

(71) >>>интересно с чего начинают программировать теперешнее поколение некст.
С пивной бутылки и пересадки мозга :)

(79) нашел косяк при вычислении больших чисел
{(1,1)}: Неправильная константа типа Число

маленькие считает, большие нехочет

(93)вау

(91) Я это и имел ввиду. Запусти вин калькулятор и посмотри как там. Кажется мелочь, а на самом деле серьёзный провал в функциональности.

А если нажимать 123 + 234 + 345 ? Или нужно всё время "равно" дергать?

(91) это позже доделаю

(92)всмысле? ... им что от обезъян мозг пересаживают?

Жесть. Не, я понимаю, я сам когда дотнет впервые открыл - взялся там рисовать свой калькулятор) Но вроде я в курсе был как калькулятор функционирует...

(46)(47) а не провести ли на форуме конкурс "кто красивее нарисует калькулятор"? -)

сотка

(99)сделай ©Волшебник

(99) ага сделать конкурс, и объявить его тогда, когда  до конца осталось часов 5 ) работ будет не много)

{(1,1)}: Неправильная константа типа Число
<<?>>1 009+99 999
{(1,7)}: Неправильная константа типа Число
1 009+<<?>>99 999

жестко

(11) это какой? с обратной польской записью придется сначала матчасть почитать. А простенький виндовый - не вижу даже в теории проблем

(0) чернобыль походу повлиял...

в винде уже далеко непростенький калькулятор ... кстати да согласен ... виндовый кальк не напишет процентов 80 одинэснигов

(107) Инженерный? Или простой? :) Или полный аналог, переключаемый?

{(1,1)}: Неправильная константа типа Число
<<?>>1 009+99 999
{(1,7)}: Неправильная константа типа Число
1 009+<<?>>99 999

ошибка исчезает если делать полезначение ПоляВвода не число а строка

(108)в винде сейчас три калькулятора ... и именно его с имитировать у многих обламается...

(107) я про упрощенную версию  - вроде в (0) именно такой надо сделать

+(111) а вот научный  я так сходу не возьмусь - читать придется...

(110) В семёрке вроде 4. Простой, инженерный, статистический и программерский.

(111) сначала простой, потом сложный

мой калькуль уже считает и вычитание


Процедура КнопкаРавноНажатие(Элемент)
   если перемВыч = 1 тогда
       ВыражениеДляВычисления = ВыражениеДляВычисления - ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
   перемВыч = 0;
   Иначе
ВыражениеДляВычисления = ВыражениеДляВычисления + ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
   конецесли;
КонецПроцедуры

Процедура КнопкаСложениеНажатие(Элемент)
ВыражениеДляВычисления = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение) + "+";
   ЭлементыФормы.ПолеВыводаРезультата.Значение = "";
       
КонецПроцедуры

Процедура КнопкаВычитаниеНажатие(Элемент)
   перемВыч = 1;
   ВыражениеДляВычисления = СокрЛП(ЭлементыФормы.ПолеВыводаРезультата.Значение) - "+";
   ЭлементыФормы.ПолеВыводаРезультата.Значение = "";
КонецПроцедуры

сколько же тогда строк понадобится для пары десятков операций..

(95) >>А если нажимать 123 + 234 + 345 ? Или нужно всё время "равно" дергать?
Не нужно, только после ввода 345.
ПС. Что за кальк там у тебя??

(114) Это называется "индусский код". http://lurkmore.ru/Индусский_код

(113)блин про статистический я и забыл (((

(55) 3 курс??? ИЗУЧИЛ ДЕЛФИ????чувак...и ты не можешь калькулятор написать??? я на первом курсе на делфяке сервер алимпиадных задач писал, на 2 курсе на Си написал своего радмина (пусть и немного упрощенную версию, но удаленное управление компом реализовал)...на 3 курсе уже автоматизировал участок производства на сахарном заводе (на 1С)... где ты учишься????

(116) Я имел ввиду тот что автор мутит, в (114) вот.

(119) ну может ты с самого детства задротствуешь за ПК, тогда не удивительно) все дело в том кто когда начала учится

(116) нужно равно дергать

function Calculator(ui)
{
    this.ui = ui;

    this.pendingAdditiveOperator = "";
    this.pendingMultiplicativeOperator = "";
    this.sumInMemory = 0;
    this.sumSoFar = 0;
    this.factorSoFar = 0;
    this.waitingForOperand = true;

    with (ui) {
        display.text = "0";

        zeroButton.clicked.connect(this, this.digitClicked);
        oneButton.clicked.connect(this, "digitClicked");
        twoButton.clicked.connect(this, "digitClicked");
        threeButton.clicked.connect(this, "digitClicked");
        fourButton.clicked.connect(this, "digitClicked");
        fiveButton.clicked.connect(this, "digitClicked");
        sixButton.clicked.connect(this, "digitClicked");
        sevenButton.clicked.connect(this, "digitClicked");
        eightButton.clicked.connect(this, "digitClicked");
        nineButton.clicked.connect(this, "digitClicked");

        pointButton.clicked.connect(this, "pointClicked");
        changeSignButton.clicked.connect(this, "changeSignClicked");

        backspaceButton.clicked.connect(this, "backspaceClicked");
        clearButton.clicked.connect(this, "clear");
        clearAllButton.clicked.connect(this, "clearAll");

        clearMemoryButton.clicked.connect(this, "clearMemory");
        readMemoryButton.clicked.connect(this, "readMemory");
        setMemoryButton.clicked.connect(this, "setMemory");
        addToMemoryButton.clicked.connect(this, "addToMemory");

        divisionButton.clicked.connect(this, "multiplicativeOperatorClicked");
        timesButton.clicked.connect(this, "multiplicativeOperatorClicked");
        minusButton.clicked.connect(this, "additiveOperatorClicked");
        plusButton.clicked.connect(this, "additiveOperatorClicked");

        squareRootButton.clicked.connect(this, "unaryOperatorClicked");
        powerButton.clicked.connect(this, "unaryOperatorClicked");
        reciprocalButton.clicked.connect(this, "unaryOperatorClicked");
        equalButton.clicked.connect(this, "equalClicked");
    }
}

Calculator.prototype.abortOperation = function()
{
    this.clearAll();
    this.ui.display.text = "####";
}

Calculator.prototype.calculate = function(rightOperand, pendingOperator)
{
    if (pendingOperator == "+") {
        this.sumSoFar += rightOperand;
    } else if (pendingOperator == "-") {
        this.sumSoFar -= rightOperand;
    } else if (pendingOperator == "*") {
        this.factorSoFar *= rightOperand;
    } else if (pendingOperator == "/") {
        if (rightOperand == 0)
        return false;
        this.factorSoFar /= rightOperand;
    }
    return true;
}

Calculator.prototype.digitClicked = function()
{
    var digitValue = __qt_sender__.text - 0;
    if ((digitValue == 0) && (this.ui.display.text == "0"))
        return;
    if (this.waitingForOperand) {
        this.ui.display.clear();
        this.waitingForOperand = false;
    }
    this.ui.display.text += digitValue;
}

Calculator.prototype.unaryOperatorClicked = function()
{
    var operand = this.ui.display.text - 0;
    var result = 0;
    if (__qt_sender__.text == "Sqrt") {
        if (operand < 0) {
            this.abortOperation();
            return;
        }
        result = Math.sqrt(operand);
    } else if (__qt_sender__.text == "x^2") {
        result = Math.pow(operand, 2);
    } else if (__qt_sender__.text == "1/x") {
        if (operand == 0.0) {
            this.abortOperation();
            return;
        }
        result = 1 / operand;
    }
    this.ui.display.text = result + "";
    this.waitingForOperand = true;
}

Calculator.prototype.additiveOperatorClicked = function()
{
    var operand = this.ui.display.text - 0;

    if (this.pendingMultiplicativeOperator.length != 0) {
        if (!this.calculate(operand, this.pendingMultiplicativeOperator)) {
            this.abortOperation();
            return;
        }
        this.ui.display.text = this.factorSoFar + "";
        operand = this.factorSoFar;
        this.factorSoFar = 0;
        this.pendingMultiplicativeOperator = "";
    }

    if (this.pendingAdditiveOperator.length != 0) {
        if (!this.calculate(operand, this.pendingAdditiveOperator)) {
            this.abortOperation();
            return;
        }
        this.ui.display.text = this.sumSoFar + "";
    } else {
        this.sumSoFar = operand;
    }

    this.pendingAdditiveOperator = __qt_sender__.text;
    this.waitingForOperand = true;
}

Calculator.prototype.multiplicativeOperatorClicked = function()
{
    var operand = this.ui.display.text - 0;

    if (this.pendingMultiplicativeOperator.length != 0) {
        if (!this.calculate(operand, this.pendingMultiplicativeOperator)) {
            this.abortOperation();
            return;
        }
        this.ui.display.text = this.factorSoFar + "";
    } else {
        this.factorSoFar = operand;
    }

    this.pendingMultiplicativeOperator = __qt_sender__.text;
    this.waitingForOperand = true;
}

Calculator.prototype.equalClicked = function()
{
    operand = this.ui.display.text - 0;

    if (this.pendingMultiplicativeOperator.length != 0) {
        if (!this.calculate(operand, this.pendingMultiplicativeOperator)) {
            this.abortOperation();
            return;
        }
        operand = this.factorSoFar;
        this.factorSoFar = 0.0;
        this.pendingMultiplicativeOperator = "";
    }
    if (this.pendingAdditiveOperator.length != 0) {
        if (!this.calculate(operand, this.pendingAdditiveOperator)) {
            this.abortOperation();
            return;
        }
        this.pendingAdditiveOperator = "";
    } else {
        this.sumSoFar = operand;
    }

    this.ui.display.text = this.sumSoFar + "";
    this.sumSoFar = 0.0;
    this.waitingForOperand = true;
}

Calculator.prototype.pointClicked = function()
{
    if (this.waitingForOperand)
        this.ui.display.text = "0";
    if (this.ui.display.text.indexOf(".") == -1)
        this.ui.display.text += ".";
    this.waitingForOperand = false;
}

Calculator.prototype.changeSignClicked = function()
{
    var text = this.ui.display.text;
    var value = text - 0;

    if (value > 0) {
        text = "-" + text;
    } else if (value < 0) {
        text = text.slice(1);
    }
    this.ui.display.text = text;
}

Calculator.prototype.backspaceClicked = function()
{
    if (this.waitingForOperand)
        return;

    var text = this.ui.display.text;
    text = text.slice(0, -1);
    if (text.length == 0) {
        text = "0";
        this.waitingForOperand = true;
    }
    this.ui.display.text = text;
}

Calculator.prototype.clear = function()
{
    if (this.waitingForOperand)
        return;

    this.ui.display.text = "0";
    this.waitingForOperand = true;
}

Calculator.prototype.clearAll = function()
{
    this.sumSoFar = 0.0;
    this.factorSoFar = 0.0;
    this.pendingAdditiveOperator = "";
    this.pendingMultiplicativeOperator = "";
    this.ui.display.text = "0";
    this.waitingForOperand = true;
}

Calculator.prototype.clearMemory = function()
{
    this.sumInMemory = 0.0;
}

Calculator.prototype.readMemory = function()
{
    this.ui.display.text = this.sumInMemory + "";
    this.waitingForOperand = true;
}

Calculator.prototype.setMemory = function()
{
    this.equalClicked();
    this.sumInMemory = this.ui.display.text - 0;
}

Calculator.prototype.addToMemory = function()
{
    this.equalClicked();
    this.sumInMemory += this.ui.display.text - 0;
}

вы вот сами сядьте ща кто такой умный и накотайте за 10 мин калькулятор как на винде.. хотя бы простой.. я вот посморю как полуится)

базарить все умеют, а по делу единицы

(124) >>> вы вот сами сядьте ща кто такой умный и накотайте за 10 мин калькулятор как на винде.. хотя бы простой..
Тебе что влом описать пару десятков операций с проверками?

(125) дык а я чем занимаюсь?

(121) не хами, хлопец!!! если ничего умного сказать не можешь - лучше вообще молчи!

Лучше игру "сапер" напиши и поиграть можно)

А некоторые еще в школе пишут свою ОС, антивирь и офисный пакет ))

(129)ну это вообще гений

(127) дык я про что, если НЕЧЕГО по делу сказать, то помолчи лучше, хлопец

(129) ты путаешь понятия "пишут свою ОС" и "создают свою сборку Линухи" !!!

(128) потом и до сапера доберусь)

(0) не так прост как кажется, крутые хакеры сильны в социальной инженерии, судя по (123), к 300 посту кто-нибуть другой уже напишет кальк в 1с :)(

(123) зверь машина)) сам писал?

(134) )))))))))

Ого, новая ***звезда***

(133)лучше оставь его в покое

Автор, скажи пожалуйста, а кой смысл тебе на 1С писать калькулятор?

(139) лишним не будет, а знания никогда не помешают

любые

(114) пля... вот откуда этот код берется :D
месяц-два и это будет резюме, с опытом внедрения УПП, перепиской под нужды бизнеса или как там ща пишут (нужды бизнеса - как раз те самые калькуляторы и кнопки заполнения тч прямо на форме документа) *LOL*

Насколько помню с универа, калькулятор задают с целью разобратся с работой элементов управления, обработка событий, и т.д. А в 1С это зачем, здесь это проще пареной репы, ты либо изучай "Программирование", или учи 1С

что такого сложного в калькуляторе с точки зрения работы элементов управления. Даже на winapi много кнопочек и одно поле ввода - элементарнейшая задача.
(142) скорее всего, сейчас коллективный разум решает  тестовое задание в какой-нибуть франч :(

(143) проще пареной репы, напиши, просто так, удели лишних 10 мин 1С, тоока не два поля ввода и четыре строчки сложение, выч, умн и дел, а такой, как простой виндовский хп.. можешь даже сюда не выкладывать если удастся, просто попробуй

(145) ну я написал за 15 минут с простейшими арифметическими операциями, на большее время тратить влом. а в чем собственно задача при наличии например оператора Выполнить?

(145)
"И вы, в присутствии двух людей с университетским образованием, позволяете себе давать советы космического масштаба и космической же глупости о том, как всё поделить!"
"зарубите себе на носу, что вам нужно молчать и слушать, что вам говорят. Учиться и стараться стать хоть сколько-нибудь приемлемым членом социального общества!"

(145) Мне что делать нечего?

(146)  у меня равно на 2 операции выглядит так:

Процедура КнопкаРавноНажатие(Элемент)
   если перемВыч = 1 тогда
       ВыражениеДляВычисления = ВыражениеДляВычисления - ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
   перемВыч = 0;
   Иначе
ВыражениеДляВычисления = ВыражениеДляВычисления + ЭлементыФормы.ПолеВыводаРезультата.Значение;
   ЭлементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
   конецесли;
КонецПроцедуры


а у тебя?

(146) не "выполнить" ,а "вычислить()" :)

а такой вариант как просчитаешь:

скажем набираешь: 2+4+2+6*5  ???

После каждого действия будешь равно нажимать (надо же еще правила арифметики учитывать)!!!???

(147) в этой ветке 150 сообщений, основная часть флуд) что слушать то? как люди с университетским образованием строят из себя мега програмеров?) глупость) в теме несколько сообщений только по делу, а остальное рыночный базар, как бабульки обсуждают все подрят, даже то что не знают, так и тут

(151) пока не знаю как)

(150) с Выполнить тоже работает)) но Вычислить логичнее да)

(154) ну так что умник, поделишься секретом одной процедурки?) или еще не придумал?))

(154)+



Процедура РавноНажатие(Элемент)
   
   ВычисленноеЗначение = "";
   
   ЗначениеПоляВычисления = ЭлементыФормы.ПолеВычисления.Значение;
   
   СтрокаДляВыполнения = "ВычисленноеЗначение = "+ЗначениеПоляВычисления;
   
   Выполнить(СтрокаДляВыполнения);
   
   ЭлементыФормы.ПолеВычисления.Значение = ВычисленноеЗначение;
   
КонецПроцедуры

(155) ой)

(149) Это ЭлементыФормы.ПолеВыводаРезультата.Значение = Вычислить(ВыражениеДляВычисления);
Хороший кодер написал бы одиг раз после условия.

(149) а я что говорил что я хороший кодер?) если б был бы хорошим кодером, не базарил бы тут

(156) многообещающий кусок кода))

(160) он работает, а я какбы и не прогер вовсе. с другой стороны для решения задачи в черновом варианте мне понадобилось 15 минут а тебе тему на форуме заводить что говорит о.

(160) этот кусок кода неочем не говорит)

(161) Читер =)

(162) а что тебе? черновой вариант обработки выложить?)

(164)+ черновой вариант обработки которая никогда не будет доделана ибо нафиг не надо

(162)хочешь выкладый, мне если честно ввсеравно уже)

ну даже если ты и написал? что из этого? ты крут?)) понтов та))

(163)  ага, смотри, щас на hadshot нарвешься))

(166) читай свой пост (145) до полного просветления. мне профану понадобилось 15 минут на решение этой задачи вместе с формой и элементами управления. а профам которых здесь есть, просто лень писать эту ерунду ибо на уровне алгоритма решается в уме за 2,3 секунды.

(168) ну я тогда написал только что винду на 1С))) грузиться прямо со съемника, прикинь, а ты не можешь... гг ))

Процедура ПриНачалеРаботыСистемы();
Форма = ПолучитьОбщуюФорму("РабочийСтол");
форма.Открыть();
КонецПроцедуры

(168) однобуйственно твоему коду 156

(170) ты щас о чем ващще?

(171) о том что на словах любой может понт кинуть)

(0) А для чего тебе нужно задание это выполнить?

(172) понты ты тут кидаешь) еще раз (145) читай.

(174) ну ты чудной)

ща еще +100 сообщений = ЧТО ТАКОЕ ПОНТ?)

Дело было в пятницу.. Короче щас выложу пример с автоматом на 8.2

(175) даже не представляешь насколько))

(173) для саморазвития

(178) давай код, посмотрим насколько ты чудной

(180) код чего?

(181) код твоего калькулятора, посмотрим на зверя

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   
   Для Сч = 1 По 10 Цикл
       
       ИмяЦифровойКнопки = "Кнопка"+Строка(Сч);
       Кнопка = ЭлементыФормы[ИмяЦифровойКнопки];
       Кнопка.Заголовок = Сч;
       
       ДействиеКнопки = Новый Действие("ДействиеКнопки");
       Кнопка.УстановитьДействие("Нажатие",ДействиеКнопки);
       
   КонецЦикла;
   
КонецПроцедуры

Процедура ДействиеКнопки(Кнопка)
   
     ЗначениеПоляВычисления = ЭлементыФормы.ПолеВычисления.Значение;
     
     ЗначениеПоляВычисления = ""+ЗначениеПоляВычисления+Кнопка.Заголовок;    
           
     ЭлементыФормы.ПолеВычисления.Значение = ЗначениеПоляВычисления;
     
КонецПроцедуры

Процедура РавноНажатие(Элемент)
   
   ВычисленноеЗначение = "";
   
   ЗначениеПоляВычисления = ЭлементыФормы.ПолеВычисления.Значение;
   
   СтрокаДляВыполнения = "ВычисленноеЗначение = "+ЗначениеПоляВычисления;
   
   Выполнить(СтрокаДляВыполнения);
   
   ЭлементыФормы.ПолеВычисления.Значение = ВычисленноеЗначение;
   
КонецПроцедуры

Процедура СНажатие(Элемент)
   ЭлементыФормы.ПолеВычисления.Значение = "";
КонецПроцедуры

Процедура BackspaceНажатие(Элемент)
   ЗначениеПоляВычисления = ЭлементыФормы.ПолеВычисления.Значение;
   
   ЗначениеПоляВычисления = Лев(ЗначениеПоляВычисления,СтрДлина(ЗначениеПоляВычисления));
   
   ЭлементыФормы.ПолеВычисления.Значение = ЗначениеПоляВычисления;
КонецПроцедуры



представить не могу на что тут посмотреть можно... но смотри конечно)

(181) или удалил уже?) а заного лень писать?)

Автор, брось 1С, вот среда для реальных пацанов: Вышел Qt 4.7.0

http://ifolder.ru/19459590 вот пжлста. Плюс, минус. Добавить операцию - создать команду и прописать пару строк, в коде всё описано.

(186) ... Да блин +и - сделать легко ... и * сделать легко а вот / и всё остальное сложнее... еслиб было время то подумал бы как а так времени нет.

(185) Ура!

(183) это весь код??))

(189) да, а что тебе еще надо? обвески? это уже без меня.

(186) посмотрю, только попозже, ща времени нету, спс

(189) а где вычитание? деление? умножение?

(189) а все понял технику)

(193) техника проста до абсурда. только если бы задача стояла серьезно а не налабать за 10 минут кусок г... простите кода, было бы все иначе

(190) садись, двойка

(195) за что учитель?))

(196) что то я не вижу кнопочек сложение, вычитание, деление, умножение..)

(197) просто ты тупишь


Процедура ДействиеКнопки(Кнопка)
   
     ЗначениеПоляВычисления = ЭлементыФормы.ПолеВычисления.Значение;
     
     ЗначениеПоляВычисления = ""+ЗначениеПоляВычисления+Кнопка.Заголовок;    
           
     ЭлементыФормы.ПолеВычисления.Значение = ЗначениеПоляВычисления;
     
КонецПроцедуры

(134)->(186) ЧТД !!!
ПульсЪ, хочу стать хакером, где такому учат ?

200

(198) я понял, слухай, так и я могу) дело то вкнопках заключается)

(199) в книжках учат)

ПульсЪ = гений 1С ? Уж очень стиль на фиксу похож.

ты по каким учился?

(201) представь себе да. дело в кнопках.

(203) я не гений, я всего лишь начинающий))

(203)г1с уж калк бы наверно написал

(204) google.ru, ya.ru

(207) Ну может последователь..

(209) Сын? О_о Племянник? О_о
Заеб*т же всех...

(209)наверно,) подрастает смена

АХхАхХ)))

(0) Давал подобную задачу "студентам"
получив решение понял что RTFM это священный завет

Встроенные функции языка (Script functions)
Вычислить (Eval)
Синтаксис:

Вычислить(<Выражение>)
Параметры:

<Выражение> (обязательный)

Тип: Строка. Выражение, которое требуется вычислить.
Возвращаемое значение:

Результат вычисления выражения. Тип возвращаемого значения зависит от типа выражения.
Описание:

Вычисляет переданное выражение. С помощью метода можно вычислять математические и логические выражения, а также операции конкатенации. Подробнее про выражения см. раздел "Выражения языка".

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Пример:

А = Вычислить("500 + 500*20/100");
А = Вычислить("Истина и Ложь");
А = Вычислить("""Иван"" + "" "" + ""

(213) а я то надеялся что начнут строки парсить, скобки, приоритеты операций в стек складывать ... =)

Вот развитие (186): легким движением руки добавляются умножение, деление, корень, смена знака, обработка /0:

http://ifolder.ru/19460137

автоматы рулят

Исходник:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   Сост = 3;
   Стэк = 0;
   Табло = "0";
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьРасчет(Отказ = Ложь)
   Если ТекОперация = "Плюс" Тогда
       Стэк = Стэк + Число(Табло);
   ИначеЕсли ТекОперация = "Минус" Тогда
       Стэк = Стэк - Число(Табло);
   ИначеЕсли ТекОперация = "Умножить" Тогда
       Стэк = Стэк * Число(Табло);
   ИначеЕсли ТекОперация = "Делить" Тогда
       Если Число(Табло) = 0 Тогда
           Отказ = Истина;
           Табло = "Ошибка";
           Возврат;    
       Иначе
           Стэк = Стэк / Число(Табло);
       КонецЕсли;
   КонецЕсли;
   Табло = Формат(Стэк, "ЧН=0; ЧГ=");
КонецПроцедуры

&НаКлиенте
Процедура Равно(Команда)
   Если Сост = 1 Или Сост = 2 Тогда
       Отказ = Ложь;
       ВыполнитьРасчет(Отказ);
       Если Отказ Тогда
           Сост = 4;
       Иначе
           Сост = 3;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Цифра(Команда)
   Цифра = Прав(Команда.Имя, 1);
   Если Сост = 1 Тогда
       Если Табло = "0" Тогда
           Табло = Цифра;    
       Иначе
           Табло = Табло + Цифра;
       КонецЕсли;
   ИначеЕсли Сост = 2 Тогда
       Табло = Цифра;
       Сост = 1;
   ИначеЕсли Сост = 3 Тогда
       Табло = Цифра;
       Стэк = 0;
       ТекОперация = "Плюс";
       Сост = 1;
   КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Операция(Команда)
   Операция = Команда.Имя;
   Если Сост = 1  Тогда
       Отказ = Ложь;
       ВыполнитьРасчет(Отказ);
       Если Отказ Тогда
           Сост = 4;
           Возврат;
       КонецЕсли;
       ТекОперация = Операция;
       Сост = 2;
   ИначеЕсли Сост = 2 Тогда    
       ТекОперация = Операция;
       Сост = 2;
   ИначеЕсли Сост = 3 Тогда    
       ТекОперация = Операция;
       Сост = 2;
   КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Преобразование(Команда)
   
   Если Сост =1 ИЛИ Сост = 2 ИЛИ Сост = 3 Тогда
       Преобразование = Команда.Имя;
       Если Преобразование = "Корень" Тогда
           Стэк = Sqrt(Число(Табло));
           Табло = Формат(Стэк, "ЧН=0; ЧГ=");
       КонецЕсли;
       Сост = 3;
   КонецЕсли;
   
КонецПроцедуры

&НаКлиенте
Процедура Точка(Команда)
   Если Сост = 1 Тогда
       Если Найти(Табло, ",") = 0 Тогда
           Табло = Табло + ",";
       КонецЕсли;
   ИначеЕсли Сост = 2 Тогда
       Табло = "0,";
       Сост = 1;
   ИначеЕсли Сост = 3 Тогда
       Табло = "0,";
       Стэк = 0;
       ТекОперация = "Плюс";
       Сост = 1;
   КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура CE(Команда)
   Стэк = 0;
   ТекОперация = "Плюс";
   Сост = 3;
   Табло = "0";
КонецПроцедуры

&НаКлиенте
Процедура ПлюсМинус(Команда)
   Если Сост = 1 Тогда
       Если Табло = "0" Тогда
           Возврат;
       КонецЕсли;
       Если Лев(Табло, 1) = "-" Тогда
           Табло = Сред(Табло,2);
       Иначе
           Табло = "-" + Табло;
       КонецЕсли;
   КонецЕсли;
   Если Сост = 3 Тогда
       Стэк = -Стэк;
       Табло = Формат(Стэк, "ЧН=0; ЧГ=");
   КонецЕсли;
КонецПроцедуры

лана) спасибо отдельным людям кто помогал а не стебался)

а всем остальным обработочка на прощание))

Процедура ПриОткрытии()
   // Вставить содержимое обработчика.
   Для Каждого Эл из Метаданные.РегистрыСведений Цикл
       РегистрСведенийСписок.Добавить(Эл.Имя, Эл.Синоним+"("+Эл.Имя+")", ложь);
   КонецЦикла;
   Для Каждого Эл из Метаданные.Справочники Цикл
       СправочникиСписок.Добавить(Эл.Имя, Эл.Синоним+"("+Эл.Имя+")", ложь);
   КонецЦикла;
   Для Каждого Эл из Метаданные.Документы Цикл
       ДокументыСписок.Добавить(Эл.Имя, Эл.Синоним+"("+Эл.Имя+")", ложь);
   КонецЦикла;
   РегистрСведенийСписок.СортироватьПоПредставлению();
   СправочникиСписок.СортироватьПоПредставлению();
   ДокументыСписок.СортироватьПоПредставлению();
КонецПроцедуры

Процедура РегистрыСведенийУдалить()
   Если Вопрос("Удалять регистры сведений?", РежимДиалогаВопрос.ДаНетОтмена)<> КодВозвратаДиалога.Да Тогда
       Возврат;
   КонецЕсли;
   // Вставить содержимое обработчика.
   Для Каждого Эл из РегистрСведенийСписок Цикл
       Если Не Эл.Пометка Тогда
           Продолжить;
       КонецЕсли;
       ИмяРегистра=Эл.Значение;
       ПредставлениеРегистра=Эл.Представление;
       Сообщить("Очищаю регистр: "+ПредставлениеРегистра);
       НаборЗаписей=РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
       НаборЗаписей.Записать();
   КонецЦикла;
КонецПроцедуры

Процедура ДокументыУдалить()
   Если Вопрос("Удалять документы?", РежимДиалогаВопрос.ДаНетОтмена)<> КодВозвратаДиалога.Да Тогда
       Возврат;
   КонецЕсли;
   // Вставить содержимое обработчика.
   Для Каждого Эл из ДокументыСписок Цикл
       Если Не Эл.Пометка Тогда
           Продолжить;
       КонецЕсли;
       Имя=Эл.Значение;
       Представление=Эл.Представление;
       Сообщить("Очищаю документ: "+Имя);
       ПереченьОб=Документы[Имя].Выбрать();
       СписокСсылок=Новый Массив();
       Если флТранзакция Тогда НачатьТранзакцию(); КонецЕсли;
       Пока ПереченьОб.Следующий() Цикл
           Сч=СписокСсылок.Количество();
           Если Сч%10=0 Тогда
               Состояние(Сч);
               ОбработкаПрерыванияПользователя();
           КонецЕсли;
           СписокСсылок.Добавить(ПереченьОб.Ссылка);
           Если Не флУдалятьУдалитьОбъекты Тогда
               ПереченьОб.Ссылка.ПолучитьОбъект().Удалить();
           КонецЕсли;
       КонецЦикла;
       Если флУдалятьУдалитьОбъекты Тогда
           УдалитьОбъекты(СписокСсылок, ложь);
       КонецЕсли;
       Если флТранзакция Тогда ЗафиксироватьТранзакцию(); КонецЕсли;
       Сообщить("  удалено "+СписокСсылок.Количество()+" документов");
   КонецЦикла;
КонецПроцедуры

Процедура СправочникиУдалить()
   Если Вопрос("Удалять справочники?", РежимДиалогаВопрос.ДаНетОтмена)<> КодВозвратаДиалога.Да Тогда
       Возврат;
   КонецЕсли;
   // Вставить содержимое обработчика.
   Для Каждого Эл из СправочникиСписок Цикл
       Если Не Эл.Пометка Тогда
           Продолжить;
       КонецЕсли;
       Имя=Эл.Значение;
       Представление=Эл.Представление;
       Сообщить("Очищаю справочник: "+Имя);
       ПереченьОб=Справочники[Имя].Выбрать();
       СписокСсылок=Новый Массив();
       Если флТранзакция Тогда НачатьТранзакцию(); КонецЕсли;
       Пока ПереченьОб.Следующий() Цикл
           Сч=СписокСсылок.Количество();
           Если Сч%10=0 Тогда
               Состояние(Сч);
               ОбработкаПрерыванияПользователя();
           КонецЕсли;
           СписокСсылок.Добавить(ПереченьОб.Ссылка);
           Если Не флУдалятьУдалитьОбъекты Тогда
               ПереченьОб.Ссылка.ПолучитьОбъект().Удалить();
           КонецЕсли;
       КонецЦикла;
       Если флУдалятьУдалитьОбъекты Тогда
           УдалитьОбъекты(СписокСсылок, ложь);
       КонецЕсли;
       Если флТранзакция Тогда ЗафиксироватьТранзакцию(); КонецЕсли;
       //УдалитьОбъекты(СписокСсылок, ложь);
       Сообщить("  удалено "+СписокСсылок.Количество()+" элементов");
   КонецЦикла;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Элемент)
   // Вставить содержимое обработчика.
   Если ЭлементыФормы.ГлавнаяПанель.ТекущаяСтраница.Имя="СтраницаРегистрыСведений" Тогда
       РегистрыСведенийУдалить();
   ИначеЕсли ЭлементыФормы.ГлавнаяПанель.ТекущаяСтраница.Имя="СтраницаСправочники" Тогда
       СправочникиУдалить();
   ИначеЕсли ЭлементыФормы.ГлавнаяПанель.ТекущаяСтраница.Имя="СтраницаДокументы" Тогда
       ДокументыУдалить();
   КонецЕсли;
КонецПроцедуры

формочку сами сделайте)

Ну точно лавры г1с покоя не дают..

(217) двоечка вам, товарищ

(217) а грабить корованы можно этой обработкой?

(221)
нет - только клиентов