# vamos importar a biblioteca wxPython
import wx

class Janela(wx.Frame):
  def __init__(self):
    wx.Frame.__init__(self, None, -1, 
      "Usando wx.Button", size=(350, 200))
    
    # Cria um painel
    panel = wx.Panel(self)

    # Cria um botão e o adiciona no painel
    self.btn = wx.Button(panel, label="Clique Aqui", 
      pos=(10, 10), size=(100, 25))

    # Anexa um evento ao botão
    self.Bind(wx.EVT_BUTTON, self.OnBtnClick, self.btn)

  # Método que será chamado ao clicar o botão
  def OnBtnClick(self, event):
    # obtém o tamanho padrão dos botões
    # nesta plataforma
    dimensoes = self.btn.GetDefaultSize()

    dlg = wx.MessageDialog(None, u"A largura padrão é: " 
      + str(dimensoes.width) + u" pixels e a altura " +
      u"padrão é: " + str(dimensoes.height) + " pixels",
      "Usando wx.Button", wx.OK | wx.ICON_INFORMATION)
    result = dlg.ShowModal()
    dlg.Destroy()

if __name__ == "__main__":
  app = wx.App()
  janela = Janela()
  janela.Show(True)
  app.MainLoop()

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'PHP? Sim, eu gosto muito de PHP';

  // vamos substituir todas as ocorrências de "PHP" por "Delphi'
  frase := ReplaceStr(frase, 'PHP', 'Delphi');

  // vamos exibir o resultado
  ShowMessage(frase);
end;

double celsiusParaFahrenheit(double)
double fahrenheitParaCelsius(double)

package arquivodecodigos;

public class Temperatura {
  // converte de Celsius para Fahrenheit
  public double celsiusParaFahrenheit(double c){
    double f = (1.8 * c) + 32;
    return f;  
  }
  
  // converte de Fahrenheit para Celsius
  public double fahrenheitParaCelsius(double f){
    double c = (f - 32) / 1.8;  
    return c;  
  }    
}

package arquivodecodigos;

import java.util.Scanner;

public class Principal{ 
  public static void main(String args[]){ 
    // vamos criar um objeto da classe Temperatura
    Temperatura t = new Temperatura();
    
    // vamos fazer a leitura do usuário
    Scanner entrada = new Scanner(System.in);
    
    // primeiro de Celsius para Fahrenheit
    System.out.print("Informe o grau em Celsius: ");
    double celsius = Double.parseDouble(entrada.nextLine());
    System.out.println(celsius + " graus Celsius equivale a " +
      t.celsiusParaFahrenheit(celsius) + " graus Fahrenheit.");
    
    // agora de Fahrenheit para Celsius
    System.out.print("Informe o grau em Fahrenheit: ");
    double fahrenheit = Double.parseDouble(entrada.nextLine());
    System.out.println(celsius + " graus Fahrenheit equivale a " +
      t.fahrenheitParaCelsius(fahrenheit) + " graus Celsius.");
  } 
}

procedure TForm1.Button2Click(Sender: TObject);
begin
  // vamos selecionar o segundo item na ListBox
  ListBox1.ItemIndex := 1; // o índice do primeiro item é 0

  // note que este código não funciona para ListBoxes de
  // seleção múltipla
end;

Imports System

Module Program
  Sub Main(args As String())
    Dim var1 As String ' ainda não foi inicializada...é null
    Dim var2 As String = Nothing ' é null
    Dim var3 As String = "" ' está vazia

    If String.IsNullOrEmpty(var1) Then
      Console.WriteLine("A variável var1 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var2) Then
      Console.WriteLine("A variável var2 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var3) Then
      Console.WriteLine("A variável var3 ainda é null ou vazia")
    End If

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