Programação e Códigos

Orientação a objeto básica

2012-07-31T11:10:00.000-07:00

Orientação a objeto básica

Motivação problemas do paradigma procedural

Orientação à objeto é uma maneira de programar que ajuda na organização e resolve muitos problemas enfrentados pela programação procedural.

Consideremos o clássico problema da validação de um CPF. Normalmente, temos um formulário, no qual recebemos essa informação, e depois temos que enviar esses caracteres para uma função que irá validá-lo, como no pseudocódigo abaixo:

Cpf = formulario->campo_cpf

Valida (cpf)

Alguém te obriga sempre validar esse CPF? Você pode inúmeras vezes, esquecer de chamar esse validador. Mais considere que você tem 50 formulários e precise validar em todos eles o CPF. Se sua equipe tem 3 programadores trabalhando nesses formulários, quem fica responsável por essa validação? Todos!.

A situação pode piorar na entrada de um novo desenvolvedor, precisaríamos avisá-lo que sempre devemos validar o CPF de um formulário. É nesse momento que nasce aqueles guias de programação para o desenvolvedor que for entrar nesse projeto (às vezes é um documento enorme). Em outras palavras, todo desenvolvedor precisa ficar sabendo de uma quantidade enorme de informações, que na maioria das vezes não está realmente relacionado a sua parte no sistema, mas ele precisa ler tudo isso, resultando um entrave muito grande.

Outro ponto onde fica o problema da programação procedural é quando nos encontramos na necessidade de ler o código que foi escrito por outro desenvolvedor e que somos usuários desse pedaço do sistema. Um sistema bem encapsulado não deveria gerar essa necessidade. Em um sistema grande simplesmente não temos tempo de ler uma grande parte do código.

Considerando que você não erra aí e que sua equipe tem uma comunicação muito grande (perceba que comunicação excessiva pode ser prejudicial e atrapalhar o andamento), ainda temos outro problema, imagine que agora em todo formulário você também quer que a idade do cliente também seja validada, precisa ser maior de 18 anos. Vamos ter de colocar um IF..., mas onde? Espalhado por todo seu código... Mesmo que se crie outra função para validar, precisaremos incluir isso nos nossos 50 formulários já existentes. Qual é a chance de esquecermos um deles? É muito grande.

A responsabilidade de verificar se o cliente tem ou não tem 18 anos, ficou espalhada por todo seu código. Seria interessante poder concentra essa responsabilidade em um só lugar, para não ter chances de esquecer isso.

Melhor ainda seria se conseguíssemos mudar essa validação e os outros programadores nem precisassem ficar sabendo disso. Em outras palavras, eles criariam formulários e um único programador seria responsável pela validação, os outros nem sabem da existência desse trecho de código. Um mundo ideal? Não, o paradigma da orientação a objeto facilita tudo isso.

O problema é que não existe uma conexão entre seus dados. Não existe uma conexão entre seus dados e suas funcionalidades, a idéia é ter essa amarra através da linguagem.

Quais as vantagens

Orientação a objetos vai ter ajudar muito a se organizar e escrever menos, além de concentrar as responsabilidades nos pontos certos, flexibilizando sua aplicação, encapsulando a lógica de negócios.

Outra enorme vantagem, de onde você realmente vai economizar montanhas de código, é o polimorfismo das referências, que veremos em um post posterior.

Apresentando o Eclipse IDE

2012-07-30T06:27:00.005-07:00

Eclipse IDE

“

Dá-se importância aos antepassados quando já não temos nenhum.”

Franções Chateaubriand

O Eclipse

O Eclipse (www.eclipse.org ) é um IDE (integrated development environment). Diferente de uma RAD, onde o objetivo é desenvolver o mais rápido possível através de arrastar e soltar do mouse, onde montanhas de códigos são gerados em background, um IDE te auxilia no desenvolvimento, evitando se intrometer e fazer muita mágica.

O Eclipse é um IDE líder de mercado. Formada por um consórcio liderado pela IBM, possui seu código livre. A última versão em desenvolvimento é a 3.2. Precisamos do Eclipse 3.1 ou posterior, pois a partir dessa versão é que a plataforma dá suporte ao Java 5.0. Você precisa ter apenas a Java RE instalada.

Vermos aqui os principais recursos do Eclipse, Você irá perceber que ele evita ao máximo te atrapalhar, e apenas gera trechos de códigos óbvios, sempre ao seu comando. Existem também centenas de plugins gratuitos para gerar diagramas UML, suporte a servidores de aplicação, visualizadores de banco de dados e muitos outros.

Baixe o Eclipse do site oficial www.eclipse.org. Apesar de ser escrito em Java, a biblioteca gráfica usada no Eclipse, chamada SWT, usa componentes nativos do sistema operacional. Por isso, você deve baixar a versão correspondente ao seu sistema operacional.

Descompacte o arquivo e pronto; basta rodar o executável.

Outras IDEs

Uma outra IDE open source famosa é o Netbeans, da Sun. (www.netbeans.org ), além dessas, Oracle, Borloand e a própria IBM possuem IDEs comerciais.

Apresentando o Eclipse

Abra o terminal e digite eclipse. A primeira pergunta que ele te faz é que workspaca você vai usar. Workspace define o diretório em que as suas configurações pessoais e seus projetos serão gravados.

Logo em seguida uma tela de Welcone será aberta, onde você tem diversos links para tutoriais e ajuda. Clique em Workbench. A tela de Welcome do Eclipse 3.2 é um pouco diferente da do 3.1.

Views e Perspective

Feche a tela de Welcone. Mude para a perspectiva Resource clicando no ícone ao lado da perspectiva Java selecionando Other e depois Resource. Neste momento, trabalharemos com esta perspectiva antes da de Java, pois ela possui um conjunto de Views mais simples.

A View Navigator mostra a estrutura de diretório assim como está no sistema de arquivos. A View Outline mostra um resumo das classes, interfaces e enumerações declaradas no arquivo Java atualmente editado (serve também para outros tipos de arquivos).

Por hoje é só, logo estarei postando a continuação deste post com as imagens. Infelizmente o tempo não me permite ficar mais, obrigado pela visita, espero que sempre fiquem acompanhando o blog, estou postando conteúdos novos todos os dias, só um pouco de paciência por que ainda estamos no inicio abraços.

Código Simples em HTML

2012-07-29T15:01:00.000-07:00

Vou post um pouco sobre html, por enquanto é só o básico, como vocês sabem o blog ainda está no início, mas se vocês tiverem um pouco de paciência e forem acompanhando o blog, irei posta sobre o Asp.Net, para deixarmos nossas páginas mais dinâmicas, então vamos lá.

<html>
<head>
<title> Meu primeiro site </title>
</head>
<body>
<h1> Minha primeira página em html</h1>
<p> Como disse esse é só o básico, ou seja, não é muito flexível, mas<br>
para qualquer coisa que você for fazer tem que ter o básico vamos<br>
lá, agora é com vocês.</p>
</body>
</html>

Este é um código em HTML bem simples, como sabemos existem ferramentas de desenvolvimentos que facilitam bastante, mas para tirarmos melhor proveito destas ferramentas é essencial que conheçamos o básico, tudo se inicia na base não é verdade?.

