Código: Seleccionar todo
;Author: Basicos de www.autoit.es 11/06/05
#include <Datenew>
[blue];cambiar las rutas de los sonidos por otros deseados en la función alarma o bien por una acción que se desee programar(ejecutar un programa)
DUERME(0,5) ;duerme durante 0 horas y 5 minutos
ALARMA("2") ; suena el sonido 2 [/blue]
Exit
; a partir de aqui las funciones ...
Func duerme($WHORAS, $WMINUTOS)
Dim $IHOURS, $IMINS, $ISECS
$wsecs= ($WMINUTOS * 60) + ($WHORAS * 60 * 60)
$WSTART = @HOUR & ":" & @MIN & ":" & @SEC
For $IZ = 1 To $WSECS
If $IZ / 600 = Int($IZ / 600) Then SplashOff()
_TicksToTime($IZ * 1000, $IHOURS, $IMINS, $ISECS)
$WSHOW = @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & " Hora comienza: " & $WSTART & " " & @CR & "Pasado: " & $IHOURS & ":" & $IMINS & ":" & $ISECS & @CRLF
_tickstotime( ($WSECS - $IZ) * 1000, $IHOURS, $IMINS, $ISECS)
$WSHOW1 = " Resta " & $IHOURS & ":" & $IMINS & ":" & $ISECS & @CRLF
_tickstotime( ($WSECS) * 1000, $IHOURS, $IMINS, $ISECS)
$WSHOW2 = "Lapso " & $IHOURS & ":" & $IMINS & ":" & $ISECS
If $IZ = 1 Then SplashTextOn("Alarma activada", $WSHOW & $WSHOW1 & $WSHOW2, 175, 100, 700, 450, 16)
ControlSetText("Alarma activada", "", "Static1", $WSHOW & $WSHOW1 & $WSHOW2)
Sleep(1000)
Next
EndFunc ;==>duerme
Func alarma($iTIPO)
Select
Case $iTipo=1
SoundPlay("C:\Archivos de programa\Pinnacle\Studio 8\Sound Effects\Animals\pato.wav", 1)
Case $iTipo=2
SoundPlay("C:\Archivos de programa\Pinnacle\Studio 8\Sound Effects\Bells\CampanaDeIglesia.wav", 1)
Case $iTipo=3
SoundPlay("C:\Archivos de programa\Pinnacle\Studio 8\Sound Effects\Bells\BocinaDeTren.wav", 1)
Case $iTipo=4
SoundPlay("C:\Archivos de programa\Pinnacle\Studio 8\Sound Effects\Vehicles\Tren.wav", 1)
EndSelect
EndFunc ;==>alarma