 Autor
|
Tema: No funciona este simple codigo (Leído 5,481 veces)
|
luis456
 Desconectado
Mensajes: 551
|
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
|
|
|
|
« Última modificación: 27 Agosto 2013, 20:50 pm por raul338 »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
tincopasan
Desconectado
Mensajes: 1.286
No es lo mismo conocer el camino que recorrerlo.
|
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.
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
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
|
|
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
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)
|
|
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
El codigo de arriba funciona bien en vb.net, incluso no se necesita la funcion CInt ni Val...
Esto no es .net 
|
|
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Esto no es .net lo se xD, por eso puse abajo el posible error, que es lo que veo mas logico 
|
|
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
luis456
Desconectado
Mensajes: 551
|
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 |
|
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
ayundeme con este simple codigo
Programación Visual Basic
|
fraktal
|
3
|
1,968
|
13 Octubre 2006, 16:35 pm
por fraktal
|
|
|
|
Este codigo en C# no funciona (es simple)
.NET (C#, VB.NET, ASP)
|
& eDu &
|
1
|
2,768
|
22 Junio 2008, 23:08 pm
por MANULOMM
|
|
|
|
Ayuda con este simple codigo !!
PHP
|
TrashAmbishion
|
7
|
3,651
|
7 Mayo 2013, 02:42 am
por #!drvy
|
|
|
|
Ayuda nuevamente con este simple codigo
Programación C/C++
|
spiderboot
|
9
|
4,088
|
13 Mayo 2014, 15:39 pm
por spiderboot
|
|
|
|
Por que no me funciona este simple codigo?
Programación C/C++
|
CelDavid
|
8
|
3,705
|
10 Mayo 2019, 06:06 am
por RayR
|
 |
