Вывод результата вычислений в одном 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 выполняющий код, который задан в параметре.
В данном случае математическое выражение.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

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

	Вывод результата вычислений в одном textbox'e 04.02.2012, 19:58. Показов 4377. Ответов 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