saindo na hora certa.
Penso em usar um real clock + garagino +4 display de 7 segmentos + campainha, mas as primeiras dúvidas são as seguintes:
1 - Vou precisar de um multiplexador? Qual? O
2 - Conseguirei printar a hora diretamente do real clock nos displays?
Muito obrigado pessoal!
Abraços,
…
ro em decimal veja abaixo:
{*Função para converter inteiro em hexadecimalAutor:Almir BispoData:11/01/2014Slogan:Yehovah é o Nome do Santo*}function Intparahex(intvalor:integer;forma:string):string;var o1,o2,o3,o4:tstringlist; i,ii,iii,iiii,ord:integer; str,formato:string;beginif forma='0' then begin formato:='$';end;if forma='1' then begin formato:='0x';end;o1:=tstringlist.create;o2:=tstringlist.create;o3:=tstringlist.create;o4:=tstringlist.create;o1.Delimiter:=char(';');o2.Delimiter:=char(';');o3.Delimiter:=char(';');o4.Delimiter:=char(';');o1.DelimitedText:=('0;1;2;3;4;5;6;7;8;9;a;b;c;d;e;f');o2.DelimitedText:=('0;1;2;3;4;5;6;7;8;9;a;b;c;d;e;f');o3.DelimitedText:=('0;1;2;3;4;5;6;7;8;9;a;b;c;d;e;f');o4.DelimitedText:=('0;1;2;3;4;5;6;7;8;9;a;b;c;d;e;f');ord:=0;for i:= 0 to o1.Count-1 dobegin for ii:= 0 to o2.count-1 do begin for iii:= 0 to o3.count-1 do begin for iiii:= 0 to o4.count-1 do begin if ord =intvalor then begin str:=o1.Strings[i]+o2.strings[ii]+o3.strings[iii]+o4.strings[iiii]; Result :=formato+str; exit; end; inc(ord); end; end; end;end; o1.free; o2.free; o3.free; o4.free;end;
///fim
Uma outra forma que desenvolvi para receber um exadecimal pela porta e transformar em inteiro é:
variavel_string := inttostr(int64(chr(variant(porta.ReadData))));
Estes códigos é usando o "velho e bom pascal" e deve colocar a unidade strutils em USES.
Este código uso perfeitamente com Lazarus e componentes 5dpo para acesso a serial
gibroh_webmaster@hotmail.com
…
, o meu buzzer não reproduz o som da forma que coloco no delay! se eu colocar o buzzer no gnd e em qualquer entrada digital do pino 2 ao pino 13 ele fica um bipe infinito não para de piscar. aliás no pino 13 próximo dele tem uma luz e ela fica piscando o tempo todo enquanto o arduino ta ligado a luz ta piscando. sabe o que pode ser? o código acho que digitei correto até mudei o pino.
void setup()
{
pinMode(7, OUTPUT); //
}
void loop()
{
digitalWrite(7, HIGH); //
delay(2000); //
digitalWrite(7, LOW); //
delay(2000); //
}
agora está serto né?
abs…