https://foro.gambas-es.org/viewtopic.php?f=1&t=5236&p=30855#p30855
-----------------------------------
Shell
Jueves, 10 Marzo 2016, 14:10

Re: Cuadrados Espaciados Concéntricos
-----------------------------------
Después de ver "una posible" forma de hacer el ejercicio. 
El "borde" del primer cuadrado aparenta ser la mitad de los otros. ¿ Alguien sabe el por qué ?.

 [img]http://foro.gambas-es.org/files/images/768/rellenocolores.png[/img] 

[code linenumbers=false syntax=gambas]
Public Sub Form_Open()
  Randomize
End

Public Sub Dibujar() 'Posibilidad Una

  Dim i As Integer
  Dim anchodebrocha As Integer
      
  anchodebrocha = 50
  Paint.LineWidth = anchodebrocha 
  
  For i = 0 To 250 Step anchodebrocha 
    Paint.Rectangle(i, i, 500 - i * 2, 500 - i * 2)           
    Paint.Brush = Paint.Color(Color.RGB(Rnd * 255, Rnd * 255, Rnd * 255))    
    Paint.Stroke
  Next
   
End

Public Sub drw_Draw()
  
  Dibujar
  
End
[/code]

Seguro que me vuelvo a confundir en lo mismo.  :roll: 
No hay nada mejor que la depuración. Es una cosa tan simple y ya veis como se complica.

Saludos


