Aspirante a programador

java.lang.OutOfMemoryError: PermGen space

2012-01-28T12:02:00.000-08:00

Par não ocorrer Out Of Memory no meu toncat eu sempre coloca nas opções de VM:
-Xms2048m -Xmx2048m -XX:MaxPermSize=2048m

15 minutos depois GodJavazilla comeu quase toda memória!

Criar WebService com Netbeans

2012-01-13T07:53:00.000-08:00

Criar um webservice com o netbeans é muito simples. Basta seguir os seguintes passos:

1 - Criar um novo projeto web.

Não é necessário selecionar nenhum framework por enquanto.

2 - Agora que criamos o projeto, temos que criar o serviço.

- Arquivo -> Novo arquivo... -> Serviço Web -> Serviço Web (no campo da direita) -> Próximo.

3 - Definir o nome e pacote do serviço.

Importante: Você só pode selecionar a opção "Implementar serviços Web como Bean de sessão sem estado", se estiver usando um servidor que suporte EJB e tomcat não é um destes.

4 - Selecionar sim na mensagem que aparece, para adicionar a frame work METRO.

5 - Então é apresentada a tela com o fonte do seu webservice.
Obs: Você pode importa ele para outro projeto usando a dica anterior.

Para acessar o serviço criado basta entra no endereço: http://localhost:8084/TestWS/TestWS

Importar Web Service para Java

2012-01-13T07:10:00.000-08:00

Execute no console:

 
 . 
 $wsimport -keep -p org.test http://localhost:8080/testWS/TestWS?wsdl
 .
 .
 .

Primeiros passos com maven

2012-01-08T09:25:00.000-08:00

Estrutura de pastas:

Primeiro passo: Criar o arquivo pom.xmlNo maven pom.xml é o arquivo onde você faz o mapeamento das dependencias e de como deve ser feita a montagem dos artefatos.pom.xml


  4.0.0
  com.ramon.app
  my-app
  jar
  1.0-SNAPSHOT
  my-app: Ramon's tests
  http://maven.apache.org
  
    
      junit
      junit
      4.8.2
      test
    
    
      log4j
      log4j
      1.2.12  
    
    
      commons-logging
      commons-logging
      1.1.1
    
  
  
    
      
        src/main/resources
        true
      
    
    
      
        maven-assembly-plugin
        2.2.1
        
          
            jar-with-dependencies
          
        
      
      
 org.apache.maven.plugins
        maven-jar-plugin
        
          
            
              com.ramon.app.App

Após ter criado a estrutura de pastas e pom.xml você pode abrir o projeto no netbeans ou importar como projeto maven no eclipse.Existem outras maneiras de configurar seu projeto na IDE, mas eu prefiro assim.
....
Segundo passo: Codificando...Na codificacão você não precisa se preocupar em colocar as dependencias no classpath, pois elas já foram descritas no pom.xml.
Quando for fazer o build o maven cuida das dependencias.App.java

package com.ramon.app;

import java.util.ResourceBundle;
import org.apache.log4j.BasicConfigurator;
import org.apache.log4j.Logger;

public class App{


 static final Logger logger = Logger.getLogger(App.class);

 /**
  *
  * Metodo principal do sistema
  *
 **/
 public static void main (String [] args){

                ResourceBundle bundle = ResourceBundle.getBundle("application");
  BasicConfigurator.configure();
  logger.info("info -> Hello World");
  logger.debug("debug -> Hello World!");
 
  System.out.println("Hello World");
                System.out.println("paramtro1: " + bundle.getString("parametro1"));
 }

}

HelloWorld.java

package com.ramon.app;

public class HelloWorld{

    private String text ;

    public HelloWorld() {
    }
    
    public HelloWorld(String text) {
        this.text = text;
    }

    public void setText(String text) {
        this.text = text;
    }

    public String getText() {
        return text;
    }
 
    @Override
    public String toString() {
        return text.toString();
    }       
}

Como colocar fonte java no blogger

2012-01-07T16:26:00.000-08:00

public class Test {

 /**
  * @param args
  */
 public static void main(String[] args) {
  System.out.println("Hello source!");
 }

}

Fonte necessário:


 


 



 

public class Test {

 /**
  * @param args
  */
 public static void main(String[] args) {
  System.out.println("Hello source!");
 }

}

Hello World com oracle pl/sql

2011-02-13T10:44:00.001-08:00

Olá Mundo:

declare
   ola varchar(100);
begin

   ola := 'Hello World';
   DBMS_OUTPUT.PUT_LINE(ola);
end;

Introdução a NCL e Lua: Desenvolvendo Aplicações Interativas para TV Digital

2010-06-30T09:14:00.000-07:00

Escrito por Ramon Rosa e Vagner Oliveira

Resumo. A televisão é um dos maiores meios de comunicação do mundo, como também é uma grande fonte de informação, entretenimento e cultura. Além dos benefícios trazidos com a qualidade de som e imagem, a TV possibilita inúmeras facilidades e oportunidades para os programas de televisão. Os telespectadores poderão ter acesso a jogos e programas interativos, ou seja, o usuário deixará de ser um mero espectador e passará a interagir com a programação, moldando o conteúdo de acordo com a sua escolha. Este artigo traz um estudo sobre o as linguagens NCL (Nested Context Language) e Lua e um estudo de caso com a implementação de uma aplicação interativa para TV Digital.
Palavras-chave: televisão digital interativa, NCL, Lua.
1. Introdução
A televisão é um dos maiores meios de comunicação do mundo, como também é uma grande fonte de informação, entretenimento e cultura. Em 2006, o governo brasileiro criou o SBTVD (Sistema Brasileiro de Televisão Digital), baseado no padrão japonês. O SBTVD inovou no seu middleware, o Ginga, que consiste de máquinas de execução das linguagens oferecidas, e bibliotecas de funções, que permitem o desenvolvimento rápido e fácil de aplicações.
    O Ginga é fruto do desenvolvimento de projetos coordenados pelos laboratórios Telemídia da PUC-Rio (Pontifícia Universidade Católica do Rio de Janeiro) e LAViD da UFPB (Universidade Federal da Paraíba). O nome Ginga foi escolhido em reconhecimento à cultura, arte e contínua luta por liberdade e igualdade do povo brasileiro.
    Uma aplicação de TV Digital pode ser declarativa, procedural ou híbrida. A seguir esses conceitos são apresentados:
Linguagens Declarativas – são mais intuitivas (de mais alto nível), mais fáceis de usar e, normalmente, não exigem um perito em programação. Enfatiza a declaração descritiva de um problema, sem se preocupar como realmente implementará essas tarefas.
Linguagens Procedurais – são mais complexas e usualmente requer um perito em programação. O programador deve informar ao computador cada passo a ser executada, ou seja, deve implementar uma solução algorítmica. No entanto, o programador possui um maior controle do código.
Aplicações Híbridas – conjunto de entidades possui tanto conteúdo do tipo declarativo quanto procedural. Frequentemente fazem uso de scripts, cujo conteúdo é de natureza procedural.
    A seção a seguir descreve a linguagem Lua que pode ser inserida em documentos NCL, trazendo poder computacional adicional às aplicações declarativas.
2. Linguagem Lua
Lua é uma linguagem de programação em script criada em 1993, em um laboratório de pesquisa da PUC-Rio. É muito parecida com outras linguagens como Python, PHP, Ruby, ShellScript.
    Lua destaca-se pelo seu tamanho pequeno, seu núcleo é inferior a 200k, sua rapidez na execução, analistas informam que é a linguagem mais rápida das interpretadas com tipagem dinâmica, simplicidade, tem a programação simples em conformidade com as demais linguagens, portabilidade, Lua é feita com a junção de C ANSI com C++ ANSI.
    Lua é a única linguagem a ser utilizada em todo mundo, que foi desenvolvida fora dos EUA, Europa e Japão.
    Atualmente a linguagem Lua está sendo utilizada principalmente para o desenvolvimento de jogos como World of Warcraft, The Sims e Sim City, e aplicações para TV digital interativa.
2.1 Executando lua
Um trecho de código lua pode ser entrado no modo interativo (diretamente no console lua), pode ser escrito em um arquivo com extensão “lua” e executado pelo interpretador ou compilado e depois executado pelo interpretador.
2.1.1 Modo interativo
Para executar trechos de código do lua em modo interativo deve-se primeiro chamar o interpretador da linguagem com o comando lua no terminal, exemplo:
    $ lua
    Lua 5.1.4 Copyright (C) 1994-2008 Lua.org, PUC-Rio

    >
Com o interpretador lua em execução você pode entrar com comandos de acordo com a sintaxe da linguagem, e após teclar “enter” serão executados pelo interpretador lua, exemplo:
    $ lua
    Lua 5.1.4 Copyright (C) 1994-2008 Lua.org, PUC-Rio

    > varA = 'Hello'

    > varB = 'World'

    > print(varA .. ' ' .. varB)

    Hello World

    >

    Como podemos constatar o interpretador define dinamicamente o tipo das variáveis (varA e varB) , e ao chamar o método print ele o interpretador executa e informa a saída no console.
2.1.2 Executando arquivo pelo interpretador
Podemos executar trechos de código lua através de arquivos para isto basta criar um arquivo contendo o código e depois chamar o interpretador com o nome do arquivo como parâmetro, por exemplo:
    $ nano hello.lua
    varA='Hello '

    varB='World'

    print(varA .. varB)
    $ lua hello.lua
    Hello World

    $
    Neste caso o arquivo é compilado e depois executado.
2.1.3 Compilando e executando
Uma maneira mais eficaz de se executar trechos lua é compilando e depois executando o arquivo que contem o trecho, por exemplo:
    $ nano hello.lua
    varA='Hello '

    varB='World'

    print(varA .. varB)
    $ luac hello.lua
    $ ls *.out

    luac.out

    $ lua luac.out

    Hello World

    $
    Neste caso sua execução é mais eficaz pois o arquivo já está compilado pele luac quando o arquivo é executado não existe a necessidade de um pre compilamento.
3. Linguagem NCL
NCL (Nested Context Languagem), Linguagem de Contextos Aninhados, é uma linguagem baseada em XML, destinada à criação de documentos hipermídia e utilizada para reunir objetos de mídia em uma apresentação multimídia. Estes objetos de mídia podem ser de qualquer tipo, aúdio, vídeo, documento HTML ou mesmo um objeto procedural.
3.1 Estrutura de um documento NCL
Todo o conteúdo de um documento NCL é definido dentro do elemento <ncl> sendo sua estrutura dividida em duas grandes partes, o cabeçalho e o corpo do documento. A figura 1 demonstra a estrutura de um documento NCL.

Figura 1

Figura 1. Estrutura de um documento NCL
    No cabeçalho são definidas as características de apresentação do documento, através das regiões e descritores, os relacionamentos que serão utilizados para a sincronização dos nós, através dos conectores, entre outras facilidades.
    No corpo definimos os elementos e a sincronização entre eles. Além da definição dos nós e elos, o corpo de um documento NCL pode também definir composições para melhorar sua estrutura e organização.
4. Integração NCL-Lua
O ambiente Ginga-NCL permite o uso de Lua dentro de aplicações NCL. Dessa forma, o poder de uma linguagem declarativa é elevado quando integrada com uma linguagem procedural. A aplicação passa a ter acesso a recursos computacionais genéricos, ou seja, qualquer tipo de recurso que necessite estrutura de dados e algorítmicos, tais como cálculos, interação com a interface gráfica, entrada de dados por parte do telespectador, etc.
    Esta seção descreve como é feita essa integração, a qual permite um aumento do potencial dos programas para a televisão digital.
4.1. Scripts NCLua
Os scripts NCLua usam a mesma abstração para objetos de mídia utilizada para imagens, vídeos e outras mídias. Esses scripts seguem sintaxe idêntica à de Lua e possuem um conjunto de biblioteca similar. Ou seja, a linguagem Lua possui adaptações para funcionar embutida em documentos NCL.
    O arquivo Lua deve ser escrito em uma arquivo (com extensão .lua) separado do documento NCL, que apenas o referencia como qualquer outro nó de mídia. O ciclo de vida do script é controlado pelo documento NCL que o referencia, ou seja, o NCL determina quando o programa Lua inicia.
    As bibliotecas disponíveis são divididas em quatro módulos essenciais:
Módulo event – permite a comunicação do NCLua com o formatador NCL através de eventos.
Módulo canvas – oferece uma API para desenhar primitivas gráficas e imagens.
Módulo settings – exporta a tabela settings com variáveis definidas pelo autor do documento NCL e variáveis de ambiente reservadas.
Módulo persistent – oferece uma API para exportar a tabela persistent com variáveis definidas em uma área reservada, restrita do middleware.
    A seção a seguir propõe um estudo de caso com a implementação de uma aplicação interativa para TV Digital.
