Code

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    lFuncionarios3: TLabel;
    lFuncionarios: TLabel;
    lFuncionarios1: TLabel;
    lFuncionarios2: TLabel;
    SpeedButton1: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lFuncionariosClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure AtualizaTodos(Sender: TObject);
     procedure BotaoEsquerda(Sender: TObject);
     procedure BotaoDireita(Sender: TObject);
  private
    { private declarations }

  public
    { public declarations }
     ifuncionarioFeliz:longint;
    iFuncionariosNormais:longint;
    ifuncionarioTriste:longint;
    ifuncionarioImprodutivos:longint;
    iNumeroDeProdutos:Longint;
    iNumeroDeMaquians:LongInt;
    iInvestimentosPublicidade:Double;
    iProducaoPorFuncionarioNormal:Double;
    capital:Double;
    aceitacaodemercado:longint;
    flag:longint;
    iConexoes:longint;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
    if(flag=0)then
    begin
           //RH
          if(checkbox1.Checked=true)then
          begin
               iProducaoPorFuncionarioNormal:=iProducaoPorFuncionarioNormal*6;
          end;
           if(checkbox2.Checked=true)then
          begin
               iProducaoPorFuncionarioNormal:=iProducaoPorFuncionarioNormal*2;
          end;
           if(checkbox3.Checked=true)then
          begin
               iFuncionariosNormais:=iFuncionariosNormais+(iFuncionarioFeliz+iFuncionariosNormais+ifuncionarioTriste+ifuncionarioImprodutivos);

          end;
           if(checkbox4.Checked=true)then
          begin
                iFuncionariosNormais:=iFuncionariosNormais+1;
          end;
           if(checkbox5.Checked=true)then
          begin

          end;
           if(checkbox6.Checked=true)then
          begin

          end;
           if(checkbox7.Checked=true)then
          begin

          end;
           if(checkbox8.Checked=true)then
          begin

          end;
            if(checkbox9.Checked=true)then
          begin

          end;


    end;
    if(flag=0)then
    begin
       //Vendas
              if(checkbox1.Checked=true)then
          begin

          end;
           if(checkbox2.Checked=true)then
          begin

          end;
           if(checkbox3.Checked=true)then
          begin

          end;
           if(checkbox4.Checked=true)then
          begin

          end;
           if(checkbox5.Checked=true)then
          begin

          end;
           if(checkbox6.Checked=true)then
          begin

          end;
           if(checkbox7.Checked=true)then
          begin

          end;
           if(checkbox8.Checked=true)then
          begin

          end;
            if(checkbox9.Checked=true)then
          begin

          end;
    end;

    AtualizaTodos(Sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

procedure TForm1.AtualizaTodos(Sender: TObject);
var a:longint;
begin
    a:=iFuncionarioFeliz+iFuncionariosNormais+ifuncionarioTriste+ifuncionarioImprodutivos;
    lFuncionarios.Caption:='Numero de funcionarios: '+ inttostr(a);
    lFuncionarios1.Caption:='Numero de produtos: '+ inttostr(iNumeroDeProdutos);
    lFuncionarios2.Caption:='Numero de maquinas: '+inttostr(iNumeroDeMaquians);
    lFuncionarios3.Caption:='Investimento em publicidade: '+floattostr(iInvestimentosPublicidade);
    capital:=capital-(a*70);
    edit1.text:=floattostr(capital);
end;

procedure TForm1.BotaoEsquerda(Sender: TObject);
begin
  //Grupo 1
    GroupBox1.Caption:='RH';
    checkbox1.caption:='Mais café';
    checkbox2.caption:='Melhorar ambiente';
    checkbox3.caption:='Contratar Dobro';
    checkbox4.caption:='Contratar Um';
    checkbox5.caption:='Treinar todos';
    checkbox6.caption:='Demitir Metade';
    checkbox7.caption:='Demitir Um';
    checkbox8.caption:='Menos café';
    checkbox9.caption:='Vender ambiente';
//Grupo 2
GroupBox2.Caption:='Produçao';
checkbox10.caption:='Aumentar qualidade';
checkbox11.caption:='Aumentar quantidade';
checkbox12.caption:='Criar produto';
checkbox13.caption:='Comprar maquina';
checkbox14.caption:='Alterar processo';
checkbox15.caption:='Vender maquina';
checkbox16.caption:='Desistir produto';
checkbox17.caption:='Diminuir custo';
checkbox18.caption:='Pesquisar melhoria';
//Grupo 3
GroupBox3.Caption:='Marketing';
checkbox19.caption:='Investir mais 10 mil';
checkbox20.caption:='Propaganda cinema';
checkbox21.caption:='Propaganda TV';
checkbox22.caption:='Melhorar embalagem';
checkbox23.caption:='Diminuir embalagem';
checkbox24.caption:='Cortar gastos(1/2)';
checkbox25.caption:='Panfletos';
checkbox26.caption:='Buscar parceria';
checkbox27.caption:='Buscar nicho';
end;

procedure TForm1.BotaoDireita(Sender: TObject);
begin
          //Grupo 4
    GroupBox1.Caption:='Vendas';
    checkbox1.caption:='Criar nova loja';
    checkbox2.caption:='Explorar mercado';
    checkbox3.caption:='Exportar';
    checkbox4.caption:='Fechar loja';
    checkbox5.caption:='Demitir vendedores';
    checkbox6.caption:='Converter funcionario';
    checkbox7.caption:='Treinar vendedores';
    checkbox8.caption:='Loja virtual';
    checkbox9.caption:='Revender produtos';
//Grupo 5
GroupBox2.Caption:='Gestão estrategica';
checkbox10.caption:='Mudar processo';
checkbox11.caption:='Nova ferramenta';
checkbox12.caption:='Mudar politica';
checkbox13.caption:='-gastos RH';
checkbox14.caption:='-gastos Prod';
checkbox15.caption:='-gastos marketing';
checkbox16.caption:='-gastos vendas';
checkbox17.caption:='Arriscar dinheiro';
checkbox18.caption:='Forçar novo produto';
//Grupo 6
GroupBox3.Caption:='Finanças';
checkbox19.caption:='Aumentar gastos';
checkbox20.caption:='Diminuir gastos';
checkbox21.caption:='Fechar loja';
checkbox22.caption:='Desistir produto';
checkbox23.caption:='Vender maquina';
checkbox24.caption:='Sem propaganda';
checkbox25.caption:='Troca forncedor';
checkbox26.caption:='Sem treinamento';
checkbox27.caption:='Sem café';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    iFuncionarioFeliz:=0;
    iFuncionariosNormais:=5;
    ifuncionarioTriste:=0;
    ifuncionarioImprodutivos:=0;
    iNumeroDeProdutos:=0;
    iNumeroDeMaquians:=0;
    iInvestimentosPublicidade:=40000;
    iProducaoPorFuncionarioNormal:=0;
    iConexoes:=0;
    capital:=230000.01;
    aceitacaodemercado:=20;
    flag:=0;
    AtualizaTodos(Sender);
    BotaoEsquerda(Sender);
end;

procedure TForm1.lFuncionariosClick(Sender: TObject);
begin

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if(flag=0)then
begin
botaoDireita(sender);
flag:=1;
end
else if(flag=1)then
begin
botaoEsquerda(sender);
flag:=0;
end;

end;



end.