Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Código para deixar o processador 100% ocupado


Mestereko

Pergunta

trabalho como beta tester, mas n tenho muito conhecimento em programação, mas já tenho noções, a um tempo atrás eu fiz um código que fazia o processador ficar em 100% sempre, até eu mandar párar, mas eu perdi esse código e n me lembro como que faz, será que alguém tem uma idéia de como isso pode ser feito ? eu sei q é possivel, mas n lembro como... estou precisando urgente disso pra um teste de software... já de antemão agradeço...

Editado por Jhonas
3.6 É proibida a abertura de tópicos com títulos como "Socorro", "Ajuda", "Urgente", etc, ou com títulos que não descrevam a dúvida, como "Uma dúvida simples", "Alguém pode me ajudar?", "Dúvida de Ini
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
fiz um código que fazia o processador ficar em 100% sempre, até eu mandar párar

Exemplo: um programa de calculo em loop infinito vai fazer o processador ficar em 100%

voce pode usar um programa exemplo do delphi

C:\Arquivos de programas\Borland\Delphi5\Demos\Threads

basta deixa-lo rodando sem parar que o processador vai ficar em 100%

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Consegui lembrar como fazia, na verdade é bem simples, algumas linhas resolvem o problema...

pra quem quizer fazer isso um dia na vida ai vai:

procedure TForm1.Button1Click(Sender: TObject);
begin
   _uFim := true;
   while _ufim do
   begin
     application.ProcessMessages;
     sleep(0);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   _uFim := false;
end;
você declara a _uFim com sendo uma variavel boolean e pronto, um botão serve pra ligar e o outro pra desligar... agora é só usar a imaginação... end. Consegui lembrar como fazia, na verdade é bem simples, algumas linhas resolvem o problema... pra quem quizer fazer isso um dia na vida ai vai:
procedure TForm1.Button1Click(Sender: TObject);
begin
   _uFim := true;
   while _ufim do
   begin
     application.ProcessMessages;
     sleep(0);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   _uFim := false;
end;
end.

// você declara a _uFim com sendo uma variavel boolean e pronto, um botão serve pra ligar e o outro pra desligar...

Editado por Micheus
Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...