[DELPHI] procedure na tijd laten herhalen *

[Verwijderd]

beetje newbie vraag denk ik...

Maar hoe kan ik een procedure laten uitvoeren elke minuut ofzo?
Dus na een minuut moet hij die procedure weer opnieuw invoeren.

Hoe wordt dan bijv. deze code:

code:

procedure Test;
begin

end;

[Varienaja]

Een TTimer object op je form zetten. Interval instellen op het aantal milliseconden dat je nodig hebt (60.000 voor 1 minuut). En in het ontimer-event roep je die procedure van je aan.

[Verwijderd]

jeetje, jij bent echt wel een die hard programmeur man!
bedankt..

[Verwijderd]

Op maandag 11 maart 2002 18:57 schreef Mr.SubZero het volgende:
jeetje, jij bent echt wel een die hard programmeur man!
bedankt..

LOL, dan ben ik het ook

[Verwijderd]

Waarom werkt dit nou niet?!

code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    ImageGroen: TImage;
    ImageRood: TImage;
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Check;
begin
 IF InternetGetConnectedState(NIL, 0) THEN
  begin
   //ShowMessage('Verbonden met internet');
   ImageGroen.Visible := true; //regel 36 <---------------
   ImageRood.Visible := false; //regel 37 <---------------
  end
 ELSE
  begin
   //ShowMessage('Niet verbonden met internet');
   ImageRood.Visible := true;
   ImageGroen.Visible := false;
  end;
end;

Compiler Messages:
[Error] Unit1.pas(36): Undeclared identifier: 'ImageGroen'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(37): Undeclared identifier: 'ImageRood'
......
......

[whoami]

Wel, omdat ImageGroen en ImageRood members zijn van uw Form class en uw procedure Check dat niet is. Check kan dus niet aan de private, protected en published members van uw class.

_{Tip: Misschien eens iets over OO lezen en een boek over Delphi erbij nemen?}

[Verwijderd]

Op maandag 11 maart 2002 19:31 schreef whoami het volgende:
Wel, omdat ImageGroen en ImageRood members zijn van uw Form class en uw procedure Check dat niet is. Check kan dus niet aan de private, protected en published members van uw class.

_{Tip: Misschien eens iets over OO lezen en een boek over Delphi erbij nemen?}

ok, maar hoe kan ik het dan wel werkend krijgen?

[Marv]

Op maandag 11 maart 2002 19:28 schreef Mr.SubZero het volgende:
Waarom werkt dit nou niet?!

code:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    ImageGroen: TImage;
    ImageRood: TImage;
    procedure Timer1Timer(Sender: TObject);
    procudure check; // <---------------------------

  private
    { Private declarations }
  public
    { Public declarations }
  end;
........

procedure TForm1.check; //<------------------
begin
//
end;

Edit: laatste nog vergeten

[Verwijderd]

Op maandag 11 maart 2002 19:28 schreef Mr.SubZero het volgende:
Waarom werkt dit nou niet?!

code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    ImageGroen: TImage;
    ImageRood: TImage;
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Check;
begin
 IF InternetGetConnectedState(NIL, 0) THEN
  begin
   //ShowMessage('Verbonden met internet');
   ImageGroen.Visible := true; //regel 36 <---------------
   ImageRood.Visible := false; //regel 37 <---------------
  end
 ELSE
  begin
   //ShowMessage('Niet verbonden met internet');
   ImageRood.Visible := true;
   ImageGroen.Visible := false;
  end;
end;

Compiler Messages:
[Error] Unit1.pas(36): Undeclared identifier: 'ImageGroen'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(37): Undeclared identifier: 'ImageRood'
......
......

Onder het private stukje bovenaan schrijf je

code:

   procedure check;

dan maak je van je huidige procedure

code:

    procedure Tform1.check;

en het zou nu moeten werken

edit:

oeps, juist te laat

[whoami]

Inderdaad, je maakt dus dat die Check procedure een member functie wordt van uw class. (Of die nu published, private, protected of public moet zijn, dat hangt af van wat je met die Check wilt doen en waar je hem nodig hebt).

[Verwijderd]

jullie zijn geweldig!!!!
Of ik ben een f*cking newbie...
wat zou het zijn?

[Marv]

Op maandag 11 maart 2002 19:39 schreef Mr.SubZero het volgende:
jullie zijn geweldig!!!!
Of ik ben een f*cking newbie...
wat zou het zijn?

Koop eens een boek of ga een tutorial doen

[whoami]

Op maandag 11 maart 2002 19:39 schreef Mr.SubZero het volgende:
jullie zijn geweldig!!!!
Of ik ben een f*cking newbie...
wat zou het zijn?

Het laatste denk ik... _{Heb niets tegen newbies}
Maar met een goede instelling en moed en inzet ben je op een dag geen newbie meer. Dus, koop een boek over Delphi, lees en studeer.

[D2k]

maar um het debuggen moet je echt zelf doen voortaan......
we zijn geen gathering of debuggers
je oorspronkelijke vraag heb ik geen moeite mee (laat daar geen misverstand over bestaan) maar het debuggen hoort bij het programmeren