Alarme Sensor Computador
Alarme Sensor Computador
Alarme Sensor Computador
Projeto e Desenvolvimento de um
Sensor com Transmissão Via
Rádio e Controlado por Software
Orientadores:
2
Sumário
1 – Introdução............................................................................................. 4
2 – Objetivos............................................................................................... 5
3 – Justificativa........................................................................................... 6
4 – Definição do Projeto.............................................................................. 7
5 – Modelagem........................................................................................... 8
7 – Análise..................................................................................................13
9 – Conclusões...........................................................................................16
3
11 INTRODUÇÃO
1
4
2 OBJETIVOS
5
3 JUSTIFICATIVA
6
4 DEFINIÇÃO DO PROJETO
7
5 MODELAGEM
antena
Oscilador baixa
Sensor freqüência Oscilador alta freqüência
antena
Detector super-regenerativo Amplificador de áudio Driver
relé Microcomputador
8
5.3 Características do Transmissor
RELÉ
4 1
IN OUT
SU
3
VCB
R3 R1
2
10k 33k
7
U1
3 V+ 5
V1 + OS2 Q1
R4
10V 6
OUT
10k
2 V- OS1 1 BC548C
-
LDR R2 AD741
4
33k
L1
C6
R6 C3
22k 1,5n
Q4
R8 R9
R5
22k 22k
4,7k R7 BF494 C4
82k 10p
C1 C2 C5
R10 100n
22n 22n
100
Q2
Q3
BC548C
BC548C
9
5.4 Características do Receptor
R4
4 1
IN OUT
SUB
3,3k
L1 3 RELÉ
C2 VC
R1 C3 10uH
1n
2
47k 1,2n R6
Q1 R9 R7
2,2M R10
C5 22k 120
R2 BC548C 5,6k
C1 1n V1
10k Q3
C11 6V
22u XRF C9
47u
Q2 Q4
R5 C7
R3 C4 100n
R8 C10
47k 1,2n 3,3k 100n
C6 C8 BC548C
33n 100 100n
33n
10
6 DESCRIÇÃO DA INTERFACE COM SOFTWARE
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
IOport, ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Timer1: TTimer; IOport1:
TIOport; Edit2: Edit; Label1: TLabel; Timer2: TTimer; Edit3: TEdit; Label2: TLabel;
Edit4: TEdit; Label3: TLabel; Edit5: TEdit; Edit6: TEdit; Label4: TLabel; Label5: TLabel;
MainMenu1: TMainMenu; Arquivo1: MenuItem; Novo1: TMenuItem; Sobre1: TMenuItem;
N1: TMenuItem; Fechar1: TMenuItem; procedure Button1Click(Sender: TObject); procedure
Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure
Sobre1Click(Sender: TObject); procedure Fechar1Click(Sender: TObject); procedure
Novo1Click(Sender: TObject); end;
var
Form1: TForm1; i: integer; a: integer=1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;timer2.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
begin
ioport1.read;
if ioport1.portdata=1 then
begin
i:=i+1;
edit1.text:=inttostr(i);
end;
end;
end ;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
case a of
1: begin label1.visible:=true;edit2.visible:=true;edit2.text:=edit1.text;end;
2: begin label2.visible:=true;edit3.visible:=true;
11
edit3.text:=inttostr(strtoint(edit1.text)-strtoint(edit2.text));end;
3: begin label3.visible:=true;edit4.visible:=true;
edit4.text:=inttostr(strtoint(edit1.text)-strtoint(edit3.text)-strtoint(edit2.text));end;
4: begin label4.visible:=true;edit5.visible:=true;
edit5.text:=inttostr(strtoint(edit1.text)-strtoint(edit4.text)-strtoint(edit3.text)-strtoint(edit2.text));end;
5: begin label5.visible:=true;edit6.visible:=true;
edit6.text:=inttostr(strtoint(edit1.text)-strtoint(edit5.text)-strtoint(edit4.text)-strtoint(edit3.text)-
strtoint(edit2.text));end;
end;
a:=a+1;
end;
procedure TForm1.Sobre1Click(Sender: TObject);
begin
showmessage('Visual Selva 1.3 - All right reserved');
end;
procedure TForm1.Fechar1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Novo1Click(Sender: TObject);
begin
edit1.text:='0';
edit2.visible:=false;label1.visible:=false;
edit3.visible:=false;label2.visible:=false;
edit4.visible:=false;label3.visible:=false;
edit5.visible:=false;label4.visible:=false;
edit6.visible:=false;label5.visible:=false;
a:=1;i:=0;timer2.enabled:=false;timer2.enabled:=true;
end;
end.
12
7 ANÁLISE
Transmissor
Receptor
13
C5 – 100 nF – cerâmica....................................................................................................R$0,30
C6 – 33 nF – cerâmica ou poliéster..................................................................................R$0,40
C7 – 100 nF – cerâmica ou poliéster................................................................................ R$0,40
C8 – 100 µF / 6V – eletrolítico..........................................................................................R$0,40
C9 – 47µF / 6V – eletrolítico............................................................................................ R$0,40
XRF – Choque RF –47µH................................................................................................R$.0,40
Relé 9V.............................................................................................................................R$ 7
Sensor
14
8 PLACA DE CIRCUITO IMPRESSO
Figura 8.2 –
Transmissor
(Vista superior)
15
9 CONCLUSÕES
16
10 REFERÊNCIAS BIBLIOGRÁFICAS
1 – MALVINO, Albert Paul. Eletrônica, vol. 1. São Paulo: MacGraw - Hill, 1987.
17