30 de dezembro de 2011

Tutorial para Emulador de CD e DVD Imagem com Daemon Tools 4

daemon_tools.png

Quase sempre que você baixa um programa ou jogo da internet o programa vem no formato de IMAGEM (ISO é o mais comum).

Se você não deseja gravar o conteúdo você poderá emular um leitor de CD ou DVD.

Lembro que o programa não foi necessariamente feito para isso, mas a sua real aplicação é tanto para proteger conteúdos, emular leitor de CD/DVD em netbooks e colaborar com CD/DVDs de empresas com seus funcionários.

O programa apresentado aqui é o Daemon Tools Lite que é o programa mais comentado na internet para essa função.

Passo 1 - Baixando

Link: http://www.disc-tools.com/download/daemon

Licença: Freeware (usuários domésticos)

Download: http://eu-uk1.disc-tools.com/request?p=7002e840ba76ff0d9c43120d88a4fea9/DTLite4451-0236.exe

Passo 2 - Instalando

Tutorial Daemon Tools001.jpg

Tutorial Daemon Tools002.jpg

Próximo

Tutorial Daemon Tools003.jpg

Eu Aceito

Tutorial Daemon Tools004.jpg

Licença Gratuita

Próximo

Tutorial Daemon Tools005.jpg

Próximo

Tutorial Daemon Tools006.jpg

Não instalar Velocidade Do PC

Próximo

Tutorial Daemon Tools007.jpg

Instalar

Tutorial Daemon Tools008.jpg

Aguarde o término

Fechar

Passo 3 - Configuração

Logo ao fechar o programa irá instalar os leitores de CD/DVD.

Tutorial Daemon Tools010.jpg

No exemplo, irei adicionar duas unidades de leitor de CD/DVD.

Tutorial Daemon Tools011.jpg

Vá até o ícone DT e dê um clique simples com o botão esquerdo do mouse. Aguarde alguns instantes e a nova unidade será adicionada.

Tutorial Daemon Tools012.jpg

Passo 4 - Emulando um DVD ou CD

Tutorial Daemon Tools015.jpg

Vá com o mouse até o ícone da unidade de DVDROM que deseja adicionar a "imagem" e clique com o botão direito e selecione MONTAR.

Selecione o arquivo que deseja montar a imagem.

Qualquer dúvida, deixe seu comentário!

Read more

As Melhores Músicas de 2011 Retrospectiva com Vídeo

hitparade.jpg

Segunda Parte de boas músicas de 2011.

Muitas ainda novas para alguns no Brasil, mas veja no YouTube que com certeza vão gostar da maioria. Pare para escutar e faça uma retrospectiva musical.

Os detaques estão para: Adele, Bruno Mars, Rihanna, Usher, David Guetta e Katy Perry.

Lista:

Flo Rida - Good Feeling

Gotye- Somebody That I Used To Know (feat. Kimbra)

Avicii - Levels

Katy Perry - The One That Got Away

Taio Cruz - Hangover ft. Flo Rida

Little Mix - Cannonball

Marlon Roudette - New Age

Foster The People - Pumped Up Kicks

Jessie J - Domino

Amy Winehouse - Our Day Will Come

Don Omar feat Lucenzo - Danza Caduro

Nickelback- When We Stand Together

Selena Gomez & The Scene - Love You Like a Love Song

Christina Perri - A Thousand Years

Alexandra Stan - Mr. Saxobeat

Coldplay - Paradise

Nicki Minaj ft. Rihanna - Fly

Kelly Clarkson - Mr. Know It All

Bruno Mars - It Will Rain

Michael Jackson & Akon - Hold My Hand

Flo Rida ft. David Guetta - Club Can't Handle Me

Eminem ft. Rihanna - Love The Way You Lie

OneReplublic - Secrets

Taylor Swift - Back To December

Kasabian - Days Are Forgotten

Usher - More

Snow Patrol - Called out in the dark

Pitbull - Rain Over Me ft. Marc Anthony

Timati ft. Kalenna - Welcome To St. Tropez

Uma boa compilação:

Read more

29 de dezembro de 2011

As Melhores Músicas do Ano de 2011 - H!t parade

hitparade.jpg

Para fechar o ano estou deixando uma lista das MELHORES músicas de 2011.

Não está na ordem, pois em cada época do ano foi uma melhor que a outra.

Lista:

