Small Basic: Los objetos Clock, Desktop y Dictionary (código)


a1

 Programa para ajustar una alarma que reproduzca un sonido de campana y cambie el fondo de pantalla de su escritorio.

  1. subConfigurarAlarma()
  2. rutaArchivo = program.Directory + “\escritorio.jpg”
  1. arriba:
  2. If Clock.Time = alarma Then 
  3. Desktop.SetWallPaper(rutaArchivo)  
  4. Sound.PlayBellRing()           
  5. EndIf
  6. Program.Delay(1000)
  7. Goto arriba
  1. Sub subConfigurarAlarma
  2. TextWindow.WriteLine(“Configurar alarma”)
  3. TextWindow.Write(“Escriba la hora: “)
  4. hora = TextWindow.Read()
  5. TextWindow.Write(“Escriba los minutos: “)
  6. minuto = TextWindow.Read()
  7. TextWindow.Write(“a.m. o p.m.?: “)
  8. StadoAmPm = TextWindow.Read()
  9. alarma = hora + “:” + minuto + “:00″+ StadoAmPm
  10. TextWindow.WriteLine(“Hora de la alarma: ” + alarma)
  11. EndSub

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