No funciona este simple codigo

[luis456]

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

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim num As Integer

num=CInt(Text1.Text)
Text1.Text=num & " " & (num+1) & " " & (num+2)

End Sub
Gracias

Luis

[tincopasan]

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.

[Danyfirex]

Tal vez así.

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim numero As Integer
numero = Val(Text1.Text)
Text1.Text = numero + 1 & " " & numero + 2 & " " & numero + 3
End Sub



[Senior++]

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)

[raul338]

El codigo de arriba funciona bien en vb.net, incluso no se necesita la funcion CInt ni Val...

Esto no es .net

[Senior++]

Esto no es .net

lo se xD,  por eso puse abajo el posible error, que es lo que veo mas logico 

[luis456]

Ya Funciona

Código [Seleccionar] Expandir

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