Автоматические вычисления в нескольких TextBox

@Brainpecker · Регистрация: 06.03.2016

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

Помогите начинающему. Допустим, на форме имеется 2 textbox'а. Как сделать числовые значения в них взаимовычислимыми при вводе в одно из них.

@yutrans · 06.03.2016, 14:26

что значит "взаимовычислимыми".Приложите файл пример

@Brainpecker · 06.03.2016, 14:31 **[ТС]**

Примера нет пока. Чисто теоретически, например, при вводе N в TextBox1, TextBox2 выдает значение N*2, а при вводе N в TextBox2, TextBox1 выдает значение N/2.

@Step_UA · 06.03.2016, 14:46

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private f As Boolean = True
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim r As Double
        If f AndAlso Double.TryParse(TextBox1.Text, r) Then
            f = False
            TextBox2.Text = r * 2
            f = True
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim r As Double
        If f AndAlso Double.TryParse(TextBox2.Text, r) Then
            f = False
            TextBox1.Text = r / 2
            f = True
        End If
    End Sub

@Brainpecker · 07.03.2016, 19:40 **[ТС]**

Спасибо, работает, но если в один из textbox'ов вводить число, н-р 111, а затем при бэкспейсе числа, во втором textbox'e, который выводил N*2 остается 2 при пустом первом.

Добавлено через 5 минут
например, перевод скорости км/ч в м/с и обратно

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private f As Boolean = True
    Private Sub TextBoxVkmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmh.TextChanged
        Dim Vkmh, Vms As Double
        If f AndAlso Double.TryParse(TextBoxVkmh.Text, Vkmh) Then
            f = False
            Vms = Math.Round(Vkmh / 3.6, 1)
            TextBoxVms.Text = Vms
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVms.TextChanged
        Dim Vkmh, Vms As Double
        If f AndAlso Double.TryParse(TextBoxVms.Text, Vms) Then
            f = False
            Vkmh = Math.Round(Vms * 3.6, 1)
            TextBoxVkmh.Text = Vkmh
            f = True
        End If
    End Sub

@Step_UA · 07.03.2016, 19:43

VB.NET
1
2
3
4
5
6
7
8
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If f Then
            Dim r As Double
            f = False
            If Double.TryParse(TextBox1.Text, r) Then TextBox2.Text = r * 2 Else TextBox2.Text=""
            f = True
        End If
    End Sub

... для TextBox2 по аналогии

@Brainpecker · 07.03.2016, 19:59 **[ТС]**

спасибо

Добавлено через 13 минут
ок, все работает

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private f As Boolean = True
    Private Sub TextBoxVkmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmh.TextChanged
        If f Then
            Dim Vkmh As Double
            f = False
            If Double.TryParse(TextBoxVkmh.Text, Vkmh) Then TextBoxVms.Text = Math.Round(Vkmh / 3.6, 1) Else TextBoxVms.Text = ""
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVms.TextChanged
        If f Then
            Dim Vms As Double
            f = False
            If Double.TryParse(TextBoxVms.Text, Vms) Then TextBoxVkmh.Text = Math.Round(Vms * 3.6, 1) Else TextBoxVkmh.Text = ""
            f = True
        End If
    End Sub

@Brainpecker · 16.03.2016, 22:26 **[ТС]**

Добрый вечер, уважаемые.
В продолжении темы, подскажите как изменять количество знаков после запятой в процессе выполнения.
Вот что есть

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
Private f As Boolean = True
    Dim N As Integer
    Dim Vkmh, Vms As Double
 
    Private Sub TextBoxVkmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmh.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkmh.Text, Vkmh) Then
               TextBoxVms.Text = Math.Round(Vkmh / 3.6, N)
            Else
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVms.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVms.Text, Vms) Then
                TextBoxVkmh.Text = Math.Round(Vms * 3.6, N)
            Else
                TextBoxVkmh.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxN_TextChanged(sender As Object, e As EventArgs) Handles TextBoxN.TextChanged
        If Integer.TryParse(TextBoxN.Text, N) Then
            N = TextBoxN.Text
            TextBoxVkmh.Clear()
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBoxN.Text = "0"
    End Sub

при замене числа разрядов в TextBoxN только очищаю для ввода

@Step_UA · 16.03.2016, 22:47

Если правильно понял ...

VB.NET
1
2
3
    Private Sub TextBoxN_TextChanged(sender As Object, e As EventArgs) Handles TextBoxN.TextChanged
        If Integer.TryParse(TextBoxN.Text, N) Then TextBoxVkmh.Text = Math.Round(Vms * 3.6, N)
    End Sub

