Escrito por carlosfmur1948 en Small Basicy etiquetada con , ,
 
a2
 
Un ejercicio agradable
Con el objeto de Flickr obtenemos imágenes aleatorias.
Cambian 10 veces las imágenes con un delay = 200 msegundos
Y se ajusta el tamaño de la pantalla con el tamaño de cada imagen
Divertido !
  1. GraphicsWindow.Title = “imagen”
  2. For i = 1 To 10
  3. img = Flickr.GetRandomPicture(“animals”)
  4. Ancho = ImageList.GetWidthOfImage(img)
  5. Alto = ImageList.GetHeightOfImage(img)
  6. GraphicsWindow.Width = Ancho
  7. GraphicsWindow.Height = Alto
  8. GraphicsWindow.DrawResizedImage(img, 0, 0, Ancho, Alto)
  9. Program.Delay(200)
  10. EndFor
* ver también http://www.empiezoinformatica.wordpress.com