Eu digitei este código no bloco de notas do Windows, para rodar não se esqueça de salvar como ponto html, ou seja, o nome da sua escolha e o ponto html. Exemplo:

Meuprimeiroteste.html.

Atributo Link, Vlink, Alink e BGCOLOR em HTML

2012-07-29T14:51:00.005-07:00

Para que serve os atributos Link, Vlik e Alink no html? Servem para fazer o controle das cores do textos que funcionam como link na página. Imagine a seguinte situação quando você entra em uma página da web ao clicar em um link no corpo da página, quando você retorna a página pode perceber que o link que você clicou já não esta mais com a mesma cor, é onde entra os comandos link, vlink e alink, vamos ver como eles funcionam e sua sintaxe.

LINK : É usado para defini cores para o links não visitados ainda, a cor padrão é o azul.

VLINK : Este define as cores para os links já visitados, ou seja, aqueles que você já deu um click neles, a cor padrão do vlink é o vermelho púrpura.

ALINK : Este define as cores dos links selecionados, melhor dizendo quando o usuário pressionou o botão do mouse e ainda não soltou sua cor padrão é o vermelho.

Amigos agora que sabemos para que serve, iremos ver sua sintaxe, lembrando que estamos vendo o html puro, ou seja, sem nem um programa da edição de páginas web, claro hoje existe alguns programas que facilitam bastante a vida do web design, mas de qualquer forma temos que ter uma base para facilitar o uso dessas ferramentas, então vamos lá.

Sua sintaxe é : <body link="#RRGGBB" vlink="# RRGGBB" alink="#RRGGBB"><\body>

BGCOLOR

O atributo BGCOLOR é usado para determinar a cor do plano de funda da página, assim permitindo que defina uma cor de fundo padrão para a página, isto evita a necessidade de utilizar um arquivo de imagem, como sabemos pesa bem mais ao abrimos uma página, não é interessante que a página demore a abrir, certamente o usuário ficaria irritado. Mas vale lembra que hoje com as novas tecnologias e ferramentas para desenvolvedores web à a possibilidade de usarmos páginas com imagem dividindo a imagem em várias partes e unido-a para o usuário, mas vamos ver a sintaxe do BGCOLOR caso você opte apenas por uma cor de fundo na sua página web.

Sua sintaxe é : <body bgcolor="#FFFFCC"> O corpo da página </body>

Vou ficando por aqui, espero ter ajudado, logo estarei postando mais sobre HTMl, espero que volte sempre, abraços.

Criação de Tabelas Mysql

2012-07-29T14:43:00.001-07:00

Olá amigos, vamos aprender a criar tabelas para nosso BD (Banco de Dados). Para estes comandos terem validades você já tem que está com seu ambiente de trabalho preparado, sua database já tem que está criada, e tem que está selecionada, para fazer isto basta digitar o comando, "use nome_database" sem as aspas.

Vamos imaginar que já temos nosso ambiente de trabalho, então vamos criar uma tabela chamada cliente, que estará relacionando com as tabela estado, cidade. Em outro post estarei mostrando como você prepara seu ambiente de trabalho, iremos aprender a criar um BD do inicio ao fim, mas para isto temos que aprender alguns comandos primeiro. Então sem mais delongas vamos ao que interessa.

Vamos começa por uma tabela que não tenha chave estrangeira, isso iremos ver nas definições de dados, mas isto será em outro post, como disse vamos imaginar que já temos todo nosso ambiente de trabalho preparado e só temos que digitar os comandos de criação.

Criando a tabela "Estado"

create table estado (

id int not null primary key auto_increment,

nome varchar (50) not null,

sigla char (2) not null);

Criando a tabela "Cidade"

create table cidade (

id int not null primary key auto_increment,

nome varchar (50) not null,

idestado int not null,

foreign key (idestado) references estado (id));

Criando a tabela "Endereco"

create table endereco (

id int not null primary key auto_increment,

logradouro varchar (100) default null,
setor varchar (50) default null,

idcidade int not null,

foreign key (idcidade) references cidade (id));

Criando a tabela "Cliente"

create table cliente (

id int not null primary key auto_increment,

nome varchar (45) not null,

cpf char (11) default null,

identidade varchar (20) default null,

idendereco int not null,

telefone1 char (12) default null,

telefone2 char (12) default null,

contato_email varchar (100) default null,

contato_msn varchar (100) default null,

foreign key (idendereco) references endereco (id));

Pesquisar Informações no Banco de Dados Mysql

2012-07-29T14:36:00.002-07:00

Olá amigos, bom nesse post vamos aprender como fazer select, ou seja, fazer pesquisar no banco de dados. Vamos fazer um select para as tabelas do post "Criação de tabelas Mysql", mas é só seguir a lógica e você conseguira fazer para o seu banco de dados, então vamos ao que interessa.

Criando o select

Pesquisar Informações Sobre o Cliente

SELECT C.ID AS 'ID CLIENTE',

C.NOME AS 'CLIENTE',

C.CPF AS 'CPF',

C.IDENTIDADE AS 'IDENTIDADE',

E.LOGRADOURO AS 'LOGRADOURO',

E.SETOR AS 'SETOR',

CD.NOME AS 'CIDADE',

ES.SIGLA AS 'UF',

C.TELEFONE1 AS 'FONE 1',

C.TELEFONE2 AS 'FONE 2',

C.CONTATO_EMAIL AS 'E-MAIL',

C.CONTATO_MSN AS 'MSN'

FROM CLIENTE C, ENDERECO E, CIDADE CD, ESTADO ES

WHERE C.IDENDERECO = E.ID AND

E.IDCIDADE = CD.ID AND

CD.IDESTADO = ES.ID

ORDER BY C.NOME;

Pesquisar Informações Sobre As Cidades

SELECT C.ID AS 'ID CIDADE',

C.NOME AS 'CIDADE',

E.SIGLA AS 'UF'

FROM CIDADE C, ESTADO E

WHERE C.IDESTADO = E.ID

ORDER BY C.NOME;

Pesquisar Informações Sobre Os Estados

SELECT E.ID AS 'ID ESTADO',

E.NOME AS 'ESTADO',

E.SIGLA AS 'UF'

FROM ESTADO E

ORDER BY E.NOME;

Pesquisar Informações Sobre Os Endereços

SELECT E.ID AS 'ID ENDERECO',

E.SETOR AS 'SETOR',

C.NOME AS 'CIDADE',

ES.SIGLA AS 'UF',

E.LOGRADOURO AS 'LOGRADOURO'

FROM ENDERECO E, CIDADE C, ESTADO ES

WHERE E.IDCIDADE = C.ID AND

C.IDESTADO = ES.ID

ORDER BY C.NOME;

Entendendo o Código

