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
Hacer Tocar un timbre
Re: Hacer Tocar un timbre
João Santos - São Paulo - Brasil
-
- Posts: 188
- Joined: Mon Jun 10, 2013 6:40 pm
Re: Hacer Tocar un timbre
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.
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
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.
Como está tu programa? No és posible en el ACTIVATE DIALOG/WINDOW poner una desviación para un TIMER() donde desencadena un sonido?
salu2.
João Santos - São Paulo - Brasil
Re: Hacer Tocar un timbre
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
João Santos - São Paulo - Brasil
-
- Posts: 188
- Joined: Mon Jun 10, 2013 6:40 pm
Re: Hacer Tocar un timbre
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.
El Timbre NO es un Beep
Sino que timbre es una "campana" como las que hay en las escuelas.
Re: Hacer Tocar un timbre
Vital,
Podrias leer esto, creo que cumple con lo que necesitas
http://perso.wanadoo.es/pictob/comserie.htm
Podrias leer esto, creo que cumple con lo que necesitas
http://perso.wanadoo.es/pictob/comserie.htm
William, Morales
Saludos
méxico.sureste
Saludos
méxico.sureste
-
- Posts: 188
- Joined: Mon Jun 10, 2013 6:40 pm
Re: Hacer Tocar un timbre
Bro, ya lo vi
Pero lo voy a leer mas a fondo
para ver si puedo sacar algo de eso.
Gracias.
Pero lo voy a leer mas a fondo
para ver si puedo sacar algo de eso.
Gracias.