Работа с дробными числами

@kukushka3 · Регистрация: 25.01.2021

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

Добрый день!
Данный код позволяет производить сумму целых чисел. Хотелось бы чтобы код производил сложение и дробных чисел:
например: 2.34+0.23=2.57, а пока только складывает целые числа и результат получается тоже целое число, помогите переработать код (если это возможно)...

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
A:
string1.s : string2.s : a1.q : a2.q : result.q ;:text.s; Объявляем переменные и их тип.
; Открываем окно
If OpenWindow(0,0,0,200,200,"Сложение чисел",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 If CreateGadgetList(WindowID(0)) ; Создаём список гаджетов
 
  StringGadget(0,20,20,150,20, "" ,#PB_String_Numeric) ; Создаём поле для ввода текста.
  TextGadget(  1,75,50,50, 20,"Плюс") ; Показываем в окне слово "Плюс".
  StringGadget(2,20,75,150,20, "" ,#PB_String_Numeric) 
  ButtonGadget(3,50,115,80,25,"Равно") ; Создаём кнопку.
  TextGadget(  4,20,158,150,20,"",#PB_Text_Border) ; Здесь будет отображаться результат.
 
   Repeat ; Начало цикла "Repeat - Until"
   event=WaitWindowEvent() ; Узнаём ID текущего события в программе.
   gadget=EventGadget() ; Узнаём ID активного гаджета.
 
   If event=#PB_Event_Gadget And gadget=3 ; Проверяем была ли нажата кнопка.
   string1=GetGadgetText(0) ; Считываем текст из гаджета с идентификатором 0.
   string2=GetGadgetText(2) ; Считываем текст из гаджета с идентификатором 2.
    a1=ValQ(string1) ; Преобразовываем текст в число.
    a2=ValQ(string2) ; Преобразовываем текст в число.
    ;result=a1    ; Складываем числа из переменных "a1" и "a2".
    result=a1+a2    ; Складываем числа из переменных "a1" и "a2".
    text.s=StrQ(result) ; Преобразовываем число из переменной "result" текстовый вид.
    SetGadgetText(4,text) ; Записываем текст из переменной "text" в гаджет и идентификатором 4.
   EndIf 
 
   Until event=#PB_Event_CloseWindow ; Окончание цикла "Repeat - Until". Условие в операторе "Until" будет выполнено при попытке закрыть окно.
 EndIf
 Goto A:
EndIf
; Конец программы.

@AZJIO · 02.02.2022, 19:24

Для десятичных числах используется ValF и ValD, а также StrF и StrD.
ValQ - я такого в справке не вижу, тип quad обрабатывается в Val.

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
EnableExplicit
 
Define.d field1, field2, result
Define sign$
Define error
 
#Window = 0
 
Enumeration Gadget
    #field1
    #field2
    #sign
    #action
    #result
EndEnumeration
 
 
If OpenWindow(#Window, 0, 0, 420, 70, "Вычисление", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(#field1, 50, 5, 150, 27, "" ,#PB_String_Numeric)
    ComboBoxGadget(#sign, 5, 20, 40, 27)
    AddGadgetItem(#sign , -1 , "+")
    AddGadgetItem(#sign , -1 , "-")
    AddGadgetItem(#sign , -1 , "*")
    AddGadgetItem(#sign , -1 , "/")
    SetGadgetState(#sign , 0)
    StringGadget(#field2, 50, 35, 150, 27, "", #PB_String_Numeric)
    ButtonGadget(#action, 207, 20, 20, 27, "=")
    StringGadget(#result, 235, 20, 150, 27,"")
    
    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_Gadget
                Select EventGadget()
                    Case #action
                        error = 0
                        field1 = ValD(GetGadgetText(#field1))
                        field2 = ValD(GetGadgetText(#field2))
                        sign$ = GetGadgetText(#sign)
                        Select sign$
                            Case "+"
                                result = field1 + field2
                            Case "-"
                                result = field1 - field2
                            Case "/"
                                If field2 = 0
                                    error = 1
                                Else
                                    result = field1 / field2
                                EndIf
                            Case "*"
                                result = field1 * field2
                            Default
                                error = 1
                        EndSelect
                        If error
                            SetGadgetText(#result, "Ошибка данных")
                        Else
                            SetGadgetText(#result, StrD(result))
                        EndIf
                EndSelect
            Case #PB_Event_CloseWindow
                CloseWindow(#Window)
;               Break
                End
        EndSelect
    ForEver
EndIf

@locm · 02.02.2022, 23:14

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

ValQ - я такого в справке не вижу

Функция есть, но считается устаревшей о чем информирует предупреждение во время компиляции.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом 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/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .