Строковый калькулятор на 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 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

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

Опции темы