Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Veja nestes endereços: http://www.apostilando.com/download.php?co...tegoria=Autocad http://ricardocasarino.files.wordpress.com...03/autolisp.pdf http://www.autolisp.com.br/autolisp/module...tit&lid=741 abraço
  2. Veja neste endereço: Apostila de Matlab ( inglês ) http://www.mathworks.com/access/helpdesk/h...+quad&meta= abraço
  3. Apostila de Fortran http://ufpel.tche.br/~rudi/grad/ModComp/Ap...a/ContFluxo.pdf http://ufpel.tche.br/~rudi/grad/ModComp/Ap...a/Apostila.html abraço
  4. Veja neste endereço: Apostila de MatLab http://www.mathworks.com/access/helpdesk/h...+quad&meta= abraço
  5. Ele só calcula quando eu coloco f(a(1),a(2),a(3)). Isto porque voce tem que dar todos os indices que estão na matriz Mais informações: http://www.mathworks.com/access/helpdesk/h...+quad&meta= abraço
  6. Vários exemplos de como se trabalhar com eixos gráficos no MatLab http://www.mathworks.com/access/helpdesk/h...+quad&meta= abraço
  7. Apostila de Fortran http://ufpel.tche.br/~rudi/grad/ModComp/Ap...a/ContFluxo.pdf http://ufpel.tche.br/~rudi/grad/ModComp/Ap...a/Apostila.html abraço
  8. Para resolver este problema tenha em mãos o CD de instalação do windows Coloque o CD no CDRom va em Inciar > Executar > digite sfc /scannow Espere terminar e depois reinicie o PC abraço
  9. Não sei este vai te servir http://baixaki.ig.com.br/download/free-smtp-server.htm http://baixaki.ig.com.br/site/dwnld7367.htm abraço
  10. http://www.ziggi.com.br/downloads/11372.asp java script:download('http://www.geocities.com/Athens/Oracle/3800/apostilas/crys.zip','/downloadnow/id/11372/tipo/2','2'); abraço
  11. Software para isto somente criando-se um... se voce souber alguma linguagem de programação e tendo o conhecimento específico sobre o assunto, voce pode criar este tipo de software Mais algumas informações A gestão do conhecimento na prática http://www.paradigma.com.br/gestao-do-conh...na-pratica/view abraço
  12. Jhonas

    ARC SERVER

    Veja se isto ajuda http://scriptbrasil.com.br/forum/index.php...87&t=127884 abraço
  13. Jhonas

    Download de video

    Se o Vdownloader não funcionar tente outros neste endereço http://portuguese.eazel.com/lv/categories/viewlist/kl2.htm abraço
  14. Jhonas

    visio

    Voce encontrará várias versões gratuítas neste endereço http://www.brothersoft.com/downloads/visio.html abraço
  15. Assunto: solucionando Run-time Erro 91 Run-time Error 91 normalmente é causado por uma chave de chave de registro velha ou corrompida. http://www.spectrumcontrols.com/pdfs/abio/...or91_052704.pdf Componente do ActiveX não pode criar objeto .... Run-time Erro 91 Variável não fixada de objeto ou bloco. sugestão: desistale o programa, execute um programa para limpar os registros, e instale novamente. Voce pode usar o RegClean ou o EasyCleaner ( limpeza de registros do windows ) voce encontra na internet para download abraço
  16. Overclock nem pensar, pois diminui muito a vida util do processador Uma boa escolha seria esta. http://www.soyo.com/product/AMD_Athlon_XP/...m_Edition%29/30 Ou se quiser algo mais atual pode ser esta. http://www.soyo.com/store/cart.php?m=product_list&c=56 abraço
  17. Alguns jogos modificam as configurações do PC, voce fez tudo menos verificar as memórias. Se não for vírus que pode travar e reiniciar o PC, então voce deve verificar o processador e as memórias.. talvez o jogo esteja exigindo mais memória ou o processador esta sendo o gargalo. Quando de um dos dois é exigido mais do que pode processar acontece este tipo de coisa. Verifique tambem a temperatura em cima do processador, pois algumas placas mãe tem um dispositivo de segurança para impedir que o processador queime. abraço
  18. A alteração no código que te passei funciona perfeitamente. ( scannear os aplicativos que contenha alguma parte do titulo escrito "Cheat"...) procedure TForm1.Timer1Timer(Sender: TObject); begin if processExists('Cheat') then showmessage(s + ' -> processo encontrado!'); // outros comandos end; Nesta parte é que voce vai procurar a parte da string do processo que esta rodando... não entendi a sua colocação. abraço
  19. Basta voce fazer esta alteração no seu código function processExists(exeFileName: string): Boolean; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); Result := False; while Integer(ContinueLoop) <> 0 do begin if pos(UpperCase(exeFileName),UpperCase(FProcessEntry32.szExeFile)) > 0 then begin exeFileName := FProcessEntry32.szExeFile; s := FProcessEntry32.szExeFile; end; if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then begin Result := True; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; procedure TForm1.Timer1Timer(Sender: TObject); begin if processExists('Cheat') then showmessage(s + ' -> processo encontrado!'); end; abraço
  20. lá no cadastro de promissórias, como eu faço pra colocar um Status Pago ? crie um campo em sua tabela com esse nome que servirá de controle pagamento. assim que a pessoa acabar de pagar todas as parcelas, voce deverá ter na sua janela de vendas, um Checkbox , onde o usuário colocará o Checked como true indicando que todas as parcelas foram pagas, ou voce ainda poderá fazer algo mais automático, como por exemplo, fazer uma varredura na sua tabela e se encontrar todos os campos do pagamento da promissória paga então voce faz o programa colocar o Checked como true neste campo. mas de preferencia use um campo de controle para cada parcela, uma data de vencimento de cada parcela e uma data de pagamento efetivo. abraço
  21. Jhonas

    QRRichText

    Voce não está sendo muito claro nas suas informações. O comando que voce postou é para adicionar às linhas do QRRichText1 o conteúdo do campo ( descrição ) da sua tabela. Em qual evento voce está usando este comando ? Voce vai adicionar todos os registros do campo 'descrição' da sua tabela ao QRRichText1 ? Voce está usando algum loop ( while ou For ) ? Quanto mais informações voce fornecer, mais facil será alguém lhe dar uma resposta. abraço
  22. Experimente desta maneira: procedure WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName); var viewObject : IViewObject; r : TRect; bitmap : TBitmap; begin if wb.Document <> nil then begin wb.Document.QueryInterface(IViewObject, viewObject); if Assigned(viewObject) then try bitmap := TBitmap.Create; try r := Rect(201, 101, 552, 388); bitmap.Height := Screen.Height; bitmap.Width := Screen.Width; // * gerando uma imagem jpeg viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0); with TJPEGImage.Create do try Assign(bitmap); SaveToFile(fileName); finally Free; end; finally bitmap.Free; end; finally viewObject._Release; end; end; end; abraço
  23. Fiz uns testes aqui e funcionou .... voce linkou o DataSet do Quick Report ao DataSource da sua Tabela ? Algumas informações adicionais http://scriptbrasil.com.br/forum/index.php...st&p=397211 http://www.guiadodelphi.com.br/ler.php?codigo=417 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=473 abraço
  24. Eder .. voce não entendeu até agora ... voce não tem este programa na sua máquina por isso eu te passei o código todo dele que está lá naquele post acima. então se voce soubesse usar os recursos do delphi ( já percebi que voce não sabe usar ) voce teria que pegar aquele código, jogar dentro de uma Unit, modificar, compilar e substituir no delphi. Entretanto seguindo a dica do Micheus fiz a alteração no código que ele falou e funciona uses QRPrntr, Printers; procedure AbreRelatorio(FileName:string); var QRPrinter: TQRPrinter; begin if FileExists(FileName) then begin QRPrinter := TQRPrinter.Create; try QRPrinter.Load(FileName); Form1.PrinterSetupDialog1.Execute; QRPrinter.PrinterIndex := Printer.PrinterIndex; QRPrinter.Preview; repeat Application.HandleMessage; until not QRPrinter.ShowingPreview; finally QRPrinter.Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then AbreRelatorio(OpenDialog1.FileName); end; Então para evitar maiores dores de cabeça para voce, sugiro usar este código. abraço
  25. Não teria que mudar tudo ...somente esta linha: PrintSetup.Enabled := False; <<----- alterar para True Se voce souber usar os recursos do delphi não tem erro. abraço
×
×
  • Criar Novo...