Acionar de sirene que se conecta na rede existe?

Edvaldo J. Frederico · 19 de fevereiro

Bom dia

Alguém conhece algum acionar de sirene que se conecta na rede?

No meu trabalho temo um acionar de sirene da marca Cooel e ele fica adiantando a hora em relação ao relógios de ponto.

Os relógios de ponto sempre estão no horário correto em relação ao horário de Brasília.

O acionar precisa ser por rede assim temos como sincronizar com a hora da internet.

Obrigado

.if · 19 de fevereiro

Provavelmente o amigo já googlou antes de publicar seu desafio. E provavelmente não encontrou o que busca. Neste caso permita-me opinar de forma "diferente" e no estilo minimalista tradicional...

Imagine um [velho] celular conectado na rede com a única e exclusiva função de acionar a sirene. Usando o sinal - ou som - do alarme que vai pro alto-falante e um circuitinho bem simples com um bc548 e relé, é possível acionar a carga da sirene. Basta programar o despertador do celular.

Me fez lembrar...

Acredite se quiser mas já tive esta ideia há décadas quando uns pc's 486 estavam obsoletizando. A ideia foi tocar um apito de uma fábrica. Fiz um programa em VB que acionava as portas seriais e estas um relé. Pra minimizar o sw, usava o tal "agendador de tarefas" programado pra rodar o programa em horários específicos. Tenho ainda o programa fonte em VB e Delphi.. e acho que até em Borland Visual C ou algo assim. sentir vontade, quiçá os publique... só de saudosismo mesmo

edit...

Bem, não deve somar muito mas senti vontade registrar mais um passado sempre presente...

unit campainha;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,INIFiles, Spin, Gauges;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Button1: TButton;
    tempo: TSpinEdit;
    fim: TStaticText;
    text1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    Gauge1: TGauge;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure formclose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  Inpout32: THandle;
  seg,segfim,tmp,tmp1: byte;
  path: string;

implementation

procedure outportb(EndPorta: integer; Valor:BYTE); stdcall; external 'inpout32.DLL' name 'Out32';
function inportb(EndPorta: integer):byte; stdcall; external 'inpout32.DLL' name 'Inp32';

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tmp:=tmp+1;
if tmp>=segfim then begin
                gauge1.Visible :=true;
                outportb($378,$0);//desliga
                text1.Caption :='Fechando em';
                label1.Caption :='Campainha desligada';
                fim.Caption :=inttostr(tmp1);
                if tmp1<1 then close;
                gauge1.Progress:=tmp1;
                tmp1:=tmp1-1;
                form1.Color :=clBtnFace;
                outportb($2fc,$10);
                outportb($2fc,$0);
                outportb($2fc,$0);
                outportb($2fb,$0);

                outportb($3fc,$10);
                outportb($3fc,$0);
                outportb($3fc,$0);
                outportb($3fb,$0);
                end
else begin
        fim.Caption:=inttostr(segfim-tmp);
        gauge1.Visible :=false;
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  DateTime : TDateTime;
  str : string;
  INI : TINIFile;
 Path:string;

begin

  Inpout32 := LoadLibrary('inpout32.dll');
  if Inpout32=0 then MessageDlg('Sem Dll.', mtInformation,[mbOk], 0);
  Path:=ExtractFilePath(application.ExeName);
  {Recebendo os valores do arquivo INI}
  INI := TINIFile.Create(path+'dispara.ini');
  tempo.Value := INI.ReadInteger('CONFIG','tempo',3);
  INI.Free;
  LongTimeFormat:='hh:mm';
  DateTime := Time;  // pega a hora corrente
  str := TimeToStr(DateTime); // converte para string
  label2.Caption := str;  // display the time on the form's caption
  outportb($378,$ff); //liga
  segfim:=tempo.Value;
  fim.Caption:=inttostr(segfim);
  tmp1:=10;
//liga todas as saídas disponíveis na serial
  outportb($2fc,$10);
  outportb($2fc,$0);
  outportb($2fc,$3);
  outportb($2fb,$40);

  outportb($3fc,$10);
  outportb($3fc,$0);
  outportb($3fc,$3);
  outportb($3fb,$40);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
