<?php
  // função que recebe o código de barras completo
  // e monta a linha digitável do boleto
  function montarLinhaDigitavel($codigoBarras){
    // vamos nos concentrar no primeiro campo
    $campo1 = substr($codigoBarras, 0, 3) .
      substr($codigoBarras, 3, 1) . substr($codigoBarras, 19, 5);
	  
    // agora o segundo campo
    $campo2 = substr($codigoBarras, 24, 10);   
	
    // agora o terceiro campo
    $campo3 = substr($codigoBarras, 34, 10);
	
    // agora o quarto campo
    $campo4 = substr($codigoBarras, 4, 1);
	
    // finalmente o quinto campo
    $campo5 = substr($codigoBarras, 5, 4) .
      substr($codigoBarras, 9, 10);
	
    $linhaDigitavel = substr($campo1, 0, 5) . "." . substr($campo1, 5, 5) . 
     dvLinhaDigitavel($campo1) . " " . substr($campo2, 0, 5) . "." 
     . substr($campo2, 5, 5) . dvLinhaDigitavel($campo2) . 
     " " . substr($campo3, 0, 5) . "."  . substr($campo3, 5, 5) . 
     dvLinhaDigitavel($campo3) . " " . $campo4 . " " . $campo5;
	
    return $linhaDigitavel;  
  }
  
  // atenção a esta função. Aqui nós usamos o Módulo 10
  function dvLinhaDigitavel($valor){
    // vamos inverter o valor
    $valor = strrev($valor);
    // vamos definir os índices de múltiplicação
    $indices = "2121212121";
    // e aqui a soma da multiplicação coluna por coluna
    $soma = 0;
	
    // fazemos a multiplicação coluna por coluna agora
    for($i = 0; $i < strlen($valor); $i++){
      $res = ((int)($valor[$i])) * 
       ((int)($indices[$i]));
	   
      // Quando o resultado da multiplicação for um número 
      // com 2 dígitos, somar os 2 algarismos.
      // Ex: (10: 1+0 = 1). 
      if($res > 9){
	// vamos converter o valor númerico em string
	$res = strval($res);
	$res = ((int)($res[0]) + (int)($res[1]));   
      }
	   
      $soma = $soma + $res;   
    }
	
    // obtemos o resto da divisão da soma por 10
    $resto = $soma % 10;
    
    //  Se o resto da divisão for 0 (zero), o DV 
    // será 0 (zero).
    if($resto == 0){
      $digito = 0;	
    }
    // Se o Total da Soma for inferior a 10, o DV corresponde
    // à diferença entre 10 e o Total da Soma
    else if($soma < 10){
      $digito = 10 - $soma;	
    }
    else{ 
      // subtraímos onze pelo resto da divisão
      $digito = 10 - $resto;  	
    }
	
    return $digito;  
  }
    
  // ATENÇÃO: Se você ainda não entende os dados abaixo.
  // revise as dicas anteriores antes de continuar
  
  $banco = "104";
  $moeda = "9";
  $carteira = "1"; //  
  $emissao = "4"; // cedente
  $nossoNumero = "222333777777777";
  $valor = "321.12"; // sempre duas casas decimais
  $vencimento = "23/08/2006";
  $fator = fatorVencimento($vencimento);
  $nossoNumeroCompleto = $carteira . $emissao . $nossoNumero;
  $cedente = "005507";
  $dvCedente = dvCodigoCedente($cedente);
  $campoLivre = montarCampoLivre($cedente, $dvCedente,
    $nossoNumeroCompleto);
  $codigoBarras = montarCodigoBarras($banco, $moeda, $fator,
    $valor, $campoLivre);
  
  // agora que temos o código de barras completo, vamos
  // montar a linha digitável
  $linhaDigitavel = montarLinhaDigitavel($codigoBarras);
  // e mostramos o resultado
  echo "A linha digitável completa é: " . $linhaDigitavel;
?>

 
  class Pedido{
    public List obterProdutos(){
      // monta uma lista de produtos
      // pertecentes a este pedido
      return lista;
    }
  }

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
 
public class Estudos extends JFrame{
  JList lista;  
 
