Microcontrolador pic16f877a y cport en delphi 7

[[coso]]

Quiza el problema esta en que por debajo de los 15 ms la aplicación aun esta ejecutando otro codigo, por lo que algunas muestras se 'pierden'...

bueno, es una idea. Quiza pasa por optimizar el codigo de 7.c...

[[FGarcia]]

Hola!
No me explique correctamente, los intervalos de 15 no son intervalos de ningun temporizador, son los intervalos que avanza en su posicion el trackbar.

Despues de dormir y descansar (aja!) probe con un timer en intervalos de 1ms e insisto funciona bien. Solo añadi al formulario un Timer con su propiedad Interval a 1 y un boton de inicio.

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
begin
  if timer1.Enabled then
    begin
      Button7.Caption := 'Timer On';
      timer1.Enabled := false;
    end
  else
    begin
      Button7.Caption := 'Timer Off';
      timer1.Enabled := true;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  trackbar1.Position := TrackBar1.Position + 1;
end;

[MaMu]

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
begin
  if timer1.Enabled then
    begin
      Button7.Caption := 'Timer On';
      timer1.Enabled := false;
    end  else    
    begin
      trackbar1.Position := 0; //Y esto no??? o mantenemos lo anterior?
      Button7.Caption := 'Timer Off';
      timer1.Enabled := true;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  trackbar1.Position := TrackBar1.Position + 1;
end;

Saludos