Jessie J feat B.O.B - Price Tag

Jason Derulo - Don't Wanna Go Home

Beyonce - Best Thing I Ever Had

Katy Perry - Teenage Dream

David Guetta & Usher - Without You

Far* Esat Movement feat. Cataracs & Dev - Like A G6

Rihanna - We Found Love

Usher feat. Pitbull - DJ Got Us Fallin' In Love

Tinie Tempah feat. Eric Turner - Written In The Stars

Avril Lavigne - What The Hell

Usher - More

Britney Spears - Hold It Against Me

Edward Maya & Vika Jigulina - Stereo Love

Nelly - Just a Dream

Chris Brown - Yeah 3x

Cobra Starship feat. Sabi - You Make Me Feel...

Britney Spears - I Wanna Go

Taio Cruz - Dynamite

Lady Antebellum - Just A Kiss

Rihanna - Only Girl (In The World)

The Black Eyed Peas - The Time (Dirty Bit)

Bad Meets Evil feat. Bruno Mars - Lighters

Lady - The Edge of Glory

Britney Spears - Til The World Ends

Bruno Mars - The Lazy Song

Adele - Someone Like You

P!nk - Fuckin' Perfect

Lady Gaga - Born This Way

P!nk - Raise Your Glass

Bruno Mars - Just The Way You Are

Katy Perry - Last Friday Night (T.G.I.F.)

Foster The People - Pumped Up Kicks

Rihanna - S&M

Jennifer Lopez feat. Pitbull - On The Floor

The Black Eyed Peas - Just Can't Get Enough

Maroon 5 feat. Christina Aguilera - Moves Like Jagger

Cee Lo Green - Fuck You

Bruno Mars - Grenade

Pitbull feat. Ne-Yo, Afrojack & Nayer - Give Me Everything

Katy Perry feat. Kanye West - E.T.

Katy Perry - Firework

LMFAO feat. Lauren Bennett & GoonRock - Party Rock Anthem

Adele - Rolling In The Deep

Tem uma segunda bateria de músicas mais tarde.

Read more

Lista de Deinstaladores de Antivírus

unistall antivirus.jpg

Se você vive testando os antivírus gratuitos como eu, então você vai precisar de um deinstalador desses antivírus.

Não existe um programa genérico para isso e sim o programa do próprio fabricante.

Trago a lista dos deinstaladores do antivírus:

Avast http://files.avast.com/files/eng/aswclear.exe
AVG http://www.avg.com/us-en/utilities
Avira http://www.avira.com/en/support-for-free-knowledgebase-detail/kbid/88
BitDefender http://kb.bitdefender.com/site/article/333/
BullGuard http://www.bullguard.com/support/product-guides/bullguard-internet-security-guides/uninstall.aspx
CA Antivirus
http://homeofficekb.ca.com/CIDocument.asp?KDId=3125&Preview=0&Return=0&GUID=DF325E0AA0AB4264AF47E4BEA49F571B
Comodo Internet Security https://support.comodo.com/index.php?_m=knowledgebase&_a=viewarticle&kbarticleid=298
CounterSpy http://support.sunbeltsoftware.com/Business/2VIPRE_Enterprise/3.1/Console/Uninstall%2f%2fReinstall
Cyber Defender Early Detection Center http://cyberdefender.custhelp.com/app/answers/detail/a_id/207
Dr. Web https://support.drweb.com/support_wizard/?lng=en (Only registered Dr. Web users can access support content)
eScan http://www.microworldsystems.com/download/tools/esremove.exe
ESET
http://kb.eset.com/esetkb/index?page=content&id=SOLN2788
FRISK F-PROT Antivirus for Windows http://www.f-prot.com/support/windows/fpwin_faq/25.html
F-Secure http://www.f-secure.com/en/web/home_global/support/article/kba/2109/k/uninstall+f+secure/p/1
G Data https://www.gdatasoftware.co.uk/?eID=PushFile&dl=f4b2f2fd23%3AAFEIBgU%3D
Kaspersky http://support.kasperskyamericas.com/knowledge-base-article/1464
Kingsoft http://www.kingsoftsupport.com/forum/viewtopic.php?f=30&t=59&sid=9e4c506ea22db37a60ab1b7364544d6a
K7 Total Security http://www.k7computing.com/en/tools/K7RT.exe
LavaSoft http://www.lavasoftsupport.com/index.php?showtopic=28
McAfee http://download.mcafee.com/products/licensed/cust_support_patches/MCPR.exe
Norman Virus Control/Norman Security Suite http://www.norman.com/support/support_issue_archive/67798/en
Norton(Symantec ) ftp://ftp.symantec.com/public/english_us_canada/removal_tools/Norton_Removal_Tool.exe
Panda http://www.pandasecurity.com/resources/sop/UNINSTALLER_08.exe
Pareto Logic http://techsupport.paretologic.com/plsupport/consumer/kbdetail.asp?kbid=555
Sophos http://www.sophos.com/support/knowledgebase/article/11019.html
Trend Micro http://esupport.trendmicro.com/1/How-do-I-remove-old-or-new-versions-of-Trend-Micro-products-in-my-comp.aspx
Trend Micro Titanium http://esupport.trendmicro.com/solution/en-us/1056455.aspx
Vipre (Sunbelt Software) http://www.sunbeltsoftware.com/support/VPE/AgentRemoval3.1.exe
Webroot http://support.webroot.com/cgi-bin/webroot.cfg/php/enduser/std_adp.php?p_faqid=1761
Windows Live OneCare http://download.microsoft.com/download/4/c/b/4cb845e7-1076-437b-852a-7842a8ab13c8/OneCareCleanUp.exe
Windows Security Essentials http://support.microsoft.com/kb/2435760
Zone Alarm http://download.zonealarm.com/bin/free/support/download/clean.exe
Read more

