Programação: Códigos Úteis

Regras

- Autoria
Todo código Não criado pelo postador deverá conter os créditos do mesmo.

- Funcionamento
Todo o código dever ser testado antes de postar.

- Publicação
Não é permitido postar códigos já colocados no tópico (apenas aprimorar o mesmo)

- Regras
As regras do fórum vale também para os códigos.

- Publicação
Não fazer qualquer tipo de publicidade nos códigos.

- Conteúdos Ilegais
Não é permitido fazer posts sem haver nexo com o tópico.

-Postagem
Todo código postado deve contar as tags CODE.

- Double Post
Double-Post não será aceitado.

Modelo de Postagem:
Toda postagem deste tópico que for feita a partir da data 26/07/2011 deve conter o seguinte modelo:

Código:


Linguagem Usada:
Descrição do Código:
Modo de Uso (opcional):


Quem não respeitar essas regras será punido conforme a gravidade

O que faz?
Este código em delphi faz um fade em form, deixando seu splash extremamente perfeito

Código

Código:

// Apenas crie dois frames:
// frmSplash  e  TfrmProg
procedure TfrmProg.FormCreate(Sender: TObject);
   begin
      //criar o splash
      frmSplash := TfrmSplash.Create (Application);
      frmSplash.Show;
      frmSplash.Update;

      frmProg.visible := false; // deixar o main invísivel enquanto inicia
 
      // efeito fade no splash
      while frmSplash.AlphaBlendValue < 255 do
      begin
         sleep(10);
         frmSplash.AlphaBlendValue:= frmSplash.AlphaBlendValue + 2;
      end;

      //fechar splash   
      frmSplash.free;

      //mostrar o main de volta
      frmProg.visible := true;
   end;
end

//Criado por Bruno
// www.ips-team.blogspot.com

Link?
http://pastebin.com/sHb5k0Na

Créditos:
Criado por Bruno da Silva

Oquê faz ?
Cria uma palavra ou Senha Randômica

Linguagem Utilizada ?
PHP.

Código

Código:


function GenerateRandomPassword($size) // By: [iPs]SuYaNw
{
        $sStr  = NULL;
        $Words  = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R",
                                        "S","T","U","V","W","X","Y","1","2","3","4","5","6","7","8","9","0",
                                        "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r",
                                        "s","t","u","v","w","x","y","Z","z" )
                                        ;
        for($i = 0; $i != $size; ++$i)
        {
                $sStr .= $Words[array_rand($Words)];
        }
        return $sStr;
}


Link ?
http://pastebin.com/XXqVtq0m

Créditos
- SuYaNw

Saudações!

Fiz uma função simples em Javascript para pegar a data atual e subtrair com uma data anterior. Fazendo está subtração irá retornar o número de dias passados desde a data.

Linguagem usada: Javascript
Segue o código da função:

Código:

function contarDias(dia, mes, ano)
{
 return ((new Date(new Date().getFullYear(), new Date().getMonth() + 1, new Date().getDate())).getTime() - (new Date(ano, mes, dia)).getTime()) / 86400000;
}

Aqui um exemplo:
alert("Desde: 09/10/2009 \nForam decorridos " + contarDias(9, 10, 2009) + " dias");

Outra função velhinha que criei a algum tempo. Se trata de um função simples criada com mktime que faz a diferença de dias entre 2 datas. O modo é simples, sem segredo.

Linguagem usada: PHP

Segue aqui o código:

Código:

function diferencaDatas($data1, $data2)
{
        $separar1 = explode('/', $data1);
        $separar2 = explode('/', $data2);

        return round(((mktime(0, 0, 0, $separar2[1], $separar2[0], $separar2[2]) - mktime(0, 0, 0, $separar1[1], $separar1[0], $separar1[2])) / 86400));
}

Aqui um exemplo do uso da função:
echo "Se passaram " . diferencaDatas("02/03/2011", "02/05/2011") . " dias";

Criado por Bruno da Silva

Simples sistema de Estoque, exercicio proposto pelo meu professor.
Considero o código meio avançado hm.
Feito em pascal

Código:



Program sistemaDeEstoque;

type
   reg_mercadoria = record
      codigo:integer;
      nome:string;
      quantidade_estoque:integer;
      preco_compra:integer;
      preco_venda:integer;
      estoque:integer;
      datadocadastro:string;
      sendoUsada:boolean;
   end;
var
   mercadoria:array[1..100] of reg_mercadoria;   
   i:integer;
   posicao:integer;
   opcao:integer;
   codigoPesquisado:integer;
   novoEstoque:integer;
