Professor Wellington Telles

Cadastro de Clientes em Pascal

2012-05-21T18:14:00.001-03:00

Um leitor me passou a seguinte dúvida em Pascal:

“Elabore um programa de cadastro de clientes cujos dados devem ser salvos em um arquivo texto.

Exemplo:

assign(arq,’MariaSilva12345.txt’);

assign(arq,’MariaSilva12345_JoaoSouza5…

Deve ser seguida a estrutura de dado conforme ilustra a figura 1:

O programa deve permitir:

1. Incluir novo cliente;

2. Pesquisar por um cliente e mostrar;

3. Alterar dados de determinado cliente;

4. Excluir cliente;

5. Mostrar total de clientes cadastrados.

Para cada opção de operação, faça um subprograma.

As operações definidas nos itens 1, 3 e 4 devem ser gravadas no arquivo.”

Vamos a solução:

 Program Cadastro_de_Clientes;  
 Uses Crt;  
 Var  
  arq : Text;  
  s : String;  
  o : Byte;  
  codigo : String [5];  
  nome : String [50];  
  tname : String [40];  
  logradouro : String [50];  
  numero : String [10];  
  cidade : String [25];  
  email : String [30];  
  telefone : String [15];  
  celular : String [15];  
  quant : Text;  
 Procedure Incluir;  
 var  
  i, j : Integer;  
 Begin  
  WriteLn ('Incluir');  
  WriteLn;  
  WriteLn ('Cliente');  
  WriteLn;  
  Write ('Codigo:'); ReadLn (codigo);  
  Write ('Nome..:'); ReadLn (nome);  
  WriteLn;  
  WriteLn ('Endereco');  
  WriteLn;  
  Write ('Logradouro:'); ReadLn (logradouro);  
  Write ('Numero....:'); ReadLn (numero);  
  Write ('Cidade....:'); ReadLn (cidade);  
  WriteLn;  
  WriteLn ('Contato');  
  WriteLn;  
  Write ('E-mail..............:'); ReadLn (email);  
  Write ('Telefone residencial:'); ReadLn (telefone);  
  Write ('Celular.............:'); ReadLn (celular);  
  // Remove Espacos  
  tname := nome;  
  while pos(' ',tname)<>0 do delete (tname,pos(' ',tname),1);  
  // Grava os dados  
  Assign (arq,tname+codigo);  
  ReWrite (arq);  
  WriteLn (arq,codigo);  
  WriteLn (arq,nome);  
  WriteLn (arq,logradouro);  
  WriteLn (arq,numero);  
  WriteLn (arq,cidade);  
  WriteLn (arq,email);  
  WriteLn (arq,telefone);  
  WriteLn (arq,celular);  
  Close (arq);  
  // Le a quantidade de registros  
  Assign (quant,'quantidade.txt');  
  Reset (quant);  
  ReadLn (quant,s);  
  val (s,i,j);  
  Close (quant);  
  // Soma 1 e grava  
  i := i + 1;  
  Assign (quant,'quantidade.txt');  
  ReWrite(quant);  
  Str(i,s);  
  WriteLn (quant,s);  
  Close (quant);  
 End;  
 Procedure Pesquisar;  
 Begin  
  WriteLn ('Pesquisar');  
  WriteLn;  
  Write ('Codigo:'); ReadLn (codigo);  
  Write ('Nome..:'); ReadLn (nome);  
  // Remove Espacos  
  tname := nome;  
  while pos(' ',tname)<>0 do delete (tname,pos(' ',tname),1);  
  Assign (arq,tname+codigo);  
  {$I-}  
  Reset (arq);  
  if IORESULT()<>0 then  
  Begin  
   WriteLn ('Cliente nao encontrado!');  
   ReadLn;  
  End  
  Else  
  Begin  
   WriteLn ('Cliente');  
   WriteLn;  
   ReadLn (arq,codigo);  
   WriteLn ('Codigo:',codigo);  
   ReadLn (arq,nome);  
   WriteLn ('Nome..:',nome);  
   WriteLn;  
   WriteLn ('Endereco');  
   WriteLn;  
   ReadLn (arq,logradouro);  
   WriteLn ('Logradouro:',logradouro);  
   ReadLn (arq,numero);  
   WriteLn ('Numero....:',numero);  
   ReadLn (arq,cidade);  
   WriteLn ('Cidade....:',cidade);  
   WriteLn;  
   WriteLn ('Contato');  
   WriteLn;  
   ReadLn (arq,email);  
   WriteLn ('E-mail..............:',email);  
   ReadLn (arq,telefone);  
   WriteLn ('Telefone residencial:',telefone);  
   ReadLn (arq,celular);  
   WriteLn ('Celular.............:',celular);  
   Close (arq);  
   ReadLn;  
  End;  
  {$I+}  
 End;  
 Procedure Alterar;  
 Begin  
  WriteLn ('Alterar');  
  WriteLn;  
  Write ('Codigo:'); ReadLn (codigo);  
  Write ('Nome..:'); ReadLn (nome);  
  // Remove Espacos  
  tname := nome;  
  while pos(' ',tname)<>0 do delete (tname,pos(' ',tname),1);  
  Assign (arq,tname+codigo);  
  {$I-}  
  Reset (arq);  
  if IORESULT()<>0 then  
  Begin  
   WriteLn ('Cliente nao encontrado!');  
   ReadLn;  
  End  
  Else  
  Begin  
   WriteLn ('Cliente');  
   WriteLn;  
   ReadLn (arq,codigo);  
   WriteLn ('Codigo:',codigo);  
   ReadLn (arq,nome);  
   WriteLn ('Nome..:',nome);  
   WriteLn;  
   WriteLn ('Endereco');  
   WriteLn;  
   ReadLn (arq,logradouro);  
   WriteLn ('Logradouro:',logradouro);  
   ReadLn (arq,numero);  
   WriteLn ('Numero....:',numero);  
   ReadLn (arq,cidade);  
   WriteLn ('Cidade....:',cidade);  
   WriteLn;  
   WriteLn ('Contato');  
   WriteLn;  
   ReadLn (arq,email);  
   WriteLn ('E-mail..............:',email);  
   ReadLn (arq,telefone);  
   WriteLn ('Telefone residencial:',telefone);  
   ReadLn (arq,celular);  
   WriteLn ('Celular.............:',celular);  
   Close (arq);  
   WriteLn;  
   WriteLn ('Cliente');  
    WriteLn;  
    Write ('Codigo:'); ReadLn (codigo);  
    Write ('Nome..:'); ReadLn (nome);  
    WriteLn;  
    WriteLn ('Endereco');  
    WriteLn;  
    Write ('Logradouro:'); ReadLn (logradouro);  
    Write ('Numero....:'); ReadLn (numero);  
    Write ('Cidade....:'); ReadLn (cidade);  
    WriteLn;  
    WriteLn ('Contato');  
    WriteLn;  
    Write ('E-mail..............:'); ReadLn (email);  
    Write ('Telefone residencial:'); ReadLn (telefone);  
    Write ('Celular.............:'); ReadLn (celular);  
    // Remove Espacos  
    tname := nome;  
    while pos(' ',tname)<>0 do delete (tname,pos(' ',tname),1);  
    // Grava os dados  
    Assign (arq,tname+codigo);  
    ReWrite (arq);  
    WriteLn (arq,codigo);  
    WriteLn (arq,nome);  
    WriteLn (arq,logradouro);  
    WriteLn (arq,numero);  
    WriteLn (arq,cidade);  
    WriteLn (arq,email);  
    WriteLn (arq,telefone);  
    WriteLn (arq,celular);  
    Close (arq);  
  End;  
  {$I+}  
 End;  
 Procedure Excluir;  
 var  
  confirma : String[1];  
  i,j : Integer;  
 Begin  
  WriteLn ('Excluir');  
  WriteLn;  
  Write ('Codigo:'); ReadLn (codigo);  
  Write ('Nome..:'); ReadLn (nome);  
  // Remove Espacos  
  tname := nome;  
  while pos(' ',tname)<>0 do delete (tname,pos(' ',tname),1);  
  Assign (arq,tname+codigo);  
  {$I-}  
  Reset (arq);  
  if IORESULT()<>0 then  
  Begin  
   WriteLn ('Cliente nao encontrado!');  
   ReadLn;  
  End  
  Else  
  Begin  
   WriteLn ('Cliente');  
   WriteLn;  
   ReadLn (arq,codigo);  
   WriteLn ('Codigo:',codigo);  
   ReadLn (arq,nome);  
   WriteLn ('Nome..:',nome);  
   WriteLn;  
   WriteLn ('Endereco');  
   WriteLn;  
   ReadLn (arq,logradouro);  
   WriteLn ('Logradouro:',logradouro);  
   ReadLn (arq,numero);  
   WriteLn ('Numero....:',numero);  
   ReadLn (arq,cidade);  
   WriteLn ('Cidade....:',cidade);  
   WriteLn;  
   WriteLn ('Contato');  
   WriteLn;  
   ReadLn (arq,email);  
   WriteLn ('E-mail..............:',email);  
   ReadLn (arq,telefone);  
   WriteLn ('Telefone residencial:',telefone);  
   ReadLn (arq,celular);  
   WriteLn ('Celular.............:',celular);  
   Close (arq);  
   Repeat  
    Write ('Confirma apagar (S/N)?');  
    ReadLn (confirma);  
   Until (confirma='S') or (confirma='N');  
   if confirma='S' then  
   begin  
    Assign (arq, tname+codigo);  
    Erase (arq);  
    // Le a quantidade de registros  
    Assign (quant,'quantidade.txt');  
    Reset (quant);  
    ReadLn (quant,s);  
    val (s,i,j);  
    Close (quant);  
    // diminui 1 e grava  
    i := i - 1;  
    Assign (quant,'quantidade.txt');  
    ReWrite(quant);  
    Str(i,s);  
    WriteLn (quant,s);  
    Close (quant);  
   end;  
   ReadLn;  
  End;  
  {$I+}  
 End;  
 Procedure Quantidade;  
 Var  
  s : String;  
 Begin  
  Assign (quant,'quantidade.txt');  
  Reset (quant);  
  ReadLn (quant,s);  
  Close (quant);  
  WriteLn ('Ha ',s,' registro(s)!');  
  ReadLn;  
 End;  
 Begin  
  Assign (quant,'quantidade.txt');  
  {$I-}  
  Reset (quant);  
  if IORESULT()<>0 then  
  Begin  
  {$I+}  
   ReWrite (quant);  
   WriteLn (quant,'0');  
  End;  
  Close (quant);  
  o := 0;  
  Repeat  
   ClrScr;  
   WriteLn ('Cadastro de Clientes');  
   WriteLn;  
   WriteLn ('1. Incluir');  
   WriteLn ('2. Pesquisar');  
   WriteLn ('3. Alterar');  
   WriteLn ('4. Excluir');  
   WriteLn ('5. Quantidade de Clientes');  
   WriteLn ('0. Sair');  
   WriteLn;  
   ReadLn (o);  
   Case o of  
    1 : Incluir;  
    2 : Pesquisar;  
    3 : Alterar;  
    4 : Excluir;  
    5 : Quantidade;  
   End;  
  Until o =0;  
 End.

Editor PDF Gratuito é Wondershare PDF Editor

2012-05-12T14:37:00.001-03:00

Quantas vezes você não quis editar algo em um arquivo PDF?

O Adobe Acrobat é caro e vários outros editores também.

Agora trago o Wondershare PDF Editor onde permitir editar e converter seus arquivos PDF. Ele pode editar todo o documento, não só anotações.

Ainda tem a possibilidade de converter de PDF para Word.

Após instalar, desinstale a barra do ASK para não ficar incomodando.

Compatibilidade: MAC, Windows XP, Vista e 7

Licença: Freeware

Link: http://www.wondershare.com/pdf-editor/

Download:

Windows: http://download.wondershare.com/pdf-editor_full1042.exe

Mac (Free Trial):

http://download.wondershare.com/mac-pdf-editor_full738.dmg

Papel de Parede Anti Wireless

2012-05-12T13:07:00.001-03:00

Não só no Brasil, mas em alguns países o longo alcance de um roteador Wireless pode ser um problema, pois além de interferir em outros roteadores, os seus vizinhos podem querer usar ou bisbilhotar a sua rede Wireless.

Vale lembrar que alguns roteadores têm funções capazes de reduzir a potência.

Mas, além disso de acordo com ITProPortal foi desenvolvido uma papel de parede que bloqueia sinais WI-FI. Foi desenvolvido por cientistas do Instituto Politécnico de Grenoble (França) e do Centre Technique Du Papier.

O papel de parede contém partículas de prata que pelo padrão é capaz de filtrar três frequências de rádio simultaneamente.

A primeira tentativa a alguns anos atrás gerou um papel de custo em torno de 620 euros o metro quadrado, já essa nova versão tem o custo similar a um papel de parede de mesma espessura.

A previsão de venda é para 2013 assim que a empresa adquirir a licença.

Diablo III já está sendo vendido

2012-05-05T11:00:00.001-03:00

Finalmente depois de longa espera e promessas contínuas o jogo Diablo III foi lançado e já se encontra em pré-venda. Em várias lojas você já pode encomendar.

A previsão é para o dia 07 de junho de 2012.

Para pré-venda tem camiseta extra e versão em português.

Em Curitiba o Link das Livrarias Curitiba para comprar:

http://www.livrariascuritiba.com.br/listgroup.aspx?idlistgroup=diblo%20iii

Freeware para Diagnóstico de Disco Rígido

2012-05-01T13:34:00.001-03:00

Continuando o post anterior, vou apresentar um software para verificar se o disco rígido já apresenta algum defeito.

O software CrystalDiskInfo é capaz de fazer o diagnóstico do disco rígido que suportam o S.M.A.R.T. e parte dos disco rígidos externos (USB-HDD).

Compatibilidade: Windows XP em diante

Licença: Freeware

Link: http://crystalmark.info/software/CrystalDiskInfo/index-e.html

Download: http://crystalmark.info/download/index-e.html#CrystalDiskInfo

Instalável:http://release.crystaldew.info/redirect.php?product=CrystalDiskInfoSetupEn

Quando Devemos Trocar um Disco Rígido

2012-05-01T12:48:00.001-03:00

O disco rígido tem uma vida útil e como é um disco físico e de metal girando com um motor elétrico, depois de certo tempo o seu funcionamento pode falhar, mas quando é a hora certa para essa troca?

Se o disco rígido falhar e dentro dele tiver dados importantes que você não fez backup, você irá gastar um bom dinheiro para recuperar os dados (mais de R4 1.000,00).

Então como se precaver?

Primeiro, sempre faça backups regularmente em um DVD ou em um disco rígido externo.

Segundo, tem vários programas que fazer a avaliação do seu disco rígido e vai dizer o status dele. Em alguns computadores ao ligar o aviso é imediato desde que esteja habilitado o S.M.A.R.T na BIOS do seu computador.

Se tanto o programa ou a BIOS acusarem que há uma falha no seu disco rígido, o meu conselho é que o quanto antes vá a uma loja de informática e já compre outro disco rígido e faça a migração de um disco para o outro.

Aceitar Só Números e Limitar a Quantidade de Números em Pascal

2012-04-27T16:36:00.001-03:00

Com a dúvida de um leitor eu resolvi fazer uma versão completa para que ao receber um dado numérico, só aceite números e que tenha um limite de números.

Isso é muito bem aplicado, pois em um programa Pascal se você inserir uma letra em um programa que estava esperando um número o programa será interrompido.

Não descobri ainda uma solução simples, pois o controle tem de ser total do programa.

É claro que podemos colocar esse programa em uma função que facilita bastante em aplicações maiores.

Alguns já vão dizer: Para que tanto esforço para uma coisa dessas em Pascal?

Eu explico que: Esse programa é aplicado a várias outras liguagens de programação e é pela própria origem dos objetos do Windows.

Vamos ao programa:

 Program NUMERO_LIMITADO;  
 Uses Crt;  
 Const  
  algarismos = ['0'..'9'];  
  backspace = chr(8);  
  enter = chr(13);  
 Var  
  tecla : Char;  
  resultado : String;  
  digitos : Byte;  
  numero : Integer;  
  erro : Integer;  
 Begin  
  ClrScr;  
  resultado := '';  
  Write ('Entre com um numero de 6 digitos:');  
  digitos := 0;  
  repeat  
   repeat  
    tecla := ReadKey;  
   until (tecla in algarismos) or (tecla=backspace) or (tecla=Enter);  
   if digitos < 6 then  
   if (tecla in algarismos) then  
   Begin  
    resultado := resultado + tecla;  
    Write (tecla);  
    digitos := digitos + 1;  
   End;  
   if (tecla = Backspace) then  
   Begin  
    if (digitos > 0) then  
    Begin  
     gotoXY (wherex-1,wherey);  
     clreol;  
     delete(resultado,Length(resultado),1);  
     digitos := digitos - 1;  
    End;  
   End;  
  until (digitos = 6) and (tecla = Enter);  
  WriteLn;  
  WriteLn ('Resultado:',Resultado);  
  ReadLn;  
 End.

Qualquer dúvida entre em contato.

Pascal para Técnicos e Universitários

2012-04-26T20:33:00.001-03:00

Em breve estarei lançando o meu livro dedicado a muitos alunos e leitores com inúmeros exercícios e trabalhos resolvidos.

Assim que concluir estarei buscando uma editora para ter uma boa divulgação de aplicação de linguagem Pascal para o aprendizado de lógica e programação.

Lâmpada de LED economiza energia?

2012-04-22T14:29:00.001-03:00

Durante 2 anos eu trabalhei em indústria de iluminação onde lidava com marketing técnico e dava treinamento a vendedores de lâmpadas com todos os aspectos técnicos e construtivos.

O que é o LED?

Light Emitting Diode : Diodo Emissor de Luz.

Wiki: http://pt.wikipedia.org/wiki/Diodo_emissor_de_luz

Foi inventado em 1962, mas a sua primeira produção de led se deu no ano de 1968 e vem sendo aplicado em circuitos eletrônicos com a função de identificação, como exemplo, no seu MODEM tem 3 ou 4 LEDs para indicarem a atividade de estar ligado, conexão de rede, acesso a internet e ADSL.

Os LEDs sempre tiveram uma baixa luminosidade, mas em 2008 foi inventado um LED de alta luminosidade e chegando a 300 lumens.

Wiki: http://pt.wikipedia.org/wiki/L%C3%BAmen

Desde então começou o processo de substituir a fontes luminosas por LED.

De imediato as vantagens iniciais já se dava pela durabilidade:

1 lâmpada incandescente (comum) dura em média 1000 horas

1 lâmpada fluorescente (compacta ou não) dura em torno de 8000 horas

1 lâmpada LED dura média 25000 horas

O consumo de energia é 5 vezes menor segundo alguns sites e fabricantes.

Na prática a eficiência luminosa não tem sido tão boa quanto as incandescentes e fluorescentes e o seu custo ainda é elevado.

Eu mesmo já fiz um teste prático trocando lâmpadas dicroica por LED e o resultado final foi menor consumo e menor claridade. Um dicroica custa R$ 3,00 e uma de LED custa R$ 28,00.

Creio que o caminho é bom, mas ainda está longe de bons fabricantes trazerem ao mercado uma boa lâmpada de LED.

Dados do Megaupload estão seguros

2012-04-15T18:48:00.001-03:00

O tribunal decidiu que os 25 petabytes que estão armazenados e que correspondem ao conteúdo presente nos servidores do MegaUpload deverão continuar seguros e guardados até que haja mais detalhes sobre o processo.

Assim espero, pois toda a informação do blog é 100% free quando não é de minha própria autoria.
Esta decisão surge depois de se saber que existe faturas por pagar, por parte da MegaUpload, à empresa de alojamento Carpathia Hosting, que é responsável pela manutenção de 1.100 servidores do MegaUpload.

A defesa acredita que esta decisão pode ajudar a um desfecho favorar ao MegaUpload visto que muitos dos dados presentes nesses servidores podem vir a ser usados como provas na inocência de Kim Dotcom.
Recorde-se que Kim Dotcom e outros responsáveis do serviço são acusados de ter beneficiado em mais de 175 milhões de dólares pela criação do MegaUpload, causando danos superiores a 500 milhões de dólares em direitos de autor. Se forem condenados podem ter penas que vão até 20 anos de prisão, mas dúvido e creio que ao pagarem uma boa multa, tudo ficará no zero a zero.

Como Criar E-mail do Facebook

2012-04-15T18:32:00.001-03:00

Se você não tinha e-mail do Facebook, agora vai querer ter depois da notícia anterior.

Vamos aprender como criar.

Passo 1 – Abra o seu Facebook

Passo 2 – Vá em Conta e Configurações de Conta

Passo 3 – Clique em edita na aba “NOME DO USUÁRIO”

Passo 4 – Defina seu nome, mas fique atento, pois o seu endereço de e-mail também definirá o seu perfil: www.facebook.com/seunome

Passo 5 – Acesse o endereço:

www.facebook.com/about/messages

Passo 6 – Clique em requisitar convite

Passo 7 – Aguarde o convite chegar no seu e-mail

E-mail do Facebook

2012-04-15T18:26:00.001-03:00

O Facebook quer dominar outras áreas e em breve terá o seu buscador completo.

De imediato você já pode ter o seu e-mail xxxxx@facebook.com.

Se você ainda não colocou um endereço de e-mail no seu facebook automaticamente será criado um e-mail com sufixo do facebook.

Link: http://www.facebook.com/about/messages/

Vírus Isis Valverde na Playboy

2012-04-14T18:01:00.001-03:00

Você chegou ao site achando que ia ver a Isis Valverde na Playboy.

Isso é o grande engano de muito usuários que atraídos por dinheiro ou sexo acabam caindo em golpes.

Sei que muitos leitores aqui do blog já estão “ligados” que essas coisas que NÃO ACONTECERAM ou que NÃO EXISTEM.

Pode ser que atora X, Y ou Z saia nessa ou naquela revista, mas lembre-se que tudo ao seu tempo.

Cada dia mais me convenço que a internet também é um facilitador para os golpistas, pois o alcance é muito maior.

Não existe:

- dinheiro fácil (tudo tem um método e dedicação)

- todas as atrizes saem em revista (nem todas concordam com isso)

Então fique “ligado”! Se eu tivesse colocado um vírus nesse link você já teria caído.

Fim do Windows XP é em 2014

2012-04-12T20:17:00.001-03:00

A Microsoft novamente anuncia o fim do Windows XP com data oficial e tudo mais (8 de abril de 2014).

Esse é o sistema operacional com mais tempo de uso: 12 anos e 5 meses que bate o recorde do Windows NT em dois anos e meio a mais.

Junto com ele o Office 2003 também será encerrado.

Link do anúncio: http://www.microsoft.com/en-us/windows/endofsupport.aspx

Campanha Contra Produtos da China de Baixa Qualidade

2012-04-08T11:09:00.001-03:00

No centro de São Paulo há vários Shoppings com produtos da China.

Não tenho nada contra produtos da China, pois até na Disney você compra produtos oficiais e vê o selo: MADE IN CHINA, mas vale lembrar que esses produtos não tem vantagem de serem produzidos nos Estados Unidos.

No Brasil a realidade é outra e a entrada vários produtos da China vêm eliminando empregos no Brasil.

Os produtos que mais prejudicam a nossa economia são os produtos de BAIXA QUALIDADE.

Ai você me diz que o de melhor qualidade custaria mais caro. Respondo que há um tremendo engano, pois apenas os produtos ruins vêm para o Brasil. Em outros países eles são recusados não pela importação, mas pelo povo do país, ou seja, se o produto é de baixa qualidade as pessoas NÃO COMPRAM.

Um exemplo clássico: um boné imitando uma marca vêm com linha solta e não dura alguns meses, celulares que não funcionam direito, tênis em que o solado descola inteiro, ferramentas que quebram na primeira usada entre outros problemas.

Por experiência própria o preço de produtos da China em outros países é em média o mesmo daqui, com uma principal diferença: QUALIDADE!

Cada vez que você compra esses produtos você está jogando dinheiro seu fora e prejudicando a economia brasileira.

Ajude ao seu país não comprando mais essas PORCARIAS!

Divulgue isso e vamos dizer NÃO A BAIXA QUALIDADE!

Prof. Wellingto Telles

Google Chrome Sempre Abrindo a Última Página

2012-04-07T18:45:00.001-03:00

Sei que os navegadores estão em uma briga boa, mas tem aparecido tanta coisa que está até irritando.

Se o seu Google Chrome está abrindo sempre a última página trago a solução para voltar ao normal.

Passo 1 – Ferramenta do Google Chrome

Clique no simbolo de ferramenta do seu Google Chrome e selecione Configurações.

Selecione Abrir a página inicial e tudo resolvido.

Ventoinha ou Cooler funcionam, mas não te vídeo

2012-04-07T11:19:00.001-03:00

A dúvida do leitor “Um Homem no Buraco” é clássica e já passei por ela algumas vezes.

A origem mais comum disso é problema com a placa de vídeo.

Indo mais a fundo e para confirmar isso temos que remover todas as placas encaixadas no computador e memórias e limpar os contatos com um lápis borracha ou uma borracha. Depois, encaixe as memórias e tente ligar. Se ouvir o BEEP (1 apenas) significa que a memória não está com problemas.

Se a placa de vídeo for ONBOARD e o vídeo não sair nesse momento isso signifca que não está mais funcionando e terá que comprar uma placa vídeo para encaixar (OFF-BOARD). Se a sua placa vídeo for de encaixar eu aconselho a encaixá-la e tentar ligar novamente.

Deixe para o final as outras placas (caso tenha mais placa), pois se uma outra placa estiver com defeito pode não deixar o computador ligar.

Caro leitor, se tiver um amigo que possa lhe emprestar uma placa de vídeo será ainda melhor, pois se aparecer a imagem, signifca que a sua placa de vídeo pifou.

HP Decepção Parte 238 problema da Hibernação

2012-04-05T19:28:00.001-03:00

A minha decepção de 3 vezes com a HP já foi contada aqui. Agora a minha lista ampliou e muito com meus amigos e alunos.

Eu achava a principio que o problema estava com os HPs do Brasil, mas já contatei o mesmo problema com HP da Inglaterra e Espanha.

O preço do conserto é aburdo: em torno de R$ 750,00.

O problema quando o laptop entra em Hibernação e não volta. Depois disso não carrega mais a bateria e a solução é assistência técnica.

Algumas pessoas ainda tem tentado uma solução mais barata que é um RESOLDA do chipset que custa em torno de R$ 300,00, mas pode voltar a dar problema.

A HP parece não se encomodar com isso e não tem feito nada, pois é um dos maiores do mundo no segmento.

Vamos dar a resposta e divulgar essa informação e mostrar como se resolve o problema: DIGA NÃO A HP!

Ai Seu Eu Te Pego na Alemanha em Marcas de Carros (Nissan)

2012-04-05T18:48:00.001-03:00

Um Alemão muito criativo fez uma versão com veículos.

O link que estou passando é o original:

http://www.youtube.com/watch?v=GYSeBEsf4Xk

Windows 8 Transformation Pack, transforme a cara do seu Windows igual ao Windows 8

2012-04-01T20:27:00.001-03:00

Se você quiser deixar o seu Windows XP, Vista ou 7 com a cara do Windows 8, você já tem uma solução: o Windows 8 Transformation Pack.

Você poderá também atualizar o Windows Server 2003 e 2008.

A instalação é simples, mas recomendo criar um ponto de restauração antes de aplicar, pois a volta desses tipos de programas nem sempre é muito boa.

Compatibilidade: Windows XP em diante

Licença: Freeware

Link: http://www.windowsxlive.net/windows-8-transformation-pack

Downloads: http://winxsoft.com/nohotlink/8TP4.zip

Windows 8 pode não sair por inviabilidade

2012-04-01T11:12:00.001-03:00

Você entusiasta não vai gostar dessa notícia, pois depois de tanta expectativa é provável que o Windows 8 não saia. Em entrevista à CNN, Chris Stevens, Diretor de gestão de produto da Microsoft, revelou que o novo Windows tem tanta expectativa e exigência do mercado que há a possibilidade de transforma-ló em uma Win8Store com apoio ao Windows 7.

Chris se argumentou:

“o Windows 8 teria de ser o sistema operacional dos sistemas operacionais e neste momento a nossa mão de obra motriz não está a ser capaz de desenvolver um novo sistema que seja compatível a nível de retroatividade e possa ao mesmo tempo oferecer uma linha futurística no que toca ao desenvolvimento de aplicações” e “ao não conseguirmos os desenvolvimentos esperados, optamos por um lançamento de uma nova versão do Windows 7, a versão 2.0 com uma mega store online à semelhança da nossa concorrência, vulgo Apple.”

A decisão tomada é para evitar que o Windows 8 se torne um fiasco como o Windows Vista.

Eu particularmente não venho aprovando as versões beta do Windows 8 e a mudança que está vindo, mais atrapalha do que resolve. Ainda acho que quanto os monitores touch ficarem acessíveis, os sistemas operacionais poderão ter uma mudança mais radical.

Como Recuperar HD que o Windows quer Formatar ou HD no formato RAW

2012-03-31T18:00:00.001-03:00

Não só mal o uso de um disco rígido (HD ou melhor HDD – Hard Disk Drive) ou vírus podem causar um problema na leitura do disco rígido.

Os sintomas:

1. O Windows quer formatar

2. No Gerenciamento do computador o disco aparece com RAW

3. É possível acessar o HDD, mas não o conteúdo

Se for em um laptop o mesmo diz que está sem sistema operacional.

É possível recuperar?

Sim. 100% recuperável nesses casos acima citados.

Precauções

1. Pare de usar o disco imediatamente

2. Não formate o tente gravar algo nesse disco rígido

3. Tenha disponível um outro disco rígido com espaço suficiente para recuperar os dados, pois NUNCA recupere sobre o mesmo disco, além de ineficaz, poderá danificar os demais dados

Quanto custa para enviar a um técnico ou local especializado?

O valor poderá variar de cidade para cidade, mas existem preços médios cobrados por técnicos e assistências:

Um técnico cobra em torno de R$ 250,00, mas o preço pode variar de acordo com tamanho do disco, pois recuperar um disco de 80Gb leva um tempo, mas um de 1Tb vai levar bem mais tempo.

Já uma assistência especializada poderá começar com o preço em torno de R$ 500,00 e poderá subir bastante de acordo com a quantidade e a dificuldade de recuperar os dados.

Detalhe, em alguns casos será necessário um novo disco rígido, então inclua o preço de um disco rígido novo.

Como Recuperar Sozinho?

Passo 1 – Disco Rígido e Espaço

Tenha espaço suficiente em outro disco rígido para recuperação.

Se o HDD estiver em um laptop/notebook/netbook você vai precisar ou de uma gaveta para disco rígido externo ou cabos (SATA/IDE + cabo de energia) para ligar em um desktop (esse processo é mais rápido).

Encaixe o HDD em outro computador.

Passo 2 – Programa para Recuperação

Até essa edição do blog eu não encontrei um método seguro de recuperar os dados sem um programa, então vamos a lista de programas recomendados:

1 – File Scavenger (Pago)

2 – RStudio (Pago)

Passo 3 – File Scavenger

É um programa de 2008 que ainda está muito bem atualizado a todas as versões do Windows, pois as partições continuam com o mesmo padrão e esse é o programa recomendado.por mim.

Link: http://www.quetek.com/prod02.htm

Preço: US$ 49,95

Detalhe, nunca tente instalar no mesmo drive que você irá recuperar.

a. Selecione o Drive com problemas em: Look in

b. Selecione: Long, para procurar todos os arquivos por completo

c. Clique no botão: Search

Se você quiser só recuperar os arquivos do disco rígido e não os deletados selecione: YES. Se quiser recuperar os arquivos que foram apagados do disco rígido (que não é o nosso caso) selecione No.

O processo irá levar horas para reconhecer todos os dados do disco rígido e quanto maior o disco, mais tempo irá demorar.

Ao terminar o processo:

O tempo foi curto, pois abortei o processo. Clique no botão OK.

Clique no botão TREE VIEW

Agora irá aparecer a árvore de diretórios onde será possível selecionar as pastas onde estão os arquivos.

Marque o drive completo, ou apenas as pastas que interessarem.

Selecione a aba STEP2: Recover

Selecione o drive para onde você deseja recuperar e aperte o botão RECOVER.

Normalmente eu seleciono:

Generate a new unique filename

Always use this response and not ask this question again.

Aguarde a recuperação que também levará algumas horas, pois tem que copiar o conteúdo de um HDD para o outro.

Pronto. A recuperação foi feita com sucesso.

Há mais detalhes sobre recuperação, mas o foco dessa é recuperar discos rígidos com problemas de leitura do formato RAW.

Acabei de ajudá-lo a economizar, então o que custa ajudar ao blog clicando nos anunciantes do blog de vosso interesse.

Esse documento está registrado e é proibido cópias sem autorização.

Ainda está com dúvida? Entre em contato comigo: telles.wellington@bol.com.br, terei o prazer em ajudá-lo. Se você mora em Curitiba, eu faço a recuperação a um preço mais em conta para os leitores do blog.

Artilheiro do Brasileirão em Pascal

2012-03-25T14:36:00.001-03:00

Um dos leitores me pediu ajuda com um exercício em Pascal que envolvia a determinação do média de gols, o artilheiro que fez mais gols e o que fez menos gols.

Como a leitor já tinha aprendido a expressão ARRAY o programa ficou mais simples e viável.

Melhoras posteriores seria do caso em que dois jogadores empataram com mais ou menos gols, mas isso poderá ser feito de acordo com solicitação dos demais leitores.

Programa:

 Program Artilheiros_do_Brasileirao;  
 Uses Crt;  
 Type  
  TJogador = Record  
   Nome : String [40];  
   Clube : String [30];  
   Gols : Integer;  
  End;  
 Var  
  Jogador : Array [1..20] of TJogador;  
  Maior, Menor, Total, n : Integer;  
  Media : Real;  
  i, j, k : Integer;  
 Begin  
  // Tela Inicial  
  ClrScr;  
  WriteLn ('Artilheiros do Brasileirao');  
  WriteLn;  
  // Verifica se o numero de jogadores esta entre 2 e 20  
  Repeat  
   Write ('Quantos jogadores irao participar (2 a 20)?');  
   ReadLn (n);  
   if (n<2) or (n>20) then WriteLn ('Numero invalido!');  
  Until (n>=2) and (n<=20);  
  // Inicializa o Total com 0  
  Total := 0;  
  // Entrada dos dados dos jogadores  
  For i := 1 to n do  
  Begin  
   Write ('Nome....: '); ReadLn (Jogador[i].Nome);  
   Write ('Clube...: '); ReadLn (Jogador[i].Clube);  
   Write ('Gols....: '); ReadLn (Jogador[i].Gols);  
   Total := Total + Jogador[i].Gols;  
  End;  
  // Calculo da Media de Gols  
  Media := Total / n;  
  // Determinar o maior goleador  
  Maior := Jogador[1].Gols;  
  j := 1;  
  for i := 2 to n do  
   if Jogador[i].Gols > Maior then j := i;  
  // Determinar o menor goleador  
  Menor := Jogador[1].Gols;  
  k := 1;  
  for i := 2 to n do  
   if Menor > Jogador[i].Gols then k := i;  
  // Mostra Resultados  
  WriteLn ('A media de gols foi de ',media:5:2,' gols.');  
  WriteLn ('O maior goleador foi ',Jogador[j].Nome,' com ',Jogador[j].Gols,  
       ' do clube ',Jogador[j].Clube,'.');  
  WriteLn ('O menor goleador foi ',Jogador[k].Nome,' com ',Jogador[k].Gols,  
       ' do clube ',Jogador[k].Clube,'.');  
  // Pausa final  
  ReadLn;  
 End.

Acelerando o Windows 7, Vista e XP

2012-03-24T14:17:00.001-03:00

Por melhor que seja o sistema operacional as configurações originais não correspondem a 100% dos computadores, então é possível fazer alguns ajustes que para muitos seria complicado de forma manual e por isso vou reapresentar um programa muito bom: TweakNow PowerPack.

Com ele é possível:

Fazer uma faxina no Windows e Navegadores

Ver detalhes internos do Windows e parametrizá-os com o Windows Secret

Desfragmentar o registro

Criar desktops extras (Virtual desktop)

Otimizar a memória RAM

entre outras ferramentas.

Compatibilidade: Windows

Licença: Freeware

Link: http://tweaknow.com/powerPack.php

Download: http://tweaknow.com/download/PowerPack405.exe

Como Resolver o Problema com o Menu de Contexto do Windows Explorer

2012-03-24T13:45:00.001-03:00

Um problema antigo agora tem atingido os novos Windows.

Ao acessar o Windows Explorer e clicar com botão direito aperce um erro e ele é reiniciado.

Esse problema se agrava se você estiver gravando um CD/DVD onde terá que reiniciar o computador e perde a mídia.

Agora, Qual é a causa? Como Resolver isso?

A causa é simples: algum programa instalado pode não ser 100% compatível com o seu Windows, um exemplo clássico que passei foi uma versão do famoso programa de conversão de vídeo: Format Factory.

Como resolver: deinstale o programa, no meu caso resolver na hora e nem foi necessário reiniciar o computador.

Qual programa tem causado o problema?

Podem ser vários programas ou simplesmente um. Se você tem ou teve problema semenhante, deixe o nome do programa, pois será útil para muitas pessoas e irá ajudar ao produtor do software a resolver o problema.