import java.awt.*;
import java.io.*;
import java.awt.image.*;
import java.awt.event.*;
import javax.swing.*;
import javax.imageio.*;

public class Estudos extends JFrame{
  private BufferedImage imagem;
  
  public Estudos(){
    super("Estudos Java");
    
    Container c = getContentPane();
    c.setLayout(new FlowLayout());
	
    JButton btn = new JButton("Carregar Imagem");
    btn.addActionListener(
      new ActionListener(){
        public void actionPerformed(ActionEvent e){
          imagem = null;
          
          try{
            imagem = ImageIO.read(
              new File("imagens/fundo.jpg"));
          }
          catch(IOException exc){
            JOptionPane.showMessageDialog(null, 
              "Erro ao carregar a imagem: " + 
              exc.getMessage());
          }

          if(imagem != null){
            desenhar();   
          }
        }
      }
    );

    c.add(btn);
    	
    setSize(400, 300);
    setVisible(true);
  }

  public void desenhar(){
    // desenha a imagem no JFrame
    Graphics g = getGraphics();   
    g.drawImage(imagem, 0, 0, this);
  }
  
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

; Esta função permite obter e exibir o valor atual
; da variável CLAYER do AutoCAD. Esta variável retorna
; o nome da layer atual
(defun c:layer_atual()
  (setq nome_layer_atual (getvar "CLAYER"))
  ; mostramos o resultado
  (princ (strcat "\nNome da layer atual: " nome_layer_atual))
  (princ)
)

from datetime import datetime
import locale

def main():
  # Configurações do usuário
  locale.setlocale(locale.LC_ALL, '')
 
  # Obtém um datetime da data e hora atual
  hoje = datetime.today()
 
  # Exibe a data atual formatada
  data = hoje.strftime("Hoje é %A, %d de %B de %Y")
  print(data)
 
if __name__== "__main__":
  main()

procedure TForm3.Button1Click(Sender: TObject);
begin
  // vamos adicionar alguns itens ao ComboBox
  ComboBox1.Items.Add('Java');
  ComboBox1.Items.Add('C++');
  ComboBox1.Items.Add('Python');

  // vamos obter a quantidade de itens no ComboBox
  ShowMessage('O ComboBox possui '  + IntToStr(ComboBox1.Items.Count) +
    ' itens.');
end;