Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 23 Marzo 2006, 02:43 am



Título: ayuda con la funcion Do Until
Publicado por: kakinets en 23 Marzo 2006, 02:43 am
hola a todos. tengo un par de dudas alguien me puede explicar con sus palabras para que seiver la funcion Do Until?

muchas gracias y saludos a todos

otra cosa en esa funsion estaba esta linea EOF(1) que es??


Título: Re: ayuda con la funcion Do Until
Publicado por: karmany en 23 Marzo 2006, 17:53 pm
SENTENCIA Do...Loop
Un Loop (bucle) repite la ejecución de un conjunto de sentencias mientras una condición dada sea cierta, o hasta que una condición dada sea cierta.

Yo la utilizo por ejemplo para pasar registro por registro toda una base de datos.
Ej.
Código:
Do Until Data1.Recordset.EOF
    ...   
Loop
Lo que acabo de poner es un bucle (igual q con for.. next).
El bucle va desde Do (imagina el for) hasta Loop (imagina el next). Y el bucle se va a repetir hasta(Until) que llegue al final de la base de datos (Data1.Recordset.EOF)

Otro ej. sencillo:
Código:
  Dim I as integer, suma as integer
  I=1
  Do While I <= 99 'bucle mientras I<=99
    suma = suma+I
    I=I+2
  Loop
  Print suma


Título: Re: ayuda con la funcion Do Until
Publicado por: .Slasher-K. en 24 Marzo 2006, 00:28 am
Until = Hasta

En lugar de ejecutarse el bucle mientras la condición sea True, lo hace mientras la condición sea False, o sea hasta que sea verdadera.


Título: Re: ayuda con la funcion Do Until
Publicado por: kakinets en 24 Marzo 2006, 02:18 am
Perdon por ser tan inutil pero me puedes explicar este codigo que no logro entenderlo:

Código:
 Dim I as integer, suma as integer
  I=1
  Do While I <= 99 'bucle mientras I<=99
    suma = suma+I
    I=I+2
  Loop
  Print suma


Título: Re: ayuda con la funcion Do Until
Publicado por: Grimble Grumble en 24 Marzo 2006, 09:34 am
Ese codigo se va a ejecutar MIENTRAS i sea <= 99.
Aunq no entiendo porq pones dos contadores... los dos van a valer lo mismo... creo...

Saludos


Título: Re: ayuda con la funcion Do Until
Publicado por: karmany en 24 Marzo 2006, 15:11 pm
Código:
Dim I as integer, suma as integer
  I=1
  Do While I <= 99 'bucle mientras I<=99
    suma = suma+I
    I=I+2
  Loop
  Print suma

El código es muy sencillo. Lo que hace es simplemente sumar los números impares entre 1 y 99, y lo imprime en el formulario.
Do While I<=99 significa que el bucle se realizará mientras (While) I sea menor o igual que 99.
Es decir I=1 suma=1, después I=3, suma=4 etc... hasta I=99 suma =2500. Si te fijas el último I=99 será I=101 por I= I +2 pero la suma es entre 1 y 99 a.i.

Espero te sirva