Com o comando "SELECT" eu estou pedindo para ele selecionar as informações, o "FROM" é como aquele amigo chato que fica colocando apelido, ou seja, ele põe apelidos nos campos das tabelas, Exemplo: ESTADO E, CIDADE C, CLIENTE CL, aqui eu chamei o estado de "E", cidade eu chamei de "C" e o cliente eu chamei de "CL", isto porque se estiver dois campos diferentes com o mesmo apelido irá confundir o select. O comando "WHERE" e um a cláusula, ele faz comparações, um exemplo disso é no select do cliente ele diz que o campo IDENDERECO da tabela cliente é igual ao campo ID da tabela Endereço, e assim por diante, usando essa cláusula eu posso pesquisar informações que estão em tabelas diferentes usando um único select único.

Criando as View

Depois de termos feito os select, vamos criar uma view, para que serve um view? Bom ele serve para não termos a necessidade de esta digitando repetidas vezes os comandos do select sempre que precisarmos dele, mas, para criar a view é importante sempre criar o select e testa. Então vamos à criação da view.

Para criar a view é muito simples, após ter criado o select e testado basta escrever "create view "nome da view" as e o select", veja o exemplo abaixo, vou criar a view para pesquisar meus clientes.

create view pesquisar_clientes as

SELECT C.ID AS 'ID CLIENTE',

C.NOME AS 'CLIENTE',

C.CPF AS 'CPF',

C.IDENTIDADE AS 'IDENTIDADE',

E.LOGRADOURO AS 'LOGRADOURO',

E.SETOR AS 'SETOR',

CD.NOME AS 'CIDADE',

ES.SIGLA AS 'UF',

C.TELEFONE1 AS 'FONE 1',

C.TELEFONE2 AS 'FONE 2',

C.CONTATO_EMAIL AS 'E-MAIL',

C.CONTATO_MSN AS 'MSN'

FROM CLIENTE C, ENDERECO E, CIDADE CD, ESTADO ES

WHERE C.IDENDERECO = E.ID AND

E.IDCIDADE = CD.ID AND

CD.IDESTADO = ES.ID

ORDER BY C.NOME;

Criando tabelas com relacionamentos, MySql

2012-07-29T14:20:00.004-07:00

Criando um Banco de Dados

Imaginem que vocês precisem criar um banco de dados para um banco qualquer, todas as tabelas devem se relacionar para facilitar na hora de fazer a pesquisa, ou seja, à hora de pesquisar informações sobre o cliente, o endereço dele, o saldo em determinada data, não vou está postando os select para fazer a pesquisa neste post, mas assim que sobra um tempinho vou fazer outro post para criação do select para este banco de dados, espero que gostem, e se gostarem da um +1 ai. Lembrando guarde o código para usarmos o select.

Estou criando usando o Query Browser, e para executar os comandos bastas selecionar a linha e aperta Ctrl + Enter. “Quando digo selecionar a linha é só clica em qualquer parte do código que você quer executar, qualquer lugar entre “create” e o “;" ponto e virgula, ele serve para finalizar o código.

Criando a Database para o banco de dados

create database Banco_Dionatan;

Selecionando a database para não precisar ficar digitando o nome em cada tabela, facilita bastante na criação das tabelas.

use Banco_Dionatan;

Criando a tabela estado, começamos por ela porque não tem uma chave estrangeira, sempre devemos começa a criar as nossas tabelas por uma que não tenha uma chave estrangeira, mas porque isto? Simples como você irá relacionar uma coisa com outra que não existe? Vejamos o seguinte à tabela estado não relaciona com nem uma outra, mas a tabela cidade relaciona com o ID da tabela estado, então se cria-se a tabela cidade primeiro daria erro, isto porque a tabela estado ainda não existe, então o campo id da tabela estado também não. Acho que agora deu para entender? Se ainda tiver alguma dúvida, deixe um comentário que vou tentar explicar melhor.

create table estado (
id int not null auto_increment primary key,
nome varchar (50) not null,
sigla char (2) not null);

Criando a tabela cidade, a tabela cidade relaciona com a tabela estado, ou seja, na tabela cidade o campo idestado relaciona com o campo da tabela estado id.

create table cidade (
id int not null auto_increment primary key,
nome varchar (50) not null,
idestado int not null,
foreign key (idestado) references estado (id));

Criando a tabela endereco, a tabela endereco se relaciona com a tabela cidade pelo campo idcidade na tabela endereco,ou seja, idcidade é igual ao id da tabela cidade.

create table endereco (
id int not null auto_increment primary key,
logradouro varchar (100) default null,
cep char (8) not null,
idcidade int not null,
foreign key (idcidade) references cidade (id));

Criando a tabela cliente, a tabela cliente relaciona com a tabela endereco, onde o campo da tabela cliente id endereco se relaciona com o campo da tabela endereco no id.

create trable cliente (
id int not null auto_increment primary key,
nome varchar (50) not null,
cpf varchar(8) not null,
idendereco int not null,
logradouro varchar (100) default null,
telefone1 varchar (14) default null,
telefone2 varchar (14) default null,
Email varchar (100) default null,
foreign key (idendereco) references endereco (id));

Criando a tabela conta, a tabela conta se relaciona com a tabela cliente através do campo na tabela conta idcliente, este campo liga no id do cliente.

create table conta (
id int not null auto_increment primary key,
banco varchar (50) not null,
idcliente int not null,
agencia varchar (100) not null,
conta varchar (15) not null,
foreign key (idcliente) references cliente (id));

Criando a tabela operações, a tabela operações relaciona com a tabela conta através da chave estrangeira idconta, que se liga no campo id da tabela conta.

create table operecoes (
id int not null auto_increment primary key,
idconta int not null,
saldo float (11,2) default null,
retirada float (11,2) default null,
foreign key (idconta) references conta (id));

Devem ser criadas as tabelas na mesma ordem por questões de relacionamento, com essa estrutura será capaz de pesquisar qualquer informação que deseja, porque todos os campos tem ligação um com o outro, então basta criar seus selects personalizado.

Não altere o código imaginado que digitei errado. Exemplo: endereco ao invés de endereço, isto porque quando se estiver digitando o código a algumas regar, entre elas é jamais usar o "~" ão, fazer isto é um crime.

História do Java

2012-07-29T14:07:00.002-07:00

Introdução o que é Java

Muitos associam Java com uma maneira de deixar suas páginas da web mais bonitas, com efeitos especiais, ou para fazer pequenos formulários na web.

O que associa as empresas ao Java?

Já iremos neste ponto, mas antes vãos ver o motivo pelo qual as empresas fogem das outras linguagem:

Quais são os seus maiores problemas quando está programando?

programando?

Ponteiros?

Liberar memória?

Organização?

Falta de bibliotecas boas?

Ter de reescrever parte do código ao mudar de sistema operacional?

Custo de usar a tecnologia?

Java tenta amenizar esses problemas. Alguns desses objetivos foram atingidos muito tempo atrás, porque, antes do Java 1.0 sair, a ideia é que a linguagem fosse usada em pequenos dispositivos, como TVs, aspiradores, liquidificadores e outros. Apesar disso a linguagem teve seu lançamento mirando o uso dela nos clientes web (browser) para rodar pequenas aplicações (applets). Hoje em dia esse não é mais o foco da linguagem.