Como Desabilitar ou Apagar o BBSVC.EXE

Do que adianta ter um bom processador, muita memória se você não prestar atenção ao que está sendo usado em seu computador.

Como exemplo clássico que trago aqui é a Barra de Ferramentas do Bing que nem todo mundo usa, se não usa e esta instalado para que deixar consumindo recursos do computador, esse serviço chega a usar 6 MBytes de memória.

Cada programa que inicia junto com o computador consome um tempo e nessa dica vamos diminuir esse tempo removendo um programa.

Passo 1 - Promp de Comandos

Tecla Windows + R ou INICIAR>EXECUTAR

(No Windows Vista e 7 executar como Administrador)

Dica BBSVC 01.jpg

Passo 2 - Parando o Processo

Digite:

sc stop "BBSvc"

Dica BBSVC 02.jpg

Passo 3 - Parando de Iniciar

Digite:

sc config "BBSvc" start= disabled

Dica BBSVC 03.jpg

(Não se esqueça do espaço após START= )

Passo 4 - Removendo o Serviço

Digite:

sc delete "BBSvc"

Dica BBSVC 04.jpg

Pronto agora você está inciando seu Windows sem um serviço que você não usava.

Read more

28 de dezembro de 2011

O que é o BBSVC.EXE?

BBSVC.EXE é o programa de atualização da barra de tarefas do BING, semelhante ao do Google, só que a empresa que desenvolveu foi a Microsoft.

Não é um vírus, claro que se um processo ficar consumindo 100% da CPU constantemente, você pode desconfiar.

Mais informações: http://systemexplorer.net/db/bbsvc.exe.html

Read more

26 de dezembro de 2011

Novo Golpe do Facebook diz que exclui sua conta em 24 Horas

Caros leitores, sempre tento avisar o mais rápido possível e então sempre repasse para vossos amigos.

Um novo golpe está se espalhando rapidamente pelo Facebook, este golpe diz que você está quebrando a política de privacidade da sua região, e diz até que excluirá sua conta em 24 horas, tudo por e-mail fique atento, leia o post inteiro e passe para seus amigos, afinal, não queremos dar abertura para estes criminosos otários.

Entre as instruções escritas nos e-mails estão as solicitações de dados dos nomes dos usuários e suas respectivas senhas, bem como dados de cartões de crédito válidos. Além disso, a mensagem ainda pede para o internauta clicar em um link malicioso, que registra as informações dos usuários.

A Sophos, empresa especializada em segurança na web, alerta que e-mails com essas características não estão sendo enviados pelo Facebook, e que sites de redes sociais não solicitam informações financeiras, nem dados de login por e-mail.

"Uma vez que o criminoso tiver acesso aos dados da conta da vítima, poderá bloquear a navegação do titular no Facebook, além de obter o controle da identidade financeira", diz o comunicado da Sophos.

facebook_logo.png

