Калькулятор с подсчетом градус-минута-секунда

@Divil · Регистрация: 11.04.2012

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

Всем доброго вечера!
Нужно сделать калькулятор с 1 текстовым полем, в котом можно работать с градусами минутами и секундами(как инженерный калькулятор, например фирмы casio)у меня получилось сделать(мне помогли на форуме) ввод градусов, минут секунд в текстовое поле...но возникли проблемы с решением и выводом(+,-,*,/,sin,cos,tg,ctg и обратные им формулы.
вот мой код:

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

VB.NET
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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
Public Class Form1
    Dim result, value1, value2, memory As Double
    Dim Znak, a As String
    Dim Start_entering As Boolean = True
    Dim b As Integer
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.SelectedText = "0"
    End Sub
 
    Private Sub Digit_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
        If TextBox1.Text = "0" Then
            TextBox1.Text = ""
        End If
        ' Обработка события нажатия кнопки-цифры
        Dim Digit As String = CType(sender, Button).Text
        If Start_entering = True Then
            TextBox1.Text = Digit _
                : Start_entering = False : Exit Sub
        End If
        If Start_entering = False Then
            TextBox1.Text = TextBox1.Text & Digit
        End If
    End Sub
 
    Private Sub Clear_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
        ' Обработка события нажатия клавиши С
        TextBox1.Text = "0" : Znak = "" : Start_entering = True
    End Sub
 
    Private Sub Arrow_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
        If TextBox1.TextLength > 1 And Not (TextBox1.TextLength = 2 And TextBox1.Text(0) = "-") Then
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.TextLength - 1, 1)
        Else
            TextBox1.Text = "0"
        End If
    End Sub
 
    Private Sub Withdraw_from_the_memory_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click
        TextBox1.Text = Double.Parse(memory)
    End Sub
 
    Private Sub Save_in_memory_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
        memory = TextBox1.Text.ToString
    End Sub
 
    Private Sub Plus_or_Minus_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
        TextBox1.Text = Double.Parse(TextBox1.Text) * (-1)
    End Sub
 
    Private Sub Comma_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        For i = 0 To TextBox1.Text.Length - 1
            If TextBox1.Text(i) = "," Then Exit Sub
        Next
        TextBox1.Text &= ","
    End Sub
 
    Private Sub Operation_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click, Button20.Click
        ' Обработка события нажатия клавиши арифметической операции
        Dim p As String = ""
        Dim g As Integer = 0
        Dim m As Integer = 0
        Dim s As Double = 0
        If RadioButton1.Checked Then
            If TextBox1.Text.Contains("°") Or TextBox1.Text.Contains("'") Or TextBox1.Text.Contains("''") Then
                For i As Integer = 0 To TextBox1.TextLength - 1
                    If TextBox1.Text(i) = "°" Then
                        For j = i - 3 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        g = Integer.Parse(p)
                    End If
                    p = ""
                    If TextBox1.Text(i) = "'" Then
                        For j = i - 2 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        m = Integer.Parse(p)
                    End If
                    p = ""
                    If TextBox1.Text(i) = "''" Then
                        For j = i - 2 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        s = Integer.Parse(p)
                    End If
                Next
            End If
        Else
            value1 = Double.Parse(TextBox1.Text)
            If CheckBox1.Checked Then
                CheckBox1.ForeColor = Color.Brown
                Button19.Text = "-"
                Button20.Text = "/"
            Else
                CheckBox1.ForeColor = Color.Black
                Button19.Text = "+"
                Button20.Text = "*"
            End If
            Znak = CType(sender, Button).Text
            Button19.Text = ""
            Button20.Text = ""
            Start_entering = True
        End If
    End Sub
 
    Private Sub Equally_Click(sender As System.Object, e As System.EventArgs) Handles Button18.Click
        Dim p As String = ""
        Dim g As Integer = 0
        Dim m As Integer = 0
        Dim s As Double = 0
        If RadioButton1.Checked Then
            If TextBox1.Text.Contains("°") Or TextBox1.Text.Contains("'") Or TextBox1.Text.Contains("''") Then
                For i As Integer = 0 To TextBox1.TextLength - 1
                    If TextBox1.Text(i) = "°" Then
                        For j = i - 3 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        g = Integer.Parse(p)
                    End If
                    p = ""
                    If TextBox1.Text(i) = "'" Then
                        For j = i - 2 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        m = Integer.Parse(p)
                    End If
                    p = ""
                    If TextBox1.Text(i) = "''" Then
                        For j = i - 2 To i - 1
                            p = p + TextBox1.Text(j)
                        Next
                        s = Integer.Parse(p)
                    End If
                Next
            End If
        Else
            value2 = Double.Parse(TextBox1.Text)
            If Znak = "+" Then
                result = value1 + value2
            ElseIf Znak = "-" Then
                result = value1 - value2
            ElseIf Znak = "*" Then
                result = value1 * value2
            End If
            If Znak = "/" And value2 <> 0 Then
                result = value1 / value2
            Else
                TextBox1.Text = "На ноль делить нельзя!"
            End If
            If b = 1 Then
                If a = "sqrt" Then
                    result = value1 ^ (1 / value2)
                ElseIf a = "sqr" Then
                    result = value1 ^ value2
                End If
                b = 0
                a = ""
            End If
            TextBox1.Text = result.ToString
            value1 = result : Start_entering = True
        End If
    End Sub
 
    Private Sub PiToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PiToolStripMenuItem.Click
        TextBox1.Text = Math.PI
    End Sub
 
    Private Sub EToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EToolStripMenuItem.Click
        TextBox1.Text = Math.E
    End Sub
 
    Private Sub Sin_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
        Dim p As String = ""
        Dim k As String = ""
        Dim l As String = ""
        Dim g As Integer = 0
        Dim m As Integer = 0
        Dim s As Integer = 0
        Dim gr, min, sec As Double
        If Not CheckBox1.Checked Then
            If RadioButton1.Checked Then
                If TextBox1.Text.Contains("°") Or TextBox1.Text.Contains("'") Or TextBox1.Text.Contains("''") Then
                    For i As Integer = 0 To TextBox1.TextLength - 1
                        If TextBox1.Text(i) <> "°" Then
                            p = p + TextBox1.Text(i)
                        End If
                        If TextBox1.Text(i) <> "'" Then
                            k = k + TextBox1.Text(i)
                        End If
                        If TextBox1.Text(i) <> "''" Then
                            l = l + TextBox1.Text(i)
                        End If
                    Next
                    g = Integer.Parse(p)
                    m = Integer.Parse(k)
                    s = Integer.Parse(l)
                    p = "" : k = "" : l = ""
                    value1 = g + (m + s / 60) / 60
                    result = Math.Sin(value1)
                    TextBox1.Text = result.ToString
                    value1 = result
                End If
            Else
                value1 = Double.Parse(TextBox1.Text)
                result = Math.Sin(value1)
                TextBox1.Text = result.ToString
                value1 = result
            End If
        Else
            value1 = Double.Parse(TextBox1.Text)
            result = Math.Asin(value1)
            value1 = result
            If RadioButton1.Checked Then
                gr = Math.Round(result, 0)
                min = (result - gr) * 60
                sec = Math.Round(((min - Math.Round(min, 0)) * 60), 0)
                TextBox1.Text = gr.ToString + "°" + min.ToString + "'" + sec.ToString + "''"
            Else
                TextBox1.Text = result
            End If
        End If
    End Sub
 
    Private Sub Cos_Click(sender As System.Object, e As System.EventArgs) Handles Button24.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            result = Math.Acos(value1)
        Else
            result = Math.Cos(value1)
        End If
        TextBox1.Text = result.ToString
        value1 = result
    End Sub
 
    Private Sub tg_Click(sender As System.Object, e As System.EventArgs) Handles Button25.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            result = Math.Atan(value1)
        Else
            result = Math.Tan(value1)
        End If
        TextBox1.Text = result.ToString
        value1 = result
    End Sub
 
    Private Sub ctg_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            result = Math.PI / 2 - Math.Atan(value1)
        Else
            result = 1 / Math.Tan(value1)
        End If
        TextBox1.Text = result.ToString
        value1 = result
    End Sub
 
    Private Sub log_Click(sender As System.Object, e As System.EventArgs) Handles Button27.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            result = Math.Log(value1)
        Else
            result = Math.Log10(value1)
        End If
        TextBox1.Text = result.ToString
        value1 = result
    End Sub
 
    Private Sub Gradus_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
        If Not TextBox1.Text.Contains("°") Then
            TextBox1.Text &= "°"
        ElseIf Not TextBox1.Text.Contains("'") Then
            TextBox1.Text &= "'"
        ElseIf Not TextBox1.Text.Contains("""") Then
            TextBox1.Text &= """"
        End If
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            CheckBox1.ForeColor = Color.Brown
        Else
            CheckBox1.ForeColor = Color.Black
        End If
    End Sub
 
    Private Sub Sqrt_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            result = value1 ^ 2
        Else
            result = Math.Sqrt(value1)
        End If
        TextBox1.Text = result.ToString
        value1 = result
    End Sub
 
    Private Sub Sqr_Click(sender As System.Object, e As System.EventArgs) Handles Button22.Click
        value1 = Double.Parse(TextBox1.Text)
        If CheckBox1.Checked Then
            a = "sqr"
        Else
            a = "sqrt"
        End If
        b = 1
        TextBox1.Text = "0"
    End Sub
End Class

и прилагаю картинку внешнего вида.

Кто может помочь или направить в правильное русло...а то уже мозги закипают

причем это последняя разновидность кода которую я смог сделать и то с ошибкой(
Помогите пожалуйста хотя бы чем-нибудь в моей дороге...
Заранее благодарен!

P.S. Калькулятор делаю для себя под windows xp, 7...x86/x64

@kritjara · 25.02.2013, 13:02

я бы сделал так:
1. объявляю переменную типа Boolean которая будет показывать нужно ли делать расчет при нажатии + - * / ...
2. создаю Private Sub в которой используется Select Case для выбора нужного действия
3. для каждой кнопки + - * / и др. задаю проверку, можно ли делать расчет
если считать еще не нужно то в заранее объявленную переменную вбиваю + или - или * или другое, помещаю значение текстового поля в переменную, очищаю текстовое поле (разрешая ввод нового значения)
если необходимо сделать расчет то в созданном Private Sub определяем какое действие хранится в переменной (+ - / или *) и с помощью Select case выбираем нужное

извиняй, код не смогу дать, под рукой VB.NET нету

@Divil · 25.02.2013, 23:29 **[ТС]**

kritjara, я правильно понял, что вы предлагаете сделать по подобию кнопок-цифр Digit?
вы упоминаете создание Privat sub, а для каких кнопок или для чего его делать, т.е. я имею ввиду
вот в том же Digit я делал для кнопок цифр(1-10), а здесь для чего?
и

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

3. для каждой кнопки + - * / и др. задаю проверку, можно ли делать расчет
если считать еще не нужно то в заранее объявленную переменную вбиваю + или - или * или другое, помещаю значение текстового поля в переменную, очищаю текстовое поле (разрешая ввод нового значения)

это
надо сделать в том же privatу sub или вообще в другом месте(и где, если так)?

@fAkiva · 26.02.2013, 02:14

Net 4.x
Вот Вам, в подарок.
С минутами немного коряво?

@Divil · 26.02.2013, 23:02 **[ТС]**

fAkiva, если честно немного не то...у вас через радианы работает, а мне надо чтобы сразу с градусами\мин\сек я мог работать...у вас если я правильно понимаю с мин не коряво..вы просто их в десятую долю градусов переводите походу...

Добавлено через 8 часов 41 минуту

VB.NET
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
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim t, gradus As Double
        Dim j, k, l, gr, min, sec As Integer
        Dim d As String = ""
        Dim c As String = ""
        For i As Integer = 0 To TextBox1.TextLength - 1
            d = d + TextBox1.Text(i)
        Next
        j = 0
        Do Until d(j) = "*"
            c = c + TextBox1.Text(j).ToString
            j = j + 1
        Loop
        gr = Integer.Parse(c)
        c = ""
        k = j + 1
        Do Until d(j) = Chr(39)
            c = c + TextBox1.Text(k).ToString
            k = k + 1
        Loop
        min = Integer.Parse(c)
        c = ""
        l = k + 1
        Do Until d(j) = Chr(34)
            c = c + TextBox1.Text(l).ToString
            l = l + 1
        Loop
        sec = Integer.Parse(c)
        gradus = gr + (min + sec / 60) / 60
        t = Math.Sin(gradus * Math.PI / 180)
        TextBox1.Text = t.ToString
    End Sub

почему во втором do until программа не считает? т.е. в 1 цикле все правильно работает(вводим допустим 4*5'33" gr=4) а вот во 2 цикле так не работает...и подозреваю что и в 3 тоже.. из-за чего это возможно?
я кстати пробовал и просто писать " ' " но все равно не считает как надо...

@Divil · 28.02.2013, 16:48 **[ТС]**

все нашел ошибку!
если кому понадобится код то вот:

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

VB.NET
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
Dim t, gradus As Double
        Dim j, k, l, gr, min, sec As Integer
        Dim d As String = ""
        Dim c As String = ""
        For i As Integer = 0 To TextBox1.TextLength - 1
            d = d + TextBox1.Text(i)
        Next
        j = 0
        Do Until d(j) = "°"
            c = c + TextBox1.Text(j).ToString
            j = j + 1
        Loop
        gr = Integer.Parse(c)
        c = ""
        k = j + 1
        Do Until d(k) = Chr(39)
            c = c + TextBox1.Text(k).ToString
            k = k + 1
        Loop
        min = Integer.Parse(c)
        c = ""
        l = k + 1
        Do Until d(l) = Chr(34)
            c = c + TextBox1.Text(l).ToString
            l = l + 1
        Loop
        sec = Integer.Parse(c)
        gradus = gr + (min + sec / 60) / 60
        t = Math.Sin(gradus * Math.PI / 180)
        TextBox1.Text = t.ToString

@Divil · 02.03.2013, 17:13 **[ТС]**

Приветствую всех!
скажите пожалуйста, чем можно заменить в ниже указанном коде Do Until?

VB.NET
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
Private Sub Operation_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click, Button15.Click, Button16.Click, Button17.Click
        ' Обработка события нажатия клавиши арифметической операции
        If RadioButton1.Checked Then 'Если выбраны Градусы, то выполняем
            Dim j, k, l, gr, min, sec As Integer
            Dim d As String = ""
            Dim c As String = ""
            For i As Integer = 0 To TextBox1.TextLength - 1
                d = d + TextBox1.Text(i)
            Next
            j = 0
            Do Until d(j) = Chr(176)
                c = c + TextBox1.Text(j).ToString
                j = j + 1
            Loop
            gr = Integer.Parse(c)
            c = ""
            k = j + 1
            Do Until d(k) = Chr(39)
                c = c + TextBox1.Text(k).ToString
                k = k + 1
            Loop
            min = Integer.Parse(c)
            c = ""
            l = k + 1
            Do Until d(l) = Chr(34)
                c = c + TextBox1.Text(l).ToString
                l = l + 1
            Loop
            sec = Integer.Parse(c)
            value1 = gr + (min + sec / 60) / 60
        Else 'Если вкл радианы, то выполняем
            value1 = Double.Parse(TextBox1.Text)
        End If
        Znak = CType(sender, Button).Text
        Start_entering = True
    End Sub

чтобы я мог работать и с обычными числами?

@fAkiva · 04.03.2013, 20:16

Привет.
Мне не понятно.Зачем в счетчик Do until - Loop
вводить Chr(167) а так-же для минут и секунд?
Я делаю так:

VB.NET
1
t.Text = Str(g) & Chr(176) & Str(m) & Chr(39) & Str(s) & Chr(34)

Новые блоги и статьи Все статьи Все блоги /
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 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@kritjara 70 / 60 / 16 Регистрация: 22.10.2012 Сообщений: 351
	25.02.2013, 13:02
	я бы сделал так: 1. объявляю переменную типа Boolean которая будет показывать нужно ли делать расчет при нажатии + - * / ... 2. создаю Private Sub в которой используется Select Case для выбора нужного действия 3. для каждой кнопки + - * / и др. задаю проверку, можно ли делать расчет если считать еще не нужно то в заранее объявленную переменную вбиваю + или - или * или другое, помещаю значение текстового поля в переменную, очищаю текстовое поле (разрешая ввод нового значения) если необходимо сделать расчет то в созданном Private Sub определяем какое действие хранится в переменной (+ - / или *) и с помощью Select case выбираем нужное извиняй, код не смогу дать, под рукой VB.NET нету 1