10 horas atrás, Marcos Vinícius disse:

Seria como criar uma biblioteca?

Não, não deverá ser nenhum código.
É mesmo nas opções do compilador, deverá haver algum local específico para isso!

procedure BtnCalculaClick(Sender: TObject);
    procedure BtnLimpaClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);

    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure IdleTimer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
   procedure AppIdle(Sender: TObject; var Done: Boolean);
   procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.BtnCalculaClick(Sender: TObject);
 var
  iQteCx : integer;
  nTotal, nDep,nTotalNotas,nDH, n100, n50, n20, n10, n5, n2, n1, n50cents, n25cents, n10cents, n5cents, nQteCxs : real;

begin
   try
        n100:= StrToFloat(EditNota100.text);
        except n100:= 0;
     end;
   try
        n50:= StrToFloat(EditNota50.text);
        except n50:= 0;
     end;
   try
        n20:= StrToFloat(EditNota20.text);
        except n20:= 0;
     end;
   try
        n10:= StrToFloat(EditNota10.text);
        except n10:= 0;
     end;
   try
        n5:= StrToFloat(EditNota5.text);
        except n5:= 0;
     end;
   try
        n2:= StrToFloat(EditNota2.text);
        except n2:= 0;
     end;
    try
        n1:= StrToFloat(EditMoeda1.text);
        except n1:= 0;
     end;
    try
        n50cents:= StrToFloat(EditMoeda50.text);
        except n50cents:= 0;
     end;
    try
        n25cents:= StrToFloat(EditMoeda25.text);
        except n25cents:= 0;
     end;
    try
        n10cents:= StrToFloat(EditMoeda10.text);
        except n10cents:= 0;
     end;
    try
        n5cents:= StrToFloat(EditMoeda5.text);
        except n5cents:= 0;
     end;
     try
        nQteCxs:= StrToFloat(EditQteCxs.text);
        except nQteCxs:= 0;
     end;
     try
        nDH:= StrToFloat(EditDH.text);
        except nDH:= 0;
     end;

   nTotal:= (100* n100+ 50* n50 + 20* n20+ 10* n10+ 5* n5+ 2* n2+ n1+ 0.5*n50cents+ 0.25*n25cents+ 0.1*n10cents+ 0.05* n5cents - (nQteCxs* 108.75))+nDH;
   nDep:=(100* n100+ 50* n50 + 20* n20+ 10* n10+ 5* n5+ 2* n2);
   nTotalNotas:= n100+ n50 + n20 + n10 + n5 + n2;
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( 'Doce Prazer ');
   Memo1.Lines.Add( '===========');
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( 'Valor do Caixa - Turno ');
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add(' Valor = R$ '+ FloatToStr(nTotal));
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( '===========');
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( 'Quantidade de Notas');
   Memo1.Lines.Add( FloatToStr(nTotalNotas));
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( ' Cruzeiro HEXACAMPEÃO da Copa do Brasil 2018 ');
   Memo1.Lines.Add( '        ');
   Memo1.Lines.Add( ' Nunca duvide do poder da fé!');
   EditNota100.SetFocus;
end;

