Search This Blog

Wednesday 17 April 2013

Representar cuadrículas con matrices (código Small Basic y Visual Basic)





Las matrices multidimensionales pueden representar cuadrículas y tablas. Éstas tienen filas y columnas que pueden encajar perfectamente en una matriz bidimensional


Small Basic

filas=8
columnas=8
tamano= 40
GraphicsWindow.BackgroundColor= "Yellow"

For f = 1 To filas
  For c = 1 to columnas
  GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
  cuadrados[f][c] = Shapes.AddRectangle (tamano, tamano)
  Shapes.Move(cuadrados[f][c], c * tamano, f * tamano)
EndFor
  EndFor



Visual Basic

Module

UntitledModule


Dim filas, columnas, tamano, f, c, cuadrados As Primitive


Sub Main()

filas = 8

columnas = 8

tamano = 40


GraphicsWindow.BackgroundColor = "Yellow"


For f = 1 To filas


For c = 1 To columnas


GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()

cuadrados(f)(c) =
Shapes.AddRectangle(tamano, tamano)


Shapes.Move(cuadrados(f)(c), c * tamano, f * tamano)


Next


Next


End Sub

End

Module

No comments:

Post a Comment