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
…
ndo:
aux = 1 << 3;
ficando :
aux = 0b00000100;
Na operação (continua &= ~ aux;) a variável "continua" recebe o valor que é resultado de uma AND entre ela mesma e o inverso do "aux":
00001111 (continua)
& 11111011 (~ aux)
--------------------------
00001011
Na operação (continua |= aux;) a variável "continua" recebe o valor que é resultado de uma OR entre ela mesma e "aux":
aux = 1 << 7;
00001111 (continua)
| 01000000 (aux)
--------------------------
01001111…
Adicionado por Yure Vieira ao 8:54 em 21 agosto 2013
Preciso conectar 7 cubos de led 3x3x3 ao Arduino Uno.
Pergunta 1) É possível fazer esta conexão sem danificar o Arduino?
2) Como seria este circuito? Devo usar o Drive de corrente?
variável do sensordecode_results codigo_recebido; // resultadoboolean teste=1;void setup(){Serial.begin(9600); //mostra o resultado no computadorir_recebe.enableIRIn(); // inicia a recepçãopinMode(rele, OUTPUT); //defini led como saída}void loop() {if (ir_recebe.decode(&codigo_recebido)) {//verifica se um codigo foi recebidoif (codigo_recebido.value != 0 ){Serial.println(codigo_recebido.value, HEX); //mostra no serial o resultado}if (codigo_recebido.value == 0x39C618E7) {// verifica se foi pressionado o numero 1 do controleteste=1;}if (codigo_recebido.value == 0x39C658A7) {// verifica se foi pressionado o numero 2 do controleteste =0;}if (teste==1){digitalWrite(rele, HIGH);delay(100);digitalWrite(rele, LOW);} else{digitalWrite(rele, LOW);}ir_recebe.resume(); // recebe o próximo códigodelay(200);}}…
ed[1].setLED(6, 5000); // LED 2 no pino 3 com tempo total de 5 segundos led[2].setLED(7, 10000); // LED 3 no pino 4 com tempo total de 10 segundos
button[0].setButton(2); // Botão 1 no pino 5 button[1].setButton(3); // Botão 2 no pino 6 button[2].setButton(4); // Botão 3 no pino 7}
Além disso, no meu teste usei INPUT_PULLUP para facilitar a montagem no protoboard, sem precisar dos push buttons. Com isso basta levar os pinos 2, 3 ou 4 para GND que aciona o botão.
Mas precisa inverter a lógica do teste de digitalRead() no void DebouncedButton::scanButton()
e alterar para iniciar o pino em pull up em void DebouncedButton::setButton(int pin)
…
1 volt, no caso, quando fosse aumentando esse potenciômetro, permanecendo a entrada em 1 volt, o resultado seria alterado equivalente a 5..6..7 PPM, o mesmo aconteceria com o segundo potenciômetro referente ao valor máximo.
acho que seria algo como faixas mínima e máxima que se modifica quando giramos os potenciômetro.…
otegido do tempo.
Todo dia, ore por 1 hora e a água se tornará pura em apenas 1 ano.
Caso não dê o resultado esperado, ore por 4 horas diárias em vez de 1 hora.
O mais importante: TENHA FÉ!
Boa sorte,
'Eiju
…
valor que fosse lançado. Se eu lançar 1, 3, 7, ela deveria ser igual a 11. Se eu lançar 4, deveria ser igual a 15. Sempre somando, "acumulando", valores, entende?…