Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: estebankpo15 en 5 Noviembre 2013, 16:13 PM

Título: Ayuda con ejercicio
Publicado por: estebankpo15 en 5 Noviembre 2013, 16:13 PM
Hola a todos tengo problemas con los ejercicios en el cual hay que usar el comando For.
Acá les paso el ejercicio que no entiendo
En el ejercicio me pide que desarrolle un programa en el cual me pida en pantalla un número q lo almacene y me muestre en pantalla un triángulo de asteriscos formando una pirámide por ejemplo
Si ingresó 5 la pirámide tiene que ser haci
*
**
***
****
*****
Si ingresó 3
*
**
***
Bueno espero que puedan ayudarme de más les agradezco de ante mano
Espero respuestas!
Saludos!!

Enviado desde mi ST25i mediante Tapatalk
Título: Re: Ayuda con ejercicio
Publicado por: MCKSys Argentina en 5 Noviembre 2013, 16:17 PM
Lee las reglas del foro antes de hacer posts.

De todas formas: Qué haz logrado hasta el momento? Pon tus avances!

Saludos!
Título: Re: Ayuda con ejercicio
Publicado por: Danyfirex en 5 Noviembre 2013, 16:58 PM
en vb6 hay una función que se llama string que te resolveria el problema casi completo.

por ejemplo. en (Pseudocódigo)



para i = 1 hasta n

micadena es igual a lo que contenga mi cadena y string(i,"caracter") & pongo y paso a una linea nueva.

saludos




Título: Re: Ayuda con ejercicio
Publicado por: Mad Antrax en 5 Noviembre 2013, 17:33 PM
Código (vb) [Seleccionar]
ABC = InputBox("Dime las estrellas")

for i = 1 to ABC
X = X & string(i,"*") & vbcrlf
next
msgbox X


Y si encima quieres una piramide "recta":

Código (vb) [Seleccionar]
ABC = InputBox("Dime las estrellas")

For i = 1 To ABC
    X = X & Space(Int((ABC - i) / 2)) & String(i, "*") & vbCrLf
Next
Título: Re: Re: Ayuda con ejercicio
Publicado por: estebankpo15 en 5 Noviembre 2013, 20:55 PM
Acá dejó mis avances no los pude poner en el post porque venía en el bondi de la facultad (http://img.tapatalk.com/d/13/11/06/a6e9e7a4.jpg)

Enviado desde mi ST25i mediante Tapatalk
Título: Re:
Publicado por: estebankpo15 en 5 Noviembre 2013, 21:01 PM
Perdón pero el código tiene que ser en aplicación de consola de visual Basic 2010 xpress perdon a los que ya comentaron. Y gracias de todas maneras xD

Enviado desde mi ST25i mediante Tapatalk
Título: Re:
Publicado por: estebankpo15 en 7 Noviembre 2013, 16:44 PM
Por favor q alguien me ayude soy novato en eesto y lo necesito terminar para el sábado

Enviado desde mi ST25i mediante Tapatalk
Título: Re: Ayuda con ejercicio
Publicado por: MCKSys Argentina en 7 Noviembre 2013, 16:56 PM
De lo que ya tienes, debes revisar sólo el for.

Ahora estás imprimiendo un asterisco por "cada vuelta" del for.

Lo que debes hacer, es buscar la forma de imprimir la cantidad de asteriscos que especifica "cada  vuelta" del for.

Como te dijo Danyfirex, en VB6 existe una función llamada string que genera una cadena en base a un caracter y un largo dado. En VB .NET debe existir algo parecido (por no decir lo mismo).

Saludos!
Título: Re:
Publicado por: estebankpo15 en 7 Noviembre 2013, 17:50 PM
Pero no conozco esa forma me están enseñando lo básico y talbes si lo ago así me lo rechazan

Enviado desde mi ST25i mediante Tapatalk
Título: Re: Ayuda con ejercicio
Publicado por: MCKSys Argentina en 7 Noviembre 2013, 20:20 PM
Cita de: estebankpo15 en  7 Noviembre 2013, 17:50 PM
Pero no conozco esa forma me están enseñando lo básico y talbes si lo ago así me lo rechazan

Enviado desde mi ST25i mediante Tapatalk

Si quieres resolverlo de forma básica (en realidad una solución es una solución, pero bueh...), puedes pensar en hacer un for dentro del otro. Ese for se encargaria de imprimir los chars...

Saludos!
Título: Re: Ayuda con ejercicio
Publicado por: Danyfirex en 8 Noviembre 2013, 14:41 PM
En vb.net se usa strdup.



Código (vbnet) [Seleccionar]
Dim i As Integer
        Dim cadena As String = ""
        Dim n As Integer
        n = 5
        For i = 1 To n
            cadena &= StrDup(i, "*") & vbCrLf
        Next
        MsgBox(cadena)



saludos