procedure TForm1.BtnLimpaClick(Sender: TObject);
begin
   Memo1.Clear;
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add(' -------------------------  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add('  O Doce Prazer da sua vida! ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add(' Deus é fiel!  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add(' Nunca duvide do poder da fé!  ');
   Memo1.Lines.Add('  ');
   Memo1.Lines.Add(' -------------------------  ');
  EditNota100.text:= '   ' ;
  EditNota50.text:= '    ';
  EditNota20.text:= '    ';
  EditNota10.text:= '    ';
  EditNota5.text:= '    ';
  EditNota2.text:= '    ';
  EditMoeda1.text:= '    ';
  EditMoeda50.text:= '   ';
  EditMoeda25.text:= '   ';
  EditMoeda10.text:= '   ';
  EditMoeda5.text:= '   ';
  EditQteCxs.text:= '  ';
  EditDH.text:= '  ';
  EditNota100.SetFocus;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);

  procedure AppIdle(Sender: TObject; var Done: Boolean);
    procedure AppMessage(var Msg: Msg; var Handled: Boolean);

begin
  Application.OnMessage := AppMessage;
  Application.OnIdle := AppIdle;

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if key=#13 then begin
                          SelectNext(ActiveControl as TWinControl,True,True);
                          key:=#0;
                    end;

end;

procedure TForm1.IdleTimer1Timer(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
    IdleTimer1.Enabled:= True;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  Case Msg.message of
  WM_LBUTTONDOWN, WM_RBUTTONDOWN, WM_KEYDOWN :
    IdleTimer1.Enabled:= False;
  end;
end;

end.
                            

Olá Fred,

O que procuras são, como o HappyHippyHippo disse, ciclos.

Em C++, para o efeito que queres é mais comum usar-se while(condição){} e do{}while(condição).

No caso do primeiro tens de pedir a opção desejada ao utilizador, visto que antes de entrar no ciclo faz logo o teste à condição. No caso do segundo, não precisas de modificar o teu programa, basta meter o teu código dentro do do{}while, visto que o teste é no fim.

Espero ter ajudado,

Almirante

4 hours ago, jacPereira said:

Mas o cartão de fidelização é o meio de pagamento. Nao tem a ver com o valor do documento mas com a forma de liquidação… ou será que estou a ver mal o filme?

O cartão de fidelização acumula pontos e depois podes descontar esses mesmo pontos numa futura compra. A palavra chave é descontar. No caso em questão seria descontar o valor total da factura, mas eu permito que efectues o pagamento por diversos meios na mesma compra. Se tiveres uma factura de 20€, podes pagar:

• 1,00€ vale de desconto
• 4,00€ valor acumulado em cartão
• 10,00€ dinheiro
• 5,00€ multibanco

Os dois primeiros apesar de serem formas de pagamento, entram como descontos no documento para que o cliente perceba no talão que foi realmente descontado X valor ao total.

qual o teu conhecimento de ciclos de execução ?

26 minutes ago, Diogo Eira said:

isso não são erros e sim "avisos", que avisa quando uma variável não foi recebida através do POST.

Mude:

$sexo=$_POST['sexo']; 
$data_de_nascimento=$_POST['data de nascimento'];

Para:

$sexo=@$_POST['sexo'];
$data_de_nascimento=@$_POST['data_de_nascimento'];

Antes de cada variável POST adicionei um @ para ignorar as "Notice" referentes à mesma.

Repare também não pode utilizar variáveis PHP com espaços:

$sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
VALUES('$email', '$nome', '$senha', '$sexo', '$data de nascimento', '$materia')");

Para:

$sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia')");

 

ainda tenho que ver se o phpmd ou o phpcs apanha esse tipo de brincadeiras ...

esconder erros/warnings/avisos é uma condição imediata para eu invalidar um PullRequest.

o caso indicado deverá ser processado devidamente através do null-coalescing operator:

$dados = $_POST['field'] ?: 'dados caso não estiver definido';

Sugeria também modificar a ligação à BD para PDO:

  $user = "root";
  $pass = "";
  $connect = new PDO('mysql:host=127.0.0.1;dbname=cadastro', $user, $pass);

  $email=$_POST['email'];
  $nome=$_POST['nome'];
  $senha=$_POST['senha'];
  $sexo=$_POST['sexo'];
  $data_de_nascimento=$_POST['data_de_nascimento'];
  $materia=$_POST['materia'];

  try {
      $connect->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
      $sql = "INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia');";
      $connect->exec($sql);
  }
  catch(PDOException $e)
  {
      $errosql = 1;
      echo $sql . "<br>" . $e->getMessage();
  }

  if($errosql == 1){
  	echo"<center><h1>Erro ao efetuar o seu cadastro!</h1></center>";
  }else{
  	echo"<center><h1>Cadastro efetuado com sucesso!</h1></center>";
  }

Esse "código" é precisamente o quê?

Um número sequencial, aleatório, uma string com dados específicos?

53 minutos atrás, bioshock disse:

Viva,

Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

Mas o cartão de fidelização é o meio de pagamento. Nao tem a ver com o valor do documento mas com a forma de liquidação… ou será que estou a ver mal o filme?

1 hora atrás, Erica disse:

Agora está dando erro nas linhas

Notice: Undefined index: sexo in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 18

Notice: Undefined index: data de nascimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 19

Notice: Undefined variable: data_nacimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 23

isso não são erros e sim "avisos", que avisa quando uma variável não foi recebida através do POST.

Mude:

$sexo=$_POST['sexo']; 
$data_de_nascimento=$_POST['data de nascimento'];

Para:

$sexo=@$_POST['sexo'];
$data_de_nascimento=@$_POST['data_de_nascimento'];

Antes de cada variável POST adicionei um @ para ignorar as "Notice" referentes à mesma.

Repare também não pode utilizar variáveis PHP com espaços:

$sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
VALUES('$email', '$nome', '$senha', '$sexo', '$data de nascimento', '$materia')");

Para:

$sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia')");

Tinha uma ideia completamente errada, após pesquisa no google também encontrei essa afirmação: é possível emitir facturas a zero euros.

http://ricardomcarvalho.pt/perguntas/pdf.php?cat=5&id=22&artlang=pt

https://www.wisedat.pt/knowledge-base/emitir-facturas-com-valor-zero/

Obrigado.

52 minutos atrás, bioshock disse:

Viva,

Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

Não existe qualquer problema legal em emitir Faturas a ZERO.

Apenas é aconselhável que o Software tenha um Parametro para o Cliente poder ativar esta função, de forma a que não aconteça por engano mas sim quando o pretende ( exemplo das Operadoras de Telecomunicações que fazem desconto de 100% na aquisição de certos produtos com fidelização )

Viva,

Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

Agora está dando erro nas linhas

Notice: Undefined index: sexo in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 18

Notice: Undefined index: data de nascimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 19

Notice: Undefined variable: data_nacimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 23

Em 18/10/2018 às 18:39, nunopicado disse:

Isso soa-me a Access Violation.
Verifica se tens todos os objectos correctamente instanciados antes de usar e a sua memória libertada depois de deixarem de ser necessários.
Mais que isso, sem ver o código, não sei dizer!

Muito obrigado amigo, realmente avia uma redundância no SQLQuary, muito obrigado.    [RESOLVIDO]

Bom dia amigos, mais uma vez venho solicitar sua experiência e conhecimento para decifrar um enigma. Estou criando um cadastro em Lazarus 1.8.4 - Firebird 3.5 - FlameRobin 0.9.2, e preciso criar um código automaticamente ao salvar um novo cadastro. Por favor sou estudante e peço a ajuda de quem puder contribuir.

Obrigado.

3 horas atrás, passarito disse:

@Marcos Vinícius, que compilador é esse que estás a usar?

Bom, eu estava usando o "Pascal Gui", mas por ele não ter muitas informações que ajudam na hora de usar o compilador, eu instalei o "Pascal N-IDE".

Obs: Ele pode ser bom mas de vez em quando, adora apagar a lista de comandos inteira sem você nem ter terminado de fazer a lista! 😑😒

12 horas atrás, nunopicado disse:

Não sei dizer, nunca usei esse compilador (que presumo ser uma variante para mobile do FPC).
Mas geralmente nas opções há lá um local onde adicionar as opções de compilação, e será aí onde poderás colocar o switch.

Seria como criar uma biblioteca?

Bom dia Andrepereira9.

Procure um dvr comercial. Existem muitos equipamentos desse tipo que podem atender tua necessidade de forma completa.

Mas com certeza o custo é elevado.

Edison

Bom dia,

Pretendo desenvolver uma rede neuronal em Python que faça janelamento numa série de dados DataFrame.

O objectivo é criar uma "janela temporal" que percorra os valores do DataFrame à medida que avançamos na linha temporal, ou seja, ter numa fase inicial 5 entradas (5 primeiros valores do DataFrame) que irão dar origem a uma saída (6º valor do Dataframe).
As 5 entradas da próxima fase começará no 2º até ao 6º valor dando origem ao 7º valor. E assim por aí fora.

import pandas as pd
import numpy as np

df = pd.read_csv('bkt.csv')
df.head()

df['<CLOSE>']

bkt=df['<CLOSE>']

ws=5 #tamanho da janela deslizante

#print (df['<CLOSE>'])
df_t = df.transpose()

bkt_t=df_t.iloc[7:8]

sz=np.size(bkt_t)

bkt_r=[]

#for j in range (sz-ws):
    #bkt_r[j]=[bkt_transposed(2*j) bkt_transposed(2*j+1)]

Vi online que será a função 'range' a ser utilizada, mas como estou a dar os primeiros passos em python, necessitava mesmo de uma ajuda vossa.

Obrigado!

Boas pessoal venho aqui a pedir um conselho que sinceramente no meio de tanta info começo a ficar um bocado confuso.

Tenho que apresentar alternativas para um programa, visto que querem migrar o existente para que seja Cross Platform "on the fly", que a GUI seja ela toda por igual. Como backend, pensei no .Net Core, da para Windows, Linux e Mac sem problemas, a versão 3.0 irá trazer GUI (WinForms, WPF, UWP) mas apenas para Windows (a MS já punha o WPF sobre Vulkan/OpenGL para esta porra ser Cross Plataform), dai andar a procura de uma GUI que de para trabalhar sobre .Net Core e seja, bom Cross Platform :P

Andei a ver, e encontrei uma bastante promissora, Avalonia, que usa o mesmo conceito de WPF (gosto bastante, deste que exprimentei nunca mais quiz saber de Win Forms) mas ainda está em Beta, e não se sabe quando irá sair de beta, têm um designer em VS meio arcaico mas da para ir vendo, aqui têm-se uma pena demostração que da para Windows e afins https://ptupitsyn.github.io/Cross-Platform-DotNet-UI/ .

Também encontrei o Electron, que da para trabalhar com .Net Core, o front end passa a ser paginas feitas pelo Electron e Backend pelo .Net Core, exemplos aqui https://github.com/ElectronNET/electron.net-api-demos . Aqui sempre depois da para se usar Bootstrap, jQuery e afins para se fazer a GUI, que apesar de gostar bastante do estilo WPF, também gostei bastante de trabalhar a uns tempos com Bootstrap, jQuery que já existe bastante info por ai em caso seja preciso.

Na vossa opinião, qual escolhiam? Existe por ai outra boa que não tenha visto? 
Pensei também em QT, mas pelo que percebi, a sua licensa têm algo que se tem que pagar 1 x (não sou expert nestes assuntos), e isso por agora está fora de questão infelizmente