5. Aplicação proposta
A aplicação proposta informa o valor do salário líquido após o usuário fornecer o salário bruto através do controle remoto. A aplicação desconta a porcentagem de INSS conforme o valor informado.
    O objetivo é demonstrar um pouco da capacidade e interatividade das aplicações de TV Digital. A seguir é descrito o comportamento esperado:
Um campo de entrada e outro de saída são exibidos na tela.
O usuário preenche o campo de entrada.
Quando o usuário aperta a tecla ENTER, o valor do salário líquido é exibido no campo de saída.

5.1 Principais trechos da aplicação
Para execução correta da aplicação, alguns comandos são necessários, como o mapeamento do controle remoto da televisão:
    local MAP = {
['1'] = { '1', '.', ',' }

    ,['2']={'a','b','c','2'}
,['3']= 'd','e','f','3'}

    ,['4']={'g','h','i','4'}
,['5']={'j','k','l','5'}

    ,['6']={'m','n','o','6'}    ,['7']={'p','q','r','s','7'}

    ,['8']={'t','u','v','8'}    ,['9']={'w','x','y','z','9'}

    , ['0'] = { '0' }
}

    Função que calcula o salário:
    function calcula_salario(var)

        if var <= 1024.97 then

            return var - (var * 0.08)

        elseif var >= 1024.98 and var <= 1708.27 then

            return var - (var * 0.09)

        else

            return var - (var * 0.11)

        end

    end

    Corpo da arquivo NCL da apresentação:

<body>

<port id="entryPoint" component="input"/>

<media type="application/x-ginga-settings" id="programSettings">

<property name="service.currentKeyMaster" value="inputIdx"/>
</media>

<media id="input" src="input.lua" descriptor="dsInput">

<area id="select"/>

<property name="text"/>

</media>

<media id="output2" src="output.lua" descriptor="dsOutput2">

<property name="text"/>

</media>

<link xconnector="onBeginStart">

<bind role="onBegin" component="input"/>

<bind role="start"   component="output2"/>

</link>

<link xconnector="onBeginSet">

<bind role="onBegin" component="input" interface="select"/>

<bind role="set" component="output2" interface="text">

<bindParam name="var" value="$get"/>

</bind>

<bind role="get" component="input" interface="text"/>

</link>

</body>

Referências

http://www.lua.org/
http://www.ncl.org.br/
http://www.ginga.org.br/
http://www.gingancl.org.br/
http://www.gingadf.com/blogGinga/?tag=ginga-ncl
http://www.peta5.com.br/
http://www.telemidia.puc-rio.br/~francisco/nclua/

Exemplo processo BPMN Pedido de Férias (Com jbpm)

2010-06-21T17:40:00.000-07:00

<?xml version="1.0" encoding="UTF-8"?>
<definitions id="Pedido de Férias-id" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://schema.omg.org/spec/BPMN/2.0 ../../../../../../../../../../bpmn/src/main/resources/BPMN20.xsd" xmlns="http://schema.omg.org/spec/BPMN/2.0" typeLanguage="http://www.w3.org/2001/XMLSchema" expressionLanguage="http://www.w3.org/1999/XPath" targetNamespace="http://jbpm.org/example/bpmn2/vacation_request" xmlns:jbpm="http://jbpm.org/bpmn2"> <process id="Pedido de Férias" name="Pedido de Férias">
<startEvent id="startNode" />
<userTask id="Formulário de Pedido de Férias" name="Formulário de Pedido de Férias" implementation="other"> <potentialOwner resourceRef="user">
<resourceAssignmentExpression>
<formalExpression>Usuario.Usuario</formalExpression>
</resourceAssignmentExpression>
</potentialOwner>
<rendering id="pedido-ferias.html-form">
<jbpm:form>pedido-ferias.html</jbpm:form>
</rendering>
</userTask>
<userTask id="Verificar Pedido de Férias" name="Verificar Pedido de Férias" implementation="other">
<potentialOwner resourceRef="user">
<resourceAssignmentExpression>
<formalExpression>Usuario.Usuario</formalExpression>
</resourceAssignmentExpression>
</potentialOwner>
<rendering id="verifica-pedido-ferias.html-form">
<jbpm:form>verifica-pedido-ferias.html</jbpm:form>
</rendering>
</userTask>
<endEvent id="node-aceitar-ferias-id" name="node-aceitar-ferias-name" />
<endEvent id="node-recusar-ferias-id" name="node-aceitar-ferias-id" />
<sequenceFlow id="startFlow" name="startToFistNode"
    sourceRef="startNode" targetRef="Formulário de Pedido de Férias" />
<sequenceFlow id="Pedir Férias" name="Pedir Férias"
    sourceRef="Formulário de Pedido de Férias" targetRef="Verificar Pedido de Férias" >
<conditionExpression xsi:type="tFormalExpression">${jbpm_outcome == 'Pedir Férias'}</conditionExpression>
</sequenceFlow>
<sequenceFlow id="Aceitar Férias" name="Aceitar Férias"
    sourceRef="Verificar Pedido de Férias" targetRef="node-aceitar-ferias-id" >
<conditionExpression xsi:type="tFormalExpression">${jbpm_outcome == 'Aceitar Férias'}</conditionExpression>
</sequenceFlow>
<sequenceFlow id="Recusar Férias" name="Recusar Férias"
    sourceRef="Verificar Pedido de Férias" targetRef="node-recusar-ferias-id" >
<conditionExpression xsi:type="tFormalExpression">${jbpm_outcome == 'Recusar Férias'}</conditionExpression>
</sequenceFlow>
</process>
</definitions>

Formulários:

Formulário de Pedido de Férias

<h1>Pedido de férias</h1>
<h2>Aqui você faz seu pedido de férias</h2>
<table border="0">
<tbody>
<tr><td>Usuário Pedido de Férias: </td>
<td><input id="usuarioPedidoFerias" name="usuarioPedidoFerias" type="hidden" value="#{userLogin}" />
    #{userLogin}
</td></tr>
<tr><td>Dias de férias: </td>
<td><input id="diasFerias" name="diasFerias" type="text" value="${diasFerias}" /></td>
</tr>
</tbody>
</table>

Formulário de Verificação de Férias

<h1>Verificação de pedido de férias</h1>
<h2>Dados do pedido de férias:</h2>
<table border="0">
<tbody><tr><td>Usuário: : </td>
<td><input id="usuarioPedidoFerias" name="usuarioPedidoFerias" type="hidden" value="${usuarioPedidoFerias}" />
${usuarioPedidoFerias}</td>
</tr><tr><td>Quantidade de dias: </td><td><input id="diasFerias" name="diasFerias" type="hidden" value="${diasFerias}" />${diasFerias}</td></tr>
</tbody>
</table>

Diagrama de Classes Gerador de XML BPMN (Business Process Modelling Notation)

2010-06-21T17:16:00.000-07:00

Digrama de Componente OpenBPMS (UML)

2010-06-21T17:13:00.000-07:00

Projeto OpenBPMS (Open Business Process Management System/ Sistema de Gerenciamento de Processos Empresariais) BPM jBPM

2010-06-21T16:58:00.000-07:00

Hospedado:
http://sourceforge.net/projects/open-bpms/

Resumo

Este sistema é uma implementação de um trabalho para cadeira de engenharia de software, e um possível tema para TCC/Estágio.
O trabalho descreve a implementação, de um software de gerenciamento de processos de negócio (BPM, Business Process Management), utilizando JBPM.
JBPM é uma framework¹ desenvolvida pela Jboss, para prover, linguagem de modelagem (jpdl e bpmn), estrutura para gerenciamento, automatização e workflow² de processos de negócio.
Um processo de negócio é uma sequencia de atividades previamente estabelecidas pela empresa, com a finalidade de definir como é realizado determinado trabalho.
A gerencia de processospasta sem título de negócio é uma ferramenta para criar, controlar, analisar e melhorar processos.
Para o melhor desenvolvimento do software será feito documentação UML, como diagramas de classe, de atividade, de status, casos de uso.
O software possibilitará que os processos sejam gerenciados por uma página da web, com controle de acesso por usuário.
Auxiliará o nível estratégico da empresa a descobrir falhas ou gargalos no processos, como qual setor ou pessoa entrava o processo e com que frequência.

Tela de executar tarefa.

Processos do Sistema

Tarefas abertas para o usuário "ramon"

Relatório de tarefas abertas

Tela de editar contato

Tela do administrador do sistema

Objetivos
Objetivo principal do sistema será promover auxilio ao ciclo de vida de processos de negócio.

Objetivos do sistema:
1.Facilitar o controle dos processos de negócio.
2.Disponibilizar a gestores estatísticas.
3.Possibilitar a regulamentação de fluxo para determinado processo.
4.Facilitar adaptação de novos funcionários aos processos da empresa.
5.Ser base histórica para resultados de determinadas atividades.
6.Diminuir a quantidade de documentos físicos na empresa.
7.Aumentar a velocidade de tramitação de processos na empresa.

Objetivos de implementação:
1.Criar documentação e modelagem do sistema com UML (diagramas de classe, atividade, sequencia, status, casos de uso).
2.Criar banco de dados.
3.Criar regras de negócio e controladores em java (beans, entities, servilets)
4.Criar visualização utilizando Java Server Faces (paginas dinâmicas web para inserir, editar, atualizar, deletar, consultar).
5.Criar relatórios utilizando iReport (impressão de processos, de cadastros, estatísticas).
6.Criar um controle de acesso por usuário.

Recursos de hardware e de software

Serão utilizadas as seguintes metodologias:
Unified Modeling Language (UML)
Utilizarei esta linguagem de modelagem de dados, pois com ela é fácil especificar, documentar, descrever a lógica para o desenvolvimento. Segundo Ahmed em Desenvolvendo aplicações comerciais em Java com J2EE e UML, a UML tem as ferramentas necessárias para o desenvolvimento de sistemas complexos e pode facilmente representar estruturas para java.

Model-view-controller (MVC)
Devido a complexidade do trabalho proposto utilizarei esta arquitetura dividindo a codificação em camadas (modelo, visão e controladores).
Modelo: representação das entidades do sistema, como usuário, processo e documento, entre outros.
Visão: paginas que representam a interface com o usuário, como cadastro de usuários.
Controle: codificação das regras de negócio, validação de dados e faz a ligação entre a visão e o modelo.

Servidor de aplicação e web
Para implementação do sistema será necessário um servidor de aplicação e web. Java especifica uma arquitetura para este fim, Java 2 Enterprise Edition (J2EE).
Banco de dados
Para armazenamento de dados será utilizado banco de dados relacional, utilizarei o banco MySQL.

Sumário executivo (escopo do projeto)

Open-BPMS

Desenvolvimento de um sistema de gerenciamento de processos empresariais.
Muitas empresas atualmente passam por dificuldades no controle e fiscalização da execução de seus processos, tais dificuldades acarretam em desperdício de tempo e material (inclusive humano).
Em uma mesma empresa diferentes funcionários podem executar a mesma tarefa de modo diferente, a falta de um padrão pode dificultar tarefas como treinamento de um novo funcionário, determinação do valor da tarefa.
O sistema irá prover uma interface para execução dos processos, desenvolvidos por analistas no formato BPMN XML ou JPDL XML.
No sistema será necessário a criação de um fluxo para cada processo, com o caminho e documentos necessários para o andamento do processo. Cada vez que um novo processo é iniciado, ele deverá percorrer as etapas definidas em seu fluxo.
O sistema deverá ser capaz de prover informações e relatórios dos processos.
O sistema deverá prover o serviço em um servidor web, permitindo que os colaboradores possam acessar de um web-brownser.

Requisitos:
Gerenciar usuários
Gerenciar processos implantados
Iniciar processo
Ver / Executar tarefa
Liberar tarefa
Acessar informações do processo

Web Services, computação descentralizada para sistemas distribuídos, por Ramon Rosa da Silva

2009-12-08T09:22:00.001-08:00

Resumo. O crescimento dos serviços disponibilizados na internet tornou necessário uma padronização de protocolos para troca de informações.

Para a interoperabilidade dos serviços desenvolvidos em diferentes arquiteturas, sistemas operacionais e linguagens, mais do que nunca é ressaltada a importância de padrões como XML (eXtensible Markup Language) e HTTP (Hypertext Transfer Protocol).

Com ajuda destes padrões Web Services podem resolver problemas de comunicação entre diferentes aplicações, e disponibilizar serviços que podem ser utilizados por vários clientes sem necessidade de reconfiguração do servidor, isto é reutilização de serviços.

1.Introdução

