No conozco mucho de este lenguaje pero no se porque no me va esto tan simple alguien me echa un cable :)
La idea es que introdusco un numero y le sume 1 2 y 3 ejemplo
introdusco el 45 y deberia mostrarme 46 47 48
Primero creo una formulario agrego un boton y un textbox
y al boton le agrego el evento click
Private Sub Command1_Click()
Dim num As Integer
num=CInt(Text1.Text)
Text1.Text=num & " " & (num+1) & " " & (num+2)
End Sub
Gracias
Luis
no entiendo, ya que tu código te muestra 45 46 47 , es obvio que tendrías que sacar el valor original y te falta sumar 3
Private Sub Command1_Click()
Dim num As Integer
num = CInt(Text1.Text)
Text1.Text = num + 1 & " " & num + 2 & " " & num + 3
End Sub
perdón sino entiendo tu planteo.
Tal vez así.
Private Sub Command1_Click()
Dim numero As Integer
numero = Val(Text1.Text)
Text1.Text = numero + 1 & " " & numero + 2 & " " & numero + 3
End Sub
El codigo de arriba funciona bien en vb.net, incluso no se necesita la funcion CInt ni Val...
ya entiendo cual es tu problema... por ejemplo insertas el numero 45: y quieres que se muestre 46 47 48 pero NO asi: 45 46 47 ¿estoy en lo cierto XD?
Si es asi la linea de codigo de esta parte esta mal: Text1.Text=num & " " & (num+1) & " " & (num+2)
seria asi: Text1.Text=(num + 1) & " " & (num+1) & " " & (num+2)
Cita de: Senior++ en 27 Agosto 2013, 20:35 PM
El codigo de arriba funciona bien en vb.net, incluso no se necesita la funcion CInt ni Val...
Esto no es .net :P
Cita de: raul338 en 27 Agosto 2013, 20:50 PM
Esto no es .net :P
lo se xD, por eso puse abajo el posible error, que es lo que veo mas logico :xD
Ya Funciona :)
Public Class Form1
Dim r1, r2, r3, r4, r5, r6 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
r1 = Val(TextBox1.Text)
TextBox2.Text = r1 + 1
TextBox3.Text = r1 + 2
TextBox4.Text = r1 + 3
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
End Sub
End Class
gracias