Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: luis456 en 27 Agosto 2013, 06:39 am


Título: No funciona este simple codigo
Publicado por: luis456 en 27 Agosto 2013, 06:39 am
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
  1. Private Sub Command1_Click()
  2. Dim num As Integer
  3.  
  4. num=CInt(Text1.Text)
  5. Text1.Text=num & " " & (num+1) & " " & (num+2)
  6.  
  7. End Sub
Gracias

Luis

Título: Re: No funciona este simple codigo
Publicado por: tincopasan en 27 Agosto 2013, 09:18 am
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.

Título: Re: No funciona este simple codigo
Publicado por: Danyfirex en 27 Agosto 2013, 13:47 pm
Tal vez así.

Código
  1. Private Sub Command1_Click()
  2. Dim numero As Integer
  3. numero = Val(Text1.Text)
  4. Text1.Text = numero + 1 & " " & numero + 2 & " " & numero + 3
  5. End Sub
  6.  
  7.  


Título: Re: No funciona este simple codigo
Publicado por: 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...

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)

Título: Re: No funciona este simple codigo
Publicado por: raul338 en 27 Agosto 2013, 20:50 pm
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

Título: Re: No funciona este simple codigo
Publicado por: Senior++ en 27 Agosto 2013, 20:58 pm
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

Título: Re: No funciona este simple codigo
Publicado por: luis456 en 21 Septiembre 2013, 08:50 am
Ya Funciona :)

Código:
 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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines