Вывод результата вычислений в одном textbox'e

@snyppimylt · Регистрация: 18.12.2011

Студворк — интернет-сервис помощи студентам

Калькулятор который находится у каждого из вас в Windows меня озадачил тем, что я так и не понял, как сделать вывод данных в той же форме.
К примеру я сделал подобный дизаин с формочками и прочим добром. И вот например, когда я нажимаю на кнопочку 1. в текстбокс появляется цифра 1. если нажимаю на + . то там появляется плюс. Если нажимаю на 1 то там появляется 1. Вопрос в следующем. Как правильно записать код что бы он в одной форме складывал числа если это к примеру +?

В двух формах я знаю как это делать? под кнопкой равно.

Если кто не понял, переспросите я просто не могу точнее это объяснить

Добавлено через 1 минуту
Может нужна куча переменных?

@Linoge · 04.02.2012, 20:02

Visual Basic
1
2
3
Private Sub Command1_Click()
Text1 = ScriptControl1.Eval(Text1)
End Sub

добавить в проект и на форму MS script control

@snyppimylt · 04.02.2012, 20:02 **[ТС]**

Это где?

@Linoge · 04.02.2012, 20:06

Добавить компонент - правой на панель инструментов
смотри пример

@snyppimylt · 04.02.2012, 20:09 **[ТС]**

Я не понял

@gaw · 04.02.2012, 20:17

автор желает что то типа

Visual Basic
1
If Not IsNumeric(Text1) Then Text1 = Text1 & "=" & ScriptControl1.Eval(Text1)

только по ходу в Text1 должна отображаться последовательность ввода

@snyppimylt · 04.02.2012, 20:18 **[ТС]**

Сообщение от gaw

If Not IsNumeric(Text1) Then Text1 = Text1 & "=" & ScriptControl1.Eval(Text1)

это я понял, я просто не догнал насчет панели инструментов

@Linoge · 04.02.2012, 20:19

gaw, в примере так и есть

Сообщение от snyppimylt

это я понял, я просто не догнал насчет панели инструментов

правой на пустом месте, под инструментами, "Компоненты"
и там поставить галку на "MS script control"
появится инструмент "scriptcontrol"
его тащи на форму

@snyppimylt · 04.02.2012, 20:21 **[ТС]**

Я ввел, проверил. ошибка. Run - Time Error 424

@gaw · 04.02.2012, 20:30

мне показалось что так

Visual Basic
1
If Not IsNumeric(Text1) Then Text1 = ScriptControl1.Eval(Text1)

Visual Basic
1
If Not IsNumeric(Text1) Then Text1 = Text1 & "=" & ScriptControl1.Eval(Text1)

или не тот пример

@snyppimylt · 04.02.2012, 20:45 **[ТС]**

Customize?

@Linoge · 04.02.2012, 20:51

Компоненты

@snyppimylt · 04.02.2012, 20:57 **[ТС]**

А.. так это же Referencen

У меня просто Англ версия.

Добавлено через 3 минуты
сделал, код воткнул куда надо, жму а он никаких действий не выполняет

@Linoge · 04.02.2012, 20:58

snyppimylt, открой пример из 4 поста

@snyppimylt · 04.02.2012, 21:08 **[ТС]**

Я не понял вообще, но как по твоим словам должно работать, вот результат

@Linoge · 04.02.2012, 21:13

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

@snyppimylt · 04.02.2012, 21:18 **[ТС]**

Вот, посмотри

@Linoge · 04.02.2012, 21:27

Не добавил компонент, и не перенес его на форму
+ немного поправил код клавиш - массивом проще)

@snyppimylt · 04.02.2012, 21:45 **[ТС]**

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

А вот еще. . что он делает?

Visual Basic
1
2
3
Private Sub key_Click(Index As Integer)
Pole.Text = Pole.Text & Index
End Sub

Добавлено через 11 минут
И еще вопрос. что делает тот компонент???

@Linoge · 04.02.2012, 21:47

key-массив кнопок с индексом от 0 до 9
здесь Pole.Text = Pole.Text & Index добавляем индекс а по сути значение к строке

MS ScriptControl это интерпретатор для работы с другими языками.
Используется его метод eval выполняющий код, который задан в параметре.
В данном случае математическое выражение.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409

	Вывод результата вычислений в одном textbox'e 04.02.2012, 19:58. Показов 4434. Ответов 25 Метки нет (Все метки) Калькулятор который находится у каждого из вас в Windows меня озадачил тем, что я так и не понял, как сделать вывод данных в той же форме. К примеру я сделал подобный дизаин с формочками и прочим добром. И вот например, когда я нажимаю на кнопочку 1. в текстбокс появляется цифра 1. если нажимаю на + . то там появляется плюс. Если нажимаю на 1 то там появляется 1. Вопрос в следующем. Как правильно записать код что бы он в одной форме складывал числа если это к примеру +? В двух формах я знаю как это делать? под кнопкой равно. Если кто не понял, переспросите я просто не могу точнее это объяснить Добавлено через 1 минуту Может нужна куча переменных? 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 20:02 [ТС]
	Это где? 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 20:09 [ТС]
	Я не понял 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 20:21 [ТС]
	Я ввел, проверил. ошибка. Run - Time Error 424 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 20:45 [ТС]
	Customize? Миниатюры 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	04.02.2012, 20:51
	Компоненты Миниатюры 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 20:57 [ТС]
	А.. так это же Referencen У меня просто Англ версия. Добавлено через 3 минуты сделал, код воткнул куда надо, жму а он никаких действий не выполняет 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	04.02.2012, 20:58
	snyppimylt, открой пример из 4 поста 0

@snyppimylt 8 / 8 / 1 Регистрация: 18.12.2011 Сообщений: 409
	04.02.2012, 21:08 [ТС]
	Я не понял вообще, но как по твоим словам должно работать, вот результат Миниатюры 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	04.02.2012, 21:13
	скинь проект или я не понимаю что нужно или ты что то не договариваешь 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	04.02.2012, 21:47
	key-массив кнопок с индексом от 0 до 9 здесь Pole.Text = Pole.Text & Index добавляем индекс а по сути значение к строке MS ScriptControl это интерпретатор для работы с другими языками. Используется его метод eval выполняющий код, который задан в параметре. В данном случае математическое выражение. 0