delphi - En lille delphi opgave! - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #7325 @ 01.03.05 15:40

Jeg skal lave et program til en projekt opgave, og da jeg lige er startet med at programmere (for 2 uger siden) er jeg ikke så god til det. Det eneste jeg kan finde ud af pt. er at lave interface.

Mit program skal kunne, poppe-up i windows hvert 45. minut (dette skal kunne ændres efter valg). Hver gang der så er gået 45 minutter, skal baggunden i interface ændres. Dvs. at der kommer et nyt billede hver gang.

Jeg har billederne og teksten osv. Kan bare ikke få resten til at virke...

Tænkte på, om der var en der havde lavet noget lignende, eller kunne guide mig - et stykke i den rigtige retning.

Jeg har ikke kunnet finde den bog, det kræver for at lære dette program. Udsolgt eller udlånt alle steder!

På forhånd tak.

/end Laust @ #mulm

6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 5 karma

Sorter efter stemmer Sorter efter dato

Bruger #3470 @ 01.03.05 16:37

247

Forstår ikke helt hvad det skal bruges til!

Det ville være lidt lettere hvis man gjord det vær time! For så kan man bare regne med et et tal laves om og ikke 45 som så skal plusses med 45 og giver 1 time og 30 min osv... Vil aldrig rigtigt gå op!

Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Det er faktisk ret nemt.

24 / (45 / 60) = 32, hvilket jeg hellere vil skrive (24 / 45) * 60, da jeg er ret forkuseret på hastigheden ;-)

En smule kode til at forklare min løsning (Image og ChangeImage er bare tiltænkte).
Du skal huske at TTimer skal mindst opdateres hvert kvarter, og at b skal opdateres ligeledes hurtigt (i mit eksempel opdateres TTimer hvert kvarter, hvilket jo gør at b = 3 ved hver opdatering).

Kode

var
  Form1: TForm1;
  images : array [0..32] of string;
  b : integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ChangeImage(images[b div 3]);
  if (b = 93) // Hvis der er gået en dag
  then
  b := 0 // Så forvent en ny
  else
  Inc(b); // Ellers så sæt b et til et kvarter mere
end;

1101110100010110000101000001

[Redigeret d. 01/03-05 17:07:01 af Nicolai Lyster Fersner]

Bruger #5097 @ 01.03.05 16:25

818

Forstår ikke helt hvad det skal bruges til!

Det ville være lidt lettere hvis man gjord det vær time! For så kan man bare regne med et et tal laves om og ikke 45 som så skal plusses med 45 og giver 1 time og 30 min osv... Vil aldrig rigtigt gå op!

Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Bruger #7325 @ 01.03.05 17:30

Forstår ikke helt hvad det skal bruges til!

Det ville være lidt lettere hvis man gjord det vær time! For så kan man bare regne med et et tal laves om og ikke 45 som så skal plusses med 45 og giver 1 time og 30 min osv... Vil aldrig rigtigt gå op!

Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Det er faktisk ret nemt.

24 / (45 / 60) = 32, hvilket jeg hellere vil skrive (24 / 45) * 60, da jeg er ret forkuseret på hastigheden ;-)

En smule kode til at forklare min løsning (Image og ChangeImage er bare tiltænkte).
Du skal huske at TTimer skal mindst opdateres hvert kvarter, og at b skal opdateres ligeledes hurtigt (i mit eksempel opdateres TTimer hvert kvarter, hvilket jo gør at b = 3 ved hver opdatering).

Kode
var
  Form1: TForm1;
  images : array [0..32] of string;
  b : integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ChangeImage(images[b div 3]);
  if (b = 93) // Hvis der er gået en dag
  then
  b := 0 // Så forvent en ny
  else
  Inc(b); // Ellers så sæt b et til et kvarter mere
end;
1101110100010110000101000001

[Redigeret d. 01/03-05 17:07:01 af Nicolai Lyster Fersner]

/end Laust @ #mulm

Hvad var dette for noget TTimer du snakkede om? Endnu et program, eller noget der er lagret i Delphi?

Nå men, BTW. tak for svaret, er sikker på at jeg vil tage brug af det.

- Nu videre til popup funktionen. Hvordan er det muliged at kreerer sådan? Jeg har rodet lidt med de forskellige knapper, men kunne ikke finde en - uden held desværre.

Bruger #5542 @ 01.03.05 17:34

TTimer er et komponent i Delphi, som du finder under fanebladet System.

Mht. popupfunktionen tror jeg godt at du kan tilføle Form1.Show i din løkke, så det bliver i stil med

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ChangeImage(images[b div 3]);
if (b = 93) // Hvis der er gået en dag
then
b := 0
Form1.Show
else
Inc(b); // Ellers så sæt b et til et kvarter mere
end;

[Redigeret d. 01/03-05 17:36:38 af Benni]

Bruger #3470 @ 01.03.05 18:39

247

TTimer er et komponent i Delphi, som du finder under fanebladet System.

Mht. popupfunktionen tror jeg godt at du kan tilføle Form1.Show i din løkke, så det bliver i stil med

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ChangeImage(images[b div 3]);
if (b = 93) // Hvis der er gået en dag
then
b := 0
Form1.Show
else
Inc(b); // Ellers så sæt b et til et kvarter mere
end;

[Redigeret d. 01/03-05 17:36:38 af Benni]

Bare lige rette løsningen til det problem helt til, for syns skyld:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ChangeImage(images[b div 3]);
if (b = 93) // Hvis der er gået en dag
then
begin
b := 0;
Form1.Show;
end
else
Inc(b); // Ellers så sæt b et til et kvarter mere
end;

1101110100010110000101000001

Bruger #3470 @ 01.03.05 18:45

247

Vil egentlig også gerne lige tilføje en ting mere.

Jeg glemte at nævne, hvis ikke du skulle have gættet det nu, at mit eksempel skifter imellem 1 billede hvert kvarter i løbet af et døgn.
Dette kan jo selvfølgelig ændres til fx at skifte mellem to billeder hver 1½ time eller 128 billeder på 3 dage.

Bare skriv til mig, hvis du skal have den ændret, men ikke lige kan finde ud af hvordan ;-)

1101110100010110000101000001

En lille delphi opgave!

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler