Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Empedocles en 30 Septiembre 2005, 18:39 PM

Título: duda con el dim
Publicado por: Empedocles en 30 Septiembre 2005, 18:39 PM
tengo un duda muy boba con el dim se con son variables que guardan informacion pero solo cuando se esta ejecutando
yo solo quiero hacer un programa que reste lo vendido con lo comprado pero no puedo hacer que salga un resultado, que codigos iria para este programa casero

   ventas 1  comprado 9

        resultado 10 

como hago para que me de ese, el 1, el 9 y el 10 lo puse dentro de un textbox pero no puedo hacer que me de el resultdo espero que me puedan ayudar
Título: Re: duda con el dim
Publicado por: Scratz en 30 Septiembre 2005, 18:59 PM
Necesitas:

- Un command.
- 3 TextBoxes.



Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub


És así de sencillo.
Tambien podrias poner un solo TextBox.


Private Sub Form_load()
Text1.Text = Val(1) + Val(9)
End Sub


Explicación:

Para sumar se usa Val(x) + Val(y). El Val nos indica que queremos operar con numeros, y no poner uno detrás del otro.
Por ejemplo:

Text1.Text = Val(50) + Val(100)

Esto hace que en el Text1 nos salga como texto la suma de 50 más 100.
Para restar cambias el signo + por el signo -. * para multiplicar y / para dividir.


Espero haber aclarado tus dudas.

Salu2
Título: Re: duda con el dim
Publicado por: Empedocles en 30 Septiembre 2005, 22:45 PM

És así de sencillo.
Tambien podrias poner un solo TextBox.


Private Sub Form_load()
Text1.Text = Val(1) + Val(9)
End Sub


muchas gracias por la info, quiero preguntar, val (1) + val (9)
hace cualquier sumar o solamene 1 +9 ???


Título: Re: duda con el dim
Publicado por: NYlOn en 1 Octubre 2005, 00:18 AM
eso de 'Val' es para evitar confuciones, x ej:


Private Sub Command1_Click()
    Text3 =Text1.Text + Text2.Text
End Sub

Eso te pone un numero atras de otro en el Text3, NO los suma.
Para que lo tome como una suma de Numeros, tenes q poner:

Private Sub Command1_Click()
    Text3 = Val(Text1.Text) + Val(Text2.Text)
End Sub


esper0 q se entienda

SAlu2