Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda con arreglos VB6

Estas en el tema de Ayuda con arreglos VB6 en el foro de Visual Basic clásico en Foros del Web. hola que tas me podrian ayudar con una duda porfa es que tengo que hacer una simulacion con pilas y colas..... bueno lo que tengo ...
  #1 (permalink)  
Antiguo 24/10/2009, 12:29
 
Fecha de Ingreso: septiembre-2008
Mensajes: 11
Antigüedad: 15 años, 7 meses
Puntos: 0
Ayuda con arreglos VB6

hola que tas me podrian ayudar con una duda porfa es que tengo que hacer una simulacion con pilas y colas..... bueno lo que tengo que hacer es crear un text, un Command y dos Listbox......

primero tego declarado mi arreglo esto esta en un modulo

public arreglo (5) As String
public i As Integer
------------------------------------

en el command

for i =1 to 6

arreglo (5) = Text1.Text

me.List1.AddItem arreglo(5)

next
--------------------------------------------------

bueno hay solo llena pero con la primera letra o nombre que ponga lo que quiero hacer es que me llene el lis nombre por nombre no todo corrido y en el otro lis2 me lo llene pero perimo el ultimo numero o nombre que se agrego al arreglo
  #2 (permalink)  
Antiguo 24/10/2009, 12:42
Avatar de culd  
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Ayuda con arreglos VB6

Cita:
Iniciado por JCNN Ver Mensaje
hola que tas me podrian ayudar con una duda porfa es que tengo que hacer una simulacion con pilas y colas..... bueno lo que tengo que hacer es crear un text, un Command y dos Listbox......

primero tego declarado mi arreglo esto esta en un modulo

public arreglo (5) As String
public i As Integer
------------------------------------

en el command

for i =1 to 6

arreglo (5) = Text1.Text

me.List1.AddItem arreglo(5)

next
--------------------------------------------------

bueno hay solo llena pero con la primera letra o nombre que ponga lo que quiero hacer es que me llene el lis nombre por nombre no todo corrido y en el otro lis2 me lo llene pero perimo el ultimo numero o nombre que se agrego al arreglo
Desde el vamos escribiste todo mal, si es una tarea para la escuela/universidad copia el enunciado sino no se entiende nada, muy mala redaccion la tuya...

Lo que entendi que quisiste decir es que.
Escribis algo en el textbox y cuando apretas el boton se guarde en el arreglo eso que escribiste y a la vez en el primer list se ponga como vos fuiste poniendo y en el segundo list que se ponga al revez, osea primero que este el ultimo que pusiste...

Esta es la solucion a tu problema (si realmente es ese tu problema)

Código vb:
Ver original
  1. Dim Arreglo(1 To 5) As String
  2. Dim i As Integer
  3.  
  4. Private Sub Command1_Click()
  5. Dim X As Integer
  6. i = i + 1
  7. Arreglo(i) = Text1
  8. List1.AddItem Text1
  9.  
  10. List2.Clear
  11. For X = i To 1 Step -1
  12.     List2.AddItem Arreglo(X)
  13. Next X
  14. End Sub
  #3 (permalink)  
Antiguo 28/10/2009, 13:05
 
Fecha de Ingreso: septiembre-2008
Mensajes: 11
Antigüedad: 15 años, 7 meses
Puntos: 0
Respuesta: Ayuda con arreglos VB6

muchas gracias y perdon por la mala redacción
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:39.