Jhonas

Monitores
  • Content Count

    9552
  • Joined

Community Reputation

0 Neutro

About Jhonas

Perfil

  • Gender
    Male
  • Location
    São Paulo

Recent Profile Visitors

24483 profile views
  1. Voce sabe fazer relacionamento entre tabelas ? exemplos: https://www.google.com.br/search?source=hp&ei=hJkUXsHVJ93A5OUPjqmvqAE&q=relacionamento+entre+tabelas+mysql&o que=referencia+entre+tabelas+mysql&gs_l=psy-ab.1.0.0i22i30l8j0i333l2.1410.7708..14226...0.0..0.590.6912.0j19j5j1j2j3......0....1..gws-wiz.....0..0i131j0j33i22i29i30j33i160.9OnG4I9OwVI https://www.google.com.br/search?ei=D5oUXtuUA5mf5OUP4-KTwAs&q=relacionamento+entre+tabelas+usando+query+delphi&o que=relacionamento+entre+tabelas+usando+query+delphi&gs_l=psy-ab.3...60692.63430..63768...0.2..0.226.1348.0j4j3....3..0....1..gws-wiz.......0i71j33i160.Q145tjp-FGs&ved=0ahUKEwib2IDe3fHmAhWZD7kGHWPxBLgQ4dUDCAo&uact=5 abraço
  2. gostaria de criar DashBoard no Delphi DashBoard nada mais é que um Painel de Controle Voce usa HTML para criar gráficos, tabelas, diagramas e relatórios Os dados podem ser obtidos através de um componente DataSet ( componentes de acesso a Tabela ) Esses links vão te dar uma idéia melhor sobre o assunto https://www.google.com.br/search?source=hp&ei=uFUPXtmYMuqi5OUP8v2_8A8&q=criar+dashboard+delphi&o que=DashBoard+Delphi&gs_l=psy-ab.1.9.0l2j0i7i30l2j0l2j0i30l2j0i5i30l2.1380.5190..17022...0.0..0.224.930.0j4j1......0....2j1..gws-wiz.....0..0i22i30j0i13j0i13i30j0i13i5i30j0i8i13i30.-AdtdFJiyyQ abraço
  3. Sim ... já tinha lido sobre ele http://mikelustosa.kpages.online/tinject Download do componente https://github.com/mikelustosa/Projeto-TInject/blob/master/TInjectInstall.exe abraço
  4. // ligar e desligar o timer inc(on_off); if on_off = 1 then begin /// LIGADO Timer1.Enabled := true; Shape1.Brush.Color:=clgreen; Timer1.Interval := TrackBar1.Position; end else begin // DESLIGADO on_off := 0; Timer1.Enabled := false; Shape1.Brush.Color:=clred; end; quando voce clica uma vez, o contador soma de 1, então a variavel on-off fica com o valor de 1 e executa o codigo relacionado , ou seja ligado. quando voce clica novamente, o contador soma + 1 novamente e passa a valer 2 Se on-off não é 1 ( um ) e sim 2 ( dois ) então ele executa o else, e passa a valer 0 ( zero ) novamente e executa desligado e assim o ciclo se repete a cada vez que voce clicar no botão . abraço
  5. Não compreendi muito bem a lógica do codigo, como que eu sei que vai estar Desligado ou ligado.. Pela variável... On_off ? sim ... se voce notar tem um contador // ligar e desligar o timer inc(on_off); cada vez que voce clica no botão, o contador ( on_off -- variavel inteira ) é somado de 1 ... dependendo do valor, é uma coisa ou outra ( ligado ou deslgado ) abraço
  6. Como eu altero esse tempo ? Basta voce modificar a prorpiedade Max do TrackBar para 2000, 3000, 4000...etc voce tem que mover o trackbar de posição para que ele tenha outros valores Desliguei o enabled do Timer, agora ao clicar não faz mais nada, só muda a cor do shape Voce tem que deixar a propriedade Enabled do Timer = False, antes de executar o programa O código como está funciona perfeitamente. abraço
  7. O que voce quer é um temporizador .. certo ? veja esse exemplo, e faça as modificações para o seu uso: Obs: No botão voce vai ligar e desligar o timer ( deixe o timer em Enabled = false ) No trackbar, voce controla o tempo que voce quer que ele funcione O label serve para mostar o tempo que voce escolher Proriedade Max = 1000 ( trackBar ) 0 - 1000 = vai de zero a um segundo ( voce pode alterar esse tempo ) Ao clicar no botão o shape fica verde e ao final do tempo ele fica vermelho o edit vai mostrar o numero da posição do ponteiro no ProgressBar que vai até 100 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Edit1: TEdit; Shape1: TShape; ProgressBar1: TProgressBar; TrackBar1: TTrackBar; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure TrackBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; on_off : integer = 0; cont : integer =0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // ligar e desligar o timer inc(on_off); if on_off = 1 then begin Timer1.Enabled := true; Shape1.Brush.Color:=clgreen; Timer1.Interval := TrackBar1.Position; end else begin on_off := 0; Timer1.Enabled := false; Shape1.Brush.Color:=clred; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin inc(cont); edit1.Text := inttostr(cont); ProgressBar1.Position := cont; if cont > 99 then begin cont := 0; Shape1.Brush.Color:=clred; Timer1.Enabled := false; end; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Label1.Caption := Inttostr(TrackBar1.Position); end; end. abraço
  8. Jhonas

    Mapeamento

    exemplos: https://www.devmedia.com.br/entity-framework-como-fazer-seu-primeiro-mapeamento-objeto-relacional/38756 http://www.macoratti.net/15/07/net_amap1.htm abraço
  9. olhe nos links: Como utilizar campo calculado no delphi https://www.google.com.br/search?source=hp&ei=7i7oXZ7DEpvZ5OUPzr2ruA8&q=campo+calculado+delphi+dbgrid&o que=campo+calculado+delphi&gs_l=psy-ab.1.1.0j0i22i30l6.1044.8438..12972...0.0..0.256.3476.0j19j3....3..0....1..gws-wiz.......0i131.t8xwxiGBi30 abraço
  10. Use o tradutor do google nesses links https://www.google.com.br/search?source=hp&ei=fR_lXb3jKcOP0Abqsq_gAQ&q=2+duplicate+symbols+for+architecture+x86_64&o que=error+2+duplicate+symbols+for+architecture+x86_64&gs_l=psy-ab.1.0.0i333l3.1274.4216..11660...0.0..0.588.2198.1j4j4j5-1....1..0....1j2..gws-wiz.....0..0j0i131.FEpKhaxCuMI abraço
  11. Se voce quer transformar o código em texto, basta copiar e colar dentro do word se não for isso, explique melhor abraço
  12. exemplo https://gist.github.com/mauricioaniche/5b0c7c543de0ca2d4e08 abraço
  13. veja se esses links te ajudam https://www.google.com.br/search?ei=qubfXbDaF7Km5OUPn7ujiAs&q=importar+biblioteca+qpid+c%23&o que=importar+biblioteca+qpid+c%23&gs_l=psy-ab.3...2946.10984..12230...0.2..0.236.1356.0j4j3......0....1..gws-wiz.......0i71j33i160.XZIwYUIQfz4&ved=0ahUKEwiw17Wrm43mAhUyE7kGHZ_dCLEQ4dUDCAo&uact=5 abraço
  14. Esse calculo está correto ? slnovo[i] = slfunc[i] - slfunc[i] * (reaj / 100);