Begin
   posicao := 0;
   opcao := 1;
   while(opcao <> 0) do
   begin
      textbackground(black);
      textcolor(white);
      clrscr;
      writeln('______________________ Cadastro de Estoque ___________________________'); 
      writeln(' ');
      writeln(' Digite a opção desejada:                                            ');
      writeln(' 1 - Cadastrar mercadorias ( nova )');
      writeln(' 2 - Pesquisar mercadorias ');
      writeln(' 3 - Alterar a quantidade de estoque ');   
      writeln(' 4 - Efetuar saida de mercadoria ');
      writeln(' 5 - Alterar uma mercadoria ( preço )');
      writeln(' 6 - Excluir mercadoria ');
      writeln(' 7 - Imprimir mercadorias');
      writeln(' [0] - Sair do programa');
      writeln('_______________________________________________________________________');   
      gotoxy(27,3);
      read(opcao);
      if(opcao = 1) then
      begin                                                                                   
         clrscr;
         posicao:=posicao+1;
         writeln('------------------------------------------------------------------');
         writeln('Digite o nome da nova mercadoria:                    ');
         writeln('Digite o preço de compra mercadoria:                  ');
         writeln('Digite o preço de venda da mercadoria:                ');
         writeln('Digite o estoque dela:                        ');
         writeln('Data do cadastro:                                    ');      
         writeln('------------------------------------------------------------------');
         mercadoria[posicao].codigo := posicao;
         gotoxy(35,2);
         readln(mercadoria[posicao].nome);
         gotoxy(38,3);
         readln(mercadoria[posicao].preco_compra);
         gotoxy(40,4);
         readln(mercadoria[posicao].preco_venda);
         gotoxy(28,5);
         readln(mercadoria[posicao].estoque);
         gotoxy(20,6);
          readln(mercadoria[posicao].datadocadastro);
         gotoxy(1,10);
         mercadoria[posicao].sendoUsada := true;
         textcolor(green);
         writeln('Código da mercadoria: ',posicao);
         writeln('Aperte uma tecla para sair do menu de cadastro.');
         textcolor(white);
         readkey;
      end;
      if(opcao = 2) then
      begin
         clrscr;
         codigoPesquisado:=0;
         writeln('Digite o código a ser pesquisado:');
         readln(codigoPesquisado);
         if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
         begin
            writeln('Nome: ', mercadoria[codigoPesquisado].nome);
            writeln('Preço de compra: ', mercadoria[codigoPesquisado].preco_compra);
            writeln('Preço de venda: ', mercadoria[codigoPesquisado].preco_venda);
            writeln('Estoque minimo: ', mercadoria[codigoPesquisado].estoque);
            writeln('Data do cadastro: ', mercadoria[codigoPesquisado].datadocadastro);
            textcolor(green);
            writeln('Aperte uma tecla para sair do menu de cadastro.');
            textcolor(white);
            readkey;
         end
         else
         begin
            writeln('Código inválido! aperte uma tecla para voltar ao menu.');
            readkey;
         end;                  
      end;
      if(opcao = 3) then
      begin
         clrscr;
         writeln('Digite o código da mercadoria a ser alterada.');
         readln(codigoPesquisado);
         if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
         begin
            writeln('Mercadoria: ',mercadoria[codigoPesquisado].nome,', estoque: ',mercadoria[codigoPesquisado].estoque);
            writeln('Digite o novo estoque da mercadoria: ');
            read(novoEstoque);
            mercadoria[codigoPesquisado].estoque := novoEstoque;
            textcolor(green);
            writeln('Aperte uma tecla para sair do menu de cadastro.');
            textcolor(white);
            readkey;                                 
         end
         else
         begin
            writeln('Código inválido! aperte uma tecla para voltar ao menu.');
            readkey;
         end;                        
      end;
      if(opcao = 4) then
      begin
         clrscr;
         writeln('Digite o código da mercadoria a ser alterada.');
         readln(codigoPesquisado);
         if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
         begin
            writeln('Digite a quantidade de estoque que saiu da mercadoria ',mercadoria[codigoPesquisado].nome);
            readln(novoEstoque);
            mercadoria[codigoPesquisado].estoque := mercadoria[codigoPesquisado].estoque-novoEstoque;
            writeln('Novo estoque: ',mercadoria[codigoPesquisado].estoque);
            readkey;
         end
         else
         begin
            writeln('Código inválido! aperte uma tecla para voltar ao menu.');
            readkey;
         end;                                                   
      end;
      if(opcao = 5) then
      begin
         clrscr;
         writeln('Digite o código da mercadoria a ser alterada.');
         readln(codigoPesquisado);
         if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
         begin
            writeln('Digite o novo preço da mercadoria ',mercadoria[codigoPesquisado].nome);
            readln(novoEstoque);
            mercadoria[codigoPesquisado].preco_venda := novoEstoque;
            writeln('Novo estoque: ',mercadoria[codigoPesquisado].preco_venda);
            readkey;
         end
         else
         begin
            writeln('Código inválido! aperte uma tecla para voltar ao menu.');
            readkey;
         end;                           
      end;
      if(opcao = 6) then
      begin
         clrscr;
         writeln('Digite o código da mercadoria a ser excluida!');
         writeln('AVISO: Excluido uma vez não poderá voltar atrás !');
         readln(codigoPesquisado);
         if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
         begin
            mercadoria[codigoPesquisado].nome := 'Não ultilizada';
            mercadoria[codigoPesquisado].sendoUsada := false;
            writeln('Mercadoria: ',codigoPesquisado,' excluida.');
            readkey;
         end
         else
         begin
            writeln('Código inválido! aperte uma tecla para voltar ao menu.');
            readkey;
         end;         
      
      end;
      if(opcao = 7) then
      begin
         clrscr;
         for i:= 1 to posicao do
         begin
            if(mercadoria[i].sendoUsada = true) then
            begin
               writeln('<',i,'> Nome: ',mercadoria[i].nome,' estoque: ',mercadoria[i].estoque);                     
            end
         end;                                       
         readkey;
      end;
   end;                   