@Brainpecker · 16.03.2016, 23:06 **[ТС]**

Это катит только для одного вычисляемого TextBox-а. Если, допустим, их 3 и больше - получается "безобразие". При смене N преобразуется и число в рабочем TextBox, только не нули после запятой добавляет, а изменяет его. В общем вот полная программка перевод скоростей:

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
Private f As Boolean = True
    Dim N As Integer
    Dim Vkmh, Vkmm, Vkms, Vmh, Vmm, Vms As Double
 
    Private Sub TextBoxVkmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmh.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkmh.Text, Vkmh) Then
                TextBoxVkmm.Text = Math.Round(Vkmh / 60, N)
                TextBoxVkms.Text = Math.Round(Vkmh / 3600, N)
                TextBoxVmh.Text = Math.Round(Vkmh * 1000, N)
                TextBoxVmm.Text = Math.Round(Vkmh / 0.06, N)
                TextBoxVms.Text = Math.Round(Vkmh / 3.6, N)
            Else
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVkmm_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmm.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkmm.Text, Vkmm) Then
                TextBoxVkmh.Text = Math.Round(Vkmm * 60, N)
                TextBoxVkms.Text = Math.Round(Vkmm / 60, N)
                TextBoxVmh.Text = Math.Round(Vkmm * 60000, N)
                TextBoxVmm.Text = Math.Round(Vkmm * 1000, N)
                TextBoxVms.Text = Math.Round(Vkmm / 0.06, N)
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVkms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkms.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkms.Text, Vkms) Then
                TextBoxVkmh.Text = Math.Round(Vkms * 3600, N)
                TextBoxVkmm.Text = Math.Round(Vkms * 60, N)
                TextBoxVmh.Text = Math.Round(Vkms * 3600000, N)
                TextBoxVmm.Text = Math.Round(Vkms * 60000, N)
                TextBoxVms.Text = Math.Round(Vkms * 1000, N)
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVmh.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVmh.Text, Vmh) Then
                TextBoxVkmh.Text = Math.Round(Vmh / 1000, N)
                TextBoxVkmm.Text = Math.Round(Vmh / 60000, N)
                TextBoxVkms.Text = Math.Round(Vmh / 3600000, N)
                TextBoxVmm.Text = Math.Round(Vmh / 60, N)
                TextBoxVms.Text = Math.Round(Vmh / 3600, N)
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVmm_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVmm.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVmm.Text, Vmm) Then
                TextBoxVkmh.Text = Math.Round(Vmm * 0.06, N)
                TextBoxVkmm.Text = Math.Round(Vmm / 1000, N)
                TextBoxVkms.Text = Math.Round(Vmm / 60000, N)
                TextBoxVmh.Text = Math.Round(Vmm * 60, N)
                TextBoxVms.Text = Math.Round(Vmm / 60, N)
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVms.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVms.Text, Vms) Then
                TextBoxVkmh.Text = Math.Round(Vms * 3.6, N)
                TextBoxVkmm.Text = Math.Round(Vms * 0.06, N)
                TextBoxVkms.Text = Math.Round(Vms / 1000, N)
                TextBoxVmh.Text = Math.Round(Vms * 3600, N)
                TextBoxVmm.Text = Math.Round(Vms * 60, N)
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxN_TextChanged(sender As Object, e As EventArgs) Handles TextBoxN.TextChanged
        If Integer.TryParse(TextBoxN.Text, N) Then
            N = TextBoxN.Text
            TextBoxVkmh.Clear()
            TextBoxVkmm.Clear()
            TextBoxVkms.Clear()
            TextBoxVmh.Clear()
            TextBoxVmm.Clear()
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBoxN.Text = "0"
    End Sub

пытаюсь разобраться, как во время выполнения менять количество разрядов. пока дошел только до очистки и ручного ввода заново. Может через массив TextBox-ов, но до этого пока не дошел.

@Brainpecker · 24.03.2016, 01:49 **[ТС]**

еще раз доброго времени суток. исполнил задумку через определение текстбокса в который вводится начальное значение. сразу прошу прощения за "корявость", только начинаю

