Autor
|
Tema: Bucles (Leído 5,658 veces)
|
Stakewinner00
|
|
Bucles
« en: 17 Enero 2013, 16:39 pm » |
|
Hola, tengo una duda que no pude resolver, busque por google y nada. Lo que me pasa es que quiero analizar por ejemplo 20 rectangulos y todos tienen un nombre tipo RectangleShape1 y lo que necesito es hacer un bucle que modifique el 1 hasta el 20 algo como este bucle que no me funciono. La idea es hacer que veinte rectangulos o más se muevan de forma aleatorio y por eso necesito el bucle For a As Integer = 1 To 4 Dim aa = "RectangleShape" + a aa.left += 1 RectangleShape+a+.Left += Aleatorio(1, -1) ' RectangleShape2.Left += Aleatorio(1, -1) Next a
Gracias!!
|
|
« Última modificación: 17 Enero 2013, 16:44 pm por Stakewinner00 »
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
|
Re: Bucles
« Respuesta #1 en: 17 Enero 2013, 17:11 pm » |
|
Ni siquiera con tu intento fallido de hacer eso lo haz hecho bien xD Lee un buen tutorial de Visual Basic, pero leerlo y aprenderlo bien, no leer a la ligera...
Asumiendo que me haras caso y leeras un buen tutorial, te digo que le prestes atencion bien a la parte de Matrices o Arrays de Controles
|
|
|
En línea
|
|
|
|
Stakewinner00
|
|
Re: Bucles
« Respuesta #2 en: 17 Enero 2013, 17:52 pm » |
|
Ni siquiera con tu intento fallido de hacer eso lo haz hecho bien xD Lee un buen tutorial de Visual Basic, pero leerlo y aprenderlo bien, no leer a la ligera...
Asumiendo que me haras caso y leeras un buen tutorial, te digo que le prestes atencion bien a la parte de Matrices o Arrays de Controles
Me lei un libro de visual basic. Y me sirvio para comenzar. No recuerdo si allí había algo sobre esto, lo voi a repasar pero creo que no había nada sobre esto
|
|
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
|
Re: Bucles
« Respuesta #3 en: 17 Enero 2013, 19:53 pm » |
|
Busca sobre "el guille" que tiene un buen tutorial bastante completo.
|
|
|
En línea
|
|
|
|
Stakewinner00
|
|
Re: Bucles
« Respuesta #4 en: 18 Enero 2013, 15:19 pm » |
|
Alguien me puede dar una pista? Por uqe ya busque pero no sale como poder haacer algo similar a esto. For i = 1 To 3 var = "RectangleShape" & i Next i MSGBOX (var.location.y)
|
|
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
|
Re: Bucles
« Respuesta #5 en: 18 Enero 2013, 15:34 pm » |
|
Ya te dije que hacer y luego que buscar...
No podes hacer eso que queres hacer, si tenes un TextBox1 no podes ir aumentando la parte del numero. Lo que tenes que hacer es crear un array de controles cosa que quede TextBox(0) el primero que creas y luego el segundo TextBox(1), etc, asi ahi si haces TextBox(i) en el bucle.
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
|
Re: Bucles
« Respuesta #6 en: 18 Enero 2013, 15:52 pm » |
|
1º Eso es .net, ahora lo muevo al foro de .net 2º En .net no se pueden crear array de controles, puedes hacer que varios controles apunten a un msimo evento (identificalos por el sender), o puedes recorrer la propiedad "Controls" del contenedor (te recomiendo meter todos esos "rectangulos" en un panel)
Recorrelos usando For Each
|
|
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
|
Re: Bucles
« Respuesta #7 en: 18 Enero 2013, 16:08 pm » |
|
Hola Raul tanto tiempo! me confundi porque como estaba en visual basic pensaba que era vb6 ademas de que no preste mucha atencion a su codigo porque a simple vista ya estaba mal, debi ver esa declaracion mas cuidadosamente xD
|
|
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
|
Re: Bucles
« Respuesta #8 en: 18 Enero 2013, 16:42 pm » |
|
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Size = New Point(600, 600) Dim Rando As New Random ' Creo los controles y los añado al form, para este ejemplo. Dim Button_(10) As Button For num = 0 To 10 : Button_(num) = New Button : Me.Controls.Add(Button_(num)) : Next For Each Control In Me.Controls If Control.GetType.ToString.Contains("Button") Then ' Si el control es de tipo Button... Control.location = New Point(Rando.Next(1, 500), Rando.Next(1, 500)) ' Los coloco aleatóriamente End If Next End Sub End Class
|
|
|
En línea
|
|
|
|
Stakewinner00
|
|
Re: Bucles
« Respuesta #9 en: 18 Enero 2013, 19:06 pm » |
|
Gracias a todos, ya lo arregle de una forma similar a la de EleKtro H@cker.
PD:Eso estaba seguro que si que era visual basic 2008, como minimo cuando recupere windows me descargue Microsoft visual basic 2008. Si no es visual basic tendré que repasar las bases.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Bucles.
Programación Visual Basic
|
mdg
|
4
|
2,576
|
28 Agosto 2007, 15:54 pm
por elmaro
|
|
|
Ejecutar varios bucles a la vez?
Programación C/C++
|
tutospaindani
|
5
|
2,199
|
27 Diciembre 2013, 20:21 pm
por tutospaindani
|
|
|
Error en bucles for
Programación C/C++
|
AleBallesta
|
2
|
1,636
|
1 Mayo 2015, 01:35 am
por AleBallesta
|
|
|
Bucles While / until.
Programación C/C++
|
FKT
|
7
|
3,123
|
6 Agosto 2015, 00:10 am
por FKT
|
|
|
Dentro de los bucles
GNU/Linux
|
Sergiolocuelo
|
1
|
2,062
|
25 Agosto 2018, 01:03 am
por novicio
|
|