Ir ao conteúdo
  • Cadastre-se
Charles Diogo123

Delphi Criar um programa de Signos

Posts recomendados

Olá, tenho um exercício para fazer que tem que fazer um programa de signos:

é assim:

Faça um programa de signo, onde o usuario escolhe o nome do signo

e depois clica em um botao para mostrar e aparece em outra caixa falando sobre o signo dele.

Nome dos Signos:Aires,Touro, Gemeos, Cancer, Libra, Escorpiao,

Sargitario, Capricornio, Aquario, Peixes, virgem, Leao.

 

Gostaria de uma ajuda pra começar a escrever o código do programa, se alguem puder me ajudar eu agradeço...

Montei uma parte do programa, gostaria de me ajudar com o codigo do programa...

Sem título.jpg

  • Amei 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Charles Diogo123     poste o código , assim poderemos ver como está e em podemos ajudar    .

Compartilhar este post


Link para o post
Compartilhar em outros sites

@devair1010

3 horas atrás, devair1010 disse:

@Charles Diogo123     poste o código , assim poderemos ver como está e em podemos ajudar    .

Var
  Aries, Touro, Gemeos, Cancer, Libra, Escorpiao,
  Sargitario, Capricornio, Aquario, Peixes, virgem, Leao, Resultado1: Integer;
  Formato: string;

begin

   If (Aries.Checked) then
     Resultado1:=Áries são as pessoas que nascem entre 21 de março e 19 de abril;
   If (Touro.Checked) then
     Resultado1:=Touro são as pessoas que nascem entre 20 de abril a 20 de maio;
   If (Gemeos.Checked) then
     Resultado1:= Gemeos são as pessoas que nascem entre 21 de abril a 21 de junho;
   If (Cancer.Checked) then
     Resultado1:=Cancer são as pessoas que nascem entre 22 de junho a 20 de julho;
   If (Leao.Checked) then
     Resultado1:=Leao são as pessoas que nascem entre 23 de julho a 22 de agosto;
   If (Virgem.Checked) then
     Resultado1:=Virgem são as pessoas que nascem entre 23 de agosto a 23 de setembro;
   If (Libra.Checked) then
     Resultado1:=Libra são as pessoas que nascem entre 23 de setembro a 20 de outubro;
   If (Escorpiao.Checked) then
     Resultado1:=Escorpiao são as pessoas que nascem entre 23 de outubro a 21 de novembro;
   If (Sargitario.Checked) then
     Resultado1:=Sargitario são as pessoas que nascem entre 22 de novembro a 21 de dezembro;
   If (Capricornio.Checked) then
     Resultado1:=Capricornio são as pessoas que nascem entre 22 de dezembro a 19 de janeiro;
   If (Aquario.Checked) then
     Resultado1:=Aquario são as pessoas que nascem entre 20 de janeiro a 18 de fevereiro;
   If (Peixes.Checked) then
     Resultado1:=Peixes são as pessoas que nascem entre 19 de fevereiro a 20 de março;

O que eu fiz até agora, me diz o que está certo ou se falta ou se esqueci de colocar alguma coisa...

  • Curtir 1
  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Charles Diogo123

@Charles Diogo123      creio que seja melhor se você usar botões com o nome de cada signo ,  e então clicando no botão ele mostra o que se refere à aquele signo ,  então você pode copiar esse código abaixo e cola-lo no editor e salve-o com o nome signatarios , como está no código ou outro nome que você quiser , mas nesse caso precisa mudar o nome da unit lá no editor também , e depois crie os 12 botões no form na sequencia começando de button1 até button12  e em seguida clique duas vezes em cada botão para que ele seja ativado , e assim cada botão terá um texto para imprimir na tela   :

 

unit signatarios_8;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button13: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.text :='Áries são as pessoas que nascem entre 21 de março e 19 de abril';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  Close();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.text :='Aquario são as pessoas que nascem entre 20 de janeiro a 18 de fevereiro';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.text :='Peixes são as pessoas que nascem entre 19 de fever?eiro a 20 de março';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit1.text :='Touro são as pessoas que nascem entre 20 de abril a 20 de maio';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Edit1.text :='Gemeos são as pessoas que nascem entre 21 de abril a 21 de junho';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.text :='Cancer são as pessoas que nascem entre 22 de junho a 20 de julho';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  Edit1.text :='Leao são as pessoas que nascem entre 23 de julho a 22 de agosto';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  Edit1.text :='Virgem são as pessoas que nascem entre 23 de agosto a 23 de setembro';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  Edit1.text :='Libra são as pessoas que nascem entre 23 de setembro a 20 de outubro';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  Edit1.text :='Escorpiao são as pessoas que nascem entre 23 de outubro a 21 de novembro';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  Edit1.text :='Sargitario são as pessoas que nascem entre 22 de novembro a 21 de dezembro';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  Edit1.text :='Capricornio são as pessoas que nascem entre 22 de dezembro a 19 de janeiro';
end;

end.

222328399_signusnodelphi2.thumb.JPG.1225ec8a6d88a96dc984137bfb65a8a8.JPG

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
23 minutos atrás, devair1010 disse:

creio que seja melhor se você usar botões com o nome de cada signo

 

@devair1010, nesse caso acho que estaria fugindo um pouco dos "requisitos do enunciado".

 

4 horas atrás, Charles Diogo123 disse:

Faça um programa de signo, onde o usuario escolhe o nome do signo

e depois clica em um botao para mostrar e aparece em outra caixa falando sobre o signo dele.

Nome dos Signos:Aires,Touro, Gemeos, Cancer, Libra, Escorpiao,

Sargitario, Capricornio, Aquario, Peixes, virgem, Leao. 

 

Nesse sentido, a "tela" @Charles Diogo123 não estaria mais próxima do que está se pedindo?

 

Outra forma seria utilizando um ComboBox, por exemplo.

 

Com botões, talvez seria se após clicar no botão do signo desejado, fazer "aparecer o texto do signo" e teria outro botão para "falar sobre o signo". Resumidamente: o "algo" que escolhe o signo não deveria, também, ser o "algo" que faz mostrar o resultado. Vejo como duas ações distintas.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!