Hjælp mig Venligst (Delphi 7)

Hej, jeg har et projekt i skolen hvor jeg i Delphi 7 skal lave noget så "simpelt" som et lydkryds - eller det ville det nok være hvis det var sådan jeg ku finde ud af det.

Det jeg skal have er en kode under en Timer som skifter mellem en række billeder...

here goes:

jeg har 7 billeder.

når jeg trykker på knappen for programstart, bare en alm. bottom. så skal timeren være indstillet til at Skifte mellem de 7 billeder, så billede 1 - 2 - 3 - 4 er der i 5 sekunder, billede 5 - 6 - 7 er der i 7 sekunder ... og så om igen, i uendelighed...

hvordan skal den kode se ud?

på forhånd tak.

Kan du ikke bare lave en uendelig løkke? og så putte nogle sleep()'s ind prøv:

for i := 0 to i+1 do beign

//nogetkode
sleep(7000)
//noget kode
end;


ved ikke om det vil virke..
- SpeC - #SpeC.DK @ Q-NET

hehe, det er det jeg spørger om =) jeg fatter ikke det helt store af Delphi..

lige PT har jeg bare under min timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

end.

... altså ikke rigtig noget endnu.

hvad jeg gerne vil vide er hvad der skal stå under Begin. og om der skal angives nogle Var funktioner.

jeg kan huske at der skal skrives noget med
"BringToFront".

men som sagt... ret lost.

[Redigeret d. 09/02-04 19:32:52 af Adam]

hvis du vil bruge "BringToFront" skal du bare skrive:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

billed1.BringtoFront;// bringer billed1 frem
sleep(5000); //pause i 5 sekunder
billed2.BringtoFront;// bringer billed2 frem
sleep(5000);//pause i 5 sekunder
billed3.BringtoFront;// bringer billed3 frem
sleep(5000);//pause i 5 sekunder
billed4.BringtoFront;// bringer billed4 frem
sleep(5000);//pause i 5 sekunder
billed5.BringtoFront;// bringer billed5 frem
sleep(7000);//pause i 7 sekunder
billed6.BringtoFront;// bringer billed6 frem
sleep(7000);//pause i 7 sekunder
billed7.BringtoFront;// bringer billed7 frem
sleep(7000);//pause i 7 sekunder

end;

Husk lige at ændre billed1-7 med navnet på dit image
fx. billed1 = image1

håber du forstår det burde virke
kan ikke lige test det da min delphi ikke virker.

Ganske enkelt:

Sæt timerens enabled funktion i object inspecteren til true.
eller skriv dette i formen on creat:

Begin
timer1.enabled := false;
end;

Bagefter skal du få din button til at gøre timeren's enabled funktion tilbage til true.
Det gør du med at skrive dette i buttonens OnClick:

Begin
timer1.enabled := true;
end;

jeg ved det virker da jeg bruger denne kode vær eneste dag.

Håper dette er til hjelp:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Bilde1 = 'Bilder/1.bmp';
  Bilde2 = 'Bilder/2.bmp';
  Bilde3 = 'Bilder/3.bmp';
  Bilde4 = 'Bilder/4.bmp';
  Bilde5 = 'Bilder/5.bmp';
  Bilde6 = 'Bilder/6.bmp';
  Bilde7 = 'Bilder/7.bmp';
var
  Form1: TForm1;
  I: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = 'Start' then
  begin
    Button1.Caption := 'Stopp';
    I := 1;
    Timer1.Interval := 100;
    Timer1.Enabled := True;
  end
  else
  if Button1.Caption = 'Stopp' then
  begin
    Button1.Caption := 'Start';
    Timer1.Enabled := False;
  end
  else
  begin
    Button1.Caption := 'Huh!?';
    Timer1.Enabled := False;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
label
  Loop;
begin
  Loop:
  case I of
    1:
    begin
      Inc(I);
      Timer1.Interval := 5000;
      Image1.Picture.LoadFromFile(Bilde1);
    end;
    2:
    begin
      Inc(I);
      Timer1.Interval := 5000;
      Image1.Picture.LoadFromFile(Bilde2);
    end;
    3:
    begin 
      Inc(I);
      Timer1.Interval := 5000;
      Image1.Picture.LoadFromFile(Bilde3);
    end;
    4:
    begin 
      Inc(I);
      Timer1.Interval := 5000;
      Image1.Picture.LoadFromFile(Bilde4);
    end;
    5:
    begin  
      Inc(I);
      Timer1.Interval := 7000;
      Image1.Picture.LoadFromFile(Bilde5);
    end;
    6:
    begin  
      Inc(I);
      Timer1.Interval := 7000;
      Image1.Picture.LoadFromFile(Bilde6);
    end;
    7:
    begin
      I := 1;
      Timer1.Interval := 7000;
      Image1.Picture.LoadFromFile(Bilde7);
    end
    else
    begin
      I := 1;
      Goto Loop;
    end;
  end;
end;

end.

DiZpel

Håper dette er til hjelp:
(snip - en masse kode)
DiZpel

Det kan skrives lidt kortere (og antager at billederne hedder billede1.bmp, billede2.bmp osv.):

/data

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    i: integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Timer1.enabled then
  begin
    Button1.Caption := 'Stop';
    I := 1;
    Timer1.Interval := 100; 
    Timer1.Enabled := True;
  end
  else
  begin
    Button1.Caption := 'Start';
    Timer1.Enabled := False;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  filename: string;
begin
  filename := 'billede'+inttostr((i mod 7)+1)+'.bmp';
  Image1.Picture.LoadFromFile(filename);
  case (i mod 7)+1 of
    1..4: timer1.interval := 5000;
    5..7: timer1.interval := 7000;
  end;
  inc(i);
  if i > 7 then i := 1;
end;

end.

hehe, det er det jeg spørger om =) jeg fatter ikke det helt store af Delphi..

lige PT har jeg bare under min timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

end.

... altså ikke rigtig noget endnu.

hvad jeg gerne vil vide er hvad der skal stå under Begin. og om der skal angives nogle Var funktioner.

jeg kan huske at der skal skrives noget med
"BringToFront".

men som sagt... ret lost.

[Redigeret d. 09/02-04 19:32:52 af Adam]

Tak, det ligner noget af det jeg kan huske.

næste lille problem, er så at den "bottom" jeg skal trykke på for at sætte selve programmet igang.

den "bottom" ligger ved siden af timeren, og skulle ved tryk på "run Program" gerne få timeren til at køre - altså programmet til at køre når jeg trykker på den.

indtil videre har jeg prøvet med noget der ser sådan her ud:


begin
Enable timer;=true
end;

.. det virker ikke nej, navnet på timeren er bare Timer1.
hvad skal der stå?

Jeg har sat "under selve timeren" Enable = False.. for først at tænde den når der trykkes på knappen


[Redigeret d. 09/02-04 20:47:19 af Adam]

Håber det fungere.

Vis du´kan bruge svarne, så del da up'ne ud...

Lige en rettelse.

Alle "(i mod 7)+1" kan erstattes med "i", da i nulstilles når den når 8. Det var noget jeg tilføjede senere, så programmet ikke lavede overløb på et tidspunkt, når i nåede maxint. Jeg fik ikke lige rettet i mod 7 +1, beklager.

/data