CALCULOS COM TEXTBOX

MHDSERAFS23 12/01/2011 00:27:45
#361955
galera, como faço para subtrair um textbox do outro
exemplo

textbox1 = 90
textbox2 = 85

textbox = 5

ou
textbox1 = 90
textbox2 = 98

textbox3 = 8

mas gostaria de adicionar no campo o sinal de - ou +
no exemplo 1 seria -5
no exemplo 2 seria +8
KILLER 12/01/2011 08:25:15
#361969 Resposta escolhida
se você for colocar o sinal na caixa de texto é só fazer assim:

if not isnumeric(textbox1.text) then
textbox1.text = 0
end if
if not isnumeric(textbox2.text) then
textbox2.text = 0
end if
textbox3.text = (textbox1.text) + (textbox2.text)

ex:
textbox3.text = (-5) + (+8)
textbox3.text = 3
PEGUDO 12/01/2011 09:53:40
#361992
Outra forma de se fazer poderia ser assim:

[txt-color=#0000f0]Dim[/txt-color] Num1 [txt-color=#0000f0]As Integer[/txt-color] = Val(TextBox1.Text)
[txt-color=#0000f0]Dim[/txt-color] Num2 [txt-color=#0000f0]As Integer[/txt-color] = Val(TextBox2.Text)
[txt-color=#0000f0]Dim[/txt-color] resultado [txt-color=#0000f0]As Single[/txt-color] = Num1 - Num2

[txt-color=#007100][ô]Se você quiser realmente colocar o sinal de adição (+) no TextBox[/txt-color]
[txt-color=#0000f0]If[/txt-color] resultado > 0 [txt-color=#0000f0]Then[/txt-color]
TextBox3.Text = [txt-color=#e80000][Ô]+[Ô][/txt-color] & resultado
[txt-color=#0000f0]Else[/txt-color]
TextBox3.Text = resultado
[txt-color=#0000f0]End If[/txt-color]
MHDSERAFS23 13/01/2011 18:17:34
#362203
como faço para subtrair
78,5 - 76,3
como faria essa subtração?
JONATHANSTECKER 13/01/2011 20:57:36
#362222 
Dim Num1 As Double = 78,5
Dim Num2 As Double = 76,3
Dim resultado As Double = Num1 - Num2

If resultado > 0 Then
    TextBox3.Text = [Ô]+[Ô] & resultado
Else
    TextBox3.Text = resultado
End If
Tópico encerrado , respostas não são mais permitidas
Voltar