Graficar con varios Anchos de pluma (código Small Basic y Visual Basic


a20
Mediante el uso de los bucles , se puede escribir fácilmente un programa que dibuja varias líneas con el aumento de grosor de la pluma.
La parte interesante de este programa es el bucle, donde se aumenta la PenWidth cada vez que el bucle se ejecuta y luego dibujar una nueva línea debajo de la anterior.

Small Basic

  1. GraphicsWindow.BackgroundColor = “Black”
  2. GraphicsWindow.Width = 200
  3. GraphicsWindow.Height = 160
  4. GraphicsWindow.PenColor = “Blue”
  5. For i = 1 To 10
  6. GraphicsWindow.PenWidth = i
  7. GraphicsWindow.DrawLine(20, i * 15, 180, i * 15)
  8. Endfor

Visual Basic

  1. Module UntitledModule
  2. Dim i As Primitive
  3. Sub Main()
    1. GraphicsWindow.BackgroundColor = “Black”
    2. GraphicsWindow.Width = 200
    3. GraphicsWindow.Height = 160
    4. GraphicsWindow.PenColor = “Blue”
  1. For i = 1 To 10

i.   GraphicsWindow.PenWidth = i

ii.   GraphicsWindow.DrawLine(20, i * 15, 180, i * 15)

  1. Next
  2. End Sub
  3. End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s