import java.awt.Toolkit;
import java.awt.event.*;
 
public class Estudos{
  public static void main(String[] args){
    Toolkit tk = Toolkit.getDefaultToolkit();    
     
    // Liga a tecla Caps Lock
    tk.setLockingKeyState(KeyEvent.VK_CAPS_LOCK, true);
     
    // Para desligar basta usar:
    // tk.setLockingKeyState(KeyEvent.VK_CAPS_LOCK, false);    
 
    System.exit(0);
  }
}

 
package arquivodecodigos;

public class Estudos{
  public static void main(String args[]){
    String hex = "F";
     
    // efetua a conversão de hexadecimal para
    // decimal
    int decimal = Integer.parseInt(hex, 16);
 
    // exibe o resultado
    System.out.println(hex + " em decimal é: " +
      decimal);
 
    System.exit(0);
  }
}

// um array de inteiros contendo sete elementos
int valores[] = {-3, 9, 12, -34, -2, 20, 10};

public static void main(String[] args){
  // um array de inteiros contendo sete elementos
  int valores[] = {-3, 9, 12, -34, -2, 20, 10};
    
  // o primeiro passo é criar uma variável que vai receber a soma
  // dos valores positivos
  int soma_positivos = 0;

  // agora uma variável para receber a quantidade de valores negativos
  int quant_negativos = 0;

  // agora vamos usar uma laço for para percorrer todos os elementos
  // do array
  for(int i = 0; i < valores.length; i++){
    // vamos verificar se o valor do elemento atual é negativo
    if(valores[i] < 0){
      quant_negativos++;  
    }
    else{ // o valor é positivo
      soma_positivos = soma_positivos + valores[i]; 
    }
  }

  // vamos exibir a soma dos valores positivos
  System.out.println("A soma dos valores positivos é: " + soma_positivos);

  // vamos exibir a quantidade de valores negativos
  System.out.println("A quantidade de valores negativos é: " + quant_negativos);
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos inserir um novo item na TListBox
  ListBox1.Items.Add('Osmar J. Silva');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter o texto do item selecionado na TListBox
  ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);
end;