  public Estudos() {
    super("A classe JList");
     
    Container c = getContentPane();
    c.setLayout(new FlowLayout(FlowLayout.LEFT));
     
    // Cria os itens da lista
    String nomes[] = {"Carlos", "Marcelo", "Fabiana",
      "Carolina", "Osmar"};
 
    // Cria a JList
    lista = new JList(nomes);
  
    // Um botão que permite obter a quantidade de itens
    JButton btn = new JButton("Quantidade de Itens");
    btn.addActionListener(
      new ActionListener(){
        public void actionPerformed(ActionEvent e){
          int quant = lista.getModel().getSize();
 
          JOptionPane.showMessageDialog(null, 
            "A lista contém " + quant + " itens");
        }
      }
    );
 
    // Adiciona a lista à janela
    c.add(new JScrollPane(lista));
 
    // Adiciona o botão à janela
    c.add(btn);  
 
    setSize(350, 250);
    setVisible(true);
  }
   
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

System.TObject
  Classes.TPersistent
    Classes.TComponent
      DB.TField

        
TADTField          TDateField         TReferenceField   
TAggregateField    TDateTimeField     TSmallIntField   
TArrayField        TFloatField        TSQLTimeStampField   
TAutoIncField      TFMTBCDField       TStringField   
TBCDField          TGraphicField      TTimeField   
TBinaryField       TGuidField         TVarBytesField   
TBlobField         TIDispatchField    TVariantField   
TBooleanField      TIntegerField      TWideStringField   
TBytesField        TInterfaceField    TWordField   
TCurrencyField     TLargeintField     TDataSetField   
TMemoField     

procedure TForm3.Button3Click(Sender: TObject);
var
  campo: TField;
begin
  // vamos obter o campo com o nome "titulo" do registro atual
  campo := ClientDataSet1.FieldByName('titulo');

  // vamos mostrar o valor do campo
  ShowMessage('O valor do campo é: ' + campo.AsString);
end;

// função recursiva que recebe um valor e um vetor e retorna quantas
// vezes o valor é encontrado no vetor
public static int QuantRepeticoes(int indice, int valor, int[] vetor) {
  // sua implementação aqui 
}

Informe o 1 valor: 2
Informe o 2 valor: 7
Informe o 3 valor: 4
Informe o 4 valor: 7
Informe o 5 valor: 1

Informe o valor a ser pesquisado no vetor: 7
O valor informado se repete 2 vezes.

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos declarar um vetor de 10 inteiros
    Dim valores(4) As Integer

    ' vamos pedir ao usuário que informe os valores do vetor
    For i As Integer = 0 To valores.Length - 1
      Console.Write("Informe o " & (i + 1) & " valor: ")
      ' efetua a leitura do valor informado para a posição atual do vetor
      valores(i) = Int32.Parse(Console.ReadLine())
    Next

    ' agora vamos pedir para informar o valor a ser pesquisado
    Console.Write(vbCrLf & "Informe o valor a ser pesquisado no vetor: ")
    Dim valor As Integer = Int32.Parse(Console.ReadLine())

    ' e vamos ver a quantidade de repetições
    Dim repeticoes As Integer = QuantRepeticoes(0, valor, valores)
    Console.WriteLine("O valor informado se repete " & repeticoes & " vezes.")

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

  ' função recursiva que recebe um valor e um vetor e retorna quantas
  ' vezes o valor é encontrado no vetor
  Function QuantRepeticoes(indice As Integer, valor As Integer, 
    vetor() As Integer) As Integer
    If indice = vetor.Length - 1 Then ' caso base...hora de parar a recursividade
      If vetor(indice) = valor Then
        Return 1 ' mais um repetição foi encontrada
      End If
    Else ' dispara mais uma chamada recursiva
      If vetor(indice) = valor Then ' houve mais uma repetição
        Return 1 + QuantRepeticoes(indice + 1, valor, vetor)
      Else
        Return 0 + QuantRepeticoes(indice + 1, valor, vetor) ' não repetiu
      End If
    End If

    Return 0 ' só para deixar o compilador satisfeito...esta linha nunca é
    ' executada
  End Function

End Module

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

// função personalizada que copia os caracteres de
// uma string para outra
char *str_copy(char *destino, const char *origem){
   while(*destino++ = *origem++){
     ;;
   }

   return (destino - 1);
}

int main(int argc, char *argv[]){
  char frase1[] = "Gosto de PHP";
  char frase2[50]; // pode receber até 49 caracteres

  // copia a primeira frase para a segunda
  str_copy(frase2, frase1);

  // exibe o resultado
  printf(frase2);

  puts("\n\n");
  system("PAUSE");
  return 0;
}