O Java é desenvolvido e mantido pela Sun (http://www.sun.com) e seu site principal é o http://java.sun.com . (Java.com e um site mais institucional, voltado ao consumidor de produtos e usuários leigos, não desenvolvedores).

A história do Java

A Sun criou um time (conhecido como Green Team) para desenvolver inovações tecnológicas em 1992. Esse time foi liderado por James Gosling, considerado o pai do Java. O time voltou com a ideia de criar um interpretador (já era uma máquina virtual, veremos o que é isso mais a frente) para pequenos dispositivos, facilitando a reescrita de software para aparelhos eletrônicos, como vídeo cassete, televisão e aparelhos de TV a cabo.

A ideia não deu certo, tentaram fechar diversos contratos com grandes fabricantes de eletrônicos como a Panasonic, mas na o houve êxito devido ao conflito de interesses. Hoje sabemos que o Java domina o mercado de aplicações para celulares, porém parece que em 1994 ainda era muito cedo.

Com o advento da web, a Sun percebeu que poderia utilizar a ideia criada em 1992 para poder rodar pequenas aplicações dentro do browser. A semelhança era que na internet havia uma grande quantidade de sistemas operacionais e browser, e com isso seria grande vantagem pode programar numa única linguagem, independente da plataforma, foi aí que o Java 1.0 foi lançado: focado em deixar o browser não apenas um cliente burro, fazendo com que ele possa também realizar operações, não apenas renderizar HTML.

Sabemos que hoje os applets realmente não são o foco da Sun. É engraçado que a tecnologia Java nasceu com um objetivo em mente, foi lançado com outro, mas no final decolou mesmo no desenvolvimento de aplicações do lado do servidor.

Calculadora Dark Pink, C#

2012-07-29T09:59:00.000-07:00

Está é uma calculadora desenvolvida em C#, Dark Pink completa e funcional. Estou usando o Visual Studio 2010 e, estarei usando ele em todos os Post relacionados a C#, mas se estiver outro de sua preferência fica ao seu critério.

Então vamos ao que interessa esta calculadora é voltada para o público feminino do blog que tenho certeza que é quase zero, se não for zero, mas vamos lá, embaixo esta o código para o Design da calculadora e o que faz efetuar os cálculos, tem alguns bugs, mas não deixa de ser interessante.

Imagem da calculadora

Código do design

<Window x:Class="Calculadora.MainWindow"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Title="MainWindow" Height="389" Width="283" Background="White" WindowStyle="ThreeDBorderWindow">

<Grid.Background>

</Grid.Background>

</Grid>

</Window>

Código Para Efetuar os Cálculos

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Windows;

using System.Windows.Controls;

using System.Windows.Data;

using System.Windows.Documents;

using System.Windows.Input;

using System.Windows.Media;

using System.Windows.Media.Imaging;

using System.Windows.Navigation;

using System.Windows.Shapes;

namespace Calculadora

{

/// <summary>

/// Interaction logic for MainWindow.xaml

/// </summary>

public partial class MainWindow : Window

{

double acumula = 0;

string operacao = "";

public MainWindow()

{

InitializeComponent();

}

private void sete_Click(object sender, RoutedEventArgs e)

{

display.Text += "7";

}

private void zero_Click(object sender, RoutedEventArgs e)

{

display.Text += "0";

}

private void um_Click(object sender, RoutedEventArgs e)

{

display.Text += "1";

}

private void dois_Click(object sender, RoutedEventArgs e)

{

display.Text += "2";

}

private void tres_Click(object sender, RoutedEventArgs e)

{

display.Text += "3";

}

private void quatro_Click(object sender, RoutedEventArgs e)

{

display.Text += "4";

}

private void cinco_Click(object sender, RoutedEventArgs e)

{

display.Text += "5";

}

private void seis_Click(object sender, RoutedEventArgs e)

{

display.Text += "6";

}

private void oito_Click(object sender, RoutedEventArgs e)

{

display.Text += "8";

}

private void nove_Click(object sender, RoutedEventArgs e)

{

display.Text += "9";

}

private void soma_Click(object sender, RoutedEventArgs e)

{

if (operacao == "*" || operacao=="-" || operacao == "/")

{

operacao = "+";

}

else

{

acumula += double.Parse(display.Text);

display.Text = "";

operacao = "+";

}

private void igual_Click(object sender, RoutedEventArgs e)

{

if (operacao == "+")

{

acumula += double.Parse(display.Text);

display.Text = acumula.ToString();

}

else if (operacao == "-")

{

acumula -= double.Parse(display.Text);

display.Text = acumula.ToString();

}

else if (operacao=="*"){

acumula *= double.Parse(display.Text);

display.Text = acumula.ToString();

}

else if (operacao == "/") {

if (double.Parse(display.Text) != 0)

{

acumula /= double.Parse(display.Text);

display.Text = acumula.ToString();

}

else {

display.Text = "Dividindo por zero";

}

private void virgula_Click(object sender, RoutedEventArgs e)

{

display.Text += ",";

}

private void subtracao_Click(object sender, RoutedEventArgs e)

{

if (operacao == "*" || operacao == "+" || operacao == "/")

{

operacao = "-";

} else {

acumula = double.Parse(display.Text);

display.Text = "";

operacao = "-";

}

private void multiplicacao_Click(object sender, RoutedEventArgs e)

{

if (operacao == "-" || operacao == "+" || operacao == "/")

{

operacao = "*";

}

else

{

acumula = double.Parse(display.Text);

display.Text = "";

operacao = "*";

}

private void divisao_Click(object sender, RoutedEventArgs e)

{

if (operacao == "*" || operacao == "+" || operacao == "-")

{

operacao = "/";

}

else

{

acumula = double.Parse(display.Text);

display.Text = "";

operacao = "/";}

}

private void voltar_Click(object sender, RoutedEventArgs e)

{

int x = display.Text.Length-1;

if (x >= 0)

{

display.Text = display.Text.Substring(0, x);

}

private void inverso_Click(object sender, RoutedEventArgs e)

{

try

{

double d = double.Parse(display.Text);

if (d == 0)

{

display.Text = "Dividindo por zero!!!";

}

else

{

d = 1 / d;

display.Text = d.ToString();

}

catch (Exception Ex) {

for (int i = 0; i < 100000; i++)

{

display.Text = "Para com isso pisicopata. ";

// em espera.

}

display.Text = "";

}

private void raiz_Click(object sender, RoutedEventArgs e)

{

double x = double.Parse(display.Text);

if (x < 0)

{

display.Text = "Este valor não é valido.";

}

else {

x = Math.Sqrt(x);

display.Text = x.ToString();

}

private void button2_Click(object sender, RoutedEventArgs e)

{

acumula = 0;

display.Text = "";

}

private void button1_Click(object sender, RoutedEventArgs e)

{

display.Text = "";

operacao = "";

}

private void maisoumenos_Click(object sender, RoutedEventArgs e)

{

double x = double.Parse(display.Text)*(-1);

display.Text = x.ToString();

}

Condição if Java

2012-07-29T09:38:00.003-07:00

Descrição: Esta aplicação verifica se o nome é igual a Dionatan, se o nome for igual ele irá retorna uma mensagem e se o nome for diferente de Dionatan, ela retornara a mensagem nome diferente de Dionatan, também mostra o nome que foi digitado.

Bom amigos eu estou usando o NetBeans IDE para desenvolver esta aplicação, estarei usando ele para desenvolver mais aplicação, se você estiver outro de sua preferência fica ao seu gosto, para os que estão usando o NetBeans para compilar e executar o código basta aperta Ctrl + F6 e você verá o resultado do nosso código, então vamos lá.

================================================

Verificando o nome

================================================

import javax.swing.JOptionPane;

public class Cond {
public static void main(String args[]) {
String nome; nome = JOptionPane.showInputDialog(null, "Informe um nome: "); if (nome.equalsIgnoreCase("Dionatan")) {
JOptionPane.showMessageDialog(null, "O nome digitado foi: " + nome);
} else //if ((nome != "Dionatan")|| (nome != "dionatan"))
{
JOptionPane.showMessageDialog(null, "Nome diferente de dionatan o nome é: " + nome);
} }
}
================================================ Condição if verifica se o numero é igual a vinte
================================================

import javax.swing.JOptionPane;

public class Usandoif {
public static void main(String args[]){

int num = Integer.parseInt(JOptionPane.showInputDialog(null,"Digite um numero inteiro","ENTRADA",1));
if (num <20)
JOptionPane.showMessageDialog(null,"O numero Digitado é menor do que 20.","USANDO O IF",2);
else if (num > 20)
JOptionPane.showMessageDialog(null,"O numero digitado é maior do que 20","USANDO IF",2);
else
JOptionPane.showMessageDialog(null,"O numero digitado é igual a 20.", "USANDO IF",2);

}
}

================================================

================================================

Calculando a média, Programação em Java

2012-07-29T09:29:00.001-07:00

Estarei postando um código simples em Java, onde ele calcula a média das notas de um aluno x, espero que gostem, até o próximo post.

================================================

Calculando a Média

================================================

package Aula02;

import javax.swing.JOptionPane;

public class CalculaMedia {

public static void main(String[] args) {

double media, nota1, nota2, nota3;

String n1, n2, n3;

n1=JOptionPane.showInputDialog(null,"Nota 1");

n2=JOptionPane.showInputDialog(null,"Nota 2");

n3=JOptionPane.showInputDialog(null,"Nota 3");

nota1=Double.parseDouble(n1);

nota2=Double.parseDouble(n2);

nota3=Double.parseDouble(n3);

media=(nota1+nota2+nota3)/3;

n1="Nota 1: "+nota1+"\n"+"Nota 2: "+nota2;

n1+="\n"+"Nota 3: "+nota3+"\n"+"Média : "+media;

JOptionPane.showMessageDialog(null,n1);

}

================================================

Testando Funções, Java

2012-07-29T09:23:00.001-07:00

Vamos fazer um teste de funções, só lembrando que estou usando o NetBeans IDE para todos os post no blog sobre Java, para executar os comando e fazer o teste de mesa basta aperta Shift + F6 que o código será executado, bom então vamos ao que interessa.

================================================

Teste de Funções, Java

================================================

package Aula5;

import static java.lang.Math.*;

public class TesteDeFuncoes {

public static void main(String[] args) {

double x=49;

double r;

char letra;

r=sqrt(x);

System.out.println("A raiz de 49 é: "+r);

System.out.println("Pi= "+PI);

System.out.println("Oiler: "+E);

r=(int)(random()*60+1);

letra=(char)(59+(random()+1)*26);

System.out.println("numero "+r);

System.out.println("letra "+letra);

for (char i = 65; i < 91; i++){

System.out.print(i+" ");

}

================================================

Código Fonte Java

2012-07-29T09:16:00.000-07:00

Com este código fonte você chama um programa .exe, eu usei ele para chamar a calculadora do windows, mas seguindo a lógica e o código da para chamar qualquer programa .exe, caso houver um erro ele ira mostra uma mensagem avisando, vai ocorre um erro se o caminho do arquivo informado não existe, vamos ao que interessa.

================================================
Chamando a Calculadora do Windows, Java
================================================

import java.io.IOException;
import java.util.logging.Level;
import java.util.logging.Logger;

public class ExecutaProgramas {
public static void main(String[] args) {
Runtime rt=Runtime.getRuntime();
try {
Process p=rt.exec ("c:\\windows\\system32\\calc.exe");
} catch (IOException ex) {
Logger.getLogger("Erro a o localizar o programa, tente novamente");
}
}

}

================================================

Chamando o Microsoft Office Word 2007

================================================

import java.io.IOException;
import java.util.logging.Level;
import java.util.logging.Logger;

public class ExecutaProgramas {
public static void main(String[] args) {
Runtime rt=Runtime.getRuntime();
try {
Process p=rt.exec ("C:\\Arquivos de programas\\Microsoft Office\\Office12\\WINWORD");
} catch (IOException ex) {
Logger.getLogger("Erro a o localizar o programa, tente novamente");
}
}

}
================================================

Analisando o código fonte vocês perceberão que somente alterei o caminho do arquivo, ao invés de chama a calculadora agora ele chamara o Word, isto porque informei o caminho do .exe que chama o Word. Bom então é isso amigos, abraço.

================================================

Lista de Exercícios No Visualg

2012-07-29T09:07:00.003-07:00

Bom amigos estarei postando uma lista de exercícios no Visualg, para podermos melhorar nossa lógica, vamos lá.

1° Problema é: Calcular 2 notas e mostrar a média.
Var n1, n2, media de inteiro;
inicio
mostre “Digite um valor para a 1° nota”
Leia(n1);
mostre “Digite um valor para a 2° nota”
Leia(n2);
media ß (n1 + n1)/2;
Mostre “ A media é “ + “.”+media;
fim.
Teste de mesa
n1 = 6;
n2 = 9;
media = (6+9)/2 = 7.5.
A media é 7.5.
_____________________________________________________________________
_____________________________________________________________________

2° Problema é: ler o nome de uma pessoa, a sua idade e o seu salário e mostrar as informações.

Inteiro idade;
Real salario;
String nome;
Inicio
mostrar “Digite um nome “;
leia(nome);
mostrar “Digite a idade “;
leia (idade);
mostrar “Digite o salario “;
leia(salario);
mostrar “Seu nome é “+nome;
mostrar “Sua idade é “+idade;
mostrar “Seu salario é “+salario;
Fim.
Teste de mesa
idade = 21
salario = 1000
nome = Adriano
Adriano
21
1000
_____________________________________________________________________
_____________________________________________________________________

3° Problema: Duas variáveis (A e B) possuem valores distintos (A:5 e B;10) crie um algoritmo que armazene esses dois valores nessas duas variáveis, e efetue a troca dos valores de forma que A passe a receber o valor de B e B passe a receber o valor de A. Por fim apresente os valores trocados.

var a, b, aux de inteiro;
inicio
mostrar “Insira um valor para “A” “;
leia(a);
mostrar “Insira um valor para “B” “;
leia(b);
aux ß a;
a ß b;
b ß aux;
mostrar “Os valores trocados são”+a+b;
fim.
Teste de mesa
A = 5 a =2
B = 2 b = 5
Aux =5

_____________________________________________________________________
_____________________________________________________________________

4° Problema: O custo ao consumidor de um carro novo, é a soma do custo de fabrica com o percentual do revendedor e com os custos dos impostos (aplicados ao custo de fabrica).
Supondo que a percentagem do revendedor seja de 25% e que os impostos custam 45% do custo de fabrica, faça um algoritmo que leia o custo de fabrica e determine o preço final do automóvel (custo ao consumidor).mostre as informações que jugar necessário.

var cf, pr, ci, pf de real;
inicio
mostrar “ Digite o custo de fabrica do automóvel”;
leia(cf);
pr ß (cf *25)/100;
ci ß (cf*45)/100;
pf ß pr+ci+cf
mostrar “ O preço final ao consumidor é “+pf;
fim.
Teste de mesa
Cf= 45000
Pr= (45000*0,25) =11250
Ci= (45000*0,45)=20250
Pf= 45000+11250+20250=76500
_____________________________________________________________________
_____________________________________________________________________

5° Problema: O sistema de avaliação de determinada disciplina,é composto por três provas.
A primeira prova tem peso 2, a segunda prova tem peso 3, a terceira prova tem peso 5. Faça um algoritmo para calcular a media final de um aluno desta disciplina.

var p1, p2, p3, m_f de inteiro;
inicio
mostrar “Digite o valor da 1° prova “;
leia(p1);
mostrar “Digite o valor da 2° prova “;
leia(p2);
mostrar “Digite o valor da 3° prova “;
leia(p3);
p1 ß(p1*2)/10;
p2 ß (p2*3)/10;
p3 ß (p3*5)/10;
nf ß p1+p2+p3;
mostrar “ A media final é “+nf;
fim.
Teste de mesa
P1 = 7....7*0,2 = 1.4
P2 = 5...5*0,3 = 1.5
P3 = 9...9*0,5= 4.5
M_f = 1.4+1.5+4.5 = 7,5
_____________________________________________________________________
_____________________________________________________________________

6° Problema: Um cliente de um banco tem um saldo positivo de R$500,00. Fazer um algoritmo que leia o cheque que entrou e calcule o saldo, mostrando (escrevendo) o saldo na tela.

var saldo, c de real;
inicio
mostrar “Insira o valor do cheque “;
leia (c);
saldo ß 500
saldo ß saldo – c;
mostrar “Seu saldo é “+saldo;
fim.
Teste de mesa
Saldo = 500;
C = 600
C = 500 – 600 = -100;
_____________________________________________________________________
_____________________________________________________________________

7° Problema: Uma empresa de vendas de softwares paga a seu vendedor um fixo de R$800,00 reais por mês, mais uma comição de 15% pelo seu valor de vendas no mês. Faça um algoritmo que leia o valor da venda e determine o salário total do funcionário.
Mostre as informações que você achar necessário.

Var fixo, comicao, valor_venda, salario_total de real;
inicio
mostrar “ Insira o valor total de vendas”;
leia(valor_vendas);
fixo ß 800;
comicao ß (valor_venda * 15)/100;
salario_total ß fixo + comicao;
mostrar “O salario total do funcionário é”+salario_total;
fim.
Teste de mesa
Valor_venda
Fixo = 800
Comicao = 25000*0,15 = 3750
Salario_total = 800 + 3750 = 4550.
_____________________________________________________________________
_____________________________________________________________________

8° Problema:/* Uma empresa de desenvolvimento de softwares paga a seu vendedor um fixo de R$500 por mês, mais um bônus de R$50 por sistema vendido. Faça um algoritmo que leia quantos softwares o funcionário vendeu e determine o salário total do funcionário. Mostre as informações que você achar necessário.*/

var fixo, bônus, salario_total de real;
sis_vendido inteiro;
inicio
mostrar “Digite a quantidade de software vendidos”;
leia(sis_vendido);
fixo ß 500;
bônus ß sis_vendido * 50;
salario_total ß fixo + bônus;
mostrar “O salario final do funcionário é”+salario_total;
fim.
Teste de mesa

Fixo = 500
Sis_vendido = 5
Bônus = 5 * 50 = 250
Salario_total = 500+250 = 750
_____________________________________________________________________
_____________________________________________________________________

9° Problema: Considerando que para um consorcio, sabe-se o numero total de prestações, a quantidade de prestações pagas e o valor atual da prestação, escreva um algoritmo que determine o total pago pelo consorciado e o saldo devedor.

Var qtp, qpp, vap, tp, sd de real;
inicio
mostrar “Insira a quantidade total de prestações”;
leia(qtp);
mostrar ”Insira a quantidade de prestações pagas”;
leia(qpp);
mostrar “Entre com o valor atual das prestações”;
leia(vap);
tp ß (qtp – qpp)*vap;
sd ß (qpp - qtp)*vap;
mostrar”Você já pagou “+tp;
mostrar”Seu saldo devedor é”sd;
fim.
Teste de mesa
Qtp = 48
Qpp = 25
Vap = 305
Tp = (48 – 25)*305 = 7500
Sd =(25 - 48)*305 = 7015
_____________________________________________________________________
_____________________________________________________________________

10° Problema: Analisando a formula “ prestação = valor + (valor * (taxa/100) * tempo)”, crie um algoritmo para efetuar o calculo do valor de uma prestação em atraso. Você deverá ler o valor da prestação, a taxa de juros imposta pelo banco, e o numero de dias em atraso.

var vp, t de real;
da de inteiro;
inicio
mostrar “Digite o valor da prestação”;
leia(vp);
mostrar “Digite o valor da taxa”;
leia(t);
mostrar “Digite a quantidade de dias em atraso”;
leia(da);
vp ß vp +(vp*(t/100)*t);
mostrar “ O valor final com “+da+” é “+vp;
fim.
Bom então é isto amigos, espero ter ajudado, dúvidas e sugestões deixem um comentário obrigado pela visita e até o próximo post.

Exercícios Visualg, Mostra a Porcentagem Do Vendedor

2012-07-29T09:05:00.003-07:00

algoritmo "Salário"
// Função : Calcular Porcentagem
// Autor : Dionatan
// Data : 3/2/2012
// Seção de Declarações

var
nome, codigo: literal
salariofuc: real
reajuste : real
salarioreajustado : real

inicio
// Seção de Comandos
// Entrada de dados
Escreva ("Informe o códio do vendedor: ")
leia (codigo)
Escreva ("Informe o nome do vendedor: ")
leia (nome)
Escreva ("Informe o salário do funcionario: ")
leia (salariofuc)
Escreva ("Informe quantos porcento será o reajuste para o funcionário: ")
leia (reajuste)
limpatela // Com este comando a tela é limpa, assim as informações que você digitou não ficará na tela, somente o resultado dos novos dados processados.
// Processamento de dados
salarioreajustado <- (salariofuc * reajuste) /100
// Saída de dados para o usuário
Escreval ("O código do funcionário é: ",codigo)
Escreval ("O nome do funcionário é: ",nome)
Escreval ("Salário sem reajuste: ",salariofuc)
Escreva ("O salário com o reajuste de: ",reajuste,"%","é: ",salarioreajustado + salariofuc)

fimalgoritmo

//Todos as linhas que tem o "//" no inicio e ignorado pela programa servem apenas para comentário e não entra no processamento de dados.

Exercícios Visualg, As quatro operações

2012-07-29T09:03:00.002-07:00

algoritmo "Contas"

// Função : Soma, dividir e multiplicar e subtrair valores
// Autor : Dionatan
// Data : 3/2/2012
// Seção de Declarações

var

a, b: real

inicio
// Seção de Comandos
// Entrada de dados
Escreval ("Este algaritimo soma dividi e multiplica, subtrai e valores")
Escreval (" ")
Escreval (" ")
Escreva ("Informe o primeiro valor: ")
leia (a) // O comando leia pega o valor informado pelo usuário e armazena a variável "a"
Escreva ("Informe o segundo valor: ")
leia (b) // Agora o comando leia esta pegando o segundo valor e armazenando na variável "b"

// Saída e processamentos de dados para o usuário

Escreval ("Esta é a soma dos dois valores: ", a + b)
Escreval ("Esta é a subtração dos valores: ", a - b)
Escreval ("Esta é a multiplicação dos valores: ", a * b)
Escreva ("Esta é a divisão dos valores: ", a/b)

fimalgoritmo

//Todos as linhas que tem o "//" no inicio e ignorado pela programa servem apenas para comentário e não entra no processamento de dados.

Exercício Visualg, Soma dois Valores

2012-07-29T09:00:00.002-07:00

algoritmo "Soma valores"

// Função : Soma dois valores e mostra o resultado para o usuário
// Autor : Dionatan
// Data : 02/02/2012
// Seção de Declarações

var

a, b, resultado : real

inicio

// Seção de Comandos
// Entrada de dados

escreval ("Este algaritimo soma dois valores")
escreva ("Informe o primeiro valor: ")
leia (a)
escreva ("Informe o segundo valor: ")
leia (b)
// Processamento dos dados
resultado <- a + b
// Saida de dados para o usuário
escreva ("A soma dos valores é: " ,resultado)

fimalgoritmo

//Todas as linhas que tem o "//" no inicio e ignorado pela programa servem apenas para comentário e não entra no processamento de dados.

Exercícios Visualg, Calcular o Raio Da Circunferência

2012-07-29T08:55:00.001-07:00

algoritmo "Circunferência"

// Função : Calcula o raio da circunferência
// Autor : Dionatan
// Data : 7/2/2012
// Seção de Declarações

var

p, r, a : real

inicio

// Seção de Comandos
p <- 3.14159

Escreva ("Informe o raio da circunferência: ")
leia (r)
a <- p*r^2
Escreva ("O valor do raio é: ",a)

fimalgoritmo

Exercícios Visualg, Calcular Salário

2012-07-29T08:53:00.000-07:00

Algoritmo para calcular o salário do funcionário baseado nas suas horas extras trabalhadas, é simples, mas ajuda bastante na lógica de programação.

algoritmo "Hora Extra"

// Função : Calcular o salário do funcionário baseado nas horas trabalhadas
// Autor : Dionatan
// Data : 7/2/2012
// Seção de Declarações

var

numero, nome : literal
totalH, valorH, salariofunc, salariototal : real

inicio

// Seção de Comandos
totalH <- 0
valorH <- 0
salariofunc <- 0
salariototal <- 0

Escreva ("Informe o nome do funcionário: ")
leia (nome)
Escreva ("Informe o numero do funcionário: ")
leia (numero)
Escreva ("Informe o total de horas trabalhadas: ")
leia (totalH)
Escreva ("Informe o valor da horas em R$: ")
leia (valorH)
Escreva ("Informe o salário do funcionário: ")
leia (salariofunc)

salariototal <- totalH * valorH

limpatela
Escreval ("O nome do funcionário é: ",nome)
Escreval ("O numero do funcionário é: ",numero)
Escreval ("O o salário do funcionário é: ",salariofunc)
Escreval ("O total de horas trabalhadas é: ",totalH)
Escreval ("O valor da hora trabalhada é: ",valorH)
Escreval ("O salário total do funcionário com as horas extra é: ",salariofunc + salariototal)

Cadastro De Estudantes Cobol

2012-07-29T08:44:00.001-07:00

Este é um código desenvolvido na linguagem de programação COBOL, serve para cadastra estudantes, é simples, mas funcional. A partir dele poderemos esta desenvolvendo uma interface mais agradável aos olhos. Cadastra o nome dos estudantes, notas e ao final a media. Espero que gostem, volte sempre ao blog abraços.

===============================================
Começo do Código
===============================================

identification division.
program-id. estudantes.
author. dionatan.
environment division.
configuration section.
input-output section.
file-control.
select estudantes assign to "estudantes.dat"
organization is indexed
access mode is dynamic
record key is codigo
alternate key is nome with duplicates
file status is fs-estudantes.
data division.
file section.
fd estudantes.
01 registro-estudantes .
02 codigo pic 9999 values zeros.
02 nome pic x(50) values spaces.
02 nota1 pic 9999 values zeros.
02 nota2 pic 9999 values zeros.
02 nota3 pic 9999 values zeros.
02 nota4 pic 9999 values zeros.
01 reg-estudantes.
02 wcodigo pic 9999 values zero.
02 wnome pic x(50) values spaces.
02 wnota1 pic 9999 values zeros.
02 wnota2 pic 9999 values zeros.
02 wnota3 pic 9999 values zeros.
02 wnota4 pic 9999 values zeros.
working-storage section.
01 fs-estudantes.
02 fs-estudantes-1 pic 9.
02 fs-estudantes-2 pic 9.
02 fs-estudante-r redefines fs-estudantes-2 pic 99 comp-x.
77 opcao pic x value spaces.
procedure division.
abertura.
open i-o estudantes.
inicio.
display erase
perform tela
if opcao="S" or opcao="s" then
perform grava-dados
perform limpa-campos
go to inicio
else
go to inicio
end-if
.
tela.
display "Cadastro de estudantes" at 0230
display "Codigo : " at 0605
display "Nome : " at 0705
display "Nota1 : " at 0805
display "Nota2 : " at 0905
display "Nota3 : " at 1005
display "Nota4 : " at 1105
accept wcodigo at 0625
if wcodigo = 9999 then
close estudantes
stop run
end-if
accept wnome at 0725
accept wnota1 at 0825
accept wnota2 at 0925
accept wnota3 at 1025
accept wnota4 at 1125
display "Os dados estão corretos S/N" at 1525
accept opcao
.
limpa-campos.
move spaces to reg-estudantes.
grava-dados.
move reg-estudantes to registro-estudantes
write registro-estudantes.

Contador Programação Cobol

2012-07-29T08:38:00.003-07:00

identification division.
program-id. contagem.
author. Dionatan.
data division.
working-storage section.
77 contador pic 999 value zeros.
procedure division.
inicio.
add 1 to contador
display contador

if contador=100 then
stop run
else

go to inicio
end-if
.

Criando Um Menu Em Cobol

2012-07-28T18:13:00.001-07:00

identification division.
program-id. Menu.
author. Dionatan.
data division.
working-storage section.
77 opcao pic 9 value zero.
77 wopcao pic 9 value zero.
screen section.
01 menu-principal.
02 blank screen.
02 line 1 col 1 value"#########################################
-"#######################################".
02 line 3 col 21 value "Sistema de compra e venda de Mercadorias"
-.
02 line 5 col 1 value "##########################################
-"######################################". 02 line 7 col 33 value "Menu Principal".
02 line 10 col 10 value "[1] Cadastro Mercadoria".
02 line 11 col 10 value "[2] Cadastro Cliente".
02 line 12 col 10 value "[3] Cadastro Vendedor/Comprador".
02 line 13 col 10 value "[4] Listagem de Mercadoria".
02 line 14 col 10 value "[5] Listagem Cliente".
02 line 15 col 10 value "[6] Sair do Sistema".
02 line 18 col 10 "Digite o numero desejado[...]".
02 opcao line 18 col 36 pic 9 using wopcao auto.

procedure division.

inicio.
display menu-principal
accept menu-principal
evaluate wopcao
when 1
call "cadmercadoria" using wopcao
go to inicio
when 2
call "CadastroCliente" using wopcao
when 6
stop run
when other
go to inicio
end-evaluate
.

Temos que levar em conta que quando escolhermos a opção não retornará resultado algum, eu estarei fazendo outro post onde ao escolhermos a opção desejada retornará o resultado que queremos, por enquanto é isso pessoal, mas guarde este código vamos precisar dele no outro post que irei fazer.

Calcula Área Do Quadrado Retangulo Cobol

2012-07-28T17:46:00.001-07:00

===========================================================

identification division.

program-id. calculaarea.

author. dionatan.

data division.

working-storage section.

77 largura pic 9(003) value zeros

77 altura pic 9(003) value zeros.

77 area-result pic 9(006) value zeros.procedure division.

inicio.

display erase

display "Calculo de area quadrado retangulo" at 0521

display "Largura: " at 1010

display "Altura: " at 1210

accept largura at 1019

accept altura at 1219

multiply largura by altura giving area-result

display "Area: " at 1410 area-result

stop run

.

===============================================

Laço de Repetição Cobol

2012-07-28T11:15:00.003-07:00

Descrição: Identifica a quantidade de números pares digitados, a quantidade de números impares e também o percentual de números pares e impares.

*===============================================

* Laço de Repetição Cobol

*===============================================
identification division.
program-id. LacoRepeticao.
author. DionatanAlves.
data division.
working-storage section.
77 numero pic 999 value zero.
77 pares pic 999 value zero.
77 impares pic 999 value zero.
77 d pic 999 value zero.
77 resto pic 999 value zero.
77 pp pic 99v99 value zero.
77 pi pic 99v99 value zero.
77 i pic 99 value zero.
77 ms pic ZZ9.99 value zero.
procedure division.
inicio.

display erase
perform varying i from 1 by 1 until i>10
display "numero" i
accept numero
compute d=numero/2
compute resto=numero - d*2
if resto <> 0 then
add 1 to impares
else
add 1 to pares
end-if
end-perform
compute pp=((pares /10) * 100)
compute pi=((impares / 10) * 100)
display erase
display "Qtd de numeros pares :" at 1010 pares
display "Qtd de numeros impare :" at 1110 impares
move pp to ms
display "Percentual de numeros pares: " at 1210 ms
move pi to ms
display "Percentual de numeros impares: " at 1310 ms
stop run

Cadastro de Clientes Cobol

2012-07-28T11:10:00.005-07:00

Descrição: Bom com esta aplicação você faz um cadastro de clientes, é bem parecido com o "Cadastro De Estudantes", mas tem algumas diferenças, então vamos lá.

*===============================================
* Cadastro De Clientes
*===============================================

identification division.
program-id.      cadastrocliente.
author. dionatan.
environment division.
configuration section.
input-output section.
file-control.
select clientes assign to "clientes.dat"
organization is indexed
access mode is dynamic
record key is codigo
alternate key is nome with duplicates
file status is fs-clientes.
data division.
file section.
fd clientes.
01 registro-clientes.
02 codigo    pic 9999.
02 nome pic x(50).
02 data-nas.
03 dia-nas               pic 99.
03 mes-nas             pic 99.
03 ano-nas              pic 9999.
02 telefone        pic x(30).
02 endereco      pic x(50).
02 numero pic 9(6).
02 complemento pic x(30).
02 bairro          pic x(30).
02 cidade         pic x(30).
02 cep          pic x(8).
02 estado         pic AA.
02 email         pic x(50).
01 reg-cliente.
02 wcodigo          pic 9999 values zero.
02 wnome          pic x(50) values spaces.
02 wdata-nas.
03 wdia-nas pic 99 values zero.
03 wmes-nas pic 99 values zero.
03 wano-nas pic 9999 values zero.
02 wtelefone    pic x(30) value spaces.
02 wendereco pic x(50) value spaces.
02 wnumero    pic 9(6) value zero.
02 wcomplemento pic x(30) value spaces.
02 wbairro          pic x(30) value spaces.
02 wcidade        pic x(30) value spaces.
02 wcep         pic x(8) value spaces.
02 westado         pic AA value spaces.
02 wemail         pic x(50) value spaces.
working-storage section.
01 fs-clientes.
02 fs-clientes-1      pic 9.
02 fs-clientes-2      pic 9.
02 fs-cliente-r redefines fs-clientes-2 pic 99 comp-x.
77 opcao pic x value spaces.
procedure division.
abertura.
open i-o clientes.
inicio.
display erase
perform tela
if opcao="S" or opcao="s" then
perform grava-dados
perform limpa-campos
go to inicio
else
go to inicio
end-if
.
tela.
display "Cadastro de cliente" at 0430
display "Codigo : " at 0605
display "Nome : " at 0705
display "Data Nascimento : / /" at 0805
display "Endereco : " at 0905
display "Telelefone : " at 1005
display "Numero : " at 1105
display "Complemento : " at 1205
display "Bairro : " at 1305
display "Cidade : " at 1405
display "C.E.P : " at 1505
display "Estado : " at 1605
display "E-mail : " at 1705
accept wcodigo at 0625
if wcodigo = 9999 then
close clientes
exit program
end-if
accept wnome at 0725
accept wdia-nas at 0825
accept wmes-nas at 0828
accept wano-nas at 0831
accept wendereco at 0925
accept wtelefone at 1025
accept wnumero at 1125
accept wcomplemento at 1225
accept wbairro at 1325
accept wcidade at 1425
accept wcep at 1525
accept westado at 1625
accept wemail at 1725
display "Dados corretos [S/N] [.]" at 1905
accept opcao at 1927
.
limpa-campos.
move spaces to reg-cliente.
grava-dados.
move reg-cliente to registro-clientes
write registro-clientes.

*===============================================
*         Fim
*===============================================