Строковый калькулятор на VB 6.0

@Pavel_64 · Регистрация: 02.02.2011

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

Помогите пожалуйста! Надо сдать курсовой проект. Идея калькулятора - в текстовое поле записана математическая формула. Все действия выполняются после нажатия на кнопку "=". Как расставить приоритеты выполнения операций, скобок, функций.

@gaw · 03.02.2011, 15:13

icq 584 308 611

@gaw · 03.02.2011, 18:29

наброски

@Pavel_64 · 03.02.2011, 21:05 **[ТС]**

Спасибо большое! А как это работает? Я программированием начал заниматься заниматься недавно. Очень многого пока не знаю, но всё очень интересно. Расскажете?

@gaw · 03.02.2011, 21:41

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

Расскажете?

всенепременно (в асе)

27.04.2011, 05:03

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

icq 584 308 611

нужен код

@Pro_grammer · 27.04.2011, 09:05

Очень простой калькулятор на VB с XP интерфейсом ( исходник):

22.05.2011, 04:59

Присланный вами архив по строковому калькулятору почему-то не открывается(???)

@Bati4eli · 12.03.2015, 17:02

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

Код формы:

Кликните здесь для просмотра всего текста

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
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
Private Sub CommandBut_Click()
Dim Str As String
Dim Err As Boolean
If Replace(Text1.Text, " ", "") <> "" Then
    List1.Clear
    Str = Text1.Text
    List1.AddItem Replace(Str, " ", "")
    Str = Player(Str, Err, False)
    Text2.Text = "= " & Format(Str, "#,##0.00")
    If Err Then
        MsgBox "В формуле допущена ошибка!", vbCritical
    Else
        List2.AddItem Text1.Text
    End If
End If
End Sub
 
Public Function Player(ByRef Formula As String, Optional ByRef Err As Boolean, Optional HasParent As Boolean) As String
Dim x As Long, y As Long, z As Long, SL As Long, SR As Long, SS As Long
Dim Hard As Boolean, VeryHard As Boolean
Dim GetDbl As Boolean, Ch As String
Dim Arr() As cal
Dim TMP As Double, Temp As String
ReDim Arr(1 To 1)
Formula = Replace(Formula, " ", "")
Formula = Replace(Formula, ".", ",")
Formula = Replace(Formula, "--", "+")
Formula = Replace(Formula, "+-", "-")
Formula = Replace(Formula, "-+", "-")
Hard = Formula Like "*[/*]*"
VeryHard = Formula Like "*(*)*"
On Error GoTo ErrHndl
'-----------------' переводим текст задачи в "цифровой" вид,
'-----------------' разбивая числа и символы действий на массив
For x = 1 To Len(Formula)
    Ch = Mid(Formula, x, 1)
    If (Ch = "-" And x = 1 And Mid(Formula, x + 1, 1) Like "#") _
        Or (Ch Like "#" And Not GetDbl) Then
            GetDbl = True
            Arr(UBound(Arr)).Formul = Ch
            Arr(UBound(Arr)).Type = False
    ElseIf GetDbl And (Ch Like "#" Or Ch = "." Or Ch = ",") Then
        Arr(UBound(Arr)).Formul = Arr(UBound(Arr)).Formul & Ch
    ElseIf Ch Like "[*/+()^]" Or Ch = "-" Then
        GetDbl = False
        ReDim Preserve Arr(1 To UBound(Arr) + 1)
        Arr(UBound(Arr)).Formul = Ch
        Arr(UBound(Arr)).Type = True
        ReDim Preserve Arr(1 To UBound(Arr) + 1)
    Else
        Arr(UBound(Arr)).Formul = Arr(UBound(Arr)).Formul & Ch
    End If
    If Ch = "(" Then
        SL = SL + 1
    ElseIf Ch = ")" Then
        SR = SR + 1
    End If
Next
If Arr(UBound(Arr)).Formul = "" Then
    ReDim Preserve Arr(1 To UBound(Arr) - 1)
End If
'-----------------' проверка синтаксиса
For x = 1 To UBound(Arr) - 1
    If Arr(x).Type And Arr(x + 1).Type Then
        Err = True
        Exit Function
    End If
Next
If Arr(UBound(Arr)).Type And Not Arr(UBound(Arr)).Formul Like "*[(,)]*" Then
    Err = True
    Exit Function
End If
If SL <> SR Then
    Err = True
    Exit Function
End If
'Debug.Print MyJoin(Arr)
'-----------------' раставляем порядок решения
If UBound(Arr) >= 3 Then
    For x = 1 To UBound(Arr)
        If Arr(x).Type Then
            If VeryHard Then '=============== Решение задачки со скобками
                If Arr(x).Formul = "(" Then
                    SL = x
                    SS = -1
                    For y = x + 1 To UBound(Arr)
                        If Arr(y).Formul = ")" Then
                            SS = SS + 1
                        ElseIf Arr(y).Formul = "(" Then
                            SS = SS - 1
                        End If
                        If SS = 0 Then
                            SR = y
                            '
                            Temp = MyJoin2(Arr, SL + 1, SR - 1)
                            TMP = Player(Temp, , True)
                            For z = SL To SR
                                Arr(z).Formul = ""
                            Next
                            Arr(SL).Formul = TMP
                            Temp = MyJoin(Arr)
