Строковый калькулятор на 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й.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

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

	Строковый калькулятор на VB 6.0 03.02.2011, 14:06. Показов 10727. Ответов 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