. если есть возможность упростить и сократить код, буду весьма благодарен. заранее спасибо

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
Private f As Boolean = True
    Dim M, N As Integer 'М - переменная для определения в какой текстбокс вводили значение, N - переменная для ввода количества разрядов после запятой
    Dim Vkmh, Vkmm, Vkms, Vmh, Vmm, Vms As Double
 
    Private Sub TextBoxVkmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmh.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkmh.Text, Vkmh) Then
                TextBoxVkmm.Text = Math.Round(Vkmh / 60, N)
                TextBoxVkms.Text = Math.Round(Vkmh / 3600, N)
                TextBoxVmh.Text = Math.Round(Vkmh * 1000, N)
                TextBoxVmm.Text = Math.Round(Vkmh / 0.06, N)
                TextBoxVms.Text = Math.Round(Vkmh / 3.6, N)
                M = 1
            Else
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVkmm_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkmm.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkmm.Text, Vkmm) Then
                TextBoxVkmh.Text = Math.Round(Vkmm * 60, N)
                TextBoxVkms.Text = Math.Round(Vkmm / 60, N)
                TextBoxVmh.Text = Math.Round(Vkmm * 60000, N)
                TextBoxVmm.Text = Math.Round(Vkmm * 1000, N)
                TextBoxVms.Text = Math.Round(Vkmm / 0.06, N)
                M = 2
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVkms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVkms.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVkms.Text, Vkms) Then
                TextBoxVkmh.Text = Math.Round(Vkms * 3600, N)
                TextBoxVkmm.Text = Math.Round(Vkms * 60, N)
                TextBoxVmh.Text = Math.Round(Vkms * 3600000, N)
                TextBoxVmm.Text = Math.Round(Vkms * 60000, N)
                TextBoxVms.Text = Math.Round(Vkms * 1000, N)
                M = 3
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVmh_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVmh.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVmh.Text, Vmh) Then
                TextBoxVkmh.Text = Math.Round(Vmh / 1000, N)
                TextBoxVkmm.Text = Math.Round(Vmh / 60000, N)
                TextBoxVkms.Text = Math.Round(Vmh / 3600000, N)
                TextBoxVmm.Text = Math.Round(Vmh / 60, N)
                TextBoxVms.Text = Math.Round(Vmh / 3600, N)
                M = 4
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmm.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVmm_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVmm.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVmm.Text, Vmm) Then
                TextBoxVkmh.Text = Math.Round(Vmm * 0.06, N)
                TextBoxVkmm.Text = Math.Round(Vmm / 1000, N)
                TextBoxVkms.Text = Math.Round(Vmm / 60000, N)
                TextBoxVmh.Text = Math.Round(Vmm * 60, N)
                TextBoxVms.Text = Math.Round(Vmm / 60, N)
                M = 5
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVms.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxVms_TextChanged(sender As Object, e As EventArgs) Handles TextBoxVms.TextChanged
        If f Then
            f = False
            If Double.TryParse(TextBoxVms.Text, Vms) Then
                TextBoxVkmh.Text = Math.Round(Vms * 3.6, N)
                TextBoxVkmm.Text = Math.Round(Vms * 0.06, N)
                TextBoxVkms.Text = Math.Round(Vms / 1000, N)
                TextBoxVmh.Text = Math.Round(Vms * 3600, N)
                TextBoxVmm.Text = Math.Round(Vms * 60, N)
                M = 6
            Else
                TextBoxVkmh.Text = ""
                TextBoxVkmm.Text = ""
                TextBoxVkms.Text = ""
                TextBoxVmh.Text = ""
                TextBoxVmm.Text = ""
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxN_TextChanged(sender As Object, e As EventArgs) Handles TextBoxN.TextChanged
        If f Then
            f = False
            If Integer.TryParse(TextBoxN.Text, N) Then
                N = TextBoxN.Text
                If M = 1 Then
                    TextBoxVkmm.Text = Math.Round(Vkmh / 60, N)
                    TextBoxVkms.Text = Math.Round(Vkmh / 3600, N)
                    TextBoxVmh.Text = Math.Round(Vkmh * 1000, N)
                    TextBoxVmm.Text = Math.Round(Vkmh / 0.06, N)
                    TextBoxVms.Text = Math.Round(Vkmh / 3.6, N)
                End If
                If M = 2 Then
                    TextBoxVkmh.Text = Math.Round(Vkmm * 60, N)
                    TextBoxVkms.Text = Math.Round(Vkmm / 60, N)
                    TextBoxVmh.Text = Math.Round(Vkmm * 60000, N)
                    TextBoxVmm.Text = Math.Round(Vkmm * 1000, N)
                    TextBoxVms.Text = Math.Round(Vkmm / 0.06, N)
                End If
                If M = 3 Then
                    TextBoxVkmh.Text = Math.Round(Vkms * 3600, N)
                    TextBoxVkmm.Text = Math.Round(Vkms * 60, N)
                    TextBoxVmh.Text = Math.Round(Vkms * 3600000, N)
                    TextBoxVmm.Text = Math.Round(Vkms * 60000, N)
                    TextBoxVms.Text = Math.Round(Vkms * 1000, N)
                End If
                If M = 4 Then
                    TextBoxVkmh.Text = Math.Round(Vmh / 1000, N)
                    TextBoxVkmm.Text = Math.Round(Vmh / 60000, N)
                    TextBoxVkms.Text = Math.Round(Vmh / 3600000, N)
                    TextBoxVmm.Text = Math.Round(Vmh / 60, N)
                    TextBoxVms.Text = Math.Round(Vmh / 3600, N)
                End If
                If M = 5 Then
                    TextBoxVkmh.Text = Math.Round(Vmm * 0.06, N)
                    TextBoxVkmm.Text = Math.Round(Vmm / 1000, N)
                    TextBoxVkms.Text = Math.Round(Vmm / 60000, N)
                    TextBoxVmh.Text = Math.Round(Vmm * 60, N)
                    TextBoxVms.Text = Math.Round(Vmm / 60, N)
                End If
                If M = 6 Then
                    TextBoxVkmh.Text = Math.Round(Vms * 3.6, N)
                    TextBoxVkmm.Text = Math.Round(Vms * 0.06, N)
                    TextBoxVkms.Text = Math.Round(Vms / 1000, N)
                    TextBoxVmh.Text = Math.Round(Vms * 3600, N)
                    TextBoxVmm.Text = Math.Round(Vms * 60, N)
                End If
            End If
            f = True
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBoxN.Text = "0" 'устанавливаем начальное значение для N
    End Sub

@Step_UA · 24.03.2016, 23:18

Как вариант

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
    Private f As Boolean = True
    Dim N As Integer
    Private oldTB As TextBox = Nothing
 
    Private Sub MetrSec(ByVal cur As String, ByRef M As Integer, ByRef S As Integer)
        If cur.IndexOf("km") >= 0 Then M = 1000 Else M = 1
        Select Case cur(cur.Length - 1)
            Case "h"c : S = 3600
            Case "m"c : S = 60
            Case "s"c : S = 1
        End Select
    End Sub
 
    Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBoxVkmh.TextChanged, TextBoxVkmm.TextChanged,
                                        TextBoxVkms.TextChanged, TextBoxVmh.TextChanged, TextBoxVmm.TextChanged, TextBoxVms.TextChanged
        If f Then
            f = False
            oldTB = sender
            Dim V As Double
            If Double.TryParse(oldTB.Text, V) Then
                Dim curM, curS, M, S As Integer
                MetrSec(oldTB.Name, curM, curS)
                For Each T As TextBox In {TextBoxVkmh, TextBoxVkmm, TextBoxVkms, TextBoxVmh, TextBoxVmm, TextBoxVms}
                    If T IsNot oldTB Then
                        MetrSec(T.Name, M, S)
                        T.Text = Math.Round((V * curM / M) / (curS / S), N)
                    End If
                Next
            Else
                For Each T As TextBox In {TextBoxVkmh, TextBoxVkmm, TextBoxVkms, TextBoxVmh, TextBoxVmm, TextBoxVms}
                    If T IsNot oldTB Then T.Clear()
                Next
            End If
            f = True
        End If
    End Sub
 
    Private Sub TextBoxN_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBoxN.TextChanged
        If Integer.TryParse(TextBoxN.Text, N) AndAlso oldTB IsNot Nothing Then TextBox_TextChanged(oldTB, Nothing)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        TextBoxN.Text = "0" 'устанавливаем начальное значение для N
    End Sub

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Brainpecker 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 7

	Автоматические вычисления в нескольких TextBox 06.03.2016, 14:20. Показов 1436. Ответов 11 Метки нет (Все метки) Помогите начинающему. Допустим, на форме имеется 2 textbox'а. Как сделать числовые значения в них взаимовычислимыми при вводе в одно из них. 0

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	06.03.2016, 14:26
	что значит "взаимовычислимыми".Приложите файл пример 0

@Brainpecker 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 7
	06.03.2016, 14:31 [ТС]
	Примера нет пока. Чисто теоретически, например, при вводе N в TextBox1, TextBox2 выдает значение N*2, а при вводе N в TextBox2, TextBox1 выдает значение N/2. 0

Автоматические вычисления в нескольких TextBox

Решение