Page 1 of 1
Hacer Tocar un timbre
Posted: Sat Oct 12, 2013 3:08 pm
by VitalJavier
Que tal a todos, buen dia.
Estoy trabajando con una terminal de Unitech MR350 MKII
y Pues con eso ando.
Alguien a tenido la curiosidad de hacer timbrar un timbre
conectado a esta terminal.
Si alguien ya ha pasado por esto me podrían echar un hilo para ver por donde empiezo.
Saludos
Re: Hacer Tocar un timbre
Posted: Mon Oct 14, 2013 3:49 pm
by karinha
Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 5:22 pm
by VitalJavier
karinha, buen dia.
Mi cliente quiere ponerle un timbre y que suene
cada cierto tiempo, por ejemplo :
a la hora de la entrada, hora de comida
hora de entrada de comida y hora de salida.
El detalle es que no le veo por donde "mandarle" hacer que suene
el equipo que me muestras tiene un conector para ello, pero
ya hable con personal de Unitech y me mandan unos manuales
de programación.
Saludos.
Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 5:34 pm
by karinha
timbre, és un sonido( tipo: beep() )?
Como está tu programa? No és posible en el ACTIVATE DIALOG/WINDOW poner una desviación para un TIMER() donde desencadena un sonido?
salu2.
Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 6:50 pm
by karinha
Ejemplo:
Code: Select all
// Puedes usar un TIMER() creo sea mejor a tu gusto.
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( ONSTART( oWnd ) )
FUNCTION ONSTART(oWnd)
IF VAL( XSONIDO ) = 2 // permitir sonidos...
IF TIME() < "12:01"
PLAYMP3(oWnd,'BDIA.MP3',.F.) //-> .T. Continua, .F., Nao Continua
ENDIF
IF TIME() > "12:00" .AND. TIME() < "18:01"
PLAYMP3(oWnd,'BTARDE.MP3',.F.) //-> .T. Continua, .F., Nao Continua
ENDIF
IF TIME() > "18:00" .AND. TIME() < "23:59"
PLAYMP3(oWnd,'BNOITE.MP3',.F.) //-> .T. Continua, .F., Nao Continua
ENDIF
ELSE
//PLAYMP3(oWnd,'MELODIA.WAV',.F.) //-> .T. Continua, .F., Nao Continua
ENDIF
// @2,10 SAY 'El archivo "PRUE.MP3" se está ejecutando....' OF oWnd COLOR "R/W+"
// @4,10 SAY 'The file "PRUE.MP3" is running....' OF oWnd COLOR "R/W+"
// @7,10 SAY 'Esto es real sólo si tiene Win98se o ME' OF oWnd COLOR "R/W+"
// @9,10 SAY 'This is Real only with Win98se or ME' OF oWnd COLOR "R/W+"
RETURN NIL
///Con esta función podrán ejecutar archivos MP3!
///With this function you can play MP3 files !
FUNCTION PLAYMP3(oWnd, cFile, lLoop )
DEFAULT lLoop := .F.
mciSendStr("OPEN "+cFile+" TYPE MPEGVIDEO ALIAS MP3",,oWnd:hWnd)
mciSendStr("PLAY MP3 "+IF(lLoop,"REPEAT",''),,oWnd:hWnd)
RETURN NIL
Re: Hacer Tocar un timbre
Posted: Thu Oct 17, 2013 1:47 am
by VitalJavier
karinha muchas gracias por tu interés
El Timbre NO es un Beep
Sino que timbre es una "campana" como las que hay en las escuelas.
Re: Hacer Tocar un timbre
Posted: Thu Oct 17, 2013 2:05 am
by wmormar
Vital,
Podrias leer esto, creo que cumple con lo que necesitas
http://perso.wanadoo.es/pictob/comserie.htm
Re: Hacer Tocar un timbre
Posted: Thu Oct 17, 2013 2:45 pm
by VitalJavier
Bro, ya lo vi
Pero lo voy a leer mas a fondo
para ver si puedo sacar algo de eso.
Gracias.