Para proteger a segurança dos dados do usuário, o Facebook fechou, recentemente, parceria com empresas como Spotify, Deezer e EA. Essas companhias são responsáveis por produzir uma espécie de "suíte" dos dados da rede, que podem ser usados em caso de roubo de uma das contas.

Se houver alguma alteração na conta do Facebook, por exemplo, o próprio sistema se encarrega de verificar se os outros serviços conectados também foram alterados, e de comparar os dados.

Outro fator de proteção às contas do Facebook é o recurso que localiza onde os usuários estão acessando os seus perfis. Se a sua conta for acessada em um local diferente do de costume, em um computador que você nunca usou antes, por exemplo, o sistema é capaz de identificar essa atividade suspeita, e mandar um e-mail alertando sobre.

A Sophos também orienta os usuários a observarem a ortografia e gramática dos e-mails. Normalmente, as mensagens suspeitas apresentam diversos erros de escrita e acentuação, comprovando a tentativa de golpe.

Read more

Samsung compra metade da fábrica de LCDs da Sony

sony-samsung.jpg

Desde de alguns anos que a Sony e a Samsung estabeleceram uma parceria para a fabricação de telas de LCD, mas a grande concorrência sobre telas tem vindo a baixar o negócio desta parceria.

E assim a Samsung anunciou a compra de metade do fábrica de telas da Sony pelo preço de 939 milhões de dólares.

A espessura de uma televisão está cada vez mais afastada das principais características quando escolhemos uma televisão, devido ao seu reduzido tamanho e que a maior parte das televisões possuem até ao ponto de quase não se conseguir diferenciar.

A Sony depois de perder mais de 1 bilhão de dólares no último ano, devido à fraca venda de televisores, a empresa pondera vender o seu negócio de fabricação de telas.

Segundo alguns rumores, a empresa já estaria com uma investigação para um serviço inovador de multimédia com o objetivo de substituir a televisão a cabo.

Mais informações: http://idgnow.uol.com.br/mercado/2011/12/26/samsung-ira-comprar-parte-da-sony-em-fabricante-de-lcds-por-us-934-milhoes/

Read more

25 de dezembro de 2011

Proteja sua casa com D-Link DNR-322L

DLink DNR 322L.jpg

D-Link lançou a sua mais recente solução para gravação de vídeo em rede para fins de segurança. Sua Network Video Recorder DNR-322L vem para completar a sua gama de vídeo vigilância por IP mydlink, que fornece um local central para coletar suas gravações.

O novo mydlinkTM Video Recorder Rede é um gravador de vídeo de rede que pode gerenciar diretamente de um portal web através de uma interface de usuário simples. Uma vez conectado é capaz de detectar câmeras na rede.

No modo de gravação de vídeo suporta HD com compressão H.264 e pode armazenar até seis semanas de gestão avançada de eventos de vídeo. Existem aplicações para o Android e IOS e nos permite acessar as gravações de qualquer lugar.

Mais informações: http://v2.mydlink.com/product/DNR322L

Read more

21 de dezembro de 2011

Navegador Seguro é Comodo Dragon

Se você navega muito na internet deve ficar preocupado com a segurança.

Pensando nisso eu procurei um navegador rápido e seguro.

O Comodo Dragon é baseado no Google Chrome com a vantagem da empresa ser especialista em segurança com seus pacotes de privacidade e antivírus.

Alguns recursos:

  • Privacidade melhorado ao longo do Chromium
  • Identificação fácil de Certificado SSL fácil
  • Acesso rápido aos Websites
  • Maior estabilidade e menor consumo de memória
  • Modo Incognito Stops Cookies, Melhora de Privacidade
  • Muito fácil de mudar do seu browser para o Dragon

Compatibilidade: Windows

Licença: Freeware

Link: http://www.comodo.com/home/browsers-toolbars/browser.php

Download: Diretamente no site

Read more

19 de dezembro de 2011

Como Atualizar o Google Chrome

A atualização do Google Chrome é super simples e deve ser feita por todos os usuários para tanto melhor a performance quando a segurança.

Passo 1 - Abra o Google Chrome

Passo 2 - Menu Ferramentas

Localize a chave inglesa no canto superior direito do seu Google Chrome:

Google Chrome Tutorial Update 01.jpg

Selecione a opção: Sobre o Google Chrome

Google Chrome Tutorial Update 02.jpg