End.



Código:

Código:

int fatorial(int n){
            int a=1, i;
            for(i = 1 ; i <= n; ++i){
                a *= i;
            }
            return a;
}

Linguagem Usada: C
Descrição do Código: Calcula o fatorial de um número

Linguagem Usada: PHP

Descrição do Código: Cria várias páginas apenas em 1 arquivo php, exemplo: index.php?mqb=home, index.php?mqb=produtos e index.php?mqb=contato.

Código:

Código:

    $mqb = !isset($_GET['mqb']) ? "index" : $_GET['mqb'] ;

                if (strpos($_GET['mqb'], "/") || strpos($_GET['mqb'], "\\")){
                $mqb = "index";
                }
               
                if (is_file("miqueiasgato/".$mqb.".php")) {
                include("miqueiasgato/".$mqb.".php");
               
       
  } else {   

                include("miqueiasgato/index.php");
  }

Linguagem Usada: C#
Descrição do Código: bubbleSort & swap (sem temp váriavel)

Código:



        private void bubleSort(int[] variable) {
            for(int i = variable.Length; i != 0; --i) {
                for(int s = 0; s != i; ++s) {
                    if(variable[i] < variable[s]) {
                        swap(variable[i], variable[s]);
                    }
                }
            }
        }

        static void swap(int first, int second) {
            first += second;
            second = first - second;
            first -= second;
        }

Linguagem: Javascript

Descrição: Verificar se data DD/MM/AAAA é válida utilizando regex

Código:


function IsValidDate(date) {
  return (date.match(new RegExp('\\b[0-9]{2}[/]{1}[0-9]{2}[/]{1}[0-9]{4}\\b')));
}

[S]trong seu código não funciona com a parte zero da array

Linguagem Usada: Pawn
Descrição do Código: Tentando fazer um hash próprio '-'

Código:

o_hash(buf[]){
   new hstr[] = "AQHENA";
   new fstr;
   new hash = strlen(buf);
   new z;
   new var;
   new n;
   for(n = 0; n<hash; n++){
      z = (var + 1246789) * 10;
      fstr = z + strlen(hstr);
   } return fstr;
}

Linguagem: PHP
Descrição: Este código verifica se a string é válida com caracteres e números.

Código:


function IsValidString($str)
{
        if(strstr($str, "'") || strstr($str, "!") ||  strstr($str, "@") ||  strstr($str, "#") ||
        strstr($str, "$") ||  strstr($str, "%") ||  strstr($str, "¨") ||  strstr($str, "&") ||
        strstr($str, "*") ||  strstr($str, "(") ||  strstr($str, ")") ||  strstr($str, "-") ||
        strstr($str, "_") ||  strstr($str, "+") ||  strstr($str, "+") ||  strstr($str, "¹") ||
        strstr($str, "²") ||  strstr($str, "³") ||  strstr($str, "ª") || strstr($str, "{") ||
        strstr($str, "[") ||  strstr($str, "]") ||  strstr($str, "}") ||  strstr($str, "º") ||
        strstr($str, "´") ||  strstr($str, "`") ||  strstr($str, "^") ||  strstr($str, "~") ||
        strstr($str, "<") ||  strstr($str, ",") ||  strstr($str, ".") ||  strstr($str, ">") ||
        strstr($str, ":") ||  strstr($str, ";") ||  strstr($str, "/") ||  strstr($str, "°") ||
        strstr($str, "?") ||  strstr($str, "|") || is_numeric($str))
        {
                return false;
        }
        return true;
}

