Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. não deve ser muito diferente do que eu te passei ... procedure TForm1.Button1Click(Sender: TObject); var dx : Tdatetime; begin dx := SPDayPlanner1.SelectedItems[0].StartTime; edit1.Text := timetostr(dx); end; tente usar dessa maneira, apenas substituindo o componente, ou veja qual a sintaxe que mais se aproxima disso abraço
  2. Jhonas

    QRComposite

    o que voce precisa está descrito exatamente nesse post http://scriptbrasil.com.br/forum/index.php...st&p=469894 abraço
  3. basta que no Fields Editor voce defina novo campo e deixe o < Field type > como Data dessa maneira voce pode criar novas colunas ( Campos ) e inserir valores nesses campos, entretanto lembre-se que ao fechar o programa esses valores serão perdidos, pois não poderão ser salvos na sua tabela mais informações: http://www.clubedainformatica.com.br/site/...-clientdataset/ abraço
  4. tente assim procedure TForm1.Button1Click(Sender: TObject); var CBD, ArqBkp : String; begin if OpenDialog1.Execute then begin ArqBkp := OpenDialog1.FileName + FormatDateTime('yyyymmdd_hhnn',now)+'.bkp'; CBD := 'C:\sistemas\controleServicos\bd\bd.mdb' if FileExists(CBD) then CopyFile(PAnsiChar(CBD),PAnsiChar(ArqBkp),True) else Showmessage('Arquivo não encontrado!'); end; end; abraço
  5. Faça sempre uma pesquisa no forum, antes de postar a sua dúvida http://scriptbrasil.com.br/forum/index.php...ite=qrcomposite abraço
  6. outra sugestão http://www.megaupload.com/?d=G9Y5YX85 me recordo que os micros da dell vem um CD de instalação de drives da placa mãe, e os drives da placa de fax vem junto OBS: voce pode tentar tambem verificar no site do fabricante se está disponivel os drives para download Em ultimo caso, se voce precisa usar realmente essa placa de fax, compre uma outra da motorola (~ R$ 35,00 ) abraço
  7. estou usando esses componentes http://www.delphipages.com/comp/shorter_pa...r_vcl-5531.html abraço
  8. desinstale o hardware completamente, depois desligue o micro e tire a placa, passe uma borracha nos contatos, conecte-a novamente e ligue o micro quando ele fizer o reconhecimento da placa e pedir os drives, direcione para o local onde estão os drives abraço
  9. para saber o horário quando voce clica com o mouse na linha do horário usando o componente TSPDayPlanner unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPPlanners, SPDay; type TForm1 = class(TForm) SPDayPlanner1: TSPDayPlanner; Button1: TButton; Edit1: TEdit; SPPlannerSource1: TSPPlannerSource; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var dx : Tdatetime; begin dx := SPDayPlanner1.SelectedItems[0].StartTime; edit1.Text := timetostr(dx); end; OBS: isso só funciona se o campo estiver preenchido abraço
  10. pois dependendo do tipo de painel, haverá mudanças significativas na sua aplicação em delphi ou outra linguagem exemplos: somente para começar a entender como isso funciona http://www.sabereletronica.com.br/secoes/leitura/1179 http://fabricio.unis.edu.br/PCC/Domotica.pdf http://www.gradual.com.br/prod/manuais/Com...lela_112003.pdf http://bibdig.poliseducacional.com.br/document/?view=152 abraço
  11. voce tem instalado em seu micro uma placa de fax modem AT&T/Lucent V.92 ... creio que deva ter vindo junto com a placa, um cd com os drives de instalação da mesma mas se voce perdeu, pode baixar deste link http://pcdrivers.com.br/lucent-modem-drive...load-16533.html abraço
  12. Jhonas

    WebService

    veja esse exemplo http://www.linhadecodigo.com.br/Artigo.aspx?id=3 abraço
  13. a estrutura do if é assim if x < 0: ... x = 0 ... print 'Negative changed to zero' ... elif x == 0: ... print 'Zero' ... elif x == 1: ... print 'Single' ... else: ... print 'More' então voce deve mudar o seu código altura = float(raw_input("Digite sua altura: ")) peso = float(raw_input("Digite seu peso: ")) if sexo == "M": ideal = (72.7 * altura) - 58 print "Peso ideal masculino: ", ideal print classificacao_peso(peso, ideal) elif sexo == "F": ideal = (62.1 * altura) - 44.7 print "Peso ideal feminino: ", ideal print classificacao_peso(peso, ideal) else: print "Digite uma opção válida!" abraço
  14. Mas não quero nada de graça se voce puder pagar, tem sistemas prontos a venda na net mas se deseja aprender, siga as dicas que estou passando abraço
  15. Jhonas

    WebService

    CurrToStr(Servico.Somar(valor1,valor2)); veja a função somar abraço
  16. robinhocne... veja o help que acompanha o TPlanner, tem esse e outros itens que voce deve olhar TSPDisplayItems.CellDuration The duration of each cell in the area represented by the list. property CellDuration: TDateTime read FCellDuration write SetCellDuration; __property System::TDateTime CellDuration={ read=FCellDuration, write =SetCellDuration } Description Set the CellDuration property to the duration of a single cell in the area represented by the list. For example, in TSPMonthPlanner, each cell represents a single day, while in TSPDayPlanner each cell (except in the all-day events row) represents an hour or less, depending on the value of the TimeScale property. abraço
  17. voce não vai encontrar nada pronto de graça ... o que voce pode fazer é tirar idéias para montar o seu projeto http://www.lamix.com.br/senha_fila.htm https://www.scriptbrasil.com.br/download/codigo/6578/ abraço
  18. ok... tente esse http://www.ti.fajesu.org/?p=1137 abraço
  19. tenho um componente OpenTextDialog que abre o TXT com endereços IP dos servidores para conexão sugestão: utilize tambem um listbox para armazenar os endereços, dessa maneira se voce fechar a conexão e precisar abri-la novamente voce clica em um dos endereços que esta na listbox, fazendo com que a variavel HLine receba este novo valor abraço
  20. veja http://www.netdownloads.com.br/Download/42...o-de-filas.html abraço
  21. Voce leu a apostila ???? abraço
  22. veja o exemplo da pagina 13 dessa apostila http://www.telecom.uff.br/pet/petws/downlo...on_2k100127.pdf abraço
  23. acho que vai encontrar alguma coisa nesse link http://www.adobe.com/devnet/facebook/samples.html#4 abraço
  24. veja http://www.mathworks.com/help/toolbox/imag...ef/imnoise.html abraço
×
×
  • Criar Novo...