2 respuestas
While o Mientras
I = una variable de cualquier tipo (caracter, alfanumerica, boolean, etc)
I=1
Mientras I < 3 entonces
hacer
mostrar("hola")
I=I+1
fin mientras
que mostramos ahi?
estamos diciendo que mientras la condicion "I" sea verdadera te mostrará la cantidad de veces en pantalla el texto "hola". en este caso te mostrará 2 veces.
no sé si me expliqué con esto,
slds
CAM
I = una variable de cualquier tipo (caracter, alfanumerica, boolean, etc)
I=1
Mientras I < 3 entonces
hacer
mostrar("hola")
I=I+1
fin mientras
que mostramos ahi?
estamos diciendo que mientras la condicion "I" sea verdadera te mostrará la cantidad de veces en pantalla el texto "hola". en este caso te mostrará 2 veces.
no sé si me expliqué con esto,
slds
CAM
Hola Yadi:
Mirá este ejemplo:
-----------------------------------
Do While X < 1000
X = X + 1
me.caption = X
Loop
-----------------------------------
El bucle o el ciclo se cumple mientras la variable "X" sea de un valor inferior a 1000
y mientras se cumple el conteo hacia arriba por eso el valor "+", te lo irá mostrando en el caption del formulario de inicio del programa.
---------------------------------
También puedes hacer algo mas o menos así.--------------------------------
While i > 0 And i < NumCar
List1.AddItem Mid(Secciones, j, i - j)
j = i + 1
i = InStr(j, Secciones, Chr$(0))
Wend
-------------------------------
un bucle o ciclo con dos condiciones, es decir se debe hacer mientras i sea mayor a 0 y menor al valor de la variable NumCar( no establecida en este código que te expongo)
Si se cumplen estas condiciones se obtienen en este caso en un listbox todas las secciones de un archivo ini
Bueno como ves se puede aplicar a un monton de posibilidades en los que tengas que recorrer varios o múltiples elementos.
--------------------------------
Acá tienes otra forma de usarlo esta vez en los registros seleccionados de una base de datos.--------------------------------
rstenfermedades.MoveFirst
Do While Not rstenfermedades.EOF
List2.AddItem rstenfermedades("tipodeenfermedad")
rstenfermedades.MoveNext
Loop
-------------------------------
rstenfermedades es el recordset apuntado en estos momentos y nos movemos al primer registro.
Luego usamos el While para que mientras no lleguemos al final del recordset, se liste en el listbox2 el contenido del campo "tipodeenfermedad", adelantamos un registro con MoveNext y volvemos al bucle hasta que llegué al final.
Bueno Yadi un abrazo.
Luis
www.bragadomas.com.ar
www.bragadomas.com
info@bragadomas.com
http://www.foroswebgratis.com/foro-foro_de_programacion_en_general-152776.htm
http://www1.bragadomas.com/?tm=1&kw=music&KW1=Searchable%20MP3%20Database%20Software&KW2=Music%20Streaming%20Dedicated%20Server&KW3=Ringtone%20Database%20Management%20Software&searchbox=0&domainname=0&backfill=0
Mirá este ejemplo:
-----------------------------------
Do While X < 1000
X = X + 1
me.caption = X
Loop
-----------------------------------
El bucle o el ciclo se cumple mientras la variable "X" sea de un valor inferior a 1000
y mientras se cumple el conteo hacia arriba por eso el valor "+", te lo irá mostrando en el caption del formulario de inicio del programa.
---------------------------------
También puedes hacer algo mas o menos así.--------------------------------
While i > 0 And i < NumCar
List1.AddItem Mid(Secciones, j, i - j)
j = i + 1
i = InStr(j, Secciones, Chr$(0))
Wend
-------------------------------
un bucle o ciclo con dos condiciones, es decir se debe hacer mientras i sea mayor a 0 y menor al valor de la variable NumCar( no establecida en este código que te expongo)
Si se cumplen estas condiciones se obtienen en este caso en un listbox todas las secciones de un archivo ini
Bueno como ves se puede aplicar a un monton de posibilidades en los que tengas que recorrer varios o múltiples elementos.
--------------------------------
Acá tienes otra forma de usarlo esta vez en los registros seleccionados de una base de datos.--------------------------------
rstenfermedades.MoveFirst
Do While Not rstenfermedades.EOF
List2.AddItem rstenfermedades("tipodeenfermedad")
rstenfermedades.MoveNext
Loop
-------------------------------
rstenfermedades es el recordset apuntado en estos momentos y nos movemos al primer registro.
Luego usamos el While para que mientras no lleguemos al final del recordset, se liste en el listbox2 el contenido del campo "tipodeenfermedad", adelantamos un registro con MoveNext y volvemos al bucle hasta que llegué al final.
Bueno Yadi un abrazo.
Luis
www.bragadomas.com.ar
www.bragadomas.com
info@bragadomas.com
http://www.foroswebgratis.com/foro-foro_de_programacion_en_general-152776.htm
http://www1.bragadomas.com/?tm=1&kw=music&KW1=Searchable%20MP3%20Database%20Software&KW2=Music%20Streaming%20Dedicated%20Server&KW3=Ringtone%20Database%20Management%20Software&searchbox=0&domainname=0&backfill=0