Exemplo:

Código:


if(IsValidString("Ola%!@$")) echo "Valid";
else echo "Invalid";


Código:


#define multiplicar(%0) (%0 << 1)
#define dividir(%0) (%0 >> 1)


Usando desocamento : p
---> C

Linguagem Usada: PHP
Descrição do Código:
Tava estudando estatística, ai me deu uma vontade de fazer algumas funções O_o.
São suuuper simples mas decidi postar, não tenho nada pra fazeres com elas kkk.

Código:


function calcular( $preco , $desconto ) {
      $go = ($preco * $desconto) / 100;
      
      echo "$go";
   }


Calcula o desconto dado em um objeto por exemplo:
calcular(250, 5); vai retornar 12,5 que é 5% de 250
Bem simples.

Linguagem Usada: PHP
Descrição do Código: Faz um calco do TMB (Taxa metabólica basal), ou seja, faz o calculo das calorias necessárias por dia...
Modo de Uso: É muito simples, no $sexo é o seu sexo ( 1 - Masculino , 2 - Femenino) , $peso é o seu peso em kg , $altura é a sua altura (em cm, ex: 1,55 m = 155cm), $idade é a sua idade atual (:

Código:

function TMB($sexo,$peso,$altura,$idade){
   if($sexo == 1)
      return 66 + (13.7 * $peso) + (5 * $altura) - (6.8 * $idade);
   else if($sexo == 2)
      return 65.5 + (9.6 * $peso) + (1.8 * $altura) - (4.7 * $idade);
}

Linguagem usada: PHP
Descrição do código: Calcula o resultado de uma equação do 2º grau.

Código:


function Equacao2grau($a, $b, $c) {
   $delta = (($b*$b) - 4*$a*$c);
   echo "Delta: <b>".$delta."</b><br/>";
   $bhask_Pos = ((-$b)+sqrt($delta))/(2*$a);
   $bhask_Neg = ((-$b)-sqrt($delta))/(2*$a);
   echo "Bhaskara Positiva: <b>".round($bhask_Pos*10)/10 ."</b><br/>Bhaskara negativa <b>".round($bhask_Neg*10)/10 ."</b><br/>";
   echo "Solução={<b>".round($bhask_Pos*10)/10 ."</b>, <b>".round($bhask_Neg*10)/10 ."</b>}";
}

Fiz alguns testes e o único problema é se o resultado der uma fracionario, como no PHP não é possivel fazer isso(pelo menos que eu saiba), usei uma função que arredonda, mas mesmo assim ainda está ruim. Se alguem souber alguma forma de deixar melhor o resultado fracionario me avise porfavor.

Código:


#include <stdlib.h>

int Somatorio(int N)
{
int A = 0, C = 0;
for(C = 0; C != N; C++)
{
A = A + C;
}
return A;
}

int main()
{
int N;
printf("Digite um numero:\n");
scanf("%d", &N);
printf("O somatorio do numero %d e: %d.", N, Somatorio(N));
system("pause");
}



linguagem utilizada: C
Funcao: calcula o somatorio de um numero.

@Edit
Corrigido. "1 hora da manha não e hora de fazer codigo, muito menos em dispositivo movel."

Linguagem utilizada: PHP
Função: Pega a extenção de um arquivo. Pode ser usada para impedir uploads de arquivos indesejados!

Código:


function RetornaExt($ArqName)
{
   $ext = explode('.',$ArqName);
   $n = count($ext);
   return $ext[$n -1];
}


OBS: Esta função foi criada por mim... se tiver ela na net, é pura coincidência!

Linguagem utilizada: C
Função: Retorna a contagem de caracteres de uma string.

Código:


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main()
{
    char String[512];
    int intie;
    system("cls");
    printf("Digite a string:\n");
    fflush(stdin);
    gets(String);
    intie = strlen(String);
    printf("Tamanho da string: %d\n", intie);
    printf("Pressione ENTER para continuar...");
    fflush(stdin);
    getchar();
}


Linguagem: C#

Função: Procurar janela e pegar Handle DELA!

Código:


IntPtr calculatorHandle = FindWindow(null, "Sem título - Bloco de notas");

if (calculatorHandle == IntPtr.Zero)
{
    MessageBox.Show("Bloco de notas fechado !");
}
else
{           
    SetForegroundWindow(calculatorHandle);
}