/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
technet
210
10
jdjespers..
200
Timer
Fra :
Henning Madsen
Dato :
28-01-01 00:09
Tak for svaret Thomas P
Jeg kan godt forstå det er umugligt at se fejlen uden at se programmeringen,
derfor
dette lille programeksempel.
Ved brug af 1. If linie er alt ok, men ved brug af 2. linie sker der intet
med Timer2,
hvorfor ?? Jeg bruger selvfølgelig kun den ene If sætning af gangen.
Slutresultatet skulle gerne blive en Timer2 der når Timer1 har nået f.eks.
10 så starter Timer2 og tæller f,eks. til 20.
2.If sætning burde efter min mening virke, så der er nok noget jeg har
kraftigt misforstået.
var
Form1: TForm1;
T1Minutter : Integer;
T2Minutter : Integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
T1Minutter := 0;
T2Minutter := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
T1Minutter := T1Minutter + 1;
Edit1.Text := IntToStr(T1Minutter);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
If T1Minutter >= 10 Then Stopper når Timer1 har nået 10 OK
If T1Minutter <= 10 Then Starter når Timer1 har nået 10 Der sker intet
Begin
Timer2.Enabled := False;
end
Else
Begin
Timer2.Enabled := True;
T2Minutter := T2Minutter + 1;
Edit2.Text := IntToStr(T2Minutter);
End;
end;
end.
Håber nok engang at I kan hjælpe mig videre ??
På forhånd tak
hilsen
Henning.
Søg
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408926
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.