Results 1 to 9 of 9
Thread: /
Hybrid View
-
7th July 2010 14:37 #1Registered User
Join Date: Mar:2008
Location:
Posts: 483
/
PAL / + . , 4
var Nachalo : TSongInfo;
Aux1.Eject;
Nachalo := CAT['Station IDs (All)'].ChooseSong(smRandom, NoRules);
Aux1.QueueSong(Nachalo);
Aux1.Volume := 255;
Aux1.Status=0
( )
begin
PAL.WaitForTime('+00:00:27');
Aux1.Volume := 225;
PAL.WaitForTime('+00:00:01');
Aux1.Volume := 200;
PAL.WaitForTime('+00:00:01');
Aux1.Volume := 150;
DeckA.FadeToPlay;
end;
DeckA.Status = 1
Aux1.Stop
-
7th July 2010 15:43 #2
while Aux1.Status<>0 do ;
.....
? CPU.
, 100ms , , .
-
8th July 2010 10:53 #3Registered User
Join Date: Mar:2008
Location:
Posts: 483
begin end , , begin end.
PAL 1
T := 0;
while T < 20 do
begin
xxxx
xxxx
T := T + 1;
end
---------- 10:53 ---------- 10:42 ----------
NOPLast edited by the_tiana; 8th July 2010 at 10:50.
-
8th July 2010 10:54 #4
-
8th July 2010 11:10 #5
while Aux1.Status<>0 do Sleep;
, (Sleep) . , - ( , ). , .
(Aux1.Status 0), .
P.S. "Sleep" . Pascal 15 , . Sleep- Wait- ().
, :
Code:// // delay in milliseconds, uses the system time, also uses // Application.ProcessMessages, which allows access to other events // during the delay, the Win32 API function Sleep() does not // procedure Delay(msecs: integer); var FirstTickCount: longint; begin FirstTickCount := GetTickCount; repeat Application.ProcessMessages; until ((GetTickCount-FirstTickCount) >= Longint(msecs)); end;Last edited by Exhumator; 8th July 2010 at 11:42.
| Aorus X570 Master | Ryzen 9 5900X | Hellhound 7900XT | G.SKILL 32GB DDR4 3800 CL16 | Enermax Galaxy 1000W | SSD Corsair MP510 960GB & WD-RE3 2 x 1TB RAID0 | Pioneer BDR-209EBK | Creative X-Fi Titanium Fatal1ty & GigaWorks S750 | ViewSonic VX3276-2K-MHD |
-
8th July 2010 11:23 #6Registered User
Join Date: Mar:2008
Location:
Posts: 483
..
"" "" , (.. ),
-
8th July 2010 12:00 #7
";" . BEGIN END . .
, . , 100 ms.
, . PAL .| Aorus X570 Master | Ryzen 9 5900X | Hellhound 7900XT | G.SKILL 32GB DDR4 3800 CL16 | Enermax Galaxy 1000W | SSD Corsair MP510 960GB & WD-RE3 2 x 1TB RAID0 | Pioneer BDR-209EBK | Creative X-Fi Titanium Fatal1ty & GigaWorks S750 | ViewSonic VX3276-2K-MHD |
-
8th July 2010 12:15 #8
-
8th July 2010 17:03 #9Registered User
Join Date: Mar:2008
Location:
Posts: 483
( ) . Writeln . 100 1 0,5-0,7 . .




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in