Jhonas

ficaria assim: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ScrollBar1: TScrollBar; Edit1: TEdit; Timer1: TTimer; procedure ScrollBar1Change(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; type TGamma = packed record Vermelho: array[0..255] of Word; Verde: array[0..255] of Word; Azul: array[0..255] of Word; end; var Form1: TForm1; a : integer = 0; implementation {$R *.dfm} uses Math; function inportb(EndPorta:integer):byte stdcall; external 'inpout32.dll' name 'Inp32'; procedure outportb(EndPorta:integer;Valor:integer); stdcall; external 'inpout32.dll' name 'Out32'; procedure SetBrilhoMonitor(brilho: Byte); var i, Value: Integer; DC: HDC; gama: tGamma; begin // Calcular a nova gama de acordo com o brilho passado for i := 0 to 255 do begin Value := Min(Round(i * (brilho + 128) / 255), 255); gama.Vermelho[i] := Value shl 8; gama.verde[i] := Value shl 8; gama.Azul[i] := Value shl 8; end; // Aplicar a nova calibragem para o monitor DC := GetDC(0); SetDeviceGammaRamp(DC, gama); ReleaseDC(0, DC); end; {procedure TForm1.ScrollBar1Change(Sender: TObject); begin // testar usando o componente ScrollBar1 // min = 0 e max = 255 SetBrilhoMonitor(ScrollBar1.Position); Edit1.Text := inttostr(ScrollBar1.Position); end; } procedure TForm1.Timer1Timer(Sender: TObject); begin // Timer1.Interval = 1000 edit1.Text := IntToStr( inportb($379) ); a := inportb($379); SetBrilhoMonitor(a); end; end. teste o programa, e verá que conforme voce aumenta a luminosidade da lampada, o brilho da tela diminui e vice versa abraço

pelo que eu entendi, voce quer demonstrar que alterando o valor da luminosidade atraves do trimpot, voce quer que o programa altere a luminosidade do monitor ( tela ) correto ? estudei eletronica anos atraz, por isso sei o que voce está dizendo... na verdade somente um LDR é necessário como eu disse o delphi pode controlar o brilho o contraste e até a matiz de cores do monitor de video ( isso é feito via API do windows ) já que o seu circuito está funcionando, preciso que voce me passe os valores minimo e maximo recebidos da variação do LDR pela porta paralela ( ou seja , sem luz e com a luz no maximo ) ex: 0 - 127 ou 0 - 255 dependendo dessa variação, o programa vai ajustar o brilho na tela automaticamente abraço

informe como voce fez a ligação do LDR aos pinos da porta paralela .... vou te ajudar a fazer o projeto informe tambem qual é o valor da variavel ( a ) logo que o programa é acionado abraço

coloque o código completo, para poder analisar e te ajudar outra sugestão: use esse componente http://mrbool.devmedia.com.br/Novo/Revista...adriano-cam.zip e use esse código procedure TForm1.Button1Click(Sender: TObject); var p : ^TTabImage; begin // ativar a camera Camera1.Actif:=True; New(p); end; procedure TForm1.Button2Click(Sender: TObject); var p : ^TTabImage; begin // desativar a camera Camera1.Actif:=False; New(p); end; Dica do forum ActiveDelphi http://www.activedelphi.com.br/forum/viewt...437c4b01c18d6ac abraço

Achei o seu projeto legal .... a := inportb($379); se os valores de ( a ) estão entre 0 e 255, depois passo para voce um exemplo do uso de uma API do windows chamada: SetDeviceGammaRamp ( controla o brilho do monitor - placa de video ) OBS: voce não vai precisar usar figuras, o proprio monitor vai ajustar automaticamente o brilho da tela, dependendo do valor atribuido a variavel a. caso queira incrementar ainda mais o seu projeto, veja tambem http://www.efg2.com/Lab/Library/Delphi/Graphics/Color.htm Diga a seus professores que é possivel sim mudar o brilho, contraste e cores do monitor atraves do delphi abraço

Já experimentou usar um programa conversor ? http://www.cadkas.com/ec2delphi.php abraço

amigo, já que voce é leigo em programação, vou te passar algo que será mais util é pratico para voce ( exemplos prontos ) vai ficar mais facil o seu entendimento nesse exemplo voce vai encontrar: calculo de Bhaskara, Pitagoras, Area, Determinante, Regra 3, Tabuada, Relacao de Euler, Raiz, Analise Combinatoria, Divizor Comun, Primos, Fibonacci, logaritmos, Potencia e Fatorial; http://www.planetadelphi.com.br/delphi/exe...es/00004881.zip Estude com calma os código e verá que não é um bicho de 7 cabeças ... rs OBS: caso dê erro de Form2 não encontrado, basta retirar a Unit2 da Uses do projeto, ou pode ainda criar um form vazio com o nome de Form2 ( Unit2 ) exemplo: basta apagar da untPrincipal uses Unit2, UntBhaskara, UntPitagoras, UntArea, UntDeterminate, UntRegradetres, UntTabuada, UntRealacaodeEuler, UntRaiz, UntAnaliseCombinatoria, UntDivizorComun, UntPrimos, UntFibonacci, Untlogaritmos, UntPotencia, UntFatorial; abraço

Desinstale estes componentes e instale o pacote "PNG_D7". Se não funcionar veja se você consegue ir ao diretório C:\Arquivos de programas\Borland\Delphi7\Projects\Bpl e tente localizar os arquivos .BPL do componente e com o delphi fechado delete-os e tente refazer a instalação. abraço

isso ocorre porque: voce está usando o mesmo edit3 e edit4 para as 2 caixas ... exemplo: se voce marcar a caixa1 e deixar a caixa2 desmarcada, o primeiro calculo será Edit3.Text := floattostr((strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); entretanto como a caixa2 esta desmarcada, o segundo calculo será Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); como pode ver os valores serão sobrepostos .... para ter uma idéia mais precisa, coloque mais 2 edits e faça essa mudança no código, para poder entender melhor. procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; // caixa1 if CheckBox1.Checked = true then begin // marcado Edit3.Text := floattostr((strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); end else begin // desmarcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text))) + sqr(strtofloat(Edit2.text))); end; // caixa2 if CheckBox2.Checked = true then begin // marcado Edit5.Text := floattostr((sqr(strtofloat(Edit1.text))) + (strtofloat(Edit2.text))); Edit6.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + (strtofloat(Edit2.text)))); end else begin // desmarcado Edit5.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit6.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end; end. abraço

o componente tms planner faz isso que está querendo quanto a outras opções, veja: http://www.torry.net/pages.php?s=98 abraço

porque voce não usa um stringgrid ? porque o componente panel tem um valor (TOP) fixo em relação ao Form. OBS: Se isso for uma agenda, existem outras opções abraço

ok .. faça as mudanças necessárias nesse código unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Edit3: TEdit; Edit4: TEdit; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); // evento OnKeyPress do Edit1 begin // fazer o edit1 aceitar somente numeros e virgula if not (Key in['0'..'9',',',Chr(8)]) then Key:= #0; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); // evento OnKeyPress do Edit2 begin // fazer o edit2 aceitar somente numeros e virgula if not (Key in['0'..'9',',',Chr(8)]) then Key:= #0; end; procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; // caixa1 if CheckBox1.Checked = true then begin // marcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end else begin // desmarcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; // caixa2 if CheckBox2.Checked = true then begin // marcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end else begin // desmarcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end; end. abraço

