Object
  EventDispatcher
    DisplayObject
      InteractiveObject
        DisplayObjectContainer
          Sprite
            FlexSprite
              UIComponent
                ScrollControlBase
                  ListBase
                    List
                      Menu            

<?xml version="1.0" encoding="iso-8859-1"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml"
  creationComplete="montarMenu()">

  <mx:Panel id="painel" title="Estudos" status="Active" 
     height="300" width="400" paddingTop="10" 
     paddingLeft="10" paddingRight="10" 
     paddingBottom="10">
 
    <mx:MenuBar labelField="@label" 
      dataProvider="{barraMenu}" />

  </mx:Panel>

  <mx:Script>
    <![CDATA[
      import mx.collections.*;      

      [Bindable]
      public var barraMenu:XMLListCollection;
      private var barraMenuXML:XMLList =
        <>
          <menuitem label="Arquivo" data="arquivo">
            <menuitem label="Abrir" data="abrir"/>
          </menuitem>
        </>;     
 
      private function montarMenu():void {
        barraMenu = new XMLListCollection(barraMenuXML);
      }
    ]]>
  </mx:Script>  

</mx:Application>

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

import java.awt.*;
import javax.swing.*;
 
public class Estudos extends JFrame{
  private Image imagem;  
 
  public Estudos() {
    super("Carregando imagens em uma JFrame");
     
    // imagem a ser exibida
    String minhaImagem = "foto1.jpg";
 
    Toolkit toolkit = Toolkit.getDefaultToolkit();
    imagem = toolkit.getImage(minhaImagem);
    MediaTracker mediaTracker = new MediaTracker(this);
    mediaTracker.addImage(imagem, 0);
     
    try{
      mediaTracker.waitForID(0);
    }
    catch(InterruptedException ie){
      System.err.println(ie);
      System.exit(1);
    }
 
    setSize(imagem.getWidth(null), imagem.getHeight(null));
 
    setVisible(true);
  }
   
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
 
  public void paint(Graphics graphics){
    graphics.drawImage(imagem, 0, 0, null);
  } 
}

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  colunas: Integer;
begin
  // vamos obter a quantidade de colunas no DBGrid
  colunas := DBGrid1.Columns.Count;
  ShowMessage('O DBGrid possui ' + IntToStr(colunas) + ' colunas');
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

# vamos importar o módulo Math
import math

# função que calcula e retorna a apótema de um
# polítono regular
def calcular_apotema(lados, comprimento):
  # a quantidade de lados e o comprimento deles
  # não podem ser negativos
  if lados < 0 or comprimento < 0:
    return -1
 
  # calculamos a apótema
  return (comprimento / (2 * math.tan((180 / lados)
    * math.pi / 180)))
  
# função principal do programa
def main():
  # vamos ler a quantidade de lados
  lados = int(input("Informe a quantidade de lados: "))
  
  # vamos ler o comprimento dos lados
  comprimento = int(input("Informe o comprimento dos lados: "))

  # e agora calculamos a apótema dos polígono
  apotema = calcular_apotema(lados, comprimento)

  # e mostramos o resultado
  print("A apótema do polígono é: {0}".format(apotema))

if __name__== "__main__":
  main()

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  pesquisa: string;
  encontrou: Boolean;
begin
  // vamos solicitar o texto a ser pesquisado na ListBox
  pesquisa := InputBox('Pesquisar', 'Informe o texto', '');
  encontrou := false;

  // vamos usar um laço for para percorrer todos os itens
  // da ListBox
  for i := 0 to ListBox1.Count - 1 do
    begin
      if ListBox1.Items[i] = pesquisa then
        begin
          encontrou := true;
          // vamos selecionar o item encontrado
          ListBox1.ItemIndex := i;
          ShowMessage('O texto pesquisado foi encontrado ' +
            'no índice ' + IntToStr(ListBox1.ItemIndex));
        end;
    end;

    // não foi encontrado?
    if not encontrou then
      begin
        ShowMessage('O texto pesquisado não foi encontrado.');
      end;
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

using System;

namespace Estudos {
  class Principal {
    static void Main(string[] args) {
      string palavra = "ARQUIVO";

      // converte em uma matriz de caracteres
      char[] letras = palavra.ToCharArray();

      // mostramos a palavra original
      Console.WriteLine("Palavra original: " + palavra);

      // vamos embaralhar 5 vezes
      embaralhar(ref letras, 5);

      // junta as partes da string novamente
      string nova_palavra = new String(letras);

      // exibe o resultado
      Console.WriteLine("Palavra embaralhada: " + nova_palavra);

      Console.WriteLine("\nPressione uma tecla para sair...");
      Console.ReadKey();
    }

    static void embaralhar(ref char[] array, int vezes) {
      Random rand = new Random(DateTime.Now.Millisecond);

      for (int i = 1; i <= vezes; i++) {
        for (int x = 1; x <= array.Length; x++) {
          trocar(ref array[rand.Next(0, array.Length)],
            ref array[rand.Next(0, array.Length)]);
        }
      }
    }

    static void trocar(ref char arg1, ref char arg2) {
      char strTemp = arg1;
      arg1 = arg2;
      arg2 = strTemp;
    }
  }
}