Canadá decreta banda larga como ‘serviço fundamental’ e investe R$ 1,85 bilhão

Olá!

País de primeiro mundo é outra coisa, veja a notícia:

http://olhardigital.uol.com.br/pro/noticia/canada-decreta-banda-larga-como-servico-fundamental-e-investe-r-1-85-bilhoes/64836

Enquanto isso na terra de tão tão distante… Forças malévolas decretam que saúde e educação são artigos de luxo! Somente quem tem muito dinheiro poderá pagar.

 

Exemplo de aplicativo academia

Olá

Segue abaixo tela de um aplicativo desenvolvido em Delphi, que pode ser executado em smartphones/tablets Android, iOS e Desktops: Windows e Mac.

O intuito aqui é mostrar o poder da ferramenta(Delphi XE8) em criar interfaces(telas) rapidamente, para ilustrar um processo, prototipagem, etc.

Neste exemplo(sua academia tem um aplicativo com uma tela simples e fácil de usar? ) , foi simulado uma tela de treino do dia na academia, bem como um botão de informações que apresenta vários indicadores do aluno. Na tela de treino, vemos a sequência de treinos relacionada ao equipamento, número de repetições, intervalo de descanso e carga.

Quer criar aplicativos para Android e iOS com um único código fonte? Delphi é uma ótima escolha para esta finalidade, sem com isso desmerecer nenhuma outra solução.

Nada como programar numa ferramenta atual, produtiva e com uma fabricante que tem investido pesadamente nos últimos 3 anos.

Este pequeno exemplo foi criado em 90 minutos, com o intuito de mostrar o poder da ferramenta, e claro propagar a ideia: Criar aplicativos(úteis de verdade) em Delphi é super produtivo, fácil e moderno.

Caso queira os fontes do aplicativo, envie email para canaldevbr@outlook.com

TelaTreinoAcademia

Éxemplo de Delphi e Internet das coisas – caso prático

Olá

Vídeo(72min) de aplicação criada em Delphi contendo um exemplo de IoT – Internet das coisas, produzido por Embarcadero – Webinar Delphi e Internet das Coisas – Agosto/2015:

Veja toda infra-estrutura técnica: beacons, servidor de backend, software, app, programação e processo envolvidos. Tudo Delphi(o zumbi mais produtivo da galáxia). Alta produtividade, flexibilidade e atualizado com as tecnologias do momento.

Aplicativo Delphi – Planos de telefonia/internet móvel – [ExemploDelphi]

Olá

Mais um exemplo de um aplicativo escrito em linguagem Delphi, que funciona(único código fonte) em Windows, MAC, iOS e Android.

Neste caso, o aplicativo permite que você configure seu plano(da operadora fictícia FUI) de telefonia/internet móvel e alguns pacotes extras. Conforme sua escolha os valores(da mensalidade) são calculados na hora. Oferece uma lista de pacotes de minutos e internet.

Veja as telas(tudo construido na ferramenta Delphi, sem auxílio de nenhum outro software) do aplicativo:

Tela01AplicativoDelphiTelefoniaTela02AplicativoDelphiTelefonia

Trechos do código fonte(escrito em Delphi)

procedure TFormTela.Somar_Plano_Escolhido;

Var
   nSoma : Real;

   Function Opcao_Valor( Opcao : TCheckBox ) : Real;
    Begin

       case Opcao.IsChecked of
        True  : Result := Opcao.Tag;
        False : Result := 0;
       end;

    End;

    Procedure Calcular_Plano_Escolhido;
     Begin

        nSoma := Converte_Texto_Valor( LabelTelefoniaValor.Text ) +
                Converte_Texto_Valor( LabelInternetValor.Text ) +
                Opcao_Valor( CheckBoxSMS ) +
                Opcao_Valor( CheckBoxFixo ) +
                Opcao_Valor( CheckBoxDDD ) +
                Opcao_Valor( CheckBoxConferencia );

     End;

     Procedure Mostrar_Soma_Do_Plano_Escolhido;
      Begin

         LabelValor.Text := Format( ‘R$%s’, [ FloatToStr( nSoma ) ] );

      End;

begin

   Calcular_Plano_Escolhido;

   Mostrar_Soma_Do_Plano_Escolhido;

end;

O intuito deste post, é mostrar aos iniciantes em Delphi, exemplos diferentes das opções de calculadoras, cadastros, etc e com isso tentar despertar o gosto pela ferramenta. Lembrando que criar telas/formulários em Delphi é super fácil, prático e produtivo.

Caso queira o código fonte completo(escrito em Delphi) ou tenha dúvidas, sugestões, críticas envie e-mail para canaldevbr@outlook.com .