veja a documentação http://boletophp.com.br/documentacao/Docum...cao_Banespa.zip ou procure nesse link (está no meio da pagina ) http://boletophp.com.br/ abraço

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Edit3: TEdit; Edit4: TEdit; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',',',Chr(8)]) then Key:= #0; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',',',Chr(8)]) then Key:= #0; end; procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end. voce não vai precisar as caixas de matrizes ... basta digitar no campo do cateto a raiz ou um numero inteiro abraço

o TEdit só aceitará números de 0 a 9 e o BackSpace (Chr(8)). Se você quiser a vírgula também, coloque dentro do colchete DecimalSeparator procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',Chr(8)]) then Key:= #0; end; basta fazer um if antes do calculo ( se voce postar o código fica mais facil te ajudar ) abraço

veja o componente TMS Planner http://www.tmssoftware.com/site/dbplanner.asp abraço

depois que a tabela for criada, voce pode usa-la da mesma maneira como usaria uma tabela fixa use um botão , faça a leitura da query e atribua os valores a cada campo da tabela abraço

é isso ... por isso não gosto de criar dbgrids em tempo de execução, dá muito trabalho abraço

veja tambem http://www.google.com.br/search?q=calculad...284l2-1.3.2l6l0 abraço

o que isso indica a voce ? ou a grid tem o mesmo nome, ou a query esta setada para para o mesmo datasource das 2 grids dgAgenda.OnDrawColumnCell := PintaGrid; dgAgenda ... aponta para o mesmo grid, mesmo que voce faça um teste no PintaGrid OBS: o evento OnDrawColumnCell deve ser exclusivo para o dbgrid abraço

caso queira um exemplo completo de calculadora cientifica veja https://www.scriptbrasil.com.br/download/codigo/4733/ abraço

Componentes para obter informações sobre o Micro onde o programa será instalado http://www.edudelphipage.com.br/componente...hp?categoria=17 Uma função simples http://www.planetadelphi.com.br/dica/886/r...putador-na-rede http://www.devmedia.com.br/forum/delphi/18...g--expirar.html como expirar um programa http://scriptbrasil.com.br/forum/index.php?showtopic=109698 componente http://delphi.about.com/od/productreviews/l/aa022503a.htm Na internet existem muitos exemplos ... procure pela palavra Expirar Delphi abraço

isso não deveria acontecer, a menos que todos os seus grids tenham o mesmo nome abraço

lista de funções matematicas do delphi http://www.efg2.com/Lab/Library/Delphi/Mat...ons/General.htm http://www.ayton.id.au/gary/it/Delphi/D_maths.htm exemplos: uses Math; procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; Edit4.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); end; outros exemplos http://delphi.about.com/library/rtl/blrtlUmath.htm http://www.efg2.com/Lab/Library/Delphi/Mat...ons/Parsers.htm http://www.delphicorner.f9.co.uk/articles/op7.htm http://www.shokhirev.com/nikolai/programs/samplecode.html e muitos outros na net .... pesquise pela palavra Math Delphi abraço

mas o registro é sempre verificado. alguma coisa fez com que o registro ficasse invalido .... é por ai sugestão: tenha um executavel sem essa rotina, se voltar a acontecer execute esse outro executavel no mesmo instante, para poder comparar. abraço