Fórum Script Brasil > (Resolvido) como usar o time

Versão Completa: (Resolvido) como usar o time

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

J. Romeu

14/07/2010 - 18:18

E ai galera beleza!!!

Tô com um pegueno problema, estou tentando desenvolver um software para controle
pela LPT1 e não sei como proceder.

O software tem que requisitar uma hora de ativação para o usuario,
quando atingir a hora de ativacão a software deve enviar um sinal paa a LPT1 e ativar
um de seus pinos de modo que, esse pino deixe pasar os 5v.

Bem eu já sei como ativar os pinos porém não sei como inserir o time no
código.

Será que alguém poderia me dar uma ajuda com isso? agradeço desde já!!!

Valeu!!!

Jhonas

14/07/2010 - 20:16

QUOTE

Bem eu já sei como ativar os pinos porém não sei como inserir o time no código

.

Voce deve colocar o código para que possamos ajuda-lo .

abraço

J. Romeu

15/07/2010 - 12:43

QUOTE(Jhonas @ 14/07/2010 - 20:16)

QUOTE

Bem eu já sei como ativar os pinos porém não sei como inserir o time no código

.

Voce deve colocar o código para que possamos ajuda-lo .

abraço

la vai...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
IOPort, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
IOPort1: TIOPort;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ioport1.Port[888]:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ioport1.Port[888]:=0;
end;

end

galera esse códico serve para ligar/desligar o pino da porta paralela.
eu gostaria de inserir um timer para que o usuário digitasse a hora em que o pino fosse ativado e desativado.

valeu...

Jhonas

15/07/2010 - 13:04

De maneira bem simples seria isso:

CODE

var
  Form1: TForm1;
  var i : integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   i := 1;
   Timer1.Interval := 60000;  // 1 minuto
   Timer1.Enabled := true // ativar o timer
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if i = 1 then
      begin
        ioport1.Port[888]:=1;
        i := 0;
      end
   else
      begin
         ioport1.Port[888]:=0;
         i := 1;
      end;
end;

Veja que o timer foi programado para ligar/desligar o pino da porta paralela a cada 1 minuto.

esse tempo pode ser controlado pela propriedade Interval do timer. Deixe a propriedade Enable do timer como = False antes de iniciar.

OBS: se quiser algo um pouco mais vistoso, baixe esse exemplo de um dispertador, e faça a modificação necessaria

http://www.planetadelphi.com.br/delphi/exe...os/00003518.zip

abraço

J. Romeu

15/07/2010 - 14:53

Muito obrigada, pela ajuda o código é meio conplicada para mim que tenho pouca esperiencia com o delphi
mas será de grande ajuda!!!!

abraço...

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.