Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e FornecedoresSoftware de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais
Lista de Exercícios Resolvidos: Java | Python | VisuAlg | Portugol | C | C# | VB.NET | C++
Você está aqui: Perl ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes)

Como adicionar um novo elemento (ou outro array) no início de um array

Quantidade de visualizações: 6996 vezes
Em algumas situações precisamos adicionar um novo item (ou um outro array inteiro) no início de um array. Para isso podemos usar a função unshift(). Esta função recebe o array que receberá o novo elemento e o elemento propriamente dito. O retorno da função é um novo array já contendo o novo elemento. Veja um exemplo:

# Trabalhando com arrays em Perl

# declara e inicializa um array de inteiros
@valores = (211, 5, 3, 8, 2, 4);

# vamos exibir os valores do array
for($i = 0; $i < scalar(@valores); $i++){
  print @valores[$i] . "  ";
}

# vamos adicionar o valor 150 no início do array
$valores = unshift(@valores, 150);
print "\n";

# vamos exibir os valores do array novamente
for($i = 0; $i < scalar(@valores); $i++){
  print $valores[$i] . "  ";
}

Veja agora um exemplo no qual adicionamos um array inteiro no início de outro array:

# Trabalhando com arrays em Perl

# declara e inicializa um array de inteiros
@valores = (211, 5, 3, 8, 2, 4);

# vamos exibir os valores do array
for($i = 0; $i < scalar(@valores); $i++){
  print @valores[$i] . "  ";
}

# declara e inicializa um array de floats
@valores2 = (5.3, 8.2, 1.5, 45.20);

# vamos adicionar o segundo array no início
# do primeiro
$valores = unshift(@valores, @valores2);
print "\n";

# vamos exibir os valores do array novamente
for($i = 0; $i < scalar(@valores); $i++){
  print $valores[$i] . "  ";
}

Como é prática em Perl, a ausência dos parênteses na chamada ao método unshift() não altera o efeito desejado:

$valores = unshift @valores, @valores2;

Link para compartilhar na Internet ou com seus amigos:

CSS ::: Dicas & Truques ::: Cores de Fundo e Imagens de Fundo

Como definir uma imagem de fundo para a página HTML em CSS usando a propriedade background-image

Quantidade de visualizações: 7659 vezes
Nesta dica mostrarei como usar a propriedade background-image do CSS (Cascading Style Sheet) para aplicar uma imagem de fundo às nossas páginas HTML. Note que, neste exemplo, não controlamos como e se a imagem de fundo será repetida. Em outras dicas dessa seção você aprenderá como isso pode ser feito.

Veja o resultado desta dica na figura abaixo:



E agora veja o código HTML completo para o exemplo, incluindo a marcação CSS:

<html>
<head>
<title>Estudando CSS</title>

<meta name="viewport" content="width=device-width, 
  initial-scale=1">

<style type="text/css">
  body {background-image: url('fundo2.jpg')}
</style>

</head>
<body>
 
</body>
</html>



Java ::: Design Patterns (Padrões de Projeto) ::: Singleton Pattern

Padrões de projeto para iniciantes - Como usar o padrão de projeto Singleton em suas aplicações Java

Quantidade de visualizações: 11591 vezes
O padrão de projeto Singleton (ou Singleton Pattern) é um dos padrões de projeto mais conhecidos e implementado extensivamente nas linguagens que suportam programação orientada a objetos, tais como Java e C#. Nesta dica eu mostrarei como implementá-lo.

Uma das situações nas quais usamos o padrão Singleton é quando queremos que somente uma instância de uma determinada classe seja criada e que esta esteja disponível para todas as demais classes do sistema. Um exemplo disso é uma classe responsável por registrar logs do sistema, uma classe responsável por obter conexões com o banco de dados, ou ainda uma classe que concentra dados de configuração da aplicação.

Assim, a chave do padrão Singleton é um método estático, geralmente chamado de getInstance(), que retorna uma nova instância da classe se esta ainda não foi instanciada. Se a classe já tiver sido instanciada, o método getInstance() retorna a instância já existente.

Vamos ver um exemplo deste padrão em Java. Observe o código a seguir:

Código para Logger.java:

package estudos;

// Uma classe Singleton responsável por gravar
// logs no sistema
public class Logger {
    // variável estática e privada que guarda a instância
    // atual da classe
    private static Logger instancia = null;