outportb($378,$0);//desliga
outportb($2fc,$10);
outportb($2fc,$0);
outportb($2fc,$0);
outportb($2fb,$0);

outportb($3fc,$10);
outportb($3fc,$0);
outportb($3fc,$0);
outportb($3fb,$0);
close;
end;

procedure TForm1.formclose(Sender: TObject; var Action: TCloseAction);
var
  INI : TINIFile;
begin
//  Grava o tempo de acionamento no arquivo ini
  Path:=ExtractFilePath(application.ExeName);
  INI := TINIFile.Create(path+'dispara.ini');
  INI.WriteInteger('CONFIG','tempo',tempo.Value); //grava o último valor
  INI.Free;
  outportb($2fc,$10);
  outportb($2fc,$0);
  outportb($2fc,$0);
  outportb($2fb,$0);

  outportb($3fc,$10);
  outportb($3fc,$0);
  outportb($3fc,$0);
  outportb($3fb,$0);

  Action := caFree;
end;

end.

De funcionamento bem simples: apenas aciona - coloca em 12V - as saídas de todas as antigas interfaces seriais do pc. Pra quem não sabe, delas saíam 12 e -12 (de fato uns +9-9). Liguei todas em paralelo na bobina do relé 12V e acionou. De fato com diodos pois o -9 ia manter o relé acionado o tempo todo.

O sw: mantinha a informação do tempo de acionamento do alarme num arquivo.ini.. Também minimalista. Como acho que ninguém deve rodar o anexo campa.exe, veja o Vídeo captura...

https://imgur.com/rP2oBYZ

Esta foi a versão Delphi (pascal: de tão antigo que não tem nas opções do CODE)... qualquer momento procuro a versão VB e Borland c++

Portanto se você tiver um pc velho com xp conectado na rede, pode rodar o programa anexo pra teste. Não tem virus não... Algo também me diz que não deve ter interesse mas caso contrário, me pergunte como ligar o relé nas seriais que dou + uma pesquisada nos meus backups - ou vagas lembranças ... agora na nuvem... ambos

campa.zip

vtrx · 19 de fevereiro

5 horas atrás, .if disse:

Esta foi a versão Delphi (pascal: de tão antigo que não tem nas opções do CODE)... qualquer momento procuro a versão VB e Borland c++

voce esqueceu de anexar "inpout32.dll".

Esta gerando erros,pelo menos no Windows 10.

rmlazzari58 · 19 de fevereiro

Qual a marca/modelo do relógio de ponto? É digital ou analógico?

Esse relógio tem alguma interface que alimenta um ERP?

Se a sirene ficar longe do relógio, será que o relógio daria um toque a um dispositivo (que sei que @.if adora) chamado LoRa?

Edvaldo J. Frederico · 19 de fevereiro

@.if @vtrx @rmlazzari58 obrigado

@.if Quando executo o campa.zip aparece essa mensagem (já baixei a inpout32.dll)

@rmlazzari58 o relógio de ponto são 3 henry prima R03, a empresa que instalou falou que não poderia ser ligado nada a não ser o cabo de rede.

Os relógio são digitais.

E além do mais na interface de rede não existe nem um campo para colocar os horários da sirene.

A gente possui esse acionar de sirene da cooel mais essa tranqueira fica adiantando a hora, esse é o segundo que compramos da marca.

.if · 19 de fevereiro

1 hora atrás, vtrx disse:

anexar "inpout32.dll".

Que legal que vcs tentaram rodar! Agora tenho todos os seus dados! .. brinc... claro.. Eis o .dll - também achável na net...

inpout32.dll.zip

Suponho que o lance da privileged instruction é porque você tem que rodar como administrador. Lembrando que seu pc deve possuir interfaces seriais caso queira MESMO acionar o relé. Pra quem manja muito de vb, delphi, borland c++ e afins até que poderia fazer pela usb mas penso que vale pouco a pena.

BCP · 20 de fevereiro