'                            If Not HasParent Then List1.AddItem Temp & "  " & HasParent
                            Player = Player(Temp)
                            '
                            Exit For
                        End If
                    Next
                    Exit For
                End If
            ElseIf Hard Then '=============== Решение в случае наличия умножения или деления
                If Arr(x).Formul Like "[*/]" Then
                    TMP = Calcul(CDbl(Arr(x - 1).Formul), Arr(x).Formul, CDbl(Arr(x + 1).Formul))
                    Arr(x - 1).Formul = TMP
                    Arr(x).Formul = ""
                    Arr(x + 1).Formul = ""
                    Temp = MyJoin(Arr)
'                    If Not HasParent Then List1.AddItem Temp & "  " & HasParent
                    Player = Player(Temp, , False)
                    Exit For
                End If
            Else             '=============== для простой задачи, где только сложения или вычитания
                TMP = Calcul(CDbl(Arr(x - 1).Formul), Arr(x).Formul, CDbl(Arr(x + 1).Formul))
                Arr(x - 1).Formul = TMP
                Arr(x).Formul = ""
                Arr(x + 1).Formul = ""
                Temp = MyJoin(Arr)
'                If Not HasParent Then List1.AddItem Temp & "  " & HasParent
                Player = Player(Temp, , False)
                Exit For
            End If
        End If
    Next
Else
    Player = Formula
End If
'-------------------------
Exit Function
ErrHndl:
Err = True
End Function
 
Public Function Calcul(Arg1 As Double, Chrs As String, Arg2 As Double) As Double
If Chrs = "*" Then
    Calcul = Arg1 * Arg2
ElseIf Chrs = "/" Then
    Calcul = Arg1 / Arg2
ElseIf Chrs = "+" Then
    Calcul = Arg1 + Arg2
ElseIf Chrs = "-" Then
    Calcul = Arg1 - Arg2
ElseIf Chrs = "^" Then
    Calcul = Arg1 ^ Arg2
End If
End Function
 
 
Private Sub List2_DblClick()
Text1.Text = List2.Text
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 10 Then
    KeyAscii = 0
End If
End Sub

Код модуля:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Type cal
    Formul As String
    Type As Boolean ' false - long ' True - char
End Type
 
Public Function MyJoin(Arr() As cal) As String
Dim x As Long
For x = LBound(Arr) To UBound(Arr)
    MyJoin = MyJoin & Arr(x).Formul
Next
End Function
 
Public Function MyJoin2(Arr() As cal, from As Long, LTO As Long) As String
Dim x As Long
For x = from To LTO
    MyJoin2 = MyJoin2 & Arr(x).Formul
Next
End Function

@Казанский · 12.03.2015, 18:38

ScriptControl? Программа должна уметь распознавать функции, записанные в TextBox

@Bati4eli · 13.03.2015, 15:26

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

Если математическая формула имеет скобки, то выполняется выражение сначала в них
если выражение имеет действия умножения/деления/возведения в степень, то выполняются они
действия сложения или вычитания выполняются в самую последнюю очередь

Порядок выполнения задается слева на право, т.е. сначала выполняется самая левая скобка, самое левое умножение или самое левое сложение. И так по мере упрощения формулы от 1й ступени до 3й.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .	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/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Pavel_64 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 2

	Строковый калькулятор на VB 6.0 03.02.2011, 14:06. Показов 10639. Ответов 10 Метки нет (Все метки) Помогите пожалуйста! Надо сдать курсовой проект. Идея калькулятора - в текстовое поле записана математическая формула. Все действия выполняются после нажатия на кнопку "=". Как расставить приоритеты выполнения операций, скобок, функций. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	03.02.2011, 15:13
	icq 584 308 611 0

@Pavel_64 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 2
	03.02.2011, 21:05 [ТС]
	Спасибо большое! А как это работает? Я программированием начал заниматься заниматься недавно. Очень многого пока не знаю, но всё очень интересно. Расскажете? 0

Наумик Иван
	22.05.2011, 04:59
	Присланный вами архив по строковому калькулятору почему-то не открывается(???)

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	12.03.2015, 18:38
	ScriptControl? Программа должна уметь распознавать функции, записанные в TextBox 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	13.03.2015, 15:26
	В дополнение к первому посту скажу следующее, приоритеты нужно расставлять следующим образом: Если математическая формула имеет скобки, то выполняется выражение сначала в них если выражение имеет действия умножения/деления/возведения в степень, то выполняются они действия сложения или вычитания выполняются в самую последнюю очередь Порядок выполнения задается слева на право, т.е. сначала выполняется самая левая скобка, самое левое умножение или самое левое сложение. И так по мере упрощения формулы от 1й ступени до 3й. 0