Na década de 60 a computação era baseada em grandes mainframes e terminais burros, isto é computação centralizada, existia pouca ou nenhuma preocupação com padronização de protocolos de comunicação, cada fabricante propunha sua própria especificação de seus produtos que não eram compatíveis com os produtos concorrentes. Muito rápido isso se tornou um problema para os clientes, que passava a ser também um problema aos fabricantes, foi neste contexto que sugiu a ISO, que propôs um modelo de arquitetura dividido em 7 camadas (famosa até hoje, arquitetura OSI).

Conforme foi sendo popularizado os computadores desktop e com a abertura da internet (por HTTP), a computação centralizada foi perdendo espaço, um novo modelo de computadores pessoais que operam sem necessidade de mainframes, que se comunicam pelo protocolo TCP/IP baseado no modelo OSI, assim iniciou a computação descentralizada.

A descentralização possibilitou o surgimento de serviços disponibilizados na web, os Web Services, e novos padrões foram criados para o desenvolvimento de aplicações distribuídas, como CORBA (Commom Object Request Broker Architeture), DCOM da Microsoft entre outros. Em meados da década de 90 existiam vários padrões que criavam um forte acoplamento entre os sistemas, e se tornava complicado diferentes sistemas interagirem entre si.

Mais uma vez foi necessário uma reformulação do modo de diferentes serviços se comunicarem, para este fim foi criada a XML, linguagem/padrão de troca de informações.

Atualmente as empresas se esforçam para aperfeiçoamento de padrões como XML e HTTP, com linguagens como Java e PHP, que permitem a criação de sistemas independentes de arquiteturas e plataformas. Essas tecnologias são utilizadas tanto com os novos padrões quanto antigos em sistemas legados.

2.Padrão Web Service

O padrão do Web Service é padronizado pela W3C, com: “um sistema de software projectado para suportar a interoperabilidade entre máquinas sobre rede”.

Essas interoperabilidade é garantida pelo seu padrão de comunicação baseado em XML encapsulado em SOAP.

3.XML

Atualmente de facto XML é a linguagem padrão para comunicação entre serviços com serviços, e serviços com clientes.

Fig. 1: Comunicação entre os serviços.

A linguagem XML é muito similar a HTML (Hyper Text Model Linguage), é escrita com tags com uma identificação e dados dentro das tags, podem existir tags dentro de tags. Por exemplo:

Fig. 2: Exemplo XML

O XML trafega pela rede dentro de um pacote HTTP ou HTTPS para conexões seguras, que é desempacotado pelo servidor.

4.SOAP

Simple Object Access Protocol, trás a mesma ideia do RPC (Remote Procedure Call) para XML, atualmente é um especificação da W3C.

É um protocolo baseado em XML para comunicação entre aplicações HTTP.

RCP não é recomendado para internet pois teria problemas com segurança e com firewalls ou proxyes.

Mensagens SOAP, são dividas em 3 partes:

SOAP envelope: Define o conteúdo da mensagem.

SOAP header: Contém a autenticação, transação e contabilização, é opcional.

SOAP body: informações dos métodos e parâmetros que serão utilizados.

Fig. 3: Exemplo mensagem SOAP

5.Web Services

Web Services são aplicações publicadas na web, desde simples processos como cálculos até complexas transações de empresariais, depois de publicados permitem obtenção e submissão de dados.

São acessados de forma independente de plataforma ou linguagem de programação, utilizando padrões como HTTP, XML e SOAP. Seus serviços são conhecidos através de uma mensagem padrão XML.

Um Web Service é feito para suportar 3 categorias: provedor do serviço, provedor de registro e o cliente do serviço. Com operações de procura (find), publicação (publish) e acoplamento (bind).

O cliente procura o serviço, e obtém a descrição do serviço e do provedor de registro, com essas informações ele pode acessar e interagir (bind) com o provedor do serviço.

Fig. 3: Ciclo de vida de um Web Service

5.1.WSDL

Web Services Description Language, linguagem XML, desenvolvida para descrever o Web Services, o que o serviços faz, como utiliza-lo e onde ele está localizado.

Contém o elemento "definition" dividido em:
"message" e "portType" : define quais operações o serviço fornece.
"type" : este elemento opcional serve para definir tipos de dados estruturados .
"binding" : designa como as operações são invocadas.
"service" : explicita onde o serviço está localizado.

5.2.UDDI

Universal Description Discovery and Integration, é um conjunto de registros baseados na web que provem informações a respeito de uma entidade ou organização, podem ser utilizadas por qualquer um que queira tornar disponível ou queira obter informações a respeito de negócios ou entidades.

São encontrados 4 tipos de UDDI:

BusinessService: pode conter informações sobre uma ou mais organizações.

BusinessEntity: informações técnicas e de descrições de serviços.

BindingTemplate : contem referencias a um ou mais tModels

tModel: definições de especificações técnicas de serviços.

Uma UDDI é similar a uma lista telefônica. Páginas brancas (white pages), contém informações como nome da organização, contato e identificadores. As páginas amarelas (yellow pages) um índice de serviços e produtos e as páginas verdes (green pages) contém informações a respeito de transações, descrições de serviço e invocação de aplicações.

6.Segurança

Atualmente a segurança é uma das questões mais criticas em um Web Service, não existe falta de tecnologia para segurança, mas um falta de consenso para escolha desta tecnologia.

Existe uma grande preocupação de separar bancos de dados importantes das empresas com os Web Services para maior segurança.

Principais mecanismos de segurança são: SSL, XML signature, XML encryption, WS-security e SAML.

6.1.SSL

Secure Socket Layer, desenvolvido para pequenos dispositivos, oferece autenticação, integridade e privacidade. Trabalha em cima de HTTP, com a desvantagem de ser mais lento que HTTP puro.

6.2.XML signature

Iniciado pela IETF (Internet Engineering Task Force) e W3C, como uma especificação de XML com assinatura digital. Com vantagem de ser independente de linguagem de desenvolvimento, ao contrario de outras assinaturas digitais.

6.3.XML encryption

Também iniciado pela IETF e W3C, define um processo de encriptação e decriptamento de dados no formato XML, onde o XML pode ser acessado por qualquer um, mas apenas o proprietário da chave pode entender os dados.

6.4.WS-security

Web Service seguro, iniciativa da Microsoft, IBM e Verisign, para XML signature e XML encryption, fornecer segurança para SOAP.

6.5.SAML

Security Assertion Markup Language, ainda pouco utilizada, é desenvolvida para prover autenticação e autorização em diferentes Web Services com níveis de direitos de acesso, permitindo que trabalhem como se fosse apenas um apicação.

7.Implementação

Um Web Service pode ser implementado de diferentes linguagens de programação. Linguagens como PHP, ASP, Java, possuem servidores que provem bibliotecas para facilitar a implementação.

No caso do PHP existe o Apache, um dos servidores mais populares para internet, para ASP a Microsoft desenvolve seu próprio servidor e para Java a Sun Microsystens definiu uma arquitetura que é implementada por diferentes empresas como IBM com WebSphere, Oracle, Apache.org com Tomcat entre outras.

8.Conclusões

Os Web Services tem se tornados cada vez mais importantes para as empresas, já substituíram o paradigma de computação centralizada, estão atualmente substituindo servidores que usam protocolos fortemente acoplados como CORBA.

A tendencia é que cada vez mais as empresas passem a disponibilizar seus serviços por Web Services.

Na medida que grandes empresas desenvolvedoras de software estão se dedicando no aperfeiçoamento de arquiteturas como J2EE, plataforma .Net, e também comunidade por trás do PHP, tem ficado cada vez mais simples para as empresas terem seus próprio Web Services.

9.Referencias

W3C

w3schools

www.ws-i.org

TI Verde Por Ramon Rosa da Silva

2009-12-07T09:49:00.001-08:00

A pratica da TI verde se da escolhendo fornecedores que assumam sua responsabilidade ecológica, utilização materiais renováveis, descartamento de correto de materiais, virtualização, economia de energia entre outros atos que venham em favor sustentabilidade da computação. De forma geral essa pratica procura diminuir o desperdício e aumentar a eficiência.
Muitas pessoas não sabem mas uma forma simples de diminuir o gasto de energia é desligar o monitor quando não está sendo utilizado, principalmente quando é CRT, que pode consumir até 80% da energia do computador. Ainda bem estamos caminhando para monitores mais econômicos como LCDs e de LEDs, que consomem muito menos que os CRT.
Hoje em dia a TI verde está saindo da teoria e entrando em pratica nas grandes empresas, muitas por economia e consciência, outros por publicidades, como concursos como “Top Green 500”, com a escolha dos 500 computadores mais eficientes energeticamente, mas em fim o que importa é a adesão das empresas na TI verde.
Vale lembrar que além do hardware o software também tem grande importância na TI verde, imagine que quanto menor o processamento, menor aquecimento, que se relaciona com refrigeração interna do equipamento e do ambiente. No desenvolvimento o software também pode ser feito de forma sustentável, em forma colaborativa, criando módulos que possam ser melhorados, procurando a reutilização de formas comprovadas de eficiência.
Estive semana passada em uma empresa a ViaFlow de consultoria que em parceria com a IBM, trabalha com implantação de um sistema de GED (Gerenciamento Eletrônico de Documentos), o sistema se trata da digitalização de documentos, visando facilitar o gerenciamento deste documento, e o que eu achei mais interessante, permite anular todos documentos em papel, mantendo-os apenas no sistema, com a mesma validade jurídica, um sistema que elimina papéis é importante não somente para empresas de TI, e sim para todas empresas que trabalhem com um volume considerável de documentos em papel.
Eu trabalhei em um hospital de tamanho médio, e vi um grande volume de documentos gerados em papel apenas para fins jurídicos, pois o sistema podia abranger todas as atividades sem a necessidade de papel.
Sistemas como GED, ou simplesmente gerar em PDF e utilizar e-mail ao invés de imprimir relatórios, ou de desligar os monitores, ou virtualização, entre outros métodos, não são utilizados por estrar intrinsecamente no subconsciente¹ a desconfiança da segurança do software ou hardware.
Acredito que quando as empresas e pessoas tiverem maior consciência do desperdício que fazem, trocarão a cultura atual, por outra com maior confiança em tecnologias com um consciência ecológica.

¹ Nota: Lembra as aulas de psicologia, talvez um psicologo possa ajudar nesse processo de mudanças. Se não me der bem no área de tecnologia vou cursar psicologia...

Memória flash, por Ramon Rosa da Silva

2009-12-07T09:48:00.001-08:00

A memória flash é a mais indicada para substituir a do disco rígida (HDs), por sua velocidade superior, com uma única operação é capas de escrever em vários blocos, com acesso aleatório, porém atualmente sua durabilidade é inferior a do disco rígido, são limitadas a uma quantidade finita de leitura e escrita. Seu custo atual é maior que a do disco rígido, quando seu custo baratear são vendida em massa nos desktops e em servidores, atualmente já são encontradas em alguns NetBooks.
São do tipo EEPROM (Electrically-Erasable Programmable Read-Only Memory) . Muito parecidas com a memória RAM (Random Access Memory) com a diferença que não são voláteis (não se apaga quando é desligada).
Encontradas em dispositivos como pen drives, mp3 players, câmeras digitais, celulares, principalmente por sua economia de energia e um tamanho pequeno.

Virtualização, por Ramon Rosa da Silva

2009-12-07T09:47:00.000-08:00

Virtualização de sistemas operacionais é a possibilidade de em uma única máquina e sistema operacional, poder rodar por cima mais sistemas operacionais, que possam interagir entre si, e entre a rede de computadores, como se estivessem fisicamente instalados.
Cada vez mais comum nas grandes empresas a virtualização tem se tornado uma grande aliada a redução de custos.
Para que essa virtualização seja eficaz é necessário dispor de um equipamento potente, é pouco provável que um desktop comum tenha um bom desempenho para virtualizar outros sistemas operacionais.
Empresa que produzem servidores estão se dedicando a criação de hardwares específicos para vitalização de vários sistemas operacionais no mesmo servidor, até mesmo desenvolvendo sistemas operacionais específicos para esta atividade. Utilizam dedicação de processadores ou núcleos, memória para determinada máquina virtual.
Um desvantagem desta técnica é a centralização em uma única máquina de diversas atividades, caso ela necessite de reparos é recomendável ter uma outra máquina disponível (redundância), com um com backup dos sistemas virtualizados.

Computação social, Por Ramon Rosa da Silva

2009-12-06T11:18:00.001-08:00