@Edvaldo J. Frederico Verifique se esse relógio não esta configurado para trabalhar em rede elétrica de 50Hz, isso faria que o relógio fique adiantando, pois ele usa a rede elétrica como sincronismo do relógio.

.if · 20 de fevereiro

Eu ia te dar outra ideota.. tipo usar um esp32 com um [módulo de] relé conectado na rede e programar uma página [de internet] nele pra você programar os horários e etc... Mas seria só o conceito semente sem nada prático pra te mostrar, portanto com valor quase nulo... Ao que me veio outra iluminação: um simples interruptor inteligente son-off (clique).

Barato, totalmente pronto, fácil de configurar os alarmes e etc. Ele usa um mc da família esp32. Praticamente a resposta ao título do seu tópico.

Ah sim.. testei o campa.exe no w10 [virtual] e funcionou de boa, ou melhor, não deu aquela mensagem. E me lembrei 1 pouco+.. : o projeto era pra tocar campainha numa escola pra tocar entre aulas. A ideia foi colocar um pc com windows 95/98.. Provavelmente você [caro leitor] nem tinha nascido ainda..

Edvaldo J. Frederico · 20 de fevereiro

1 hora atrás, BCP disse:

@Edvaldo J. Frederico Verifique se esse relógio não esta configurado para trabalhar em rede elétrica de 50Hz, isso faria que o relógio fique adiantando, pois ele usa a rede elétrica como sincronismo do relógio.

Bom dia Bruno, o relógio usa fonte chaveada convencional o problema está no acionador das sirene é ele que adianta a hora.

1 hora atrás, .if disse:

Eu ia te dar outra ideota.. tipo usar um esp32 com um [módulo de] relé conectado na rede e programar uma página [de internet] nele pra você programar os horários e etc... Mas seria só o conceito semente sem nada prático pra te mostrar, portanto com valor quase nulo... Ao que me veio outra iluminação: um simples interruptor inteligente son-off (clique).

Barato, totalmente pronto, fácil de configurar os alarmes e etc. Ele usa um mc da família esp32. Praticamente a resposta ao título do seu tópico.

Ah sim.. testei o campa.exe no w10 [virtual] e funcionou de boa, ou melhor, não deu aquela mensagem. E me lembrei 1 pouco+.. : o projeto era pra tocar campainha numa escola pra tocar entre aulas. A ideia foi colocar um pc com windows 95/98.. Provavelmente você [caro leitor] nem tinha nascido ainda..

Bom dia

Eu casa tenho essa tomada inteligente que se conecta no WIFI e você consegui acionar por um aplicativo no celular, será que existe algum aplicativo para windows?

Na empresa tem alguns computadores além dos servidores que ficam ligado 24 horas e eles estão na internet, desta forma consigo manter eles sempre sincronizado com a internet.

E sobre a frase " A ideia foi colocar um pc com windows 95/98.. Provavelmente você [caro leitor] nem tinha nascido ainda.. " a ideia é bacana, mais na época do windows 95 e 98 eu já era nascido, tenho mais de 40 anos e já usei Dos , Windows 3.11, 95, 98, 2000, 2003 (server), 2008 (server), 2012 (server), 2016 (server), ME, Vista, até o protótipo windows longhorn , XP, 7, 8, 8.1, 10 e 11.

.if · 20 de fevereiro

18 minutos atrás, Edvaldo J. Frederico disse:

será que existe algum aplicativo para windows?

Esta sua tomada não sei mas o sonoff ewelink que tenho alguns parece que tem opção pra controle pelo pc através de uma página de net.

Qualquer momento tento...

21 minutos atrás, Edvaldo J. Frederico disse:

ligado 24 horas e eles estão na internet, desta forma consigo manter eles sempre sincronizado com a internet.

Sim, o sonoff não tem relógio interno por isso ele usa a hora da internet pra acionar a programação.

Mas voltemos ao modo -é+... Verifique no manual ou fabricante do seu relógio...

... e vê se ele possui uma saída qualquer programável. Se for contato seco de um relé, melhora ainda. Aqueles números na lateral são de um borne? Pra que tudo aquilo.. ? Vai quê um par deles é um sinal qualquer...