urna_Lazarus

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TfrmPrincipal }

  TfrmPrincipal = class(TForm)
    btn1: TButton;
    btn10: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblBrancos: TLabel;
    lblNulos: TLabel;
    lblHad: TLabel;
    lblBol: TLabel;
    lblCandidato: TLabel;
    lblDigito2: TLabel;
    lblDigito1: TLabel;
    lblConfirma: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    pnl2: TPanel;
    pnl: TPanel;
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
  private

  public

  end;

var
  frmPrincipal: TfrmPrincipal;
  digito1 : integer;
  votouNulo : integer;
  votouBranco : integer;
  branco : integer;
  nulo : integer;
  bolsonaro : integer;
  haddad : integer;

implementation

{$R *.lfm}

{ TfrmPrincipal }


procedure TfrmPrincipal.Image1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Panel1Click(Sender: TObject);
begin
        digito1 := 0;
      lblDigito1.Caption := '0';
      lblDigito2.Caption := '0';

      lblCandidato.caption := '';
      lblConfirma.caption := '';
      votouNulo := 0;
      votouBranco := 0;

end;

procedure TfrmPrincipal.Panel2Click(Sender: TObject);
begin
    lblDigito1.Caption := '0';
  lblDigito2.Caption := '0';

  lblCandidato.caption := 'em Branco';
  lblConfirma.caption := 'Confirma?';

  votouBranco:=1;

end;

procedure TfrmPrincipal.Panel3Click(Sender: TObject);
begin
    if (votouBranco=1) then
    branco+=1

    else if ((lblDigito1.Caption='0')and(lblDigito2.Caption='0')or(votouNulo=1)) then
    nulo+=1

    else if ((lblDigito1.Caption='1')and(lblDigito2.Caption='7')) then
    bolsonaro+=1

    else if ((lblDigito1.Caption='1')and(lblDigito2.Caption='3')) then
    haddad+=1;

{   _beep(500,2000);}

    digito1 := 0;

        lblDigito1.Caption := '0';
        lblDigito2.Caption := '0';

        lblCandidato.caption := '';
        lblConfirma.caption := '';
        votouNulo := 0;
        votouBranco := 0;

        lblBol.Caption := inttostr(bolsonaro);
        lblHad.Caption := inttostr(haddad);
        lblNulos.Caption:= inttostr(nulo);
        lblBrancos.Caption:= inttostr(branco);

        sound(1000); // Quanto maior, mais agudo
        delay(2000);
        nosound;
end;

procedure TfrmPrincipal.btn1Click(Sender: TObject);
begin
   if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '1';
   end
   else
   begin
      lblDigito2.Caption := '1';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
     { if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;
end;

procedure TfrmPrincipal.btn10Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '0';
   end
   else
   begin
      lblDigito2.Caption := '0';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
      {if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn11Click(Sender: TObject);
begin
  lblDigito1.Caption := '0';
  lblDigito2.Caption := '0';

  lblCandidato.caption := 'em Branco';
  lblConfirma.caption := 'Confirma?';

  votouBranco:=1;
end;

procedure TfrmPrincipal.btn12Click(Sender: TObject);
begin
      digito1 := 0;
      lblDigito1.Caption := '0';
      lblDigito2.Caption := '0';

      lblCandidato.caption := '';
      lblConfirma.caption := '';
      votouNulo := 0;
      votouBranco := 0;
end;

procedure TfrmPrincipal.btn13Click(Sender: TObject);
begin
    if (votouBranco=1) then
    branco+=1

    else if ((lblDigito1.Caption='0')and(lblDigito2.Caption='0')or(votouNulo=1)) then
    nulo+=1

    else if ((lblDigito1.Caption='1')and(lblDigito2.Caption='7')) then
    bolsonaro+=1

    else if ((lblDigito1.Caption='1')and(lblDigito2.Caption='3')) then
    haddad+=1;

{   _beep(500,2000);}

    digito1 := 0;

        lblDigito1.Caption := '0';
        lblDigito2.Caption := '0';

        lblCandidato.caption := '';
        lblConfirma.caption := '';
        votouNulo := 0;
        votouBranco := 0;
end;

procedure TfrmPrincipal.btn2Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '2';
   end
   else
   begin
      lblDigito2.Caption := '2';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
     { if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn3Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '3';
   end
   else
   begin
      lblDigito2.Caption := '3';

      if (lblDigito1.Caption = '1') then
      begin
      lblCandidato.caption := 'Haddad';
    lblConfirma.caption := 'Confirma?';
      end;
   end;
end;

procedure TfrmPrincipal.btn4Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '4';
   end
   else
   begin
      lblDigito2.Caption := '4';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
      {if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn5Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '5';
   end
   else
   begin
      lblDigito2.Caption := '5';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
     { if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn6Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '6';
   end
   else
   begin
      lblDigito2.Caption := '6';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
     { if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn7Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '7';
   end
   else
   begin
      lblDigito2.Caption := '7';

      if (lblDigito1.Caption = '1') then
      begin
      lblCandidato.caption := 'Bolsonaro';
    lblConfirma.caption := 'Confirma?';
      end;
   end;
end;

procedure TfrmPrincipal.btn8Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '8';
   end
   else
   begin
      lblDigito2.Caption := '8';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
    {  if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;

procedure TfrmPrincipal.btn9Click(Sender: TObject);
begin
     if (digito1=0) then
   begin
      digito1 := 1;
      lblDigito1.Caption := '9';
   end
   else
   begin
      lblDigito2.Caption := '9';
      {se o primeiro digito for diferente de 1 já é invalido, pois só exitem 2 opções: 13 ou 17}
     { if (lblDigito1.Caption <> '1') then}
      begin
    lblCandidato.caption := 'invalido';
    lblConfirma.caption := 'Confirma?';
        votouNulo := 1;
      end
   end;

end;


procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
  digito1 := 0;
  nulo := 0;
  branco := 0;
  bolsonaro := 0;
  haddad :=0;

  lblCandidato.caption := '';
  lblConfirma.caption := '';

end;

end.