Hacer Tocar un timbre

[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

[karinha]

Explique mejor, porfa:

http://translate.google.com.br/translat ... 6bih%3D667

salu2

[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.

[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.

[karinha]

Ejemplo:

Code: Select all  Expand view

   // 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
 



[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.

[wmormar]

Vital,

Podrias leer esto, creo que cumple con lo que necesitas

http://perso.wanadoo.es/pictob/comserie.htm

[VitalJavier]

Bro, ya lo vi
Pero lo voy a leer mas a fondo
para ver si puedo sacar algo de eso.

Gracias.