/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Hjælp til ProgressBar.
Fra : -= Texas =-


Dato : 18-10-01 15:48

Jeg har lavet en progressbar som bliver fyldt ud efter x antal sekunder,
som man selv kan vælge i en edtbox. Jeg har lavet det på flg. måde -

ProgressBar.Position := ProgressBar.Position + (100 div AntalSekunder);

Problemet er bare, at den måde jeg har lavet det på, så bliver progressbaren
fyldt ud i 'hak', den køre ikke flydende. Hvis jeg gerne vil have den til at
køre
flydende skal jeg vel gøre det på denne måde -

ProgressBar.Position := ProgressBar.Position + 1;

Men så skal jeg vel istedet igang med at rode med Timer.Interval ? Jeg har
prøvet
en masse ting, men jeg kan ikke få det til at passe med det antal sekunder
jeg
vælger.

Jeg køre med disse indstillinger, hvis det altså skulle betyde noget.
Timer.Interval := 1000;
Progressbar.max := 100;



 
 
Uffe Kousgaard (18-10-2001)
Kommentar
Fra : Uffe Kousgaard


Dato : 18-10-01 15:52

Hej

du skal lave omtrent således:

for i:= 1 to 100 do
begin
sleep(AntalSekunder*10);
ProgressBar.Position := i;
end;

Sleeps argument er millisekunder, så ovenstående skulle vist få den ønskede
effekt.

Hilsen
Uffe

"-= Texas =-" <boxjunk2600@hotmail.com> wrote in message
news:9qmpsu$1j57$1@news.cybercity.dk...
> Jeg har lavet en progressbar som bliver fyldt ud efter x antal sekunder,
> som man selv kan vælge i en edtbox. Jeg har lavet det på flg. måde -
>
> ProgressBar.Position := ProgressBar.Position + (100 div AntalSekunder);
>
> Problemet er bare, at den måde jeg har lavet det på, så bliver
progressbaren
> fyldt ud i 'hak', den køre ikke flydende. Hvis jeg gerne vil have den til
at
> køre
> flydende skal jeg vel gøre det på denne måde -
>
> ProgressBar.Position := ProgressBar.Position + 1;
>
> Men så skal jeg vel istedet igang med at rode med Timer.Interval ? Jeg har
> prøvet
> en masse ting, men jeg kan ikke få det til at passe med det antal sekunder
> jeg
> vælger.
>
> Jeg køre med disse indstillinger, hvis det altså skulle betyde noget.
> Timer.Interval := 1000;
> Progressbar.max := 100;
>
>



-= Texas =- (18-10-2001)
Kommentar
Fra : -= Texas =-


Dato : 18-10-01 16:09

Tak for hjælpen Uffe. Det virker. Men progressbaren fortsætter
med at køre i en løkke på x antalsekunder. Hvordan får jeg den til
at stoppe efter at have kørt een enkelt gang ?



Uffe Kousgaard (18-10-2001)
Kommentar
Fra : Uffe Kousgaard


Dato : 18-10-01 16:52

Øh, ikke forstået? Den går fra 0-100 på netop det antal sekunder, som er
angivet, hvilket i øvrigt er ret uinteressant. Hvad er det du forsøger at
opnå?

"-= Texas =-" <boxjunk2600@hotmail.com> wrote in message
news:9qmr51$1l0n$1@news.cybercity.dk...
> Tak for hjælpen Uffe. Det virker. Men progressbaren fortsætter
> med at køre i en løkke på x antalsekunder. Hvordan får jeg den til
> at stoppe efter at have kørt een enkelt gang ?
>
>



-= Texas =- (18-10-2001)
Kommentar
Fra : -= Texas =-


Dato : 18-10-01 17:24


"Uffe Kousgaard" <uffe@routeware.dk> wrote in message
news:3bcefa7e$0$1950$edfadb0f@dspool01.news.tele.dk...
> Øh, ikke forstået? Den går fra 0-100 på netop det antal sekunder, som er
> angivet, hvilket i øvrigt er ret uinteressant. Hvad er det du forsøger at
> opnå?

Jeg er nybegynder inden for delphi, så jeg sidder og leger med de
forskellige
komponenter, og prøver samtidig min egen kunnen. Jeg skal ikke bruge
programmet til noget, andet end til at lære af. Så det med at stoppe
løkken efter kun een omgang, var bare for at prøve om det kunne lade
sig gøre, hvilket jeg er sikker på at det kan, men bare ikke med min
viden.



Uffe Kousgaard (18-10-2001)
Kommentar
Fra : Uffe Kousgaard


Dato : 18-10-01 18:29

Problemet er vist, at du har anbragt det i timeren's event ikke ? Så skal
den jo fortsætte på den måde.

"-= Texas =-" <boxjunk2600@hotmail.com> wrote in message
news:9qmvh8$1sk7$1@news.cybercity.dk...
>
> "Uffe Kousgaard" <uffe@routeware.dk> wrote in message
> news:3bcefa7e$0$1950$edfadb0f@dspool01.news.tele.dk...
> > Øh, ikke forstået? Den går fra 0-100 på netop det antal sekunder, som er
> > angivet, hvilket i øvrigt er ret uinteressant. Hvad er det du forsøger
at
> > opnå?
>
> Jeg er nybegynder inden for delphi, så jeg sidder og leger med de
> forskellige
> komponenter, og prøver samtidig min egen kunnen. Jeg skal ikke bruge
> programmet til noget, andet end til at lære af. Så det med at stoppe
> løkken efter kun een omgang, var bare for at prøve om det kunne lade
> sig gøre, hvilket jeg er sikker på at det kan, men bare ikke med min
> viden.
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste