Posts Similares
-
-
Criando atalhos no menu Iniciar usando DDE
Compartilhe :Criando atalhos no menu Iniciar usando DDE Uma maneira simples de criar atalhos no menu iniciar é utilizando comandos DDE usados anteriormente no Windows 3.1, que também vale para Win95. Os comandos são: AddItem, CreateGroup, DeleteGroup, DeleteItem, ShowGroup, ReplaceItem, Reload. Por exemplo, para se criar uma pasta no menu iniciar, e um atalho dentro…
-
Validando CGC e CPF
Compartilhe :Validando CGC e CPF no Visual Basic Os números de CGC e CPF possuem dígitos verificadores para que ?!?!?!… Horas para serem verificados!!! Isto é obvio. A validação deve ser feita (por qualquer sistema decente) para impedir a digitação por engano e os CGCs e CPFs falsos. Function Fu_consistir_CgcCpf (Vl_CgcCpf As String) ‘ Esta…
-
Compreendendo a Sintaxe e Estrutura do CSS
Compartilhe :Compreendendo a Sintaxe e Estrutura do CSS Neste artigo, vamos detalhar a sintaxe e estrutura básica de uma regra CSS, incluindo seletor, propriedade e valor. Explicaremos a importância das chaves {} e dos dois-pontos : para que você possa criar estilos de forma eficaz. Introdução CSS (Cascading Style Sheets) é a linguagem que define…
-
Efeitos sonoros
Compartilhe :Efeitos sonoros Além de usar os fundos musicais (MID),é possível utilizar efeitos sonoros (WAV) sem que seja necessário interromper a música de fundo, porém enquanto este efeito sonoro toca, os comandos do jogo “travam” até que ele acabe. O código abaixo, se refere à este exemplo: você quer que quando o jogo seja…
-
Remove acentos de uma string
Compartilhe :Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;
