Простой вопрос, а я не знаю

[Андрей Васюта]

У меня простой вопрос, как организовать сложение двух (или более) значений TextBox-ов, я никогда не интересовался этим, а вот теперь сижу. Умножение, деление, вычетание есть - а вот сложение...

Private Sub CommandButton1_Click()
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub
Вы сами знаете какой итог получится.

[alibek]

Val(TextBox1.Value)
CSng(TextBox1.Value)

[Gfif21]

Private Sub CommandButton1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub

[tyomitch]

Private Sub CommandButton1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub

Не сработает.

А вот так сработает:

Код: Выделить всё

Private Sub CommandButton1_Click()
TextBox3 = 0 + TextBox1 + TextBox2
End Sub


[Gfif21]

Private Sub CommandButton1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub

Не сработает.

Ну не знаю, у меня все работает.

[Tarik]

А вот так сработает:

Код: Выделить всё

Private Sub CommandButton1_Click()
TextBox3 = 0 + TextBox1 + TextBox2
End Sub 


Хм... Имхо на автоматику лучше не полагаться

[tyomitch]

Private Sub CommandButton1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub

Не сработает.

Ну не знаю, у меня все работает.

Твой код выдаст, что 2 + 3 = 23. А мой - что 5. Разница ясна?

[Gfif21]

Private Sub CommandButton1_Click()
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub

Не сработает.

Ну не знаю, у меня все работает.

Твой код выдаст, что 2 + 3 = 23. А мой - что 5. Разница ясна?

Ну если именно складывать численные значения, то конечно мой код не будет работать. Я просто понял, что значения текстовых полей-текст, а не цифры.

[tyomitch]

Умножение, деление, вычетание есть - а вот сложение...

Gfif21, текст или цифры?

[Gfif21]

Умножение, деление, вычетание есть - а вот сложение...

Gfif21, текст или цифры?

Ну я сначала прочитал про сложение значений текстовых полей, поэтому и написал код для текста. Но судя по тому, что он собирается эти значения не только складывать, но и умножать, делить и вычитать, то все-таки цифры Надо было до конца пост почитать

[Sedge]

2All: а чем не приглянулись CLng и CSng?

[A.A.Z.]

Val(TextBox1.Value)
CSng(TextBox1.Value)

[Max!]

А нелегче всё загнать в переменные типа Integer

Код: Выделить всё

Dim a as Integer
Dim b as Integer
Dim c as Integer

a = txt1.Text
b = txt2.Text

c = a + b

txt3.Text = c


И считать будет правильно !

[Sedge]

Val(TextBox1.Value)
CSng(TextBox1.Value)

Упс

[areh]

Max!, а если кому-то захочется сложить не целые числа, например 2.5 + 3.5, твой код ругаться будет...
так что надо использовать функции преобразования строки в число (Val, CSng), а ещё неплохо перед использованием этих функций менять в тексте запятую на точку...

[Max!]

Если с запятой то неругается у меня , а вобще простоубери тип Integer и не чё неставь тогда точно небудет ругаться !

[areh]

конечно не будет, и снова 2 и 3 в сумме будут давать 23...

вообщем спор пошел не по делу... я умолкаю

[Ennor]

Val(TextBox1.Value)
CSng(TextBox1.Value)

Не совсем. Val() не понимает национальные разделители десятичной части, поэтому при его использовании в предположении наличия дробных чисел надо писать так:

Код: Выделить всё

MsgBox Val(Replace(Me.Text1.Text, ",", ".")) + Val(Replace(Me.Text2.Text, ",", "."))

[alibek]

Ennor, если уж на то пошло, то где гарантии того, что разделителем будет запятая, а не апостоф? Тогда надо юзать GetLocaleInfo. Но даже это не спасет от тех извращенцев, которые ставят одинаковый разделитель дробной и целой части, и разделитель групп.
Потому я и написал Val (для строк, получаемых Str()) и CSng (для учета национальных особенностей).

[Ramzes]

А если з запято то можно так

Код: Выделить всё

a as single
a=text1.text


[Max!]

2areh

конечно не будет, и снова 2 и 3 в сумме будут давать 23...

вообщем спор пошел не по делу... я умолкаю

Каким макаром это произойдёт ? Всё нормально он складывает ! Ты сам попробуй

Вариант1

Код: Выделить всё

Private Sub Command1_Click()
Dim a
Dim b
Dim c
a = 2
b = 3
c = a + b
MsgBox "" & c
End Sub


В результате у меня получилось 5 !

Вариант 2

Код: Выделить всё

Private Sub Command1_Click()
Dim a
Dim b
Dim c
a = 2.5
b = 3.6
c = a + b
MsgBox "" & c
End Sub


В результате у меня получилось 6,1 !

Я невижу 23 !!!

[Ennor]

alibek, я много с какими настройками сталкивался, и ни разу не видел не одной, где разделитель десятичной части (не тысяч - на тысячи мне накласть) был бы не точкой и не запятой. Не спорю, может существовать локейл, в котором это будет какой-нить изврат, тогда придется тянуть GetLocaleInfo(), это да. Можно наоборот сделать - приводить точку к национальному локейлу и подавать на вход CDbl(), а не Val(), но она более чувствительна к левым буквам в строке.

Ну а если человек записал, допустим, 1.000.000.057, то как программа сможет угадать, что он имеет в виду? Комп угадывать плохо умеет, ну и выдаст, соотв-но, единицу целых и ноль десятых...

[alibek]

Ennor, а я сталкивался с настройками, когда разделитель дробной и целой части - запятая, а разделитель групп - десятичная точка (локаль была русская, это пользователь был извращенец). А в таких условиях Replace(..., ",", ".") ведет себя очень нехорошо.

[tyomitch]

2areh

конечно не будет, и снова 2 и 3 в сумме будут давать 23...

вообщем спор пошел не по делу... я умолкаю

Каким макаром это произойдёт ? Всё нормально он складывает ! Ты сам попробуй

Вариант1

Код: Выделить всё

Private Sub Command1_Click()
Dim a
Dim b
Dim c
a = 2
b = 3
c = a + b
MsgBox "" & c
End Sub


В результате у меня получилось 5 !

Вариант 2

Код: Выделить всё

Private Sub Command1_Click()
Dim a
Dim b
Dim c
a = 2.5
b = 3.6
c = a + b
MsgBox "" & c
End Sub


В результате у меня получилось 6,1 !

Я невижу 23 !!!

Max, ты не прав.

Код: Выделить всё

Private Sub Command1_Click()
Dim a
Dim b
Dim c
a = "2"
b = "3"
c = a + b
MsgBox "" & c
End Sub