Suma en cuadros de texto Visual basic
Por: Marx
Sumaremos 2 numeros para presentar el resultado en un cuadro de texto, en otro cuadro de texto veremos una comparacion en base al resultado obtenido.
En el formulario ingresa 4 cuadros de texto y 1 control de comando.
Private Sub Command1_Click()
'Asigna el tipo de valor a x
Dim x As Integer
'suma el valor del text1 y text2 usando VAL para convertir el texto en valor
Text4 = Val(Text1) + Val(Text2)
'deja limpio del text3
Text3 = ""
'asigna el valor de text4 a x
x = Text4
'condicion
If (Text4 > 10) Then
'si el valor de text4 es mayor de 10
Text3 = "mayor a diez"
End If
If Text4 <= 10 Then 'si el valor de text4 es menor o igual a 10 Text3 = "menor igual a diez" End If End Sub Si quieres mas articulos como este, Subscribete al blog por email...es gratis!
Sumaremos 2 numeros para presentar el resultado en un cuadro de texto, en otro cuadro de texto veremos una comparacion en base al resultado obtenido.
En el formulario ingresa 4 cuadros de texto y 1 control de comando.
Private Sub Command1_Click()
'Asigna el tipo de valor a x
Dim x As Integer
'suma el valor del text1 y text2 usando VAL para convertir el texto en valor
Text4 = Val(Text1) + Val(Text2)
'deja limpio del text3
Text3 = ""
'asigna el valor de text4 a x
x = Text4
'condicion
If (Text4 > 10) Then
'si el valor de text4 es mayor de 10
Text3 = "mayor a diez"
End If
If Text4 <= 10 Then 'si el valor de text4 es menor o igual a 10 Text3 = "menor igual a diez" End If End Sub Si quieres mas articulos como este, Subscribete al blog por email...es gratis!
Comentarios