Passo 3 - Atualização

Nesse momento o seu Google Chrome verifica a sua versão a atualiza automáticamente.

Google Chrome Tutorial Update 03.jpg

Aguarde um pouco:

Google Chrome Tutorial Update 04.jpg

Read more

17 de dezembro de 2011

Campanha Nokia Lumia 800 na Alemanha

A Nokia para não ficar travada com o Windows Phone, está caprichando no hardware dos seus celulares, pois concorrer com o Android e iOS não é fácil.

Interessante está sendo a campanha do Nokia Lumia 800 na Alemanha, vale lembrar que o tempo nessa época do ano na Alemanha é frio.

Nokia_Lumia_800.jpg

Veja o vídeo abaixo e o sacrifício de alguns para ganhar o celular:

Read more

Bronca nos Leitores

Muitos leitores a amigos tem reclamado que os programas grátis vêm com outro programa dentro que normalmente é bem chato.

Caros leitores, cabe aqui a minha bronca, pois muitos são vítimas das próprias ações.

Explico: o programa pode ser grátis se a pessoa ou a empresa lucrar com alguma coisa.

É claro que podem ainda existir pessoas que façam por total altruísmo, mas isso é raro.

Vamos colocar na seguinte situação exemplo:

Para desenvolver um programa uma pessoa gaste 3 meses entre pesquisa, desenvolvimento e testes, nesses 3 meses a pessoa gastou mais de 100 horas (fazendo o programa no horário que sobrava).

Esse programa economiza no seu dia 1 hora de serviço, mas lembre-se que esse programa está sendo distribuido para muitas outras pessoas.

Em termos financeiros, quanto custaria para você pagar 100 horas de um programador?

O programa ficará sem nada?

doacao.jpg

Uma forma de manter o programa grátis e cada vez mais ter novas versões é que as pessoas façam doações para o programador e não precisa ser muito, pois imagine um programa que seja útil para 100.000 pessoas e cada um doar R$ 1,00, o programador será muito bem remunerado.

Mas no Brasil, principalmente as pessoas não tem costume de doar.

O programador para contornar isso, inclui programas que paguem alguns centavos por cada instalação.

Quantos programas grátis bons você usa? Será que não vale a pena DOAR?

O mesmo se aplica ao blog que tem que colocar propagandas. Quanto tempo você economizou com uma ajuda de um blog?

Quanto tempo você acha que um blogueiro gasta para preparar uma matéria?

Read more

10 de dezembro de 2011

Problema Pascal Zim Arquivo Binário ou Sequêncial ou Estruturado

Eu particularmenente não gosto de usar o Pascal Zim, mas há muitas faculdades / universidades que fazem o Pascal Zim.

Uma dificuldade que vejo no Pascal Zim é o trabalho com arquivos binários, sequênciais ou formatados, pois o Pascal Zim em sua página já diz isso:

PascalZim.jpg

O Pascalzim não aceita arquivos binários e declarações "file of" ?

Não. O compilador suporta apenas arquivos do tipo texto (text). Consulte o arquivo de ajuda para maiores detalhes.

Link: http://pascalzim.tripod.com/

Estou colocando esse problema aqui, pois em alguns projetos de alunos com dúvidas que me enviam o professor pediu para usar um arquivo formatado.

Dúvida sobre os tipos de arquivos:

http://pt.wikipedia.org/wiki/Arquivo_binário

http://pt.wikipedia.org/wiki/Arquivo_de_texto

Vamos a solução:

Já que o PascalZim só aceita arquivo texto, vamos formatá-lo para leitura posterior.

