Как сделать,чтобы не пропадало?

@vas_89118911 · Регистрация: 16.02.2020

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

Здравствуйте!
Начал изучать purebasic пару дней назад и решил графический калькулятор.
Создал, окошко и все остальное, принялся за "логику" калькулятора и такая проблема, когда я нажимаю на Button-какой нибудь все появляется,да,но если нажать на другую пропадает прошедшая и несколько раз одну и ту же кнопку не нажмешь. Пока,что не знаю как исправить ипользую для вывода цифр и знаков(+, -, / и т.д) - StringGadget(). Вот код, сильно не пинайте я новичок):

PureBasic
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
OpenWindow(0, 100, 100, 270, 300,"Калькулятор", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
StringGadget(20, 10, 5, 250, 40, "",  #PB_String_Numeric)
 
ButtonGadget(1, 10, 250, 100, 50, "0")
 
ButtonGadget(5, 10, 200, 50, 50, "1")
ButtonGadget(6, 61, 200, 50, 50, "2")
ButtonGadget(7, 111, 200, 50, 50, "3")
 
ButtonGadget(9, 10, 150, 50, 50, "4")
ButtonGadget(10, 61, 150, 50, 50, "5")
ButtonGadget(11, 111, 150, 50, 50, "6")
 
ButtonGadget(19, 10, 50, 50, 50, "<===")
 
ButtonGadget(12, 10, 100, 50, 50, "7")
ButtonGadget(22, 61, 50, 150, 50, "")
ButtonGadget(13, 61, 100, 50, 50, "8")
ButtonGadget(14, 111, 100, 50, 50, "9")
 
ButtonGadget(2, 111, 250, 50, 50, ",")
 
ButtonGadget(8, 161, 200, 50, 50, "-")
 
ButtonGadget(15, 211, 150, 50, 50, "1/X")
ButtonGadget(16, 161, 150, 50, 50, "*")
 
ButtonGadget(21, 211, 50, 50, 50, "CE")
 
ButtonGadget(17, 211, 100, 50, 50, "%")
ButtonGadget(18, 161, 100, 50, 50, "/")
 
ButtonGadget(3, 161, 250, 50, 50, "+")
ButtonGadget(4, 211, 200, 50, 100, "=")
 
Repeat
  
  Window = WaitWindowEvent()
  
  
  If Window = #PB_Event_Gadget
    
    GadgetID = EventGadget()
    
    Select GadgetID
        
      Case 1
        SetGadgetText(20, "0")
        
      Case 2
        SetGadgetText(20, ",")
        
      Case 3
        SetGadgetText(20, "+")
        
      Case 4
        SetGadgetText(20, "=")
        
      Case 5
        SetGadgetText(20, "1")
        
      Case 6
        SetGadgetText(20, "2")
        
      Case 7
        SetGadgetText(20, "3")
        
      Case 8
        SetGadgetText(20, "-")
        
        
      Case 9
        SetGadgetText(20, "4")
        
      Case 10
        SetGadgetText(20, "5")
        
      Case 11
        SetGadgetText(20, "6")
        
      Case 12
        SetGadgetText(20, "7")
        
      Case 13
        SetGadgetText(20, "8")
        
      Case 14
        SetGadgetText(20, "9")
        
      Case 16
        SetGadgetText(20, "*")
        
      Case 17
        SetGadgetText(20, "%")
        
      Case 18
        SetGadgetText(20, "/")
        
        ;-------------
      Case 21
        SetGadgetText(20, "")
       
      Case 15
        SetGadgetText(20, "")
        
      Case 22
        SetGadgetText(20, "")
        
      Case 19
        SetGadgetText(20, "");
        ;-------------
        
        EndSelect
    
    EndIf
  
  
Until Window = #PB_Event_CloseWindow
End

@Pro_grammer · 24.02.2020, 20:51

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

PureBasic
1
2
3
4
5
6
7
8
     Case 1
        SetGadgetText(20, GetGadgetText(20) +"0")
        
      Case 2
        SetGadgetText(20, GetGadgetText(20) + ",")
        
      Case 3
        SetGadgetText(20, GetGadgetText(20) + "+")

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

Как сделать,чтобы не пропадало?

Решение