Tem sido cada vez maior a necessidade das pessoas interagirem utilizando a internet, para solucionar o problema de “como se relacionar pele internet” tem surgido sistemas web e desktop, esses sistemas promovem o relacionamento das mais diversas pessoas, de diferentes classes sociais e lugares do mundo.
Mesmo já existindo muitas tecnologias voltadas para essa área, tais como, orkut, myspace, facebook, msn, gtalk, skype, ainda existe espaço para novas tecnologias que atenda públicos específicos, por exemplo, de empresas, de escolas, entre outros que a criatividade nos permita encontrar.
Para alguns autores como Höök (2001) o termo é aplicado no sentido de “pesquisar e construir software que permita as pessoas terem uma vida social on-line”, para Ashok Rao (2002) o foco seria poder incluir socialmente cidadãos na tecnologia digital.
Atualmente a computação social está motivando em grande quantidade o interesse das classes baixas por computadores e internet, devido a popularização do sistema de relacionamento Orkut, do mensageiro instantâneo Msn Messenger e sistema de gestão de conhecimento wikipedia (os 3 mais populares em suas áreas no Brasil), que muitas pessoas começaram a utilizar os computadores, algumas vezes para se relacionar de uma maneira mais barata que o telefone com amigos/parentes que viajaram para longe, ou até mesmo para conhecer pessoas novas, manter contato.
E também outro ponto importante que fez com que pais de baixa renda adquirissem um computador com internet é a questão de estudo, pois tem a consciência que o futuro é digital e com o computador seus filhos terão mais chances de se relacionar e aprender pela internet.

Computação em nuvem, por Ramon Rosa da Silva

2009-12-05T13:05:00.000-08:00

Em inglês chamada de “cloud computing”, é uma tendencia para o futuro da internet.
Computação em nuvem é poder utilizar os softwares sem precisar instalá-los, muitas vezes está ligado a computação móvel, no futuro poderemos utilizar softwares com nossos documentos pessoais em qualquer lugar, pois estarão armazenados em servidores na internet.
Mutias empresas atualmente já dedicam muito de seus esforços para aperfeiçoamento destes softwares, o Google por exemplo disponibiliza aos seus usuários, edição de textos, planilhas, email, mapas, e alguns outros software de escritório com gdocs, dmaps e gmail, para acesso em qualquer lugar pela internet. Além do google existem outras empresas como Zooho que estão seguindo o mesmo caminho.
Computação em nuvens é um serviço feito para funcionar em diferentes sistemas operacionais.
Alguns desvantagens deste serviço são:
Dependência de conexão de internet, o serviço só será utilizado com perfeição se o usuário e o servidor estiver uma boa conexão com a internet, ou se por ventura a conexão de uma das pontas cair, termos problemas críticos.
Exige segurança, autenticação segura, farejadores de rede, cópias sem autorização, alteração indevida, falhas com backup, entre outros, são problemas que podem acontecer quando se trabalha com dados armazenados em rede.
Custo alto, atualmente para manter um sistema de computação em nuvens é necessário sistemas de arquivos distribuído muito complexo e equipamento potente, isso eleva muito o custo.

Uma reflexão sobre ética

2009-11-30T16:29:00.000-08:00

Com o inevitável crescimento da tecnologia nas empresa, tem ficado cada vez maior o controle dos funcionários (tempo de trabalho, no que foi trabalhado), quanto maior a empresa e mais inovadora, maior a necessidade de controle e segurança industrial.
Mas toda essa busca por segurança e controle dos funcionários tem um carater invasivo, podendo passar por cima da privacidade ou até da legalidade.
É muito importante estabelecer políticas éticas corporativas que incluam questões relacionadas aos Sistemas de Informação.
Internet e e-mail fazem parte dos sistemas de informação, e tem preocupado muito as empresas com vazamento de informações confidenciais, que por isso invadem a privacidade de seus funcionários. Porém esse ideal de privacidade está em mutação, provavelmente esse avanço tecnológico crescente criará uma nova visão de privacidade.
Isso gera uma questão: O avanço tenológico vale a perda de privacidade? Essa resposta depende muito da empresa, pois em algumas empresas é inevitável a evolução tecnológica.
Mesmo os clientes das empresas sofrem com a perda de privacidade, com levantamento de perfil ou mesmo segurança dos próprios clientes é necessário invadir a privacidade, que talvez não fosse ético a não ser pelas circunstancias.
Por exemplo é necessário que algumas empresas tenham câmeras de vigilância para sua segurança, mas nem sempre o cliente ou funcionários estão cientes que estão sendo vigiados.
Mais do que outros setores, o setor de TI necessita de uma equipe ciente das obrigações éticas, por exemplo um banco de dados hospitalar, ou de uma prefeitura, os dados armazenados nele contém informações que podem ser utilizadas para criação de cartões de crédito, compras pela internet, financiamento. Recentemente ocorreram casos onde foram feitos empréstimos em nome de aposentados, os dados dos aposentados eram vendidos na internet, que saíram de um banco de dados, isso foi um caso de falta de ética ligado a um sistema de informação.
Normalmente a quebra de ética nas empresa é feita por necessidade e em um nível aceitável, é mais perigoso terem dados sigilosos em mãos de usuários comuns, hackers ou crackers do que de empresa.
Algumas pessoas procuram vulnerabilidades em sites, procurando dados sigilosos, isto também é eticamente errado, mesmo que seja apenas para olhar os dados, e pior ainda vender ou destruir, isso é um crime.
Existem também pessoas conhecidas como engenheiros sociais, se utilizam de conhecimentos tecnológicos ou específicos em um determinado seguimento para se passar por outras pessoas, afim de se infiltrar e conseguir informações ou até corromper-las, provavelmente essa é a mais perigosa forma de invasão ética, pois são indivíduos que podem entrar em diferentes ciclos sociais, algumas vezes são contratados por empresas para espionagem de outras empresas ou até de a vida pessoal das pessoas.
Cada vez mas a privacidade das pessoas está ficando exposta, e cabe criarmos leis para que exista para regulamentação de até onde empresas podem entrar na nossa privacidade, e ter uma conscientização da equipe de TI das empresas sobre éticas, fora disso cabe a cada um ou empresa cuidar da segurança de informações contra crackers, hacker ou engenheiros sociais.

TCP, UDP e RMI minhas observações sobre exercício e exemplos

2009-11-29T13:24:00.000-08:00

Obs importante, esse post é continuação, deste: http://neoramon.blogspot.com/2009/11/essa-e-descricao-de-trabalho-de.html

Link para o fonte completo:
http://www.4shared.com/file/162287536/b6844a93/sd_online.html

Ambiente de teste:
Sistema operacional Ubuntu Linux 9.10,
Kernel 2.6.31,
arquitetura i386
java jdk 1.6
Processador Intel Core 2 Duo 1,83 Ghz

Instruções para compilação:
Passos:
entrar na pasta dos bytecodes
ex: $HOME/NetBeansProjects/sd/build/classes/
rodar o rmiregistory
ex: /opt/jdk1.6.0_14/bin/rmiregistry 1099&
rodar o menu da aplicação
ex: /opt/jdk1.6.0_14/bin/java sd.Main
Clicar nos botões dos servidores e depois nos botões de teste e esperar pelo resultado!
Descrição dos testes:
Os teste foram feitos sem utilização de threads nos clientes, para que sejam executadas sequencialmente,

Para testar os dos cálculos foram feitas 10000 multiplicações, de 2 * 50.
tempo em nanosegundos
O tempo de execução do RMI é muito mais lento do que os de UDP e TCP, pois fica mais complexo enviando dois parâmetros em uma única função.
TCP por sua vez é mais lento que UDP, pela complexidade maior do protocolo UDP.

Dificuldade
A facilidade de implementação de uma multiplicação em RMI é muito mais simples do que em qualquer outros dos dois métodos.
Em segundo lugar achei mais simples a implementação em UDP, pois na linguagem java, existe uma classe especifica para “empacotar” os dados (DatagramPacket), diferente do TCP, que utiliza classes não pensadas especificamente para rede, (OutputStream e InputStream).
A dificuldade de implementação do TCP é aumentada pelo necessidade de ter que gerenciar um servidor (ServerSocket). No UDP o servidor é desnecessário pois o protocolo não exige, apenas temos que “ficar esperando” um pacote chegar (socket.receive(packet);). Em RMI apenas é necessário registrar o serviço no Servidor RMI (Naming.rebind("rmi://localhost:1099/CalculadoraService" , m);).

Tempo médio em nanosegundos.

Para testar os Ping pong foram feitas 64 envios de um pacote para o servidor que responde com o mesmo tamanho do pacote.
tempo em nanosegundos

TCP é mais lento que o UDP pela complexidade maior do TCP.
RMI é o mais lento de todos.

Valores em Kb / nanosegundos
64 testes de 0 a 63.

Facilidades de implementação:
RMI, a implementação utilizando RMI, foi mais simples, pois apenas é necessário definir uma classe de interface, e uma implementação da interface, não é necessário se preocupar com o tamanho máximo de cada pacote, nem em converter do tipo byte para outro formato.
A implementação com TCP e UDP foram muito parecidas, mas muito mais complexas do que a de RMI, pois necessita um planejamento de tamanho de cada pacote, e dificuldade de saber se foi o tamanho exato do pacote enviado.

Tala da execução do software

Tela de configuração dos testes

Tela de configuração das portas do servidor.

Vou mostrar os Serivodores e Clientes do exemplo para calculadora:

Servidor RMI

package sd.rmi.calculadora;

import java.rmi.Naming;
import sd.Valor;

public class Servidor implements Runnable {

private Valor valor;
public Servidor() {
valor = new Valor();

}

public void run() {
try {
Calculadora m = new CalculadoraImpl();
Naming.rebind("rmi://"+valor.getIpServidor()+":"+valor.getPortRmi()+"/CalculadoraService" , m);
}
catch( Exception e ) {
System.out.println( "Trouble: " + e );
}
}

}

Cliente RMI

package sd.rmi.calculadora;

import java.rmi.Naming;
import java.rmi.RemoteException;
import java.rmi.NotBoundException;
import java.net.MalformedURLException;
import sd.Valor;
import sd.tabela.Linha;
import sd.tabela.TabelaInterface;

public class Cliente implements Runnable {
private Valor valor;
private TabelaInterface tabela;
public Cliente(TabelaInterface tablea) {
valor = new Valor();
this.tabela = tablea;
}

public void run(){
try {
Calculadora m = (Calculadora) Naming.lookup( "rmi://"+valor.getIpServidor()+":"+valor.getPortRmi()+"/CalculadoraService" );
long t1 = 0;
long t2 = 0;

int n = valor.getnCalculadora();
long tn = 0;

System.out.println();
for (int i = 0; i <>
System.out.print(".");
t1 = System.nanoTime();
Integer resultado = m.multiplica(2, 50);
t2 = System.nanoTime();
long ta = t2-t1;
tn += ta;
Linha linha = new Linha();
linha.setN(i);
linha.setT1(t1);
linha.setT2(t2);
linha.setValor(resultado.toString());
tabela.addLinha(linha);
tabela.atualiza(true);
}

}
catch( MalformedURLException e ) {
System.out.println();
System.out.println( "MalformedURLException: " + e.toString() );
}
catch( RemoteException e ) {
System.out.println();
System.out.println( "RemoteException: " + e.toString() );
}
catch( NotBoundException e ) {
System.out.println();
System.out.println( "NotBoundException: " + e.toString() );
}
catch( Exception e ) {
System.out.println();
System.out.println( "Exception: " + e.toString() );
}
}
}

Interface RMI
package sd.rmi.calculadora;

import java.rmi.Remote;
import java.rmi.RemoteException;

public interface Calculadora extends Remote {

public Integer multiplica( Integer n1, Integer n2) throws RemoteException;

}
Implementação da Interface RMI
package sd.rmi.calculadora;

import java.rmi.RemoteException;
import java.rmi.server.UnicastRemoteObject;

public class CalculadoraImpl extends UnicastRemoteObject implements Calculadora {

public CalculadoraImpl() throws RemoteException {
super();
}

public Integer multiplica(Integer n1, Integer n2) throws RemoteException {
return n1 * n2;
}
}

Servidor TCP
package sd.tcp.calculadora;

/**
*
* @author ramon
*/

import java.net.*;
import java.io.*;
import sd.Valor;

public class Servidor implements Runnable {
private Socket clientSocket = null;
private ServerSocket serverSocket = null;

private Valor valor;
public Servidor() {
valor = new Valor();

}

public void run() {
try {
serverSocket = new ServerSocket(valor.getPortTcpCalc());
while (true){

clientSocket = serverSocket.accept();

InputStream in = clientSocket.getInputStream();
OutputStream out = clientSocket.getOutputStream();

Integer v1 = Util.streamToInteger(in);
Integer v2 = Util.streamToInteger(in);

byte[] b = Util.integerToByte(v1*v2);

out.write(b);

out.close();
in.close();
clientSocket.close();
//serverSocket.close();
}
}catch(Exception e){
e.printStackTrace();
}finally{
try{

serverSocket.close();
}catch(Exception e){
e.printStackTrace();
}

}

}

}

