delphi - Timer/nedtællings ur - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 > >>

Bruger #5097 @ 21.01.04 20:37

Hej. Har før skrevet en forum. Men der var det får ingen up.
Nu har jeg valgt at gøre det for 100 up.
Her er brevet som jeg har lavet

(

Hej Udviklere.
Jeg er en begynder på 13 år, som hygger mig med det bedste programeringsprogram. Jeg har godt nok en masse spørsmål men her er et som jeg virkelig har brug for:

Jeg kunne godt tænke mig at lave et program som gør at der er et ur i hjørnet + en editbox og en knap. Uret vise jo tiden, og editboxen skal man skrive en tid. Når tiden er kommet på uret vil windows lukke.
Dette program har jeg lavet men nu kommer den udbyggelse jeg vil sprøre om:
Jeg vil gerne lave endu en editbox. I denne skal den begynde at tælle ned tidspunktet vor den lukke pc'en. Udover det vil jeg også få en label's tæks til at skifte til: Computeren lukker om 5 min, for eksempel.

Kan i hjælpe mig.

Min kode for helle programmet er:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Timer1: TTimer;
MaskEdit1: TMaskEdit;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
S: string;
begin
S := Timetostr(time);
panel1.Caption := S;
form1.Caption := S;
application.title := S;
if s = MaskEdit1.text then
ExitWindowsEx(EWX_POWEROFF, 0);
Label1.Top := Label1.Top - 4;
end;

end.

Må jeg også spørger et dumt spørgsmål.
Hvordan laver man en ny linie i en label???????

På forhånd tak.

Theis Frederiksen Hinz.
Theisf@stofanet.dk

Ps. Du skal skrive det på en nooby måde så jeg fårstår det.
Og det skal også virke:

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

Sorter efter stemmer Sorter efter dato

Bruger #4564 @ 22.01.04 20:43

UPS!

Ja, jeg kan godt se at der er et par fejl.

til det første skal der stå:

Kode

S, Tilbage: string; 
 Slut:TTime;              TTime er en variabel, som indeholder tid og er forskellig fra TTimer !!!!
begin 
 Slut:=StrToTime(MaskEdit1.text);

Med hensyn til label1 skal der stå:

Kode

DecodeTime(StrToTime(Tilbage),timer,minutter,sek,msek);
If (timer=0) and (Minutter<=5) then
Label1.Text:='Computeren lukker om '+Minutter;

Hvis du skal have linie skift i en label, var det rigtig nok det Chadi skrev:

Kode

Label1.Caption:='Hej med dig'+#10#13+'Hvad hedder du?';

Sådan skal det gøres.

Hele koden:

Kode

procedure TForm1.Timer1Timer(Sender: TObject); 

var 
 S, Tilbage: string; 
 Slut:TTime;
 Timer,Minutter,sek,msek:word;

begin 
 Slut:=StrToTime(MaskEdit1.text);   
 S := Timetostr(time); 
 Tilbage:=TimeTostr(Slut-time);       
 DecodeTime(StrToTime(Tilbage),timer,minutter,sek,msek);
 If (timer=0) and (Minutter<=5) then
 Label1.Text:='Computeren lukker om '+Minutter;   

 Edit1.Text:=Tilbage;          
 panel1.Caption := S; 
 form1.Caption := S; 
 application.title := S; 
 if s = MaskEdit1.text then 
 ExitWindowsEx(EWX_POWEROFF, 0); 
 Label1.Top := Label1.Top - 4; 
end;

Håber det var svar på det hele!

T dér

Bruger #2959 @ 21.01.04 20:49

429

#10#13 til linjeskift i din label..

Hilsen CHadi
Mit lykketal er 2959

Bruger #4468 @ 21.01.04 21:14

221

Jeg kan godt lave en kode til dig med kommentarer om hvordan det hele virker.. Men den eneste måde jeg kender er en lidt anden end den du bruger. Men jeg gider ikke til at lave den hvis der kan være en anden der laver den først og så får jeg ikke så møj ud af det... hehe. Men hvis der ikke lige er nogen der kan en hurtig kode som du bruger skriver du bar lige til mig eller noget og så skal jeg nok lave den.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4564 @ 21.01.04 21:13

I din timer event skal du skrive koden

Kode

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
 S, Tilbage: string; 
 Slut:=TTime;
begin 
 Slut:=StrToTime(MaskEdit1.text);   MaskEdit gemmes i Slut og formateres til en tid Time. 
 S := Timetostr(time); 
 Tilbage:=TimeTostr(Slut-time);       Den aktuelle tid trækkes fra slut tiden og man finder dermed hvor lang tid der er tilbage.
 Label1.Text:='Computeren lukker om '+Tilbage;    Dette skrives til din label.
 Edit1.Text:=Tilbage;           Tiden skrives til editboxen.
 panel1.Caption := S; 
 form1.Caption := S; 
 application.title := S; 
 if s = MaskEdit1.text then 
 ExitWindowsEx(EWX_POWEROFF, 0); 
 Label1.Top := Label1.Top - 4; 
end;

Dette skulle faktisk være det hele...

Håber det var til at forstå, ellers skriv igen.

T dér

Bruger #4468 @ 21.01.04 21:14

221

Øhh ja min computer er så lige gået lidt amok og har submittet mit indlæg temmelig mange gange.. Sorry

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 21/01-04 21:16:46 af Rune Jensen (RoZ)]

Bruger #4468 @ 21.01.04 21:14

221

Bruger #4468 @ 21.01.04 21:14

221

Bruger #4468 @ 21.01.04 21:14

221

Bruger #5097 @ 22.01.04 20:26

818

Hej tarrild.
Tak for dit svar.
Du skal nok få de 100 up. Men først må du ratte noget i din tækst.
For det første er alt det du har skrevet godt, men de første linier står der et sted:

S, Tilbage: string;
Slut:=TTime;
begin
Slut:=StrToTime(MaskEdit1.text);

Vis jeg insætter nogen af disse koder her vil den ikke begynde.
Den der slut:=TTimer går heller ikke for der må jo kun være et : i en var, ik, ellers tar jeg fejl.
Der er bare noget galt.
Gider du rette i den og svare igen. Vis du svare i morgen d. 23 har jeg gemt dem til dig.

Til sidst:
Jeg bedte også om at label1 skulle fortælle at der var et kort stykke tid tilbage. Ligesom du har gjort. Men jeg ville gerne kun få den frem når der er eksempeæ 5 minutter til.

Tak for dit svar.

Gider du ikke skrive hvordan man laver ny linie i en label. Ham dens anden virker ikke.

Bruger #5097 @ 22.01.04 20:30

818

hej med dig Charli.
Din kode virker ikke. Vis jeg går ind i labelens caption og skriver:

Hej, det er en godt dag #10#13 (eller hvad du skrev)
Kunne du ikke lave noget mad.

Der kommer Her intet linieskrift.

Svar igen og jeg vil give dig 20 up fordi det kun er det lille spørgsmål. Elle ligndende.

Vis der er andre der når det får de selfølgelig også de 20 up.

<< < 1 2 > >>

Timer/nedtællings ur

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler