function [ObjectoPorta]=InicializaCOMM(Porta)
%---------------Inicializaçao da porta comm-------------------------------

ObjectoPorta=serial(Porta,'BaudRate',9600);
set(ObjectoPorta,'Terminator','0');
% set(ObjectoPorta,'Parity','odd');
fopen(ObjectoPorta);