Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: MicroHack en 21 Octubre 2010, 13:45 pm



Título: Sentencia For para repetir bucle
Publicado por: MicroHack en 21 Octubre 2010, 13:45 pm
Hola a tod@s

estoy realizando un ejercicio basico del libro que me pide hacer este dibujo con la sentencia for y cout (la cual desconozco porque en el capitulo estudiado no la mencionan y en internet tampoco he encontrado nada de cout en vb.net)

$
$$
$$$
$$$$
$$$$$
$$$$$$
$$$$$$$
$$$$$$$$
$$$$$$$
$$$$$$
$$$$$
$$$$
$$$
$$
$

El caso es que me he vuelto loco probando resolver el ejercicio pero no me sale el resultado deseado, aver si alquien ve el fallo en el codigo por favor:

Código:
        Dim fila As Integer

        For fila = 1 To 10

            While fila <= 10
                Console.WriteLine("$")
                fila += 1
            End While
        Next

        Console.WriteLine("FIN")

Otra manera que he probado:

Código:
 Dim fila As Integer

        For fila = 1 To 10

            If fila <= 10 Then
                Console.WriteLine("$")
                 fila += 1
            End If
        Next
        Console.WriteLine("FIN")

Esta parte del codigo es solo para hacer la mitad del dibujo, la otra mitad seria el mismo proceso pero con cuenta atras, por lo cual todavia no he escrito nada de ello.


Título: Re: Sentencia For para repetir bucle
Publicado por: Shell Root en 21 Octubre 2010, 14:31 pm
...y en internet tampoco he encontrado nada de cout en vb.net)
Cof, cof...

:http://msdn.microsoft.com/es-es/library/cc485138(VS.71).aspx


Título: Re: Sentencia For para repetir bucle
Publicado por: MicroHack en 21 Octubre 2010, 14:39 pm
...y en internet tampoco he encontrado nada de cout en vb.net)
Cof, cof...

:http://msdn.microsoft.com/es-es/library/cc485138(VS.71).aspx

Gracias Shell por contestar pero mi verdadero problema no es buscar la funcion de cout sino como resolver el ejercicio con la sentencia for.


Título: Re: Sentencia For para repetir bucle
Publicado por: Psyke1 en 21 Octubre 2010, 15:02 pm
.
Yo en vB6 lo haría así:

Código
  1. 'Vivan las ranas
  2. Option Explicit
  3.  
  4. ' <Procedimiento x>
  5. Const sChar                 As String = "$"
  6. Dim Q                       As Long
  7.    For Q = 1 To 15
  8.        If Q > 8 Then
  9.            Debug.Print String$(((15 - Q) + 1), sChar)
  10.        Else
  11.            Debug.Print String$(Q, sChar)
  12.        End If
  13.    Next Q
  14. ' </Procedimiento x>
  15.  
  16.  

Devuelve esto:
Citar
$
$$
$$$
$$$$
$$$$$
$$$$$$
$$$$$$$
$$$$$$$$
$$$$$$$
$$$$$$
$$$$$
$$$$
$$$
$$
$

Cabe recordar que esta no es la sección adecuada.
Ir a la sección de .NET (http://foro.elhacker.net/net-b62.0/)

DoEvents! :P