Ayuda con Pilas y Colas

[[Decoded]]

Hola Amigos de la sección visual basic... como veran me encuentro sumamente perdido...

y que si, este es un mensaje troll que he posteado ya que me encuentro en una situacion muy critica... necesito que me faciliten un par de ejemplos de pilas y colas, ya que aproximadamente en menos de 24 horas va a culminar un trabajo que me han dejado en la universidad [anteriormente estabamos haciendo todo en C++, Claro que se programar en C++ pero casi nunca lo he hecho en visual basic, es por eso que estoy desesperado].. nos cambiaron de docente y ahora nos deja este trabajo de pilas y colas en visual basic..

por favor.. necesito esos dichosos ejemplos de pilas y colas...

Siendo mas sincero es solo para aprobar la asignatura    y muchisimas gracias por todo!  

[BlackZeroX]

No se si a esto te refieras?...

Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
   MsgBox "Se dieron " & AutoSum(-40, 0, 5) & " Vueltas"
End Sub

Public Function AutoSum(ByVal nValue As Long, ByVal nValLim As Long, ByVal nValIncrement As Long, Optional Aux As Long = 0) As Long
   If nValue >= nValLim Then
       AutoSum = Aux
       Exit Function
   Else
       AutoSum = AutoSum(nValue + nValIncrement, nValLim, nValIncrement, Aux + 1)
   End If
End Function



Dulces Lunas!¡.

[BlackZeroX]

y aqui mas simplificado!¡.

Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox "Se dieron " & AutoSum(-40, 4960, 1) & " Vueltas"
End Sub

Public Function AutoSum(ByVal nValue As Long, ByVal nValLim As Long, ByVal nValIncrement As Long) As Long
    If nValue >= nValLim Then Exit Function
    AutoSum = AutoSum(nValue + nValIncrement, nValLim, nValIncrement) + 1
End Function




Dulce Infirno Lunar!¡.

[[Decoded]]

Gracias BlackZeroX  En Serio que eres muy atento... Muchas Gracias en verdad, espero que sea eso lo que necesito, ya que mis conocimientos en VB son muy escasos, y disculpa las molestias...

Una vez mas Gracias =D

[BlackZeroX]

.
Si lo ejecutas con F8 (Varias Veces Oprimelo hasta que termine, es para recorrer cada linea) veras que es lo que hace asi no te costara explicarlo y entenderlo!¡.

Dulces Lunas!¡.

[goldarg]

yo por lo que vi en la facu de pilas y colas, la estructura es diferente, ya que la podes trabajar desde un vector fijo o utilizando punteros.

y la idea de la pila es hacer un vector que a medida que vos le vas ingresando valores lo ponga en la posicion 1 despues en la 2... posicion N y cuando vos sacas un valor empezas sacando el ultimo ingresado N despues el N-1... etc(asocialo a una pila de platos, siempre sacas el que esta mas arriba)

y en la cola es casi lo mismo pero tenes que hacer un vector que funcione como un anillo, pero funciona casi igual que la pila pero cuando vas sacando datos sale el primero que ingreso(asocialo con la cola en la caja de un supermercado) a medida que va ingresando la gente va saliendo siempre la primera.

La verdad que en vb no hice ningun codigo de esto. No se si tu profe te lo pide usando punteros, ya que tendrias que ver como hacer para usarlos desde vb que no se utiliza como en C.