topic-27455

VitalJavier

Posts: 257

Joined: Mon Jun 10, 2013 06:40 PM

Hacer Tocar un timbre
Posted: Sat Oct 12, 2013 03:08 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Hacer Tocar un timbre
Posted: Mon Oct 14, 2013 03:49 PM

Explique mejor, porfa:

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

salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

VitalJavier

Posts: 257

Joined: Mon Jun 10, 2013 06:40 PM

Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 05:22 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 05:34 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Hacer Tocar un timbre
Posted: Tue Oct 15, 2013 06:50 PM

Ejemplo:

Code (fw): Select all Collapse

   // 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 - Phone: +55(11)95150-7341

VitalJavier

Posts: 257

Joined: Mon Jun 10, 2013 06:40 PM

Re: Hacer Tocar un timbre
Posted: Thu Oct 17, 2013 01:47 AM

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

Posts: 1076