Cliente TCP
package sd.tcp.calculadora;

/**
*
* @author ramon
*/

import java.io.*;
import java.net.*;
import sd.Valor;
import sd.tabela.Linha;
import sd.tabela.TabelaInterface;

public class Cliente implements Runnable{
private Socket echoSocket = null;
private OutputStream out = null;
private InputStream in = null;

private Valor valor;
private TabelaInterface tabela;
public Cliente(TabelaInterface tablea) {
valor = new Valor();
this.tabela = tablea;
}

public void run(){
try {
long t1, t2, tn;
float tm = 0;
Integer v1 = 2, v2 = 50;
int n = valor.getnCalculadora();
tn = 0;
System.out.println();
for (int i = 0; i <>
System.out.print(".");
echoSocket = new Socket(valor.getIpServidor(), valor.getPortTcpCalc());
out = (echoSocket.getOutputStream());
in = echoSocket.getInputStream();

t1 = System.nanoTime();
out.write(Util.integerToByte(v1));
out.write(Util.integerToByte(v2));
Integer resultado = Util.streamToInteger(in);
t2 = System.nanoTime();
tn += t2-t1;
in.close();
out.close();
echoSocket.close();
Linha linha = new Linha();
linha.setN(i);
linha.setT1(t1);
linha.setT2(t2);
linha.setValor(resultado.toString());
tabela.addLinha(linha);

}
tabela.atualiza(true);
out.close();
in.close();
echoSocket.close();

} catch (UnknownHostException e) {
e.printStackTrace();
} catch (IOException e) {
e.printStackTrace();
} catch (Exception e){
e.printStackTrace();
}

}
}

Classe de Conversão Byte para integer e Integer pra byte
Existe maneira mais fácil de fazer isso, por exemplo manda como string ou integer mesmo, porém tava dando alguns problemas na hora de execução do "for", então criei essa classe para evitar problemas

package sd.tcp.calculadora;

/**
*
* @author ramon
*/

import java.io.*;
import java.net.*;
import sd.Valor;
import sd.tabela.Linha;
import sd.tabela.TabelaInterface;

public class Cliente implements Runnable{
private Socket echoSocket = null;
private OutputStream out = null;
private InputStream in = null;

private Valor valor;
private TabelaInterface tabela;
public Cliente(TabelaInterface tablea) {
valor = new Valor();
this.tabela = tablea;
}

public void run(){
try {
long t1, t2, tn;
float tm = 0;
Integer v1 = 2, v2 = 50;
int n = valor.getnCalculadora();
tn = 0;
System.out.println();
for (int i = 0; i <>
System.out.print(".");
echoSocket = new Socket(valor.getIpServidor(), valor.getPortTcpCalc());
out = (echoSocket.getOutputStream());
in = echoSocket.getInputStream();

t1 = System.nanoTime();
out.write(Util.integerToByte(v1));
out.write(Util.integerToByte(v2));
Integer resultado = Util.streamToInteger(in);
t2 = System.nanoTime();
tn += t2-t1;
in.close();
out.close();
echoSocket.close();
Linha linha = new Linha();
linha.setN(i);
linha.setT1(t1);
linha.setT2(t2);
linha.setValor(resultado.toString());
tabela.addLinha(linha);

}
tabela.atualiza(true);
out.close();
in.close();
echoSocket.close();

} catch (UnknownHostException e) {
e.printStackTrace();
} catch (IOException e) {
e.printStackTrace();
} catch (Exception e){
e.printStackTrace();
}

}
}

Servidor UDP
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

package sd.udp.calculadora;

/**
*
* @author ramon
*/

import java.io.*;
import java.net.*;
import sd.Valor;
public class Servidor implements Runnable{

private Valor valor;

public Servidor() {
valor = new Valor();
}

public void parar(){

}

public void run ()
{
DatagramSocket socket = null;
try {
socket = new DatagramSocket(valor.getPortUdpCalc());
while (true) {
byte[] buf = new byte[256];

DatagramPacket packet = new DatagramPacket(buf, buf.length);
socket.receive(packet);
String str1 = new String(packet.getData(), 0, packet.getLength());

socket.receive(packet);
String str2 = new String(packet.getData(), 0, packet.getLength());

String resultado = new Integer(new Integer(str1)*new Integer(str2)).toString();
buf = resultado.getBytes();

InetAddress address = packet.getAddress();
int port = packet.getPort();

packet = new DatagramPacket(buf, buf.length, address, port);
socket.send(packet);

}
} catch (IOException e) {
e.printStackTrace();
}finally{
try{
socket.close();
}catch(Exception e){}
}
}

}

Cliente UDP
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

package sd.udp.calculadora;

/**
*
* @author ramon
*/
/**
*
* @author ramon
*/

import java.io.*;
import java.net.*;
import java.util.logging.Level;
import java.util.logging.Logger;
import sd.Valor;
import sd.tabela.Linha;
import sd.tabela.TabelaInterface;

