Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Crear Una Pirámide De N Filas By Jhonjhon_123

  • 0 Respuestas
  • 2743 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Jhonjhon_123

  • *
  • Underc0der
  • Mensajes: 150
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Jhonjhon_123's Software In Developed
« en: Febrero 28, 2010, 04:15:55 pm »
Bueno, este es un ejercicio de un libro, y se los quise pasar.

El ejercicio consiste en crear un code que haga una pirámide de N filas.



Codigo De Fuente:

Necesitan 2 TextBox
     1. TXT_Pir > Para Ver La pirámide > MultiLine = True > Locked = True
     2. TXT_Filas > No De Filas
1 CommandButton > CMD_Run > Crear Pirámide

Código: Visual Basic
  1. Option Explicit
  2.  
  3. Private Sub CMD_Run_Click()
  4. Dim D As Long
  5. Dim N As Long
  6.  
  7. TXT_Pir.Text = ""
  8.  
  9. For D = Val(TXT_Filas.Text) To 1 Step -1
  10.     N = D + (D - 1)
  11.     Call Escribir(N, "*", TXT_Pir)
  12. Next
  13.  
  14. End Sub
  15.  
  16.  
  17. Function Escribir(Veces As Long, Char As String, TXT As TextBox)
  18. Dim D As Long
  19. For D = 1 To Veces
  20.     TXT = TXT & Char
  21. Next
  22. TXT = TXT & vbCrLf
  23. End Function
  24.  
  25. Private Sub Form_Load()
  26. With TXT_Pir
  27.     .Font = "OCR A Std"
  28.     .FontBold = True
  29.     .FontSize = 12
  30. End With
  31. End Sub
  32.  
  33.  
« Última modificación: Julio 08, 2011, 09:23:14 am por ANTRAX »

 

¿Te gustó el post? COMPARTILO!



Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913

Respuestas: 1
Vistas: 4632
Último mensaje Febrero 02, 2013, 03:23:30 pm
por alexander1712
Como crear controles en tiempo de ejecuacion

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1840
Último mensaje Julio 26, 2010, 01:21:37 pm
por ANTRAX
Cómo crear controles en tiempo de ejecución

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1902
Último mensaje Julio 26, 2010, 11:29:34 am
por ANTRAX
Otra forma de crear DSN, modificarlo y eliminarlo

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2076
Último mensaje Julio 26, 2010, 03:54:52 pm
por ANTRAX
Como Crear un DSN con un archivo de registro

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2178
Último mensaje Julio 26, 2010, 12:23:42 pm
por ANTRAX