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;
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;
Código Delphi [-] try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;
try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;