public class Cliente implements Runnable{

Valor valor;
TabelaInterface tabela;
public Cliente(TabelaInterface tablea) {
valor = new Valor();
this.tabela = tablea;
}

public void run(){
DatagramSocket socket = null;
try {

InetAddress address = InetAddress.getByName(valor.getIpServidor());
DatagramPacket packet1;
DatagramPacket packet2;
DatagramPacket packet3;
int n = valor.getnCalculadora();
byte[] buf1 = new String("2").getBytes();
packet1 = new DatagramPacket(buf1, buf1.length, address, valor.getPortUdpCalc());
byte[] buf2 = new String("50").getBytes();
packet2 = new DatagramPacket(buf2, buf2.length, address, valor.getPortUdpCalc());
byte[] buf3 = new byte[256];
packet3 = new DatagramPacket(buf3, buf3.length);
long t1 = 0;
long t2 = 0;
System.out.println();
socket = new DatagramSocket();
for (int i = 0; i < t1 =" System.nanoTime();" t2 =" System.nanoTime();" resultado =" new" linha =" new">

TCP, UDP e RMI descrição do exercício

2009-11-29T13:15:00.000-08:00

Essa é a descrição de trabalho de sistemas distribuídos que deveria ser implementado utilizando TPC, UDP e RCP, podia ser implementado em C ou em Java, eu escolhi java é claro, só que no lugar de RCP no java utilizei RMI.

Vou disponibilizar no próximo post os fontes do projeto, fiz na IDE netbeans, mas pode fazer como preferir, a mão, no eclipse como bem quiser. OK?!

Também vou colocar as instruções para poder executar o RMI, e algumas observações que fiz sobre a implementação.

Descriçã do exercício

1. Objetivo:

Implementar os dois problemas especificados abaixo utilizando, em ambos, sockets (TCP e UDP) e RPC e analisar as facilidades de implementação e uso de cada método, bem como o desempenho de cada um.

2. Características básicas:

Desenvolver as aplicações em C, tomando como base os exemplos disponibilizados.

3. Problemas:

Problema 1: implementar um programa servidor que calcula a multiplicação de dois números enviados pelo cliente. O cliente envia esses números e imprime o resultado da multiplicação retornado pelo servidor. Cada versão do programa deverá ser executada um número de vezes estatisticamente válido e, ao final, deverá ser fornecido o tempo médio de execução de cada uma delas.

Problema 2: implementar um ping-pong, conforme modelo abaixo. A execução deverá ser feita para diferentes tamanhos de mensagens, desde zero bytes até 64Kbytes, com incrementos de 1024 bytes. Para cada um dos casos (para cada tamanho de mensagem) deverá ser calculada a banda passante da rede, que pode ser obtida dividindo-se a quantidade de informação transferida pelo tempo que levou para ser transferida.

PING (cliente):

//cria buffer para alocar mensagem

Buffer = malloc();

ti = GetTime();

//envia e recebe a mensagem n vezes para melhorar a precisão da tomada de tempo

for(i = 0; i <>

{

Send(Buffer);

Recv(Buffer);

}

tf = GetTime();

t = (tf – ti)/n;

PONG (servidor):

//cria buffer para alocar mensagem

Buffer = malloc();

ti = GetTime();

//envia e recebe a mensagem n vezes para melhorar a precisão da tomada de tempo

for(i = 0; i <>

{

Recv(Buffer);

Send(Buffer);

}

tf = GetTime();

t = (tf – ti)/n;

4. Relatório:

Além dos códigos-fonte dos programas, deverá ser entregue um relatório com os seguintes dados:

Descrição do ambiente de teste (sistema operacional, versão do sistema operacional, ...);
Instruções para compilação e execução dos programas;
Descrição de como os testes foram conduzidos, número de vezes que foram executados;
Tabela comparativa do tempo médio obtido pelas diferentes versões do servidor de multiplicação, com a resposta da seguinte questão: que conclusão se pode tirar desses testes?
Um gráfico comparando a banda passante da rede para cada caso de execução do ping-pong. Procure interpretar o comportamento do gráfico, tirando suas conclusões a respeito do que for observado;
Descrição/análise das facilidades de implementação e uso dos diferentes métodos de comunicação;
Descrição de características julgadas importantes em cada método de comunicação (lembre-se que, além das medições solicitadas, outras poderão ser efetuadas e apresentadas no relatório).

Empreendedorismo Transformando ideias em negócios

2009-11-29T12:56:00.001-08:00

Vou disponibilizar os slides de uma apresentação que fiz sobre empreendedorismo, acho que programação, tecnologia e informação, te tudo a ver com empreendedorismo.

Esses são os capítulos da apresentação.

O Processo empreendedor
Identificando oportunidades
Plano de negócios
Plano de negócios em pratica
Buscando assessoria para o negócio
Questões legais de constituição da empresa
Recomendações finais ao empreendedor

Link para a apresentação:
http://www.4shared.com/file/162262016/a97a4a9/Transformando_ideias_em_negoci.html

DoCoMo, Celular carteira/cartão de credito

2009-11-29T12:55:00.001-08:00

Qual o problema enfrentado pela DoCoMo?
O problema principal é a falta de confiança do usuários em usar esse tipo de serviço, e os comerciantes que ainda não aceitam pagar a comissão sobre o valor dos produtos.

Qual estrategia a empresa escolheu para solucioná-lo?
A DoCoMo adicionou sistemas de segurança como o bloqueio remoto, e tenta incentivar os comerciantes a usar o sistema pagando a instalação da maquina leitora.

É uma boa estrategia? Por quê?
A segurança ainda parece um pouco baixa, pois pode demorar muito para o desativamento. Em relação aos comerciantes, como a uma baixa aceitação no mercado, não adianta cobrar uma taxa maior ou superior ao cartão de crédito convencional.

Existem estrategias que a empresa deveria ter considerado?
Um boa estrategia para segurança seria a possibilidade do aparelho só funcionar estando perto do proprietário, utilizando por exemplo tecnologia de blue tooth, como um fone de ouvido sem fio e o telefone. Caso o telefone seja roubado ou perdido, outra pessoa não poderia usar se não tivesse com o fone de ouvido, no lugar do fone de ouvido porderia ser outro aparelho blue tooth que funcionasse como uma chave sem fio.
Com os comerciantes deveriam reduzir as taxas sobre os produtos, e ainda não cobrar pela instalação do equipamento leitor, depois de um período a empresa poderia subir novamente as taxas, e se os comerciantes não aceitasse devolveriam as maquias leitoras, mas por consequência iriam perder os cliente já habituados a comprar com esse serviço.

Quais forças externas contribuíram para os desafios que a DoCoMo enfrenta?
Para criar um carteira eletrônica mais cartão de credito em um celular, ela tem desafios como manter bons relacionamentos com bancos, adquirir experiencia com financeiro, capacitação de pessoal para trabalhar como cartão de credito, e principalmente conseguir equipar bancos e estabelecimentos com leitores do chip de cartão de crédito.

Código Aberto

2009-08-17T18:14:00.001-07:00

Essas foram algumas questões que a professora passo na aula de hj, cadeira de tecnologia da informação.

Se alguém discorda, favor posta um comentário.

Quais problemas o Linux e outros softwares de código aberto ajudaram as empresas a enfrentar?

Integração entre softwares diferentes, conhecimento de como o software é executado, liberdade de adequação de um software, mais opções escolha, custos com licenças.

Como as ajudaram?

Com a possibilidade de ver e alterar o código fonte de um software, as empresas ganharam mais autonomia para poder adequar o software a sua real necessidade, ou integra-los com outros softwares.

Conforme a popularização de um software livre, ele ganha mais desenvolvedores, e alguns criam novas versões ou ramificações. A empresa que deseja adotar o software tem pode escolher entre essas versões ou ramificações uma que melhor atenda suas necessidades.

Os softwares de código aberto tem como grande vantagem o custo zero para sua utilização, isso reduz muito nos custos de uma empresa.

Quais problemas e desafios fez aumentar a adoção de softwares de código aberto?

Problemas como falhas software, vulnerabilidades, muitas vezes encontrados em softwares proprietários. Fizeram as empresas adotarem softwares mais confiáveis e testados por vários desenvolvedores, como os softwares de código aberto.

Para você, qual seria a melhor estratégia para implantar o Linux e outros componentes de código aberto em seu atual estado de evolução?

Grandes empresas tomarem a dianteira no desenvolvimento e aprimoramento de ferramentas livres, criando um comitê entre essas empresas e a comunidade desenvolvedora, onde seriam propostas regras, objetivos, treinamentos, validades.

Java, “JSP puro” vs “JSP + JSF”

2009-08-11T06:35:00.000-07:00

Estava olhando minhas coisas do semestre passado e achei uma apresentação simples, do que é o JSF e umas comparações dele com JSP puro.

Aqui o link da apresentação em pdf: http://www.4shared.com/file/124357482/878911a2/apresentao_jsp_jsf.html

Parte da apresentação a baixo:

JSF:

Prove componentes gráficos de controle para HTML.
Aplicação forçada de OO e MVC.
(wikipedia) O JSF é atualmente considerado por muitos como a última palavra em termos de desenvolvimento de aplicações Web, resultado da experiência e maturidade adquiridas com o JSP/Servlet (Model1), Model2 (MVC) e Struts.

Porque continuar com JSP puro.

Porque continuar com JSP puro:

Curva de aprendizado muito alta;
Mais arquivo(s) XML para configurar (faces-conf.xml);
Dificulta para quem gosta de trabalhar com sql puro. (mas que gosta de criar querys sql?)

Porque utilizar JSF (1)

Porque utilizar JSF:

Facilita utilização de beans;
Exige organização (para alguns desvantagem).
Facilita JPA (Java Persistence Api);
Utiliza AJAX.
Gerencia de eventos. (servidor/cliente)
Integração com RichFaces (componentes ricos);
Performance do Servidor.

orque utilizar JSF (2)

Várias IDEs:
Jbuilder, Borland;
Eclipse;
Jdeveloper, Oracle;
NetBeans, Sun.

Porque utilizar JSF (3)

Vários Servidores:

Tomcat;
Jboss;
WebLogic;
GlassFish.

Exemplo página

UML, Jude vs Plugin Netbeans

2009-08-03T09:52:00.001-07:00

UML no netbeans

UML no Jude, retirada do site.

Netbeans tem um plugin para UML, em versões anteriores o plugin já vinha com a IDE, agora é necessário baixar ele separadamente.

Jude uma ferramente muito conhecida para UML, o jude possui duas versões, a community e a profissional. Profissional é um paga, possui algumas funcionalidades a mais como diagrama de ER, suporte a C++... A versão comunity é mais simples e possui diagramas de classe, casos de uso, atividade, sequencia, em fim os diagramas mais comuns na UML.

Ambos (NetBeans e Jude), são multiplataforma, possuem engenharia reversa, e geração de code java, exporta para .jpg. HTML.

Vantagem do jude que ele roda ocupando muito menos memória e processador, ou seja o jude é mais leve.

Vantagem do netbeans, um design muito mais bonito de se apresentar, gera um HTML perfeito, o qual você pode usar para apresentar como relatório para seu chefe ou professor.

Alguém tem alguma vantagem a mais pra me contar?

Projeto Kenai, Netbeans 6,7, servidor subversion free

2009-08-02T14:38:00.000-07:00

Kenai é um projeto da Sun, para desenvolvedores hospedarem seus projetos livres. Eu gostei muito da velocidade que você pode hospedar seu projeto a partir do Netbeans 6.7.

Muitas funções foram adicionadas no Netbeans para interagir com o Kenai, como exportação do seu projeto para o kenai, um chat para que você possa trocar informações com outros desenvolvedores do seu projeto, uma aba listando todos problemas/bugs registrados pela equipe, ou onde você também pode registrar um problema no projeto. Todas essa funções junto com o suporte a subversion (já existente nas versões anteriores) faz do netbeans totalmente integrado com kenai.

Você pode criar seu projeto pelo netbeans, ou diretamente pelo site do Kanei.

Sniffer de rede

2009-06-02T13:15:00.000-07:00

O que é um sniffer de rede?

É software feito para capturar todos pacotes de rede que passam por uma determinada interface, um sniffer pode ser também um equipamento como um switch especial que captura todos os pacotes que passam por ele.

O que é método de histerese em redes?

É um método em que se define valores mínimos e máximos para variáveis de rede, como por exemplo quantidades de pacotes broadcast, em uma rede, digamos que normalmente a 10 % dos pacotes da minha rede são broadcast, então os limites para o método poderiam ser: minimo 0% e maximo 15%. Estabelecendo esses limites poderia-se dizer que se mais de 15% de pacotes broadcast na minha rede sugerem um problema (ataque de negação de serviço, tentativa de invasão por bruta, um equipamento com problema, etc...), dos quais o administrador da rede deve procurar.

Exercício

Nas ultimas aulas de administração e gerencia de redes foi proposto um trabalho para utilizar o método de histerese para analisar o que estava correndo pela rede.

Software utilizado

Na implementação do trabalho foi necessário utilizar o tshark, derivado de um conhecido sniffer de rede o Wireshark, esses softwares rodam muito bem em Linux ou Windows.

Obtendo estatisticas com tshark

rodar como administrador:

tshark -i placa -a duration:duracao -q -z io,stat,duracao,,,eth.addr==ff:ff:ff:ff:ff:ff,msnms,tcp,udp

Trabalho:

Na implementação do trabalho utilizei a linguagem Java, e fiz análise dos pacotes de

broadcast: eth.addr==ff:ff:ff:ff:ff:ff

Msn: msnms

tcp: tpc

e udp: udp

Um teste

Um bom teste pra você fazer é usar o wireshark (ferramenta visual) com o filtro do “msnms” assim você pode capturar todos pacotes do msn que passarem na sua rede.

Implementação

link do cod fonte:

http://www.4shared.com/file/109480798/27b1dda9/projeto_sniffer.html

ERP (em desenvolvimento)

2009-04-03T16:08:00.000-07:00

Estou desenvolvendo um ERP web: http://tecworks.no-ip.info/

Atualmente contem:

- Cadastro de contatos
- Cadastro de serviços
- Ordens de serviços

Quem tiver alguma dica pode postar!

obs: atualmente ele não está disponivel 100 % do tempo.

Tutorial RichFaces

2009-04-03T04:51:00.000-07:00

sei demoro, mas esse é o tutorial de richfaces (para JSF).

o cod fonte do projeto:
http://www.4shared.com/file/96525487/610229f2/testeRichFaces.html

pdf explicativo:
http://www.4shared.com/file/96525492/873ec3c/Tuto_RichFaces.html

Se alguém ficar alguma dúvida é só postar!

richfaces (ajax + jsf)

2009-03-06T16:57:00.000-08:00

Estou estudando agora uma framework para ajax com jsf, richfaces é desenvolvida pela jboss, mas nem por isso não posso usar em outro servidor j2ee, estou usando no glassfish por exemplo.
Richfaces é boa solução para quem quer paginas mais dinâmicas e bonitas, podemdo usar componentes tipo o text field de pesquisa do google, que mostra recomendações enquanto você digita sua pesquisa...
Vou postar um tutorial assim que tiver tempo...

Até +!

Lendo um arquivo de texto.

2009-02-10T05:44:00.000-08:00

Um exemplo de uma classe em java pra ler um arquivo de texto:
Linha por linha.

Nome: Lista.java
import java.io.BufferedReader;
import java.io.File;
import java.io.FileReader;
import java.util.ArrayList;

public class Lista {
public ArrayList lerArquivo(){
ArrayList lista = new ArrayList();
File afile = new File ("valores.txt");
FileReader fileread;
try {
fileread = new FileReader(afile);
BufferedReader bufread = new BufferedReader(fileread);
String str = new String();
while( (str = bufread.readLine()) != null ){
lista.add(str);
}
fileread.close();
bufread.close();
}catch (Exception e) {
e.printStackTrace();
}finally{
return lista;
}
}
}

Orientação a Objetos II (Casos de uso)

2009-02-06T03:50:00.000-08:00

Continuando a falar de orientação a objetos,

Para a definir os objetos de um software é muito importante estudar a descrição de casos de uso.

Os casos de uso com ajuda do "levantamento de requisitos" (post anterior), podemos descrever funcionalidades do sistema.

Atores executam tarefas sobre o sistema.

Em sistemas simples e complexos encontramos atores, que podem ser módulos do
sistema, um outro sistema, um perfil de usuário (administrador, atendente...).

No estudo de caso do nosso simulador P2P, temos em exemplo:
Requisito:
Construir um software que troque arquivos entre um servidor em um cliente pela
rede independente da implementação do cliente e do servidor, usando um
protocolo para padronização.

Atores: Cliente e Servidor.
(Se quisermos ir mais a fundo podemos colocar até mesmo o usuário que lida com o cliente como um ator)

Casos de uso do Ator Cliente:
Case 1: Enviar um protocolo de pedido com a lista de arquivos do Servidor P2P
Case 2: Enviar um protocolo com o pedido de download de um arquivo
Case 3: Aceitar download de arquivo.
E assim por diante....

Casos de uso do Ator Servidor:
Case 1: Enviar um protocolo com a lista arquivos do servidor;
Case 2: Enviar arquivo para download.
...

Próximo post: sobre como usar os casos de uso para criar os métdos (funções, ações) e como montar um classe.

P2P em Java (parte 1) Orientação a Objetos

2009-01-22T04:19:00.000-08:00

Hoje vou comentar sobre um trabalho do semestre passado (6º) referente a cadeira de redes onde deveríamos simular um software P2P usando sockets. Para resolução do problema foi usado orientação a objetos.

O que é orientação a objetos?

É um paradigma de programação onde se prevê uma modelagem de seu software divido em objetos.

Um objeto é criado com base em dois documentos (não somente): “levantamento de requisitos” do cliente (no meu caso o professor) e descrições de “caso de uso” (use case). Com a leitura desses dois documentos é levado em considerações “pronomes” para identificação de objetos.

Nosso levanta mento de requisitos ficaria mais ou menos assim: Construir um software que troque arquivos entre um servidor em um cliente pela rede independente da implementação do cliente e do servidor, usando um protocolo para padronização.

Se identificarmos os pronomes teremos:

Construir um software que troque arquivos entre um servidor em um cliente pela rede independente da implementação do cliente e do servidor, usando um protocolo para padronização.

Então teríamos os objetos: Servidor, Cliente, Rede, Protocolo, Arquivo e o próprio software P2P.

Mas os objetos ainda não estão prontos, falta definir o papel de cada um no software.

Continua... (casos de uso)

Excesso de café pode causar alucinações, diz estudo

2009-01-22T03:30:00.000-08:00

Uma pesquisa feita por psicólogos da Universidade de Durham, na Grã-Bretanha, sugeriu que beber grandes quantidades de café pode fazer com que uma pessoa tenha maior tendência a sofrer alucinações.

» Café em excesso pode afetar fertilidade

Pessoas que consomem mais de sete xícaras de café instantâneo por dia têm três vezes maior probabilidade de ouvir vozes, ver coisas que não existem ou até acreditar que estão sentindo a presença de pessoas que já morreram, do que as que bebem menos do equivalente a uma xícara, de acordo com os pesquisadores.

Segundo o líder do estudo, Simon Jones, "alucinações não são necessariamente um sinal de doença mental (...) A maioria das pessoas tem experiências breves de ouvir vozes quando não há ninguém presente e cerca de 3% ouvem tais vozes regularmente".

Mas o trabalho científico sugeriu que o risco de isso acontecer aumenta com o alto consumo de café e outras fontes de cafeína.

Cortisol
Os pesquisadores atribuem os resultados de sua pesquisa, feita com 200 estudantes, ao fato de que o café pode levar a um aumento da produção de um hormônio chamado cortisol.

A cafeína aumenta os efeitos fisiológicos do estresse e, nesse estado, o corpo libera cortisol. Uma concentração mais alta da substância no organismo pode fazer com que uma pessoa escute vozes não existentes.

Os cientistas dizem que esperam que a descoberta contribua para um melhor entendimento do efeito da nutrição sobre alucinações.

"Este é o primeiro passo para observar os fatores mais amplos associados a alucinações", disse Jones. "Pesquisas anteriores sublinharam vários fatores importantes, como trauma de infância, que pode levar a alucinações clinicamente relevantes".

"Acredita-se que vários destes fatores podem estar ligados a alucinações em parte por causa do seu impacto sobre a reação do organismo ao estresse. Dada a ligação entre comida e humor, e especialmente entre cafeína e a resposta do organismo ao estresse, parece sensato examinar o que uma perspectiva nutricional pode esclarecer", concluiu Jones.

Fonte: Terra = http://noticias.terra.com.br/ciencia/interna/0,,OI3446887-EI298,00-Excesso+de+cafe+pode+causar+alucinacoes+diz+estudo.html

Lógica booleana e premissas (parte 2)

2009-01-21T11:17:00.000-08:00

Premissa e lógica andam próximas na programação. Para entender premissa é necessário já saber o básico de lógica booleana.

As junções de premissas levam a uma conclusão, por exemplo:

Premissa 1 – Ramon é feliz.

Premissa 2 – Ramon gosta de programar.

Conclusão – Os programadores são felizes.

Este é um exemplo simples onde a junção de premissas leva a uma conclusão lógica. Agora analisando as premissas anteriores (1 e 2), vamos adicionar outra premissa:

Premissa 3 – Joãozinho não é programador.

Conclusão??? (tempo...)

Conclusão – Joãozinho não é feliz.

Mesmo essas premissas sendo tão simples elas ajudam a entender muito sobre programação, pois é assim que funcionam os sistemas de informação, juntando informações passadas pelos usuários e gerando informações conclusivas, e claro estas premissas não são processadas aleatoriamente, elas são executadas conforme um algoritmo.

Ex: Digamos que vamos desenvolver um software para um

a locadora de filmes, onde um cliente só pode locar um filme se ele não está em débito com a loja, ou se ele for um cliente VIP.

Não "estar em débito" (- Premissa 1)

Ou (operador lógico)

"Ser VIP" (- Premissa 2)

Premissa 1 – Fabio está em débito com a loja. (Estar em débito –

verdadeiro)

Premissa 2 – Fabio não é um cliente VIP. (ser VIP - falso)

Conclusão – Fabio não pode locar um filme.

Premissa 1 – Renato está em débito com a loja. (estar em débito - verdadeiro)

Premissa 2 – Renato é um cliente VIP. (ser vip - verdadeiro)

Conclusão – Renato pode locar um filme.

Lógica booleana e premissas (parte 1)

2009-01-21T09:16:00.000-08:00

A lógica booleana é presente na matemática, na computação, na física e etc. Lembram no ensino médio das aulas (interessantíssimas) de física em que o professor simulava a rede elétrica de uma casa (circuito)? Existiam chaves, ativas (verdadeiro) ou desativas (falso), e para controlar, existiam as ligações, que podiam ser:

Onde o circuito aberto é uma ligação desativa (falsa) e circuito fechado a ligação está ativa (verdadeira). Na programação é a mesma coisa (pelo menos em todas linguagens que vi até hoje), com acréscimo de mais um operador, além de verdadeiro e falso, a negação, que simplesmente inverte o é dito. Por exemplo: se dizemos que um circuito está aberto e adicionamos o operador de negação, o resultado que é que o circuito está fechado. Simples não?

Entendendo melhor os operadores:

Operador “E” tem um resultado positivo quando ambos dados são verdadeiros. Por exemplo é verdadeiro apenas quando A e B são verdadeiros.

Tabela:

A	B	Resultado
Verdadeiro	Verdadeiro	Verdadeiro
Verdadeiro	Falso	Falso
Falso	Verdadeiro	Falso
Falso	Falso	Falso

Operador “Ou” é verdade quando A ou B são verdadeiros. Por exemplo se A é verdadeiro, B é falso, o resultado é verdadeiro.

Tabela:

A	B	Resultado
Verdadeiro	Verdadeiro	Verdadeiro
Verdadeiro	Falso	Verdadeiro
Falso	Verdadeiro	Verdadeiro
Falso	Falso	Falso

Quero ajudar pessoas que estão iniciam no mundo da programação.

No próximo post falo sobre premissas.

Vagas IBM

2009-01-20T09:22:00.000-08:00

A IBM está com várias vagas para setor de TI em aberto: https://jobs3.netmedia1.com/cp/search.jsp

O mais interessando que para trabalhar no Brasil o português deve ser intermediário, mas o inglês deve ser fluente.

Como colocar um vírus no Ubuntu 8.10

2009-01-20T08:05:00.000-08:00

Notícias - Humor
Escrito por Josenaldo de Oliveira Matos Filho
Dom, 18 de Janeiro de 2009 05:44
Tá pensando que Linux não pega vírus também? Veja só como passar vírus praquele seu amigo metido que usa Linux. Como instalar o evilmalware 0.6 beta no Ubuntu Aviso: Use estas operações de acordo com seu próprio risco. Não nos responsabilizamos por nenhum dano que você cause à sua máquina. Este vírus é um software livre. Não existe, portanto, nenhuma garantia de que ele lhe traga algum lucro, que cause destruição de arquivos ou que envie milhares de spams falando sobre viagra. Antes de tentar compilar este vírus, verifique se você tem a versão correta da glibc instalada e se as regras do seu firewall estão configuradas para permitir tudo. Instalação e uso 1 - Baixe o tar.gz do vírus e salve-o num diretorio apropriado. Por exemplo: /usr/src 2 - digite "tar -xzvf evilmalware.tar.gz' para extrair os fontes do vírus 3 - Vá até o diretorio contendo os fontes do vírus (cd evilmalware) e digite './configure' para configurar o virus adequaramente para seu sistema. Se você estiver usando o 'csh' numa versão velha do Linux, você precisa digitar 'sh ./configure' para evitar que o csh tente rodar o vírus 4 - Digite 'make' para compilar o pacote. Você precisa estar logado como root para executar essa ação. Opcionalmente você pode usaro parâmetro check_payable ('make check_payable') para poder rodar testes quevem com o vírus e que vai enviar uma generosa doação (originada de sua conta) para uma conta não numerada na Suiça. 5 - Digite make install' para instalar o virus e quaisquer spywares, trojans, propagadnas de pornografia e aumento de penis, spam de viagra e ataques ddos que venham junto com o vírus. 6 - Configure o vírus adequadamente, escolhendo quais malwares deseja habilitar e suas configurações através do arquivo /etc/evilmalware.conf Viu como é fácil infectar um computador com Linux? ATENÇÃO! ESTE ARTIGO É UMA BRINCADEIRA. SE VOCÊ LEVOU ISSO A SÉRIO, ENTÃO USE MENOS O WINDOWS. O MINISTÉRIO DA SAÚDE ADVERTE: USAR WINDOWS EM DEMASIA FAZ VOCÊ ACREDITAR EM PEGADINHAS IDIOTAS. RSRSRSRSRS Font: http://www.jnaldo.com/

POG

2009-01-20T07:54:00.000-08:00

Primeiro pensamento POG Existe casos e casos!

Segundo pensamento POG Do meu jeito é mais fácil e rápido!

Primeira merda POG Fazer as merdas que muitos fizeram por defender o primeiro pensamento POG.

Segunda merda POG Limitar o projeto ao escopo inicial.

Terceira merda POG Se basear em absurdos para defender seu desenvolvimento.

Quarta merda POG Não entender que padrão é beneficio e usar o primeiro pensamento POG.

Quinta merda POG Achar um absurdo eu escrever isso.

kakakaka

Saindo de SQL pra HQL.

2009-01-20T05:54:00.000-08:00

Para aqueles que dispõem de um servidor com arquitetura J2EE, existe a especificação JPA, a qual o hibernate implementa. O hibernate é a solução para o programador que não querem colocar as mãos no famigerado SQL, e tratar das tables, views e família como objetos, ou seja, ele é uma ferramenta para mapeamento de objetos / relacionamentos do banco de dados para Java.

Como começar:

pré-requisitos: ter um servidor J2EE (ex: JBoss, GlassFish, ...) , driver JDBC do seu DB.

Passos:

1 – Configurar um arquivo XML de persistência

2 – Criar uma classe Entity (representação de um objeto de banco de dados)

3 – Criar a classe controladora JPA (executa as funções: inserir, delete ...)

4 – Criar a interface que vai usar o controlador JPA (swing / web)

Uma boa maneira de iniciar é usando o Netbeans 6.5 (www.netbeans.org/downloads/), ele tem um excelente suporte a J2EE, e com ele você pode criar entity’s e controladores JPA automaticamente, e de quebra ainda pode criar interfaces CRUD em JSF.

Você pode conseguir mais conteúdo aqui.

Dúvidas?

PL / SQL inverter linha / coluna

2009-01-20T04:50:00.000-08:00

Uma função muito útil no PL / SQL para inverter valores de colunas para linha é o CASE.

Por exemplo, quando você quer simplificar a visualização de uma query de vendas por mês, ao invés de apresentar a data junto ao valor das vendas (na mesma linha), você pode colocar a data como coluna.

Então no lugar de ter: SELECT cidade, dt_venda, valor FROM venda

Que geraria uma lista muito grande e difícil de entender.

Você poderia melhorara usando a função case e sum, assim:

SELECT cidade

, Sum (CASE WHEN dt_venda BETWEEN '01/01/2008' AND '31/01/2008' THEN valor END) AS JANEIRO_2008

, Sum (CASE WHEN dt_venda BETWEEN '01/02/2008' AND '28/02/2008' THEN valor END) AS FEVEREIRO_2008

, Sum (CASE WHEN dt_venda BETWEEN '01/03/2008' AND '31/03/2008' THEN valor END) AS MARCO_2008

-- e assim por diante nos outros meses.

FROM venda

GROUP BY cidade

Onde os messes apareceriam como coluna e a soma como linha, assim:

CIDADE	JANEIRO_2008	FEVEREIRO_2008	MARCO_2008
CAPÃO DA CAMPA	100	200	150
PORTO ALEGRE	150	100	125
SÃO PAULO	300	250	310

Ok?

Procurando outros

2008-12-29T05:38:00.000-08:00

To procurando alguns trabalhos mais recentes em java, tem muito legal, que simula um programa P2P em java, e outro que é um messenger ambos usando sockets.

Editado:
21-01-09 perdi os trabalhos na ultima vez q formatei meu note. Esqueci de copiar a pasta da facu, ainda bem que to de férias.

Mais um trabalho do segundo semestre

2008-12-29T05:36:00.000-08:00

Esse tbm é com pascal e trabalha com arquivos:

Program Livraria;
Uses Fdelay, crt;
Const N_arq = 'trab_arq';
Type
T_Livro = Record
Autor : String[15];
Titulo: String[15];
ISBN: Integer;
Ano: Integer;
Edicao: Byte;
Preco: Real;
Quantidade: integer;
End;
T_Arquivo = File of T_livro;
Var
Livro: T_Livro;
Estoque: T_Arquivo;
Op: String;
ISBN, Pos: Integer;
Procedure Abre_Arq(var Estoque: T_Arquivo);
Begin
ClrScr;
Assign(Estoque, n_arq);
{$I-}
Reset(Estoque);
{$I+}
IF ioresult <> 0 then
Begin
ReWrite(Estoque);
WriteLn('Arquivo criado');
Delay (20000);
End
Else
Begin
WriteLn('Arquivo aberto');
Delay(20000);
End;
End;
Procedure Menu(var op: string);
Begin
ClrScr;
WriteLn('1 - Inserir');
WriteLn('2 - Pesquisar');
WriteLn('3 - Alterar');
WriteLn('4 - Excluir');
WriteLn('5 - Total do estoque');
WriteLn('6 - Sair');
op:=ReadKey;
End;
Procedure Pesquisar(var Livro:T_Livro; var Estoque: T_Arquivo; var Pos: Integer; ISBN: integer);
Var
X: integer;
Begin
x:=0;
Pos:=0;
Seek(Estoque, pos);
if filesize(estoque) <> 0 then
Repeat
Begin
Read(Estoque, Livro);
x:=x+1;
End;
Until ( x = filesize(estoque)) or (Livro.ISBN = ISBN) ;
If livro.isbn <> isbn then
Begin
pos:=1;
WriteLn('ISBN nao cadastrado');
Delay(20000);
End
Else
Begin
WriteLn('ISBN encontrado.');
pos:=filepos(estoque);
Delay(20000);
End;
End;
Procedure EntradaDeDados(Livro: T_Livro; var Estoque: T_Arquivo; Pos: Integer);
Begin
Seek(Estoque,Pos-1);
With Livro do
Begin
WriteLn('Digite o ISBN');
ReadLn(ISBN);
If isbn <> 0 then
Begin
WriteLn('Digite o nome do Autor');
ReadLn(Autor);
WriteLn('Digite o titulo do livro');
ReadLn(Titulo);
WriteLn('Digite o ano');
ReadLn(Ano);
WriteLn('Digite a edicao');
ReadLn(Edicao);
WriteLn('Digite o preco');
ReadLn(Preco);
WriteLn('Digite a quantidade');
ReadLn(Quantidade);
Write(Estoque,Livro);
WriteLN('Registro salvo');
End
Else
WriteLn('0 nao eh um numero valido para ISBN');
End;
End;
Procedure TotalEstoque(Livro: T_Livro; var Estoque: T_Arquivo);
Var
TotalEstoque: Real;
Begin
TotalEstoque:=0;
Seek(Estoque, 0);
While (not Eof(Estoque)) do
Begin
Read(Estoque, Livro);
If livro.isbn <> 0 then
With Livro do
Begin
TotalEstoque:= TotalEstoque + (Preco * Quantidade);
End;
End;
WriteLn('Valor total = ', TotalEstoque:3:2);
ReadKey;
End;

Procedure Teste (var estoque : t_arquivo; livro: t_livro);
Var
x,ISBN,Tam,Pos : Integer;
Begin
Tam := FileSize(estoque);
WriteLn('Tam ',Tam);

Seek(Estoque,0);
if tam <> 0 then
For x:= 1 to filesize(estoque) do
Begin
Read(estoque ,livro);
Tam := FileSize(estoque);
Pos := FilePos(estoque);
WriteLN('Pos ',pos);
isbn:= livro.isbn;
WriteLn('ISBN ',ISBN);
ReadKey;
End;
End;

Begin
Abre_Arq(Estoque);
teste(estoque, livro);
op:='0';
While (op <> '1') and (OP <> '2') and (op <> '3') and (op <>'4') and (op <>'5') and (op <>'6') do
Begin
Menu(op);
if op = '1' then
Begin
Pos:= FileSize(Estoque)+1;
EntradaDeDados(Livro, Estoque, Pos);
ReadKey;
op:='0';
End;
If op = '2' then
Begin
WriteLn('Digite o ISBN a pesquisar');
ReadLN(ISBN);
If isbn <> 0 then
Begin
Pesquisar(Livro,Estoque, pos, ISBN);
Seek(Estoque, pos);
IF isbn = livro.isbn then
With Livro do
Begin
Writeln('Autor ',Autor);
End;
End
Else
WriteLn('0 nao eh um numero valido para ISBN');
ReadKey;
op:='0';
End;
If op = '3' then
Begin
WriteLn('Digite o ISBN a Alterar');
ReadLN(ISBN);
If isbn <> 0 then
Begin
Pesquisar(Livro,Estoque, pos, ISBN);
Seek(Estoque,Pos);
IF isbn = livro.isbn then
EntradaDeDados(Livro, Estoque, Pos);
End
Else
WriteLn('0 nao eh um numero valido para ISBN');
ReadKey;
op:='0';
End;
If op = '4' then
Begin
WriteLn('Digite o ISBN a excluir');
ReadLn(ISBN);
If isbn <> 0 then
Begin
Pesquisar(Livro, Estoque,Pos,ISBN);
Seek(Estoque,Pos-1);
IF isbn = livro.isbn then
With Livro do
Begin
ISBN:=0;
Write(Estoque,Livro);
End;
End
Else
WriteLn('0 nao eh um numero valido para ISBN');
ReadKey;
op:='0';
End;
IF op = '5' then
Begin
TotalEstoque(Livro, Estoque);
op:='0';
End;
If op <> '6' then
op:='7';
End;
Close(estoque);
End.

Trabalho do segundo semestre

2008-12-29T05:33:00.000-08:00

Estava olhando uns e-mails antigos e achei esse trabalho do segundo semestre feito em pascal, acho que voi compilado no turbo pascal (uma IDE muito chata).

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* UNIVERSIDADE DE SANTA CRUZ DO SUL *
* *
* Departamento de Informatica *
* *
* Curso de Sistemas de Informacao - Capao da Canoa *
* *
* *
* ESTRUTURAS DE DADOS I (2006/02) *
* *
* ALUNOS: *
* Joseli de Souza Neto *
* Ramon Rosa da Silva *
* *
* *
* Trabalho 2: *
* Desenvolver um projeto do jogo ADIVINHA NUMEROS. *
* *
* O jogo funciona da seguinte forma: *
* *
* -> O jogo e composto por uma sequencia de N numeros escolhidos *
* aleatoriamente (este projeto tem uma sequencia 4 numeros); *
* -> A quantidade de numeros sorteados e informado ao jogador; *
* -> O jogador deve digitar uma sequencia tambem de N numeros; *
* -> A sequencia digitada pelo jogador deve ser conferida com *
* a sequencia gerada aleatoriamente; *
* -> O jogo deve informar ao jogador quantos numeros da sequencia *
* aleatoria ele acertou e quantos numeros estao na posicao correta; *
* -> O jogador deve ter um maximo de jogadas permitidas - tentativas *
* (este projeto foi permitidos 7 tentativas para adivinhar 5 numeros *
* na sequencia correta); *
* -> Ao final do jogo, deve ser armazenado o nome do jogador e seus *
* pontos (a lista de jogadores devera estar ordenada por pontos - *
* recorde); *
* -> Tambem, ao final do jogo, o jogador devera informar se deseja *
* realizar um novo jogo ou sair do sistema. *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* OBS: *
* Os assentos deste programa serao omotidos, o Pascal nao os reconhece *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

Program Adivinha_Numeros;
Uses fdelay, crt, dos;

{---------------------------------------------------------------------------
Declaracao de constantes do programa principal
---------------------------------------------------------------------------}
const
n=4;
qtdjogadas = 2;
Tempo = 50;

{---------------------------------------------------------------------------
Declaracao de tipo do programa principal
-> Foi utilizado um registro
---------------------------------------------------------------------------}
Type
Nod = ^Lv;

Lv = Record
Nome: String[15];
Pontos: Integer;
Prox: Nod;
END;

{---------------------------------------------------------------------------
Declaracao de variveis do programa principal
-> Foi utilizado 2 vetores com 4 posicoes
---------------------------------------------------------------------------}
var
num,senha:array[1..n] of integer;
op, tent,i:byte;
Segundos, Ptos,x:integer;
Livro : Lv;
Nodo: Nod;
Ini: Nod;
aux: Nod;
ganho: boolean;
{---------------------------------------------------------------------------
PROCEDIMENTOS
---------------------------------------------------------------------------}

{--- Limpa a Tela e Dimenciona Janela ---}
Procedure LimpaTela;
Begin
textbackground(0);
window(1,1,80,25);
clrscr;
End;

{--- Cria uma Janela na Tela ---}
Procedure Janela(col1,lin1,col2,lin2,cor:Byte;titulo:string);

var {--- Declaracao variavel local ---}
Tamanho:Byte;

begin
Tamanho := length(Titulo);
textbackground(3);
window(col1,lin1,col2,lin2);
clrscr;
if Tamanho < (col2 - col1) then
begin
Tamanho := (col2-col1) - Tamanho;
Tamanho := Tamanho DIV 2;
Gotoxy(Tamanho,1);
textcolor(14+128);
Writeln(Titulo);
end;
textbackground(7);
window(col1+1,lin1+1,col2-1,lin2-1);
clrscr;
gotoxy(18,2);
textcolor(0);
end;

{--- Tela Inicial ---}
Procedure Janela_1;
begin
LimpaTela;
Janela(20,5,60,10,6,' >> SuperJogos << ');
gotoxy(5,2);writeln('A D I V I N H A - N U M E R O S');
delay(20000);
Limpatela;
end;

{--- Informa se o jogador quer continuar o jogo ou nao ---}
Procedure Janela_3(var op, tent: byte);

begin
Limpatela;
Janela(20,10,60,20,6,' ATENCAO !!!: ');
gotoxy(5,2);writeln('QUER CONTINUAR ?');
gotoxy(5,4);writeln('Digite [1]-Jogar [2]-Sair');
gotoxy(5,6);write('OPCAO: ');
readln(op);
end;

{--- Compara as duas sequencias, a sorteada com a digitada pelo jogador ---}
Procedure Compara(var ptos: integer; var ganho : boolean);
Var
pos, na,j, y,x: integer;
existe: boolean;
begin
na:=0;
pos:=0;

for x:=1 to n do
For y:=1 to n do
Begin
existe:= false;
If num[x] = senha[y] then
Begin
for j:= 1 to y-1 do
if senha[y] = senha[j] then
existe:= true;
for j:= 1 to x-1 do
if num[y] = num[j] then
existe:= true;
IF existe = false then
na:=na+1;
End;

if (x = y) and (num[x] = senha[y]) then
pos:= pos +1;
End;
Ptos:= pos + na + Ptos;
LimpaTela;
Janela(20,10,60,20,6,' Voce esta jogando ');
gotoxy(5,2);writeln('VOCE ACERTOU:');
gotoxy(5,4);writeln('-> ',na,' NUMEROS !');
gotoxy(5,5);writeln('-> ',pos,' NA POSICAO CORRETA !');
ReadLn;
if pos = n then
ganho:= true;
End;

{--- Jogador jogada ---}
Procedure Janela_2(var op, tent: byte; var ganho : boolean);
Var
hh1,hh,mm1,mm,ss1,ss, ms1,ms : word;
begin
tent:=0;
while (op <> 1) do
begin
LimpaTela;
Janela(20,10,60,20,6,' ATENCAO !!!: ');
gotoxy(5,2);writeln('OPCAO INCORRETA');
gotoxy(5,4);writeln('Digite [1]-Jogar [2]-Sair');
gotoxy(5,6);write('OPCAO: ');
readln(op);
end;
while (tent < qtdjogadas) and (not ganho) and (segundos <= tempo) do
begin
GetTime(hh,mm,ss,ms);
LimpaTela;
Tent:= tent +1;
Janela(20,10,60,20,6, ' Voce esta jogando ');
gotoxy(1,2);writeln('Digite uma sequencia de quatro numeros:');
for i:=1 to n do
begin
gotoxy(6,i+3);write('-> ');
readln(num[i]);

end;
GetTime(hh1,mm1,ss1,ms1);
If ((ss1 - ss) >= tempo) and ((mm1-mm)= 0)then
Begin
tent := qtdJogadas;
WriteLn('tempo esgotado');
End
Else
If ((ss1- ss) <>0) then
Begin
tent := qtdJogadas;
WriteLn('tempo esgotado');
End
Else
Compara(ptos, ganho);
LimpaTela;
end;
end;

{--- Escolhe a Opcao ---}
Procedure Menu(Var Op, tent : byte);
Begin
Janela(20,10,60,20,6,' Digite a OPCAO: ');
gotoxy(5,2);writeln('1- Jogar');
gotoxy(5,3);writeln('2- Sair');
gotoxy(5,6);write('OPCAO: ');
readln(op);
tent:=0;
LimpaTela;
End;

{--- Sortea os numeros ---}
Procedure sortea;
begin
clrscr;
randomize;
writeln;
write(' ');
for i:=1 to n do
begin
senha[i]:=random(9);
write(senha[i]);
end;
readln;

end;
{------------------------------------------------------------
Programa Principal
-------------------------------------------------------------}
Begin
Nodo:=Nil;
Aux:=Nil;
Ptos:=0;
CLRSCR;
Janela_1;
Menu(op,tent);
while op <> 2 do
Begin
Ptos:=0;
Janela(20,5,60,10,6,'Senha Sorteada');
Sortea;
Janela_2(op,tent, ganho);
If ganho = true then
Begin
LimpaTela;
New(Aux);
Janela(20,10,60,20,6,' !!!: ');
gotoxy(5,2);writeln('DIGITE SEU NOME');
ReadLn(Aux^.Nome);
Aux^.pontos:= ptos;
If nodo = nil then
Begin
New(Nodo);
Nodo := Aux;
Nodo^.prox:=Nil; {ver ............1}
end
Else
If aux^.pontos < nodo^.pontos then
Begin
Aux^.prox:=Nodo;
Nodo:= Aux;
{ver.............2}
End
else
Begin
While (nodo^.pontos <> nil) do
nodo:= nodo^.prox;
aux^.prox:=nodo^.prox; {ver ..................3}
Nodo^.prox:=Aux;
End;

End;
Janela(20,10,60,20,6,' RECORDES: ');
aux:=Nodo;
x:= 2;
Gotoxy(5,2);
If aux = nil then
WriteLn('ainda nao existem recordx');
ReadLn;
While aux <> nil do
Begin
gotoxy(5,x);writeln(x-2,' lugar -',aux^.Nome,', ',aux^.pontos);
x:=x+1;
aux:= aux^.prox;
readln;
End;
ganho:= false;
Janela_3(op, tent);
End;
end.