Um arquivo formatado poderá ser composto dentro Type Registro.

 Program Pzim ;  
 Type  
  Cliente = Record  
   Nome : String [50];  
   Endereco : String [60];  
   Telefone : String [10];  
   Salario : Real;  
  End;  
 Var  
  C : Cliente;  
  t : Text;  
  s : String;  
  i : Integer;  
 Begin  
  ClrScr;  
  // Gravar  
  WriteLn ('Arquivo Estrutura Pascal Zim');  
  Assign (t,'arquivo.seq');  
  // Cria Arquivo  
  ReWrite (t);  
  for i := 1 to 3 do  
  Begin  
   Write ('Nome....: '); ReadLn (C.Nome);  
   Write ('Endereco: '); ReadLn (C.Endereco);  
   Write ('Telefone: '); ReadLn (C.Telefone);  
   Write ('Salario.: '); ReadLn (C.Salario);  
   // Grava a Informação  
   Write (t,C.Nome:-50,C.Endereco:-60,C.Telefone:-10,C.Salario:10:2);  
  End;  
  // Fecha o Arquivo  
  Close (t);     
  WriteLn ('Mostra o que foi gravado....');  
  // Ler Arquivo  
  Assign (t,'arquivo.seq');  
  // Abre  
  Reset (t);  
  // Le até o final do Arquivo  
  while not(eof(t)) do  
  Begin  
   Read (t,C.Nome,C.Endereco,C.Telefone,C.Salario);  
   WriteLn ('Nome....: ',C.Nome);  
   WriteLn ('Endereco: ',C.Endereco);  
   WriteLn ('Telefone: ',C.Telefone);  
   WriteLn ('Salario : ',C.Salario:10:2);  
   WriteLn ('---------------------------------------');  
  End;  
  // Fecha o Arquivo  
  Close (t);   
 End.  

A motivação do blog depende da sua contribuição ao blog, então não deixe de prestigiar o blog.

Read more

5 de dezembro de 2011

Criando Menu em Pascal Parte 2

Continuando a matéria anterior vamos colocar um menu dentro do outro.

Para quem nunca fez um programa pode ficar achando que os menus de telefones são muitos parecidos com o menu do programa.

E isso é verdade.

Os menus em programas são bem antigos e foi uma forma de dividir e organizar as idéias de cada parte do programa.

Trabalhei com uma das primeiras implantações de menus em telefones e por isso conheço bem a migração.

Nesse segundo exemplo vou criar um Menu para um Salão de Beleza, escolhi o exemplo para não coincidir com nenhum projeto.

Em um Salão de Beleza nós temos: Clientes, Funcionários, Produtos e precisamos saber no final de contas o quanto se está faturando.

Essa é a estrutura dos menus:

Menu Pascal 02.jpg

Código Fonte:

 Program Menu_Em_Pascal_2;  
 Uses Crt;  
 Var  
  Opcao,Opcao2 : Integer;  
 Begin  
  Repeat  
   ClrScr;  
   WriteLn ('Salao de Beleza');  
   WriteLn;  
   WriteLn ('1. Cadastrar');  
   WriteLn ('2. Pagamento');  
   WriteLn ('3. Relatorio');  
   WriteLn ('0. Sair');  
   WriteLn;  
   Write ('Opcao:'); ReadLn (Opcao);  
   Case Opcao of  
    1 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Cadastrar');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('3. Produto');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
      End;  
    2 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Pagamento');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
      End;  
    3 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Relatorio');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('3. Produto');  
        WriteLn ('4. Faturamento');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
       End;  
   End;  
  Until Opcao=0;  
 End.  

Read more

3 de dezembro de 2011

Criando Menu em Pascal - Parte 1

Fim de ano chegando e muita gente precisa entregar o projeto em Pascal.

Muitos projetos precisam de um menu e nessa aula vamos criar um menu básico.

Para criar um menu o procedimento é simples, mas devemos pensar no que precisaremos colocar nele.

No programa exemplo de um Cadastro de Clientes no teremos as seguintes opções:

Incluir: Para incluir novos clientes.

Excluir: Para apagar um cliente.

Alterar: Para corrigir algum dado do cliente.

Pesquisar: Para localizar um cliente.

Listar: Para mostrar os dados de todos os clientes.

E no final precisar de uma opção para sair no menu.

O menu ficará da seguinte forma:

Menu Pascal 01.jpg

O código fonte:

 Program Menu_Em_Pascal;  
 Uses Crt;  
 Var  
  Opcao : Integer;  
 Begin  
  Repeat  
   ClrScr;  
   WriteLn ('Cadastro de Clientes');  
   WriteLn;  
   WriteLn ('1. Incluir');  
   WriteLn ('2. Excluir');  
   WriteLn ('3. Alterar');  
   WriteLn ('4. Pesquisar');  
   WriteLn ('5. Listar');  
   WriteLn ('0. Sair');  
   WriteLn;  
   Write ('Opcao:'); ReadLn (Opcao);  
  Until Opcao=0;  
 End.  

Na próxima etapa vamos chamar um Menu dentro de outro Menu.

Read more

  ©Template by Dicas Blogger.

TOPO