Programando!!!?: delphi

Mostrando postagens com marcador delphi. Mostrar todas as postagens

segunda-feira, 6 de maio de 2013

Desenvolvendo aplicativo que Fala em Delphi!

Bem, depois de algum tempo sem postar nada, vamos fazer um aplicativo simples onde digitamos um texto e ao clicar no botão a aplicação falará.

Monte o form como na imagem abaixo:

Entre no botão(fala) e suba até a seção uses e declare Comobj.

No botão coloque o seguinte código em negrito:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var voz: OLEVariant;
begin
voz:=CreateOLEObject('SAPI.SpVoice');
voz.Speak(Edit1.Text, 0);
end;

Agora é só executar e ao digitar o texto e clicar no botão com a ajuda do seu sistema operacional o texto será falado.

OBS.: se sei sistema estiver com o pacote de idiomas em inglês o texto será dito nesse idioma.

segunda-feira, 15 de abril de 2013

Estrutura Case no Delphi!:)

Vamos conhecer a estrutura case no Delphi.

Monte o form como na imagem abaixo:

Vamos aos códigos do botão ok:

var
temperatura: integer;
begin
temperatura:=strtoint(edit1.text);
case temperatura of
25..50:
begin
Showmessage('Praia não esquecer o bronzeador!');
end;
15..24:
begin
Showmessage('Dormir até tarde!');
end;
1..14:
begin
Showmessage('Passar na locadora!');
end;
else
showmessage('Temperatura inválida');
edit1.SetFocus;
end;
end;

A estrutura case é uma alternativa a estrutura if e sua vantagem é verificar nesse caso "intervalos" da condição.

domingo, 17 de março de 2013

Criando um formulário padrão simples!

terça-feira, 12 de março de 2013

Criando semáforo no Delphi!

Vamos criar um semáforo no delphi com os objetos:

shape(3)

timer

Monte o form como na imagem abaixo:

No timer coloque a propriedade interval=1000 e deixe enabled =true.

Mude as cores do shape de acordo com o semáforo.

Vamos ao código dentro do timer:

if shape1.visible = true then

begin

shape1.Visible :=false;

shape2.Visible :=true;

shape3.Visible :=false;

end

else if shape2.visible = true then

begin

shape1.Visible :=false;

shape2.Visible :=false;

shape3.Visible :=true;

end

else if shape3.visible = true then

begin

shape1.Visible :=true;

shape2.Visible :=false;

shape3.Visible :=false;

end;

Feito isso é só executar.

sexta-feira, 8 de março de 2013

Estrutura While para decrementar no Delphi!

Monte o form como na imagem abaixo:

Vamos ao código no botão ok:

var i:integer;
begin
i:=10;
while i >= 1 do
begin
listbox1.Items.Add(inttostr(i)) ;
i:=i-1;
end;
end;

quinta-feira, 28 de fevereiro de 2013

Abrir CD/DVD via comando!

Vamos criar a aplicação onde abrimos e fechamos o drive de CD/DVD.

Monte o form como na imagem abaixo:

Vamos aos códigos botão abrir:

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Botão Fechar:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Não esqueça de colocar a biblioteca MMSystem no uses como abaixo:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MMSystem, StdCtrls;

Salve e execute.

sexta-feira, 22 de fevereiro de 2013

Passar com enter nas caixas de texto no Delphi!

Para passar com enter nas caixas de texto(edit), comece mudando a propriedade:

KeyPreview do form Cadastro Agenda para True.

No evento OnKeyPress do form coloque o código no procedimento:

//verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi como #13

If key = #13 then

Begin

//se for, passa o foco para o próximo campo, zerando o valor da variável Key

Key:= #0;

Perform(Wm_NextDlgCtl,0,0);

end;

É só testar.

Trabalhando com o objeto Gauge no Delphi!

Vamos a um exemplo simples no delphi com o objeto gauge e timer.

Entre no delphi peça nova aplicação.
Monte o form como na imagem abaixo:

Colocamos no form os objetos:
Gauge e timer.

No Gauge mudamos a propriedade kind = qkpie e escolha uma cor que você goste se quiser.
No exemplo mudamos também a propriedade interval = 100.
Vamos a codificação que será colocada dentro do timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
gauge1.Progress := gauge1.Progress +1;
if gauge1.Progress = gauge1.MaxValue then
begin
timer1.Enabled := false;
messagedlg('Fim da análise',mtinformation,[mbok],0);
end;
end;

Pronto salve tudo e execute a aplicação.