Este blog, sempre publicará exemplos na linguagem Delphi para iniciantes, acadêmicos ou entusiastas de programação, com o objetivo de apresentar as facilidades de programar em Delphi(sem comparações com outras linguagens – todas as linguagens são boas, inclusive o Delphi).

Viva o Delphi!

Programação:Aplicativo que gera mensagens de cobrança [ExemploDelphi]

Olá

Criamos mais um aplicativo bem simples, com o intuito de mostrar o poder da linguagem Delphi.

Imagine uma empresa de cobrança, que precisa enviar torpedos ou email de cobrança para os devedores. Neste nosso exemplo, apenas focamos na parte da geração das mensagens.

A tela do aplicativo é dividida em 3(três) partes:

Parte 1) Digitar os dados: Nome, Sexo, Vencimento da fatura e Valor

Parte 2) Texto modelo contendo as variáveis que serão substituídas pelos dados digitados. Exemplo no campo [NOME] será trocado pelo nome digitado, e assim por diante

Parte 3) Ao clicar no botão “Gerar mensagem formatada” o aplicativo irá substituir os campos(entre colchetes) pelos dados digitados, mostrando o texto formatado.

Veja trecho do código fontes em Delphi:

Código do fonte do botão Gerar

procedure TFormTela.ButtonGerarClick(Sender: TObject);

    //sub procedure que chama a funcao
    Procedure Mostrar_Texto_Formatado;
     Begin

           MemoTextoFormatado.Lines.Clear;

           //chama funcao que pega os dados de cobranca e retorna o texto formatado
           MemoTextoFormatado.Lines.AddStrings( Formata_Mensagem_Texto( EdNome.Text,
                                                                        DateEdVencimento.DateTime,
                                                                        NumberBValor.Value,
                                                                        MemoTextoModelo.Lines.Text,
                                                                        LabelDataAtual.Text,
                                                                        ComboBSexo.Selected.Text
                                                                      )

                                              );

     End;

begin

    //chamando a sub procedure
    Mostrar_Texto_Formatado;

end;

Código fonte da função que formata a mensagem

function TFormTela.Formata_Mensagem_Texto(Nome: String; Vencimento: TDatetime;
  Valor: Real; TextoModelo: String; DataAtual : String; Sexo : String): TStringList;
Var
   TextoTrabalhoTemp : String;
   TextoFormatadoFinal : TStringList;

   //formata data de vencimento
   Function Data_Vencimento( dData : TdateTime ) : String;
    Begin

      Result := FormatDateTime( ‘dd/mm/yyyy’, dData );

    End;

    //variaveis de trabalho
    Procedure Configurar_Variaveis_Iniciais;
     Begin

       TextoFormatadoFinal := TStringList.Create;
       TextoTrabalhoTemp := TextoModelo;

     End;

     //formata o valor da prestacao
     Function Valor_Moeda (  Valor : Real ) : String;
      Begin

          Result := FormatFloat( ‘#,##0.00’, Valor );

      End;

      //substitui os campos pelos dados digitados
    Procedure Substituir_Os_Campos;
     Begin

        if ( Sexo = ‘Masculino’ ) then
         Begin
           TextoTrabalhoTemp := StringReplace( TextoTrabalhoTemp, ‘Prezada senhora’, ‘Prezado senhor’, [] );
         End;

        //troca cada campo pelo correspondente digitado
        TextoTrabalhoTemp := StringReplace( TextoTrabalhoTemp, ‘[NOME]’, UpperCase( Nome ), [] );

        TextoTrabalhoTemp := StringReplace( TextoTrabalhoTemp, ‘[VENCIMENTO]’, Data_Vencimento( Vencimento ) , [] );

        TextoTrabalhoTemp := StringReplace( TextoTrabalhoTemp, ‘[VALOR]’, Valor_Moeda( Valor ), [] );

        TextoTrabalhoTemp := StringReplace( TextoTrabalhoTemp, ‘[DATA]’, DataAtual, [] );

        TextoFormatadoFinal.Add( TextoTrabalhoTemp );

     End;

begin

    Configurar_Variaveis_Iniciais;

    Substituir_Os_Campos;

    //texto formatado
    Result := TextoFormatadoFinal;

end;

Caso queira uma cópia do código fonte completo, envie email para canaldevbr@outlook.com

O objetivo deste post, é ilustrar o uso do Delphi numa situação bem comum numa empresa de cobrança ou departamento financeiro.

Em caso de dúvidas, sugestões ou críticas entre em contato.

Vamos nos divertir com o Delphi!TelaAplicativoMensagemPreenchida