Delphi ::: Dicas & Truques ::: Strings e Caracteres |
Como retornar o caractere a partir de um determinado código ASCII em Delphi usando a função Chr()Quantidade de visualizações: 22265 vezes |
Em algumas situações precisamos obter um caractere a partir de sua representação ASCII. Em Delphi isso pode ser feito por meio da função Chr(). Esta função recebe um número inteiro e devolve o caractere correspondente. Veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
codigo: integer;
letra: char;
begin
codigo := 65; // código ASCII
// vamos obter o caractere
letra := Chr(codigo);
// vamos exibir o resultado
ShowMessage('O caractere para o código informado é: '
+ letra);
end;
É importante notar que esta função pode ser usada para imprimir caracteres de controle, tais como tab, enter, entre outros. Assim, Chr(9) retorna o caractere de tab. Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009. |
Excel ::: Fórmulas do Excel ::: Trigonometria - Funções Trigonométricas |
Como converter graus em radianos no Excel usando a função RADIANOS() - Trigonometria no ExcelQuantidade de visualizações: 726 vezes |
|
Quando estamos trabalhando com trigonometria no Excel, é importante ficarmos atentos ao fato de que todas as funções trigonométricas do Excel, tais como COS(), SEN(), TAN(), etc, recebem seus argumentos em radianos, em vez de graus. Por isso, antes de chamar estas funções, é importante converter o valor em graus para radianos. No Excel isso pode ser feito por meio da função RADIANOS(). Esta função recebe o valor em graus e retorno o valor em radianos. Vamos ver um exemplo. Abra uma nova planilha do Excel e cole o código a seguir na célula B1: =RADIANOS(A1) Note que o argumento para a função RADIANOS() é o valor da célula A1. Assim, digite 45 na célula A1 e pressione Enter ou Tab. O valor 0,785398163 será exibido automaticamente na célula B1. |
Delphi ::: VCL - Visual Component Library ::: TEdit |
Como obter a quantidade de caracteres em um TEdit do Delphi usando a função GetTextLen()Quantidade de visualizações: 13086 vezes |
|
Em algumas ocasiões nós precisamos descobrir a quantidade de caracteres contidos em uma caixa de texto do tipo TEdit. Para isso podemos usar o método GetTextLen(), definido originalmente na classe TControl. Esta função retorna um valor inteiro contendo o tamanho do texto da caixa de texto. Veja um exemplo do uso do método GetTextLen() no trecho de código a seguir:
procedure TForm1.Button1Click(Sender: TObject);
var
tamanho: Integer;
begin
// vamos obter a quantidade de caracteres no TEdit
tamanho := Edit1.GetTextLen();
// vamos mostrar o resultado
ShowMessage('O Edit contém ' + IntToStr(tamanho) + ' caracteres.');
end;
Ao executar este exemplo você terá um resultado parecido com: O Edit contém 5 caracteres. |
VBA ::: Dicas & Truques ::: Laços de Repetição |
Como usar o laço de repetição For Next em nossas aplicações VBAQuantidade de visualizações: 998 vezes |
|
O laço For da linguagem VBA é uma estrutura de controle de repetição que nos permite, de forma eficiente, repetir uma instrução ou grupo de instruções um determinado número de vezes. Veja, por exemplo, como escrever um laço For Next que mostra os números de 0 até 10:
Sub ExemploLacoFor()
' exemplo de laço For Next que conta de 0 até 10
For i = 0 To 10
MsgBox "O valor de i é: " & i
Next
End Sub
Ao executar este código VBA nós teremos o seguinte resultado: O valor de i é: 0 O valor de i é: 1 O valor de i é: 2 O valor de i é: 3 O valor de i é: 4 O valor de i é: 5 O valor de i é: 6 O valor de i é: 7 O valor de i é: 8 O valor de i é: 9 O valor de i é: 10 É possível usar a palavra-chave Step para definirmos o incremento da variável de controle do laço. Veja:
Sub ExemploLacoFor()
' exemplo de laço For Next que mostra os números
' pares de 0 até 10
For i = 0 To 10 Step 2
MsgBox "O valor de i é: " & i
Next
End Sub
Ao executarmos o código novamente, o resultado será: O valor de i é: 0 O valor de i é: 2 O valor de i é: 4 O valor de i é: 6 O valor de i é: 8 O valor de i é: 10 Finalmente, se quisermos um laço For Next que conta de trás para a frente, ou seja, diminui a variável de controle, basta fornecermos um valor negativo para a palavra-chave Step. Veja:
Sub ExemploLacoFor()
' exemplo de laço For Next que mostra os números
' pares de 10 até 0
For i = 10 To 0 Step -2
MsgBox "O valor de i é: " & i
Next
End Sub
|
Nossas 20 dicas & truques de programação mais populares |
|
QGIS - Como retornar o título do projeto do QGIS usando PyQGIS e a função title() da classe QgsProject |
Você também poderá gostar das dicas e truques de programação abaixo |
|
C - Como escrever uma função concat() que reproduz a funcionalidade da função strcat() da linguagem C VB.NET - Como adicionar horas à data e hora atual em VB.NET usando a função AddHours() da classe DateTime Java Servlets - Como compartilhar dados entre um Java Servlet e uma página JSP usando a requisição HttpServletRequest |
Nossas 20 dicas & truques de programação mais recentes |
Últimos Projetos e Códigos Fonte Liberados Para Apoiadores do Site |
|
Python - Como criar o jogo Pedra, Papel, Tesoura em Python - Jogo completo em Python com código comentado |
Últimos Exercícios Resolvidos |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |





