Калькулятор. Какая нужно команда?

@Pro100студент · Регистрация: 27.10.2013

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

Здравствуйте.
Написал калькулятор ан VB 6.0. Все хорошо работает, но есть одна проблема. Когда я получил значение, например: 2+2 на экране, созданного мной калькулятора, вышел ответ. И когда я ввожу новое число, оно записывается в окошко калькулятора вместе с предыдущим ответом, т.е. я получил ответ 4, затем нажал на 2, и на экране получилось 42. Какую команду нужно ввести в код программы, чтобы предыдущий ответ автоматически стирался при вводе нового значения для нового расчета?
Калькулятор самый простенький +, -, *, /

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Dim x As Currency, y As Currency, z As Currency, znak As Integer
Private Sub Command11_Click()
Text1.Text = Text1.Text + ","
End Sub
Private Sub Command12_Click()
z = Text1.Text
z = z * (-1)
Text1.Text = z
End Sub
Private Sub Command13_Click()
x = Text1.Text
Text1.Text = ""
znak = 1
End Sub
Private Sub Command14_Click()
x = Text1.Text
Text1.Text = ""
znak = 2
End Sub
Private Sub Command15_Click()
x = Text1.Text
Text1.Text = ""
znak = 3
End Sub
Private Sub Command16_Click()
x = Text1.Text
Text1.Text = ""
znak = 4
End Sub
Private Sub Command17_Click()
y = Text1.Text
If znak = 1 Then z = x + y
If znak = 2 Then z = x - y
If znak = 3 Then z = x * y
If znak = 4 Then z = x / y
Text1.Text = z
End Sub
Private Sub Command18_Click()
x = 0
y = 0
z = 0
znak = 0
Text1.Text = ""
End Sub
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub

@JoraVoenyjHaker · 12.11.2013, 02:27

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

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@JoraVoenyjHaker Заблокирован
	12.11.2013, 02:27
	так что-же я! все свои готовые решения в одной теме буду размещать кому надо посмотрят... как делаються калькуляторы, и прозрачные кнопки и пусть спасибо скажут что я думаю! о начинающих хакерах 1