    // Método estático que retorna uma instância já existente, ou
    // cria uma nova instância
    public static Logger getInstance() {
        if (instancia == null) {
            instancia = new Logger();
        }
        return instancia;
    }

    // Construtor privado para evitar que instâncias sejam
    // criadas usando new
    private Logger() {
        // não precisamos fazer nada aqui
    }

    // método usado para registrar logs
    public void registrarLog(String dados) {
        System.out.println("Vou registrar o log: " + dados);
    }
}

Veja agora como podemos chamar o método getInstance(), obter um objeto da classe Logger e "registrar um log":

Código para Main.java:

package estudos;

public class Main {
  public static void main(String[] args) {
    // vamos registrar um novo log usando a classe Singleton
    Logger.getInstance().registrarLog("Novo usuário cadastrado.");
  }
}

Ao executar esta aplicação teremos a seguinte saída:

Vou registrar o log: Novo usuário cadastrado.


Delphi ::: Dicas & Truques ::: Arquivos e Diretórios

Como listar todos os arquivos de um diretório usando Delphi

Quantidade de visualizações: 1055 vezes
Como listar todos os arquivos de um diretório usando Delphi

Em algumas situações precisamos listar todos os arquivos contidos em um determinado diretório. Para isso podemos usar a função abaixo. Esta função recebe o caminho e nome de um diretório e uma coleção de strings TStrings. Como resultado de sua execução, a função insere em TStrings todos os nomes dos diretórios encontrados. Para facilitar o entendimento do exemplo eu incluí uma chamada à função a partir do evento Click de um botão. Tenha a certeza de colocar uma TListBox no formulário antes de executar o código:

procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
  search_rec: TSearchRec;
begin
  if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
    begin
      repeat
        if search_rec.Attr <> faDirectory then
          lista.Add(search_rec.Name);
      until FindNext(search_rec) <> 0;

      FindClose(search_rec);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  listarArquivosDir('c:\', ListBox1.Items);
end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.


C# ::: Dicas & Truques ::: Strings e Caracteres

Como retornar o tamanho de uma string em C# usando a propriedade Length

Quantidade de visualizações: 17431 vezes
Nesta dica mostrarei como podemos usar a propriedade Length da classe String da linguagem C# para obter o tamanho, ou seja, a quantidade de caracteres em uma palavra, frase ou texto.

Veja um exemplo de seu uso:

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      string nome = "Marcos";
      int tam = nome.Length;

      Console.WriteLine("Esta string contém {0} caracteres",
        tam);
    }
  }
}

Ao executarmos este código C# nós teremos o seguinte resultado:

Esta string contém 6 caracteres


Delphi ::: Dicas & Truques ::: Matemática e Estatística

Como gerar um número aleatório de 0 a 10 em Delphi usando a função Random()

Quantidade de visualizações: 27327 vezes
Em algumas situações precisamos gerar números randômicos. Em Delphi isso pode ser feito com o auxílio da função Random(). Esta função aceita um valor inteiro e retorna um número aleatório maior ou igual a 0 e menor que o valor fornecido. Assim, se quisermos obter um número randômico na faixa de 0 a 10, só precisamos fornecer o valor 11 para a função Random(). Note ainda a chamada à função Randomize(), usada para iniciar o gerador de números randômicos.

Veja um exemplo no qual geramos um número aleatório na faixa de 0 a 10:

procedure TForm1.Button1Click(Sender: TObject);
var
  numero: integer;
begin
  // vamos iniciar o gerador de números randômicos
  Randomize;

  // vamos gerar um número aleatório entre 0 e 10
  numero := Random(11);

  // exibe o resultado
  ShowMessage('Número gerado: ' + IntToStr(numero));
end;

Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.


Desafios, Exercícios e Algoritmos Resolvidos de Delphi

Veja mais Dicas e truques de Delphi

Dicas e truques de outras linguagens

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e FornecedoresSoftware de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais
Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesControle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: Delphi
6º lugar: C
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby

Anúncio Patrocinado
Chat de Sexo - Site para adultso - Maiores de 18 anos. Converse com pessoas de todo o Brasil, de forma discreta e anônima


© 2024 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 10